--- loncom/cgi/plot.gif 2002/02/28 21:02:32 1.8
+++ loncom/cgi/plot.gif 2003/09/24 21:15:55 1.10
@@ -1,6 +1,6 @@
#!/usr/bin/perl
#
-# $Id: plot.gif,v 1.8 2002/02/28 21:02:32 matthew Exp $
+# $Id: plot.gif,v 1.10 2003/09/24 21:15:55 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -35,6 +35,9 @@ foreach (split/&/,$ENV{'QUERY_STRING'})
$data{$name}=$value;
}
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;
die "$data{'file'} does not exist\n" if (! -e $filename);
@@ -50,7 +53,22 @@ END
print;
}
} elsif ($output eq 'eps') {
- system ("gnuplot $filename");
+ print <<"END";
+Content-type: text/html
+
+eps plot creation
+
+Creating eps plot
+
+END
+ if (! system ("gnuplot $filename")) {
+ print "An error occured.
\n".
+ "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";
+ } else {
+ print "EPS file generated successfully.
\n";
+ }
+ print "\n";
} else {
die "output $output is not a recognized value or has no value\n";
}