diff -r 000000000000 -r 6474c204b198 tools/page-loader/graph.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/page-loader/graph.pl	Wed Dec 31 06:09:35 2014 +0100
@@ -0,0 +1,93 @@
+#!/usr/bin/perl
+# 
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+use CGI::Carp qw(fatalsToBrowser);
+use CGI::Request;
+use URLTimingDataSet;
+use URLTimingGraph;
+
+my $request = new CGI::Request;
+
+my $id  = $request->param('id'); #XXX need to check for valid parameter id
+my $id2 = $request->param('id2') || undef; # possible comparison test
+
+# set up the data for the first graph
+my $rs = URLTimingDataSet->new($id);
+my @data = ();
+push @data,  [ map($_->[1], @{$rs->{sorted}}) ];  # URL 
+push @data,  [ map($_->[4], @{$rs->{sorted}}) ];  # median
+# '7' is the first slot for individual test run data
+for (my $idx = 7; $idx < (7+$rs->{count}); $idx++) { 
+    push @data,  [ map($_->[$idx], @{$rs->{sorted}}) ];
+}
+
+
+# set up the data for the second graph, if requested a second id
+# need to sort according to the first chart's ordering
+my $rs2;
+if ($id2) {
+    $rs2 = URLTimingDataSet->new($id2);
+    my @order = map($_->[0], @{$rs->{sorted}});  # get the first chart's order
+    my @resort = ();
+    for my $i (@order) {
+        for (@{$rs2->{sorted}}) {
+            if ($i == $_->[0]) {
+                push @resort, $_;
+                last;
+            }
+        }
+    }
+    push @data,  [ map($_->[4], @resort) ];  # median
+    for (my $idx = 7; $idx < (7+$rs2->{count}); $idx++) { 
+        push @data,  [ map($_->[$idx], @resort) ];
+    }
+}
+
+# and now convert 'NaN' to undef, if they exist in the data.
+for (@data) { for (@$_) { $_ = undef if $_ eq "NaN"; } }
+
+# set up the chart parameters
+my $args = {};
+$args->{cgimode} = 1;
+$args->{title}   = "id=$id";
+
+# need to draw first visit as dotted with points
+my $types = ['lines','lines']; for (1..$rs->{count}-1) { push @$types, undef;  } 
+my $dclrs = [];        for (0..$rs->{count}) { push @$dclrs, 'lred'; } 
+my $legend = [$id];    for (1..$rs->{count}) { push @$legend, undef;  } 
+if ($id2) {
+    push @$types, 'lines'; for (1..$rs2->{count}) { push @$types, undef;  } 
+    for (0..$rs2->{count}) { push @$dclrs, 'lblue'; } 
+    push @$legend, $id2;  for (1..$rs2->{count}) { push @$legend, undef; } 
+}
+$args->{types}   = $types; 
+$args->{dclrs}   = $dclrs;
+$args->{legend}  = $legend;
+
+#XXX set min to zero, and round max to 1000
+$args->{y_max_value} = maxDataOrCap();
+## nope $args->{y_min_value} = 1000;
+$args->{width}   = 800;
+$args->{height}  = 720;
+
+my $g = URLTimingGraph->new(\@data, $args);
+$g->plot();
+
+exit;
+
+
+sub maxDataOrCap {
+    my $max;
+    warn $rs->{maximum};
+    if ($rs2 && ($rs->{maximum} < $rs2->{maximum})) {
+        $max = $rs2->{maximum}; 
+    } else {
+        $max = $rs->{maximum}; 
+    }
+    warn $max;
+    #return $max > 10000 ? 10000 : 1000*int($max/1000)+1000;
+    # just return whatever, rounded to 1000
+    return 1000*int($max/1000)+1000;
+}