loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.6, 2001/12/21 14:43:50	version 1.7, 2001/12/21 16:10:58
Line 29 use strict;	Line 29 use strict;
$\|=1;	$\|=1;

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

	if ($filename =~ /\// \|
	$filename !~ /_plot.data$/) {
	die;
	}
	$filename = $tmpdir . $filename;
if (-e $filename) {	if (-e $filename) {
open PLOT, "gnuplot $filename \|";	open PLOT, "gnuplot $filename \|";
print <<"END";	print <<"END";