Initial commit

Author: Simon Arlott

.htaccess

@@ -0,0 +1,9 @@
+RewriteEngine On
+
+RewriteCond %{REQUEST_URI} ^/[0-9]{4,8}$ [OR]
+RewriteCond %{REQUEST_URI} ^/today$
+RewriteRule (.*) /index.php?data=$1 [L]
+
+RewriteCond %{REQUEST_URI} ^/graph\.pl [OR]
+RewriteCond %{REQUEST_URI} ^/median\.php
+RewriteRule .* - [F]

graph.pl

@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+use GD::Graph::bars3d;
+
+my $xlabel = shift;
+my $ylabel = shift;
+$xlabel =~ s/\\(\'|\"|\\)/$1/g;
+$ylabel =~ s/\\(\'|\"|\\)/$1/g;
+my (@data);
+#my (@values);
+my $i = 0;
+while (my $x = shift) {
+	my ($l, $u) = split(/,/,$x);
+	$data[0][$i] = $u;
+	}
+#	$values[0][$i] = $u;
+	$i++;
+}
+
+my $graph = GD::Graph::bars3d->new(1000, 400);
+$graph->set_text_clr("black");
+$graph->set_legend_font(GD::Text::gdTinyFont);
+$graph->set(
+	x_label => $xlabel,
+	y_label => $ylabel,
+	bar_spacing => 2,
+	y_tick_number => 10,
+	y_label_skip => 1,
+#	show_values => \@values,
+#	values_vertical => 1,
+#	values_space => 10,
+#	values_format => "%.2f"
+);
+print $graph->plot(\@data)->png;