loncom/cgi/plot.gif - diff

Return to plot.gif CVS log

Up to [LON-CAPA] / loncom / cgi

-version 1.9, 2002/03/01 14:03:50
+version 1.10, 2003/09/24 21:15:55
  Line 53  END
  	print;
      }
  } elsif ($output eq 'eps') {
-     system ("gnuplot $filename");
+     print <<"END";
+ Content-type: text/html
+ <html><head><title>eps plot creation</title></head>
+ <body>
+ <h2>Creating eps plot</h2>
+ END
+     if (! system ("gnuplot $filename")) {
+         print "<h2>An error occured.</h2>\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 "<h2>EPS file generated successfully.</h2>\n";
+     }
+     print "</body></html>\n";
  } else {
      die "output $output is not a recognized value or has no value\n";
  }