Subversion Repositories Sites.tela-botanica.org

<?php

include ("../../../../api/jpgraph_1.12.2/jpgraph.php") ;

include ("../../../../api/jpgraph_1.12.2/jpgraph_line.php") ;

include ("../../../../api/jpgraph_1.12.2/jpgraph_bar.php");

include ("../../../../papyrus/configuration/pap_config.inc.php") ;

include_once 'DB.php' ;

$db = DB::connect (PAP_DSN) ;

if (DB::isError($db)) {

    echo 'Message Standard         : ' . $db->getMessage() . "\n";

    echo 'Message DBMS/Utilisateur : ' . $db->getUserInfo() . "\n";

    echo 'Message DBMS/Déboguage   : ' . $db->getDebugInfo() . "\n";

    exit;

}

$tab_mois = array('', 'Jan', 'Fev', 'Mar', 'Avr', 'Mai', 'Juin', 'Juil', 'Août', 'Sep', 'Oct', 'Nov', 'Dec');

$tab_donnees = array(0);

if (isset($_GET['annee'])) {

	$tps_debut = mktime(0,0,0,1,1, $_GET['annee']);

	$tps_fin = mktime(23,59,59,12,31, $_GET['annee']);

	$annee = $_GET['annee'];

} else {

	$tps_debut = mktime(0,0,0,1,1);

	$tps_fin = time();// jour courrant

	$annee = date('Y', $tps_fin);

}

$tps_courrant = $tps_debut;

$i = 1;

//Requete par mois

while  ($tps_courrant <= $tps_fin) {

	$tps_semaine_suivante = $tps_courrant + (7 * 24 * 60 * 60);

	$tps_mois_suivant = mktime(0,0,0,$i+1,1,$annee);

	//echo date('Y-m-d H:i:s', $tps_courrant).' - '.date('Y-m-d H:i:s', $tps_mois_suivant);

	$requete = 	'SELECT IS_ACTION '.

				'FROM ins_STATS '.

				'WHERE IS_DATE >= "'.date('Y-m-d H:i:s', $tps_courrant).'" '.

				'AND IS_DATE < "'.date('Y-m-d H:i:s', $tps_mois_suivant).'" ';

	$resultat = $db->query($requete) ;

	$nbre = 0 ;

	while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {

		if ($ligne->IS_ACTION == 'add') $nbre++ ;

		if ($ligne->IS_ACTION == 'del') $nbre-- ;

	}

	$tab_donnees[$i] = $nbre + $tab_donnees[$i-1];

	//echo ' - '.$tab_donnees[$i-1].'<br/>';

	$tps_courrant = $tps_mois_suivant;

	$i++;

}

//echo '<pre>'.print_r($tab_donnees, true).'</pre>';

$graph = new Graph(500, 440, 'auto');

$graph->img->SetMargin(50, 50, 30, 50);

$graph->SetMarginColor('white');

$graph->SetScale('textint');

$graph->xaxis->SetTickLabels($tab_mois);

$graph->SetShadow();

$graph->title->Set('Évolution des inscriptions au Réseau');

$graph->title->SetFont(FF_FONT1,FS_BOLD);

$graph->xaxis->title->Set("Mois depuis le 1er janvier $annee");

$LinePlot = new LinePlot($tab_donnees);

$LinePlot->value->Show();

$LinePlot->value->SetFormat('%s');

$LinePlot->SetColor('brown') ;

$graph->Add($LinePlot);

$graph->Stroke();

?>