Changeset 60 for trunk

Timestamp:

03/10/15 12:26:24 (10 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Strip leading and trailing whitespace on IP, netblock, and org fields

File:

• trunk/dnsbl/dnsbl.cgi (modified) (3 diffs)

trunk/dnsbl/dnsbl.cgi

@@ -99 +99 @@
   $page->param(dnsblsiteroot => $dnsblsiteroot);
 
+  $webvar{ip} =~ s/^\s*//;
+  $webvar{ip} =~ s/\s*$//;
   $page->param(ip => $webvar{ip});
   my $count = $dnsbl->ipexists($webvar{ip});
@@ -123 +125 @@
   my $err = '';
 
+  $webvar{ip} =~ s/^\s*//;
+  $webvar{ip} =~ s/\s*$//;
+
   # basic algo:  for each listing level, add the org and block if not already present.
   # escape the loop if we check a level with no block entered.
@@ -132 +137 @@
     my $orgn = "org$i";
     my $blockn = "block$i";
+    $webvar{$orgn} =~ s/^\s*//;
+    $webvar{$orgn} =~ s/\s*$//;
+    $webvar{$blockn} =~ s/^\s*//;
+    $webvar{$blockn} =~ s/\s*$//;
     my $orgid = $dnsbl->orgexists($webvar{$orgn});
     if (!$orgid) {