version 1.2, 2001/10/10 16:03:26
|
version 1.4, 2001/12/21 14:45:36
|
Line 9
|
Line 9
|
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
|
|
use strict; |
use strict; |
use GD::Graph::bars; |
use GD::Graph::bars3d; |
use GD::Graph::colour; |
use GD::Graph::colour; |
use GD::Graph::Data; |
use GD::Graph::Data; |
|
|
|
$|=1; # Autoflush after each print/write |
my ($cid, $Tag, $Max, $PNo, $data) = split(/&/,$ENV{'QUERY_STRING'}); |
my ($cid, $Tag, $Max, $PNo, $data) = split(/&/,$ENV{'QUERY_STRING'}); |
|
|
my @data1=split(/\,/,$data); |
my @data1=split(/\,/,$data); |
Line 27 my $Range;
|
Line 28 my $Range;
|
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
else { $Range = 300+30*$PNo; } |
else { $Range = 300+30*$PNo; } |
|
|
if ( $Max < 1 ) { $Max = 1; } |
if ( $Max <= 1 ) { $Max = 1; } |
elsif ( $Max < 10 ) { $Max = 10; } |
elsif ( $Max <= 10 ) { $Max = 10; } |
elsif ( $Max < 100 ) { $Max = 100; } |
elsif ( $Max >= 60 ) { $Max = 100; } |
|
|
my $MyGraph = GD::Graph::bars->new($Range, 400); |
my $MyGraph = GD::Graph::bars3d->new($Range, 400); |
|
|
$MyGraph->set( |
$MyGraph->set( |
x_label => 'Problems #', |
x_label => 'Problems #', |
Line 43 $MyGraph->set(
|
Line 44 $MyGraph->set(
|
x_label_skip => 2, |
x_label_skip => 2, |
|
|
# colors |
# colors |
dclrs => [ qw(green lblue lyellow lpurple cyan lorange)], |
dclrs => [ qw( green lblue lyellow lpurple cyan lorange)], |
|
|
# shadows |
# shadows |
bar_spacing => 4, |
bar_spacing => 4, |
Line 66 open IMG,"|pngtopnm|ppmtogif 2>/dev/null
|
Line 67 open IMG,"|pngtopnm|ppmtogif 2>/dev/null
|
print IMG $BinaryData; # output image |
print IMG $BinaryData; # output image |
$|=1; # be sure to flush before closing |
$|=1; # be sure to flush before closing |
close IMG; |
close IMG; |
|
|