version 1.12, 2006/09/06 19:26:07
|
version 1.15, 2016/08/19 05:15:21
|
Line 25
|
Line 25
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
use strict; |
use strict; |
|
use bytes; |
|
|
$|=1; |
$|=1; |
|
|
Line 47 if ($output eq '') {
|
Line 48 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 |"); |
|
my $image_content= ''; |
|
while (my $line = <$plot>) { |
|
$image_content .= $line; |
|
} |
|
my $length = bytes::length($image_content); |
print <<"END"; |
print <<"END"; |
Content-type: image/$output |
Content-type: image/$output |
|
Content-length: $length |
|
|
|
$image_content |
END |
END |
while ($_=<PLOT>) { |
|
print; |
|
} |
|
} elsif ($output eq 'eps') { |
} elsif ($output eq 'eps') { |
print <<"END"; |
print <<"END"; |
Content-type: text/html |
Content-type: text/html |
Line 65 Content-type: text/html
|
Line 71 Content-type: text/html
|
|
|
END |
END |
if (! system ("gnuplot $filename")) { |
if (! system ("gnuplot $filename")) { |
print "<h2>An error occured.</h2>\n". |
print "<h2>An error occurred.</h2>\n". |
"I am not going to tell you about it as I have not bothered ". |
"I am not going to tell you about it as I have not bothered ". |
"to figure out how to get you the error text.\n"; |
"to figure out how to get you the error text.\n"; |
} else { |
} else { |