--- loncom/cgi/plot.gif 2002/03/01 14:03:50 1.9
+++ loncom/cgi/plot.gif 2003/09/24 21:15:55 1.10
@@ -1,6 +1,6 @@
#!/usr/bin/perl
#
-# $Id: plot.gif,v 1.9 2002/03/01 14:03:50 matthew Exp $
+# $Id: plot.gif,v 1.10 2003/09/24 21:15:55 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -53,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";
}