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

[Chris Lattner]

Changes in directory llvm-www/demo:

index.cgi updated: 1.34 -> 1.35
---
Log message:

Add mailing support back


---
Diffs of the changes:  (+17 -1)

Index: llvm-www/demo/index.cgi
diff -u llvm-www/demo/index.cgi:1.34 llvm-www/demo/index.cgi:1.35
--- llvm-www/demo/index.cgi:1.34	Thu Dec  9 23:04:45 2004
+++ llvm-www/demo/index.cgi	Fri Dec 10 11:10:40 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/12/10 05:04:45 $
+# Last modified $Date: 2004/12/10 17:10:40 $
 #
 
 use strict;
@@ -422,6 +422,22 @@
     }
     addlog( $source, $pid, $UnhilightedResult );
 
+    my ( $ip, $host, $lg, $lines );
+    chomp( $lines = `wc -l < $inputFile` );
+    $lg = $c->param('language');
+    $ip = $c->remote_addr();
+    chomp( $host = `host $ip` ) if $ip;
+    mailto( 'lattner at cs.uiuc.edu',
+        "--- Query: ---\nFrom: ($ip) $host\nInput: $lines lines of $lg\n"
+          . "C++ demangle = "
+          . ( $c->param('cxxdemangle') ? 1 : 0 )
+          . ", Link opt = "
+          . ( $c->param('linkopt') ? 1 : 0 ) . "\n\n"
+          . ", Show stats = "
+          . ( $c->param('showstats') ? 1 : 0 ) . "\n\n"
+          . "--- Source: ---\n$source\n"
+          . "--- Result: ---\n$UnhilightedResult\n" );
+
     unlink( $inputFile, $bytecodeFile, $outputFile, $disassemblyFile );
 }