loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.14, 2013/08/14 00:38:55	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 48 if ($output eq '') {	Line 49 if ($output eq '') {

if ($output eq 'gif' \|\| $output eq 'png') {	if ($output eq 'gif' \|\| $output eq 'png') {
open(my $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 (my $line = <$plot>) {
print($line);
}

} elsif ($output eq 'eps') {	} elsif ($output eq 'eps') {
print <<"END";	print <<"END";