[Gllug] Perl Question - Spam Filter for NMS Form Mail

Henry Gilbert henry.gilbert at gmail.com
Mon Feb 9 01:12:40 UTC 2009


2009/2/8 James Laver <gllug at jameslaver.com>:
>>
>
> elsif ($messagecheck =~ m|://|) {
>  print "Location: http://www.google.com\n\n";
>  exit;
> }
> elsif (length $messagecheck > 1000) {
>  print "Location: http://www.google.com\n\n";
>  exit;
> }
>
> This will do exactly as you asked in your original email. The script could
> do with some restructuring generally, but provided this is about as
> complex as it's going to get, it's probably not worth it.

Brilliant. Really appreciate it and now learnt a bit more about Perl syntax!

thanks

Henry

-- 
SEO Mastery
http://www.alliancetec.com
-- 
Gllug mailing list  -  Gllug at gllug.org.uk
http://lists.gllug.org.uk/mailman/listinfo/gllug




More information about the GLLUG mailing list