version 1.1, 2001/10/10 15:26:00
|
version 1.2, 2001/10/10 16:03:26
|
Line 23 for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
|
Line 23 for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
|
} |
} |
my @data =(\@xlabels,\@data1); |
my @data =(\@xlabels,\@data1); |
|
|
#print "Content-type: text/html\n\n"; |
|
#print $ENV{'QUERY_STRING'; |
|
#print "<br>"; |
|
#print $Max; |
|
#print "<br>"; |
|
#print $PNo; |
|
#print "<br>"; |
|
#print $data; |
|
#exit; |
|
|
|
my $Range; |
my $Range; |
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
else { $Range = 300+30*$PNo; } |
else { $Range = 300+30*$PNo; } |
Line 72 END
|
Line 62 END
|
my $BinaryData=$MyGraph->plot(\@data)->png; |
my $BinaryData=$MyGraph->plot(\@data)->png; |
undef $MyGraph; |
undef $MyGraph; |
binmode(STDOUT); |
binmode(STDOUT); |
open IMG,"|pngtopnm|ppmtogif"; # convert into a gif image |
open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image |
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; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|