prevent rgergerger idiot
authorAndrew Dunstan <andrew@dunslane.net>
Sat, 27 Oct 2007 14:40:34 +0000 (14:40 +0000)
committerAndrew Dunstan <andrew@dunslane.net>
Sat, 27 Oct 2007 14:40:34 +0000 (14:40 +0000)
cgi-bin/register.pl

index 7013dea7b76900a4747bf31661ace514fdc698c9..158d05e822dc1d4d5187a8a393b30c2e07dd238e 100755 (executable)
@@ -78,7 +78,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 {/\@pgbuildfarm\.org|Content-Type:|http:|mailto:|href=|None|Unknown/} $os,$osv,$comp,$compv,$arch,$email,$owner)
+if (grep {/rgergerger|\@pgbuildfarm\.org|Content-Type:|http:|mailto:|href=|None|Unknown/} $os,$osv,$comp,$compv,$arch,$email,$owner)
 {
     print 
        "Status: 403 Forbidden - go away idiot\n",