version 1.12, 2006/09/06 19:26:07
|
version 1.13, 2007/08/28 23:42:05
|
Line 47 if ($output eq '') {
|
Line 47 if ($output eq '') {
|
} |
} |
|
|
if ($output eq 'gif' || $output eq 'png') { |
if ($output eq 'gif' || $output eq 'png') { |
open PLOT, "gnuplot $filename |"; |
open(my $plot, "gnuplot $filename |"); |
|
|
print <<"END"; |
print <<"END"; |
Content-type: image/$output |
Content-type: image/$output |
|
|
END |
END |
while ($_=<PLOT>) { |
while (my $line = <$plot>) { |
print; |
print($line); |
} |
} |
|
|
} elsif ($output eq 'eps') { |
} elsif ($output eq 'eps') { |
print <<"END"; |
print <<"END"; |
Content-type: text/html |
Content-type: text/html |