version 1.6, 2001/12/21 14:43:50
|
version 1.7, 2001/12/21 16:10:58
|
Line 29 use strict;
|
Line 29 use strict;
|
$|=1; |
$|=1; |
|
|
my $tmpdir = '/home/httpd/perl/tmp/'; |
my $tmpdir = '/home/httpd/perl/tmp/'; |
my $filename = $tmpdir . $ENV{'QUERY_STRING'}; |
my $filename = $ENV{'QUERY_STRING'}; |
|
|
|
if ($filename =~ /\// | |
|
$filename !~ /_plot.data$/) { |
|
die; |
|
} |
|
$filename = $tmpdir . $filename; |
if (-e $filename) { |
if (-e $filename) { |
open PLOT, "gnuplot $filename |"; |
open PLOT, "gnuplot $filename |"; |
print <<"END"; |
print <<"END"; |