loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.8, 2002/02/28 21:02:32	version 1.9, 2002/03/01 14:03:50
Line 35 foreach (split/&/,$ENV{'QUERY_STRING'})	Line 35 foreach (split/&/,$ENV{'QUERY_STRING'})
$data{$name}=$value;	$data{$name}=$value;
}	}
my $filename = $data{'file'};	my $filename = $data{'file'};
	# unescape filename
	$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);