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); |