SVN: toys/stbr/stats/daily.php

shadzik shadzik at pld-linux.org
Tue Dec 29 00:41:20 CET 2009


Author: shadzik
Date: Tue Dec 29 00:41:20 2009
New Revision: 11076

Added:
   toys/stbr/stats/daily.php
Log:
- daily line chart


Added: toys/stbr/stats/daily.php
==============================================================================
--- (empty file)
+++ toys/stbr/stats/daily.php	Tue Dec 29 00:41:20 2009
@@ -0,0 +1,71 @@
+<?
+
+require_once("php-ofc-library/open-flash-chart.php");
+require_once("db.dat");
+
+$pld_lines = array("th","ti");
+
+$year = date("Y");
+$month = date("m");
+$max_days = date("t");
+if ($month < 10)
+	$month = "0".$month;
+$days = array();
+for ($i=1; $i<=$max_days; $i++) {
+	if ($i < 10)
+		$i = "0".$i;
+	$days[] = (string)$i;
+}
+
+$th_bar = new line();
+$ti_bar = new line();
+
+$thm = array();
+$tim = array();
+foreach ($pld_lines as $line) {
+	foreach($days as $day) {
+		$q = @$DBhandle->query('select count(*) from application where line="' . $line . '" and date >="'.$year.'-' . (string)$month . '-'.$day.' 00:00:00" and date < "'.$year.'-'. (string)$month .'-'.$day.' 23:59:59"');
+		if ($line == "th")
+			$thm[] = (int)$q->fetchSingle();
+		else
+			$tim[] = (int)$q->fetchSingle();
+	}
+}
+
+$th_max = max($thm);
+$ti_max = max($tim);
+if ($th_max >= $ti_max)
+	$scale = $th_max;
+else
+	$scale = $ti_max;
+
+$month_name = date("F");
+$title = new title("Daily Requests in $month_name");
+
+$th_bar->set_values($thm);
+$th_bar->set_colour('#FF6633');
+$th_bar->set_key('Th', 12);
+$ti_bar->set_values($tim);
+$ti_bar->set_colour('#3366FF');
+$ti_bar->set_key('Titanium', 12);
+
+$chart = new open_flash_chart();
+$chart->set_title($title);
+$chart->add_element($th_bar);
+$chart->add_element($ti_bar);
+
+$y = new y_axis();
+$y->set_range(0, $scale, 1);
+
+$xlabels = new x_axis_labels();
+$xlabels->set_labels($days);
+
+$x = new x_axis();
+$x->set_labels($xlabels);
+
+$chart->set_x_axis($x);
+$chart->set_y_axis($y);
+
+echo $chart->toPrettyString();
+
+?>


More information about the pld-cvs-commit mailing list