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

[Chris Lattner]

Changes in directory llvm-www/demo:

index.cgi updated: 1.28 -> 1.29
---
Log message:

Now that we're only getting a few hundred hits an hour, reenable the demo page.
It should would be nice to get file locking on it tho :)


---
Diffs of the changes:  (+5 -4)

Index: llvm-www/demo/index.cgi
diff -u llvm-www/demo/index.cgi:1.28 llvm-www/demo/index.cgi:1.29
--- llvm-www/demo/index.cgi:1.28	Sat Aug 14 16:46:56 2004
+++ llvm-www/demo/index.cgi	Tue Aug 17 10:45:51 2004
@@ -5,7 +5,7 @@
 # doing remote web JO99C compilations.  (It could still be used for that
 # purpose, though the two scripts have diverged somewhat.)
 #
-# Last modified $Date: 2004/08/14 21:46:56 $
+# Last modified $Date: 2004/08/17 15:45:51 $
 #
 
 use CGI;
@@ -13,6 +13,7 @@
 use Mail::Send;
 
 $| = 1;
+my $DisableForm = 0;
 
 open( STDERR, ">&STDOUT" ) or die "can't redirect stderr to stdout";
 
@@ -193,8 +194,7 @@
   "</ul>";
 print "</td></tr></table>";
 
-##print "<p>", $c->submit, "\n", 
-
+print "<p>", $c->submit, "\n" if (!$DisableForm);
 print $c->endform;
 
 print "\n<p>If you have questions about the LLVM code generated by the
@@ -210,7 +210,8 @@
 sub sanitychecktools {
     my $sanitycheckfail = '';
 
-     barf("The demo page is currently down due to high load, please try again later!");
+    barf("The demo page is currently down due to high load, please try again later!")
+      if ($DisableLoad);
 
     # insert tool-specific sanity checks here
     $sanitycheckfail .= ' gccas' if `gccas --help 2>&1` !~ /assembler for GCC/;