<?php
 /*
    //////////////////////////////////////////////////////////
    // [K] Morgan LeFay - 2011, License: GPLv3              //
    // License at: http://www.gnu.org/licenses/gpl.html     //
    //////////////////////////////////////////////////////////
    
    PGS ONE: Example PGS graphing script which dynamically
    generates graphs based on the current genotypes in the PGS                        
    
 */

 // Standard inclusions   
 include("pChart/pData.class");
 include("pChart/pChart.class");
 
 // Insert simulator URL if the user has authed.
 if(isset($_GET['login']) && isset($_GET['apiKey'])) {
  if($_GET['login'] == 'loginUSER' && $_GET['apiKey'] == '9F2B82C4-F820-430B-8AB5-4A7861F9C0E5') {
   if(isset($_GET['longUrl']) && isset($_GET['shortUrl'])) {
    $longURL = $_GET['longUrl'];
    $shortURL = $_GET['shortUrl'];
    $link = mysql_connect('DATABASE_HOST', 'DATABASE_USERNAME', 'DATABASE_PASSWORD');
    if(!$link) {
     print 'Sorry, a database connection could not be established.';
     return;
    }
    mysql_select_db('DATABASE_NAME', $link);
    $query = sprintf("DELETE FROM pgs_url WHERE short_url='%s'", 
     mysql_real_escape_string($shortURL, $link));
    
    mysql_query('LOCK TABLES pgs_url WRITE', $link);
    $queryResult = mysql_query($query, $link);
    mysql_query('UNLOCK TABLES', $link);
    
    $query = sprintf("INSERT INTO pgs_url (sim_url, short_url) VALUES ('%s', '%s')",
     mysql_real_escape_string($longURL, $link),
     
    mysql_query('LOCK TABLES pgs_url WRITE', $link);
    $queryResult = mysql_query($query, $link);
    mysql_query('UNLOCK TABLES', $link);
    mysql_close($link);
   }
  }
 }
 
 // Connect to database and fetch simulator URL based on short url.
 $link = mysql_connect('DATABASE_HOST', 'DATABASE_USERNAME', 'DATABASE_PASSWORD'); 
 if(!$link) {
   print 'Sorry, a database connection could not be established.';
   return;
 }
 mysql_select_db('DATABASE_NAME', $link);
 $query = sprintf("SELECT sim_url FROM pgs_url WHERE short_url='%s'",
  mysql_real_escape_string('pgs_one', $link));
 $queryResult = mysql_query($query, $link);
 $longURL = mysql_result($queryResult, 0, 'sim_url');
 $shortURL = mysql_result($queryResult, 0, 'short_url');
 mysql_close($link);
 
 //DEBUG: Check if the simulator URL is correct.
 //print 'URL: '.$longURL;

 $pgs = file_get_contents($longURL);
 $dataGenotypeName = array_splice(str_getcsv($pgs), 2, 4);
 //DEBUG: Show genotype names as array, needs the image renderer
 //to be disabled in order not to clash with the Content-Type
 //print_r($dataGenotypeName);
 $dataGenotypeValue = array_splice(str_getcsv($pgs), 10, 4);
 //DEBUG: Show the genotype values.
 //print_r($dataGenotypeValue);
 
 // Sum-up genotype count so we have a total number of creatures
 // and later use that to calculate percentages.
 $totalGenotypes = 0;
 foreach ($dataGenotypeValue as $key => $value) {
   $totalGenotypes += $value;
 }
 
 // Finally calculate the percentages which will show the 
 // distribution of genotypes. Computed as:
 // 100 * some_genotype / total_number_of_genotypes
 $dataValues = array();
 foreach ($dataGenotypeValue as $key => $value) {
   array_push($dataValues, intval(100 * $value / $totalGenotypes));
 }
 //DEBUG: Debug the percentages to make sure we did that correctly
 //print_r($dataValues);
 
 // Dataset definition 
 $DataSet = new pData;
 $DataSet->AddPoint($dataValues,"Serie1");
 $DataSet->AddPoint($dataGenotypeName,"Serie2");
 $DataSet->AddAllSeries();
 $DataSet->SetAbsciseLabelSerie("Serie2");

 // Initialise the graph
 $PGS_ONE = new pChart(420,250);
 $PGS_ONE->drawFilledRoundedRectangle(7,7,413,243,5,240,240,240);
 $PGS_ONE->drawRoundedRectangle(5,5,415,245,5,230,230,230);
 $PGS_ONE->createColorGradientPalette(195,204,56,223,110,41,5);

 // Draw the pie chart
 $PGS_ONE->setFontProperties("Fonts/tahoma.ttf",8);
 $PGS_ONE->AntialiasQuality = 8;
 $PGS_ONE->drawPieGraph($DataSet->GetData(),$DataSet->GetDataDescription(),180,130,110,PIE_PERCENTAGE_LABEL,FALSE,50,20,5);
 $PGS_ONE->drawPieLegend(350,15,$DataSet->GetData(),$DataSet->GetDataDescription(),250,250,250);

 // Write the title
 $PGS_ONE->setFontProperties("Fonts/MankSans.ttf",10);
 $PGS_ONE->drawTitle(10,20,"PGS ONE",100,100,100);

 // Set content-type to PNG. Disable this for previous  DEBUG instances.
 header('Content-Type: image/png');
 // Render! Disable this for the previous DEBUG instances.
 $PGS_ONE->Stroke();
 
?>