version 1.7, 2001/12/21 16:10:58
|
version 1.9, 2002/03/01 14:03:50
|
Line 29 use strict;
|
Line 29 use strict;
|
$|=1; |
$|=1; |
|
|
my $tmpdir = '/home/httpd/perl/tmp/'; |
my $tmpdir = '/home/httpd/perl/tmp/'; |
my $filename = $ENV{'QUERY_STRING'}; |
my %data; |
|
foreach (split/&/,$ENV{'QUERY_STRING'}) { |
if ($filename =~ /\// | |
my ($name,$value)=split/=/; |
$filename !~ /_plot.data$/) { |
$data{$name}=$value; |
die; |
|
} |
} |
|
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$/); |
$filename = $tmpdir . $filename; |
$filename = $tmpdir . $filename; |
if (-e $filename) { |
die "$data{'file'} does not exist\n" if (! -e $filename); |
|
|
|
my $output = $data{'output'}; |
|
if ($output eq 'gif') { |
open PLOT, "gnuplot $filename |"; |
open PLOT, "gnuplot $filename |"; |
print <<"END"; |
print <<"END"; |
Content-type: image/gif |
Content-type: image/gif |
Line 45 END
|
Line 52 END
|
while ($_=<PLOT>) { |
while ($_=<PLOT>) { |
print; |
print; |
} |
} |
|
} elsif ($output eq 'eps') { |
|
system ("gnuplot $filename"); |
|
} else { |
|
die "output $output is not a recognized value or has no value\n"; |
} |
} |
|
|
|
|
|
|