[LON-CAPA-cvs] cvs: loncom /cgi plot.gif

[albertel]

albertel		Tue Aug 28 19:42:05 2007 EDT

  Modified files:              
    /loncom/cgi	plot.gif 
  Log:
  - style
  
  
Index: loncom/cgi/plot.gif
diff -u loncom/cgi/plot.gif:1.12 loncom/cgi/plot.gif:1.13
--- loncom/cgi/plot.gif:1.12	Wed Sep  6 15:26:07 2006
+++ loncom/cgi/plot.gif	Tue Aug 28 19:42:05 2007
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: plot.gif,v 1.12 2006/09/06 19:26:07 albertel Exp $
+# $Id: plot.gif,v 1.13 2007/08/28 23:42:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,14 +47,16 @@
 }
 
 if ($output eq 'gif' || $output eq 'png') {
-    open PLOT, "gnuplot $filename |";
+    open(my $plot, "gnuplot $filename |");
+
     print <<"END";
 Content-type: image/$output
 
 END
-    while ($_=<PLOT>) {
-	print;
+    while (my $line = <$plot>) {
+	print($line);
     }
+
 } elsif ($output eq 'eps') {
     print <<"END";
 Content-type: text/html