<?php
//----------------------------------------------------------------------
//  CrawlTrack 3.2.3
//----------------------------------------------------------------------
// Crawler Tracker for website
//----------------------------------------------------------------------
// Author: Jean-Denis Brun
//----------------------------------------------------------------------
// Website: www.crawltrack.net
//----------------------------------------------------------------------
// That script is distributed under GNU GPL license
//----------------------------------------------------------------------
// file: crawler-graph.php
//----------------------------------------------------------------------
// this graph is made with artichow    website: www.artichow.org
//----------------------------------------------------------------------
//  Last update: 31/05/2010
//----------------------------------------------------------------------
error_reporting(E_ALL);
//initialize array
$listlangcrawlt=array();
//get graph infos
$graphname= urlencode($_GET['graphname']);
//database connection		
include("../include/configconnect.php");
$connexion = mysql_connect($crawlthost,$crawltuser,$crawltpassword) or die("MySQL connection to database problem");
$selection = mysql_select_db($crawltdb) or die("MySQL database selection problem");
//get the listlang files
include("../include/listlang.php");
//get the functions files
$times=0;//give value just to avoid error in functions.php
$firstdayweek='Monday'; //give value just to avoid error in functions.php
$period=0;//give value just to avoid error in functions.php
include("../include/functions.php");
//get graph values
if( file_exists("../cachecloseperiod/$graphname.gz"))
  {
  $fgz=@fopen("../cachecloseperiod/$graphname.gz","r");
  $data=fread($fgz, filesize("../cachecloseperiod/$graphname.gz"));
  fclose($fgz);
  $data=gzuncompress($data); 
  $datatransfert= unserialize(urldecode(stripslashes($data)));
  }
else
  {
  $sql = "SELECT   graph_values FROM crawlt_graph
  WHERE  name='".sql_quote($graphname)."'";

  $requete = mysql_query($sql, $connexion) or die("MySQL query error");

  $nbrresult=mysql_num_rows($requete);
  if($nbrresult>=1)
      {	
      $ligne = mysql_fetch_array($requete,MYSQL_ASSOC);
      $data = $ligne['graph_values'];
      }
  else
      {
    echo"<h1>No Graph values available !!!!</h1>";
    exit();    
      }
  $datatransfert= unserialize(urldecode(stripslashes($data)));
  }
  
$totvalues=array_sum( $datatransfert); 

$crawltlang = $_GET['crawltlang'];
if(($crawltlang=='russian'  && !file_exists('./artichow/font/simsun.ttf')) OR $crawltlang=='bulgarian')
	{
	$crawltlang='english';
	}
//language file include
if(file_exists("../language/".$crawltlang.".php") && in_array($crawltlang,$listlangcrawlt))
{
include("../language/".$crawltlang.".php");
}
else
{
echo"<h1>No language files available !!!!</h1>";
exit();
}  
$graphnameexplode=explode('-',$graphname);
$graphtitle=$graphnameexplode[0];
if($graphtitle!='charge1' && $graphtitle!='charge2')
    	{
	arsort($datatransfert);
	}
foreach ($datatransfert as $key => $value)
  {
  if(($value/$totvalues)> 0.009) //to avoid Artichow bug with php 5.2
    {
	if(isset($language[$key]))
		{
		$legend[] = $language[$key];
		}
	else
		{
		$legend[] = $key;
		}
    $values[]=$value;
    }
  }


if($graphnameexplode[1]=='permanent')
{
$fp = fopen( "../cachecloseperiod/$graphname.gz" , 'w' );
fwrite ( $fp , gzcompress($data) );
fclose ( $fp );
}

//build the graph

//test to see if ttf font is available
$fontttf= gd_info();

if( @$fontttf['FreeType Linkage']=='with freetype')
    {
    $ttf='ok';
    }
else
   {
    $ttf='no-ok';
   }

require_once("artichow/Pie.class.php");
if($graphtitle=='charge1')
    {
    $graph = new Graph(450, 220);
    $plot = new Pie($values);
    $plot->setCenter(0.3, 0.5);
    $plot->setSize(0.5, 0.7);
    $plot->set3D(15);
    $plot->setLabelPosition(10);
    $plot->label->setColor(new DarkBlue); 
    $plot->legend->setPosition(1.8);          
    }
elseif($graphtitle=='charge2')
    {
    $graph = new Graph(480, 220);
    $plot = new Pie($values);
    $plot->setCenter(0.3, 0.5);
    $plot->setSize(0.5, 0.7);
    $plot->set3D(15);
    $plot->setLabelPosition(10);
    $plot->label->setColor(new DarkBlue); 
        if($crawltlang=='russian')
		{
		$plot->legend->setPosition(1.9);
		}
	else
		{
    		$plot->legend->setPosition(1.7);
		}          
    }
else
    {
    $graph = new Graph(450, 200);
    $plot = new Pie($values);
    $plot->setCenter(0.4, 0.5);
    $plot->setSize(0.6, 0.8);
    $plot->set3D(15);
    $plot->setLabelPosition(10);
    $plot->label->setColor(new DarkBlue); 
    $plot->legend->setPosition(1.5);
     
    }
  
if(function_exists('imageantialias'))
    {
    $graph->setAntiAliasing(TRUE);
    }
else
    {
     $graph->setAntiAliasing(FALSE);   
    }
$graph->border->hide(TRUE);

$graph->shadow->setSize(5);
$graph->shadow->smooth(TRUE);

$graph->shadow->setPosition('SHADOW_LEFT_BOTTOM');
$graph->shadow->setColor(new DarkBlue);

if($graphtitle=='crawlervisits')
    {  
    $graph->title->set($language['nbr_visits_crawler']);
    $graph->title->setColor(new DarkBlue);
    if ($ttf=='ok')
        {
        if($crawltlang=='russian')
		{
		$graph->title->setFont(new simsun(8));
		}
	else
		{
		$graph->title->setFont(new Tuffy(12));
		}
        }
    else
        {
        $graph->title->setFont(new Font(2));
        }    
    }
elseif($graphtitle=='charge')
    {  
    $titre= numbdisp($totvalues)." ".$language['nbr_visits'];
  
    $graph->title->set($titre);
    $graph->title->setColor(new DarkBlue);
    if ($ttf=='ok')
        {
        if($crawltlang=='russian')
		{
		$graph->title->setFont(new simsun(8));
		}
	else
		{
		$graph->title->setFont(new Tuffy(12));
		}
        }
    else
        {
        $graph->title->setFont(new Font(2));
        }    
    }



if ($ttf=='ok')
    {
    $plot->label->setFont(new Tuffy(10));
    }
else
    {
    $plot->label->setFont(new Font(2));
    }
$plot->setBorder(new DarkBlue);

$plot->setLegend($legend);


$plot->legend->shadow->setSize(0);
$plot->legend->setBackgroundColor(new White);
$plot->legend->border->hide(TRUE);
$plot->legend->setTextColor(new DarkBlue);
if ($ttf=='ok')
    {
        if($crawltlang=='russian')
		{
		$plot->legend->setTextFont(new simsun(8));
		}
	else
		{
		$plot->legend->setTextFont(new Tuffy(10));
		}
    }
else
    {
    $plot->legend->setTextFont(new Font(2));
    }
$graph->add($plot);
$graph->draw();

?>