loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.7, 2001/12/21 16:10:58	version 1.8, 2002/02/28 21:02:32
Line 29 use strict;	Line 29 use strict;
$\|=1;	$\|=1;

my $tmpdir = '/home/httpd/perl/tmp/';	my $tmpdir = '/home/httpd/perl/tmp/';
my $filename = $ENV{'QUERY_STRING'};	my %data;
	foreach (split/&/,$ENV{'QUERY_STRING'}) {
if ($filename =~ /\// \|	my ($name,$value)=split/=/;
$filename !~ /_plot.data$/) {	$data{$name}=$value;
die;
}	}
	my $filename = $data{'file'};
	die if ($filename =~ /\// \|\| $filename !~ /_plot.data$/);
$filename = $tmpdir . $filename;	$filename = $tmpdir . $filename;
if (-e $filename) {	die "$data{'file'} does not exist\n" if (! -e $filename);

	my $output = $data{'output'};
	if ($output eq 'gif') {
open PLOT, "gnuplot $filename \|";	open PLOT, "gnuplot $filename \|";
print <<"END";	print <<"END";
Content-type: image/gif	Content-type: image/gif
Line 45 END	Line 49 END
while ($_=<PLOT>) {	while ($_=<PLOT>) {
print;	print;
}	}
	} elsif ($output eq 'eps') {
	system ("gnuplot $filename");
	} else {
	die "output $output is not a recognized value or has no value\n";
}	}