version 1.5, 2001/12/20 22:36:15
|
version 1.7, 2001/12/21 16:10:58
|
Line 24
|
Line 24
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
use strict; |
use strict; |
my $output; |
|
my $tmpdir = '/home/httpd/perl/tmp/'; |
|
my $filename = $tmpdir . $ENV{'QUERY_STRING'}; |
|
|
|
$output =<<"END"; |
|
Content-type: text/html |
|
|
|
|
$|=1; |
|
|
END |
my $tmpdir = '/home/httpd/perl/tmp/'; |
|
my $filename = $ENV{'QUERY_STRING'}; |
|
|
if (0) { |
if ($filename =~ /\// | |
$output =<<"END"; |
$filename !~ /_plot.data$/) { |
|
die; |
|
} |
|
$filename = $tmpdir . $filename; |
|
if (-e $filename) { |
|
open PLOT, "gnuplot $filename |"; |
|
print <<"END"; |
Content-type: image/gif |
Content-type: image/gif |
|
|
|
|
END |
END |
$output .= `gnuplot $filename`; |
while ($_=<PLOT>) { |
|
print; |
|
} |
} |
} |
print $output; |
|
|
|
|
|
|
|