loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.12, 2006/09/06 19:26:07	version 1.16, 2016/10/12 18:50:02
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
Line 65 Content-type: text/html	Line 67 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 {