version 1.10, 2003/09/24 21:15:55
|
version 1.11, 2004/06/21 20:04:29
|
Line 43 $filename = $tmpdir . $filename;
|
Line 43 $filename = $tmpdir . $filename;
|
die "$data{'file'} does not exist\n" if (! -e $filename); |
die "$data{'file'} does not exist\n" if (! -e $filename); |
|
|
my $output = $data{'output'}; |
my $output = $data{'output'}; |
if ($output eq 'gif') { |
if ($output eq 'gif' || $output eq 'png') { |
open PLOT, "gnuplot $filename |"; |
open PLOT, "gnuplot $filename |"; |
print <<"END"; |
print <<"END"; |
Content-type: image/gif |
Content-type: image/$output |
|
|
END |
END |
while ($_=<PLOT>) { |
while ($_=<PLOT>) { |
Line 72 END
|
Line 72 END
|
} else { |
} else { |
die "output $output is not a recognized value or has no value\n"; |
die "output $output is not a recognized value or has no value\n"; |
} |
} |
|
|
|
|
|
|