loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.11, 2004/06/21 20:04:29	version 1.12, 2006/09/06 19:26:07
Line 37 foreach (split/&/,$ENV{'QUERY_STRING'})	Line 37 foreach (split/&/,$ENV{'QUERY_STRING'})
my $filename = $data{'file'};	my $filename = $data{'file'};
# unescape filename	# unescape filename
$filename =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$filename =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

die if ($filename =~ /\// \|\| $filename !~ /_plot.data$/);	die if ($filename =~ /\// \|\| $filename !~ /_plot.data$/);
$filename = $tmpdir . $filename;	$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 '') {
	$output = (split('\.',$0))[-1];
	}

if ($output eq 'gif' \|\| $output eq 'png') {	if ($output eq 'gif' \|\| $output eq 'png') {
open PLOT, "gnuplot $filename \|";	open PLOT, "gnuplot $filename \|";
print <<"END";	print <<"END";