version 1.5, 2001/12/20 22:36:15
|
version 1.6, 2001/12/21 14:43:50
|
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"; |
$|=1; |
Content-type: text/html |
|
|
|
|
my $tmpdir = '/home/httpd/perl/tmp/'; |
|
my $filename = $tmpdir . $ENV{'QUERY_STRING'}; |
|
|
END |
if (-e $filename) { |
|
open PLOT, "gnuplot $filename |"; |
if (0) { |
print <<"END"; |
$output =<<"END"; |
|
Content-type: image/gif |
Content-type: image/gif |
|
|
|
|
END |
END |
$output .= `gnuplot $filename`; |
while ($_=<PLOT>) { |
|
print; |
|
} |
} |
} |
print $output; |
|
|
|
|
|
|
|