loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.5, 2001/12/20 22:36:15	version 1.6, 2001/12/21 14:43:50
Line 24	Line 24
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#

use strict;	use strict;
my $output;
my $tmpdir = '/home/httpd/perl/tmp/';
my $filename = $tmpdir . $ENV{'QUERY_STRING'};

$output =<<"END";	$\|=1;
Content-type: text/html

	my $tmpdir = '/home/httpd/perl/tmp/';
	my $filename = $tmpdir . $ENV{'QUERY_STRING'};

END	if (-e $filename) {
	open PLOT, "gnuplot $filename \|";
if (0) {	print <<"END";
$output =<<"END";
Content-type: image/gif	Content-type: image/gif


END	END
$output .= `gnuplot $filename`;	while ($_=<PLOT>) {
	print;
	}
}	}
print $output;