[llvm-commits] CVS: llvm-www/demo/index.cgi

[Brian Gaeke]

Changes in directory llvm-www/demo:

index.cgi updated: 1.21 -> 1.22

---
Log message:

Turn on autoflush. Fix bug where warnings from llvm-gcc got printed twice.


---
Diffs of the changes:  (+7 -3)

Index: llvm-www/demo/index.cgi
diff -u llvm-www/demo/index.cgi:1.21 llvm-www/demo/index.cgi:1.22
--- llvm-www/demo/index.cgi:1.21	Wed Feb  4 15:58:18 2004
+++ llvm-www/demo/index.cgi	Wed Feb  4 16:11:22 2004
@@ -5,13 +5,15 @@
 # doing remote web JO99C compilations.  (It could still be used for that
 # purpose, though the two scripts have diverged somewhat.)
 #
-# Last modified $Date: 2004/02/04 21:58:18 $
+# Last modified $Date: 2004/02/04 22:11:22 $
 #
 
 use CGI;
 use POSIX;
 use Mail::Send;
 
+$| = 1;
+
 open( STDERR, ">&STDOUT" ) or die "can't redirect stderr to stdout";
 
 if ( !-d "/tmp/webcompile" ) { mkdir( "/tmp/webcompile", 0777 ); }
@@ -219,11 +221,13 @@
 sub try_run {
     my ( $program, $commandline, $outputFile ) = @_;
 
-    #print "command line was [ $commandline ]\n";
+    #print "<p>Command line was <tt>$commandline</tt></p>\n";
     my $retcode = system($commandline);
+    #print "<p>Finished running command.</p>\n";
     if ( -s $outputFile ) {
-        print dumpFile( "Output from $program", $outputFile );
+        print scalar dumpFile( "Output from $program", $outputFile );
     }
+    #print "<p>Finished dumping command output.</p>\n";
     if ( WIFEXITED($retcode) && WEXITSTATUS($retcode) != 0 ) {
         barf(
 "$program exited with an error. Please correct source and resubmit.\n"