Changeset 35

Timestamp:

04/05/11 12:03:47 (14 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Finally get around to chomping whitespace on reported IP before
doing anything with it

File:

• trunk/dnsbl/dnsbl.cgi (modified) (1 diff)

trunk/dnsbl/dnsbl.cgi

@@ -73 +73 @@
   $dnsblsiteroot =~ s|/dnsbl\.cgi\?.+|/|;
   $page->param(dnsblsiteroot => $dnsblsiteroot);
+
+  $webvar{ip} =~ s/^\s*(\d+\.\d+\.\d+\.\d+)\s*/$1/;
 
   $page->param(ip => $webvar{ip});