bagder: curl-www/auto log.cgi,1.20,1.21

Update of /cvsroot/curl/curl-www/auto
In directory labb:/tmp/cvs-serv4717

Modified Files:
	log.cgi 
Log Message:
basic obfuscator


Index: log.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/log.cgi,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- log.cgi	16 Jan 2007 22:08:22 -0000	1.20
+++ log.cgi	20 Feb 2007 15:57:57 -0000	1.21
@@ -75,6 +75,9 @@
         push @out, "<a name=\"prob$num\"></a><div class=\"warning\">" . CGI::escapeHTML($_) . "</div>\n";
     }
     else {
+        if($_ =~ /EMAIL/) {
+            $_ =~ s:\@: /at/ :g;
+        }
         push @out, CGI::escapeHTML($_) . "<br>\n";
     }
 }