The Tor Browser / file comparison
comparison: tools/page-loader/graph.pl
tools/page-loader/graph.pl
- changeset 0
- 6474c204b198
equal
deleted
inserted
replaced
| -1:000000000000 | 0:7a807ab41b9e |
|---|---|
| 1 #!/usr/bin/perl | |
| 2 # | |
| 3 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 4 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 5 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 6 use CGI::Carp qw(fatalsToBrowser); | |
| 7 use CGI::Request; | |
| 8 use URLTimingDataSet; | |
| 9 use URLTimingGraph; | |
| 10 | |
| 11 my $request = new CGI::Request; | |
| 12 | |
| 13 my $id = $request->param('id'); #XXX need to check for valid parameter id | |
| 14 my $id2 = $request->param('id2') || undef; # possible comparison test | |
| 15 | |
| 16 # set up the data for the first graph | |
| 17 my $rs = URLTimingDataSet->new($id); | |
| 18 my @data = (); | |
| 19 push @data, [ map($_->[1], @{$rs->{sorted}}) ]; # URL | |
| 20 push @data, [ map($_->[4], @{$rs->{sorted}}) ]; # median | |
| 21 # '7' is the first slot for individual test run data | |
| 22 for (my $idx = 7; $idx < (7+$rs->{count}); $idx++) { | |
| 23 push @data, [ map($_->[$idx], @{$rs->{sorted}}) ]; | |
| 24 } | |
| 25 | |
| 26 | |
| 27 # set up the data for the second graph, if requested a second id | |
| 28 # need to sort according to the first chart's ordering | |
| 29 my $rs2; | |
| 30 if ($id2) { | |
| 31 $rs2 = URLTimingDataSet->new($id2); | |
| 32 my @order = map($_->[0], @{$rs->{sorted}}); # get the first chart's order | |
| 33 my @resort = (); | |
| 34 for my $i (@order) { | |
| 35 for (@{$rs2->{sorted}}) { | |
| 36 if ($i == $_->[0]) { | |
| 37 push @resort, $_; | |
| 38 last; | |
| 39 } | |
| 40 } | |
| 41 } | |
| 42 push @data, [ map($_->[4], @resort) ]; # median | |
| 43 for (my $idx = 7; $idx < (7+$rs2->{count}); $idx++) { | |
| 44 push @data, [ map($_->[$idx], @resort) ]; | |
| 45 } | |
| 46 } | |
| 47 | |
| 48 # and now convert 'NaN' to undef, if they exist in the data. | |
| 49 for (@data) { for (@$_) { $_ = undef if $_ eq "NaN"; } } | |
| 50 | |
| 51 # set up the chart parameters | |
| 52 my $args = {}; | |
| 53 $args->{cgimode} = 1; | |
| 54 $args->{title} = "id=$id"; | |
| 55 | |
| 56 # need to draw first visit as dotted with points | |
| 57 my $types = ['lines','lines']; for (1..$rs->{count}-1) { push @$types, undef; } | |
| 58 my $dclrs = []; for (0..$rs->{count}) { push @$dclrs, 'lred'; } | |
| 59 my $legend = [$id]; for (1..$rs->{count}) { push @$legend, undef; } | |
| 60 if ($id2) { | |
| 61 push @$types, 'lines'; for (1..$rs2->{count}) { push @$types, undef; } | |
| 62 for (0..$rs2->{count}) { push @$dclrs, 'lblue'; } | |
| 63 push @$legend, $id2; for (1..$rs2->{count}) { push @$legend, undef; } | |
| 64 } | |
| 65 $args->{types} = $types; | |
| 66 $args->{dclrs} = $dclrs; | |
| 67 $args->{legend} = $legend; | |
| 68 | |
| 69 #XXX set min to zero, and round max to 1000 | |
| 70 $args->{y_max_value} = maxDataOrCap(); | |
| 71 ## nope $args->{y_min_value} = 1000; | |
| 72 $args->{width} = 800; | |
| 73 $args->{height} = 720; | |
| 74 | |
| 75 my $g = URLTimingGraph->new(\@data, $args); | |
| 76 $g->plot(); | |
| 77 | |
| 78 exit; | |
| 79 | |
| 80 | |
| 81 sub maxDataOrCap { | |
| 82 my $max; | |
| 83 warn $rs->{maximum}; | |
| 84 if ($rs2 && ($rs->{maximum} < $rs2->{maximum})) { | |
| 85 $max = $rs2->{maximum}; | |
| 86 } else { | |
| 87 $max = $rs->{maximum}; | |
| 88 } | |
| 89 warn $max; | |
| 90 #return $max > 10000 ? 10000 : 1000*int($max/1000)+1000; | |
| 91 # just return whatever, rounded to 1000 | |
| 92 return 1000*int($max/1000)+1000; | |
| 93 } |
