version 1.8, 2002/02/28 21:02:32
|
version 1.10, 2003/09/24 21:15:55
|
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); |
Line 50 END
|
Line 53 END
|
print; |
print; |
} |
} |
} elsif ($output eq 'eps') { |
} elsif ($output eq 'eps') { |
system ("gnuplot $filename"); |
print <<"END"; |
|
Content-type: text/html |
|
|
|
<html><head><title>eps plot creation</title></head> |
|
<body> |
|
<h2>Creating eps plot</h2> |
|
|
|
END |
|
if (! system ("gnuplot $filename")) { |
|
print "<h2>An error occured.</h2>\n". |
|
"I am not going to tell you about it as I have not bothered ". |
|
"to figure out how to get you the error text.\n"; |
|
} else { |
|
print "<h2>EPS file generated successfully.</h2>\n"; |
|
} |
|
print "</body></html>\n"; |
} else { |
} else { |
die "output $output is not a recognized value or has no value\n"; |
die "output $output is not a recognized value or has no value\n"; |
} |
} |