Changeset 76

Timestamp:

09/09/25 13:32:40 (8 weeks ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Minor QoL refinement on first stage of adding an IP; extract the first
IP-like string from the input

File:

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

trunk/dnsbl/dnsbl.cgi

@@ -95 +95 @@
   $page->param(dnsblsiteroot => $dnsblsiteroot);
 
-  $webvar{ip} =~ s/^\s*//;
-  $webvar{ip} =~ s/\s*$//;
+  ($webvar{ip}) = ($webvar{ip} =~ /(\d+\.\d+\.\d+\.\d+)/);
+#  $webvar{ip} =~ s/^\s*//;
+#  $webvar{ip} =~ s/\s*$//;
   $page->param(ip => $webvar{ip});
 
@@ -146 +147 @@
   my $err = '';
 
-  $webvar{ip} =~ s/^\s*//;
-  $webvar{ip} =~ s/\s*$//;
+  ($webvar{ip}) = ($webvar{ip} =~ /(\d+\.\d+\.\d+\.\d+)/);
+#  $webvar{ip} =~ s/^\s*//;
+#  $webvar{ip} =~ s/\s*$//;
 
   # basic algo:  for each listing level, add the org and block if not already present.