version 1.11, 2004/06/21 20:04:29
|
version 1.14, 2013/08/14 00:38:55
|
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(my $plot, "gnuplot $filename |"); |
|
|
print <<"END"; |
print <<"END"; |
Content-type: image/$output |
Content-type: image/$output |
|
|
END |
END |
while ($_=<PLOT>) { |
while (my $line = <$plot>) { |
print; |
print($line); |
} |
} |
|
|
} elsif ($output eq 'eps') { |
} elsif ($output eq 'eps') { |
print <<"END"; |
print <<"END"; |
Content-type: text/html |
Content-type: text/html |
Line 62 Content-type: text/html
|
Line 67 Content-type: text/html
|
|
|
END |
END |
if (! system ("gnuplot $filename")) { |
if (! system ("gnuplot $filename")) { |
print "<h2>An error occured.</h2>\n". |
print "<h2>An error occurred.</h2>\n". |
"I am not going to tell you about it as I have not bothered ". |
"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"; |
"to figure out how to get you the error text.\n"; |
} else { |
} else { |