loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

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";
}	}