bozo filter

diff --git a/cgi-bin/register.pl b/cgi-bin/register.pl
index 3a72a513898941a441d44f8e0266584fb222857c..3d68cb6ec9ba3575641683877db1a6c3c12e6c53 100755 (executable)
--- a/cgi-bin/register.pl
+++ b/cgi-bin/register.pl
@@ -79,7 +79,7 @@ unless ($os && $osv && $comp && $compv && $arch && $email && $owner)
 # some idiot has a script that tries to talk to me
 # this should catch and dispose of him
 if ((grep {/rgergerger|\@pgbuildfarm\.org|Content-Type:|http:|mailto:|href=|None|Unknown/} $os,$osv,$comp,$compv,$arch,$email,$owner)
-    || ($email =! /john.*\@aol.com/) )
+    || ($email =~ /john.*\@aol.com/) )
 {
     print 
        "Status: 403 Forbidden - go away idiot\n",