Changeset 69 for trunk/dnsbl/dnsbl.cgi

Timestamp:

07/19/18 17:03:38 (6 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

• Accumulated fixes and tweaks from production
• Add FindBin to a couple of scripts to make them more portable; they no longer need to be run from the directory they're in, or have system-specific paths hardcoded in either "use lib" or a -I argument

File:

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

trunk/dnsbl/dnsbl.cgi

@@ -27 +27 @@
 use Net::DNS;
 
+# push "the directory the script is in" into @INC
+use FindBin;
+use lib "$FindBin::RealBin/";
+
 use DNSBL 2.2;
 use DNSBLweb;
@@ -189 +193 @@
     }
     if (!$dnsbl->blockexists($webvar{$blockn})) {
-      my $ret = $dnsbl->addblock($webvar{$blockn}, $orgid, $i, $webvar{$excln});
+      my $ret = $dnsbl->addblock($webvar{$blockn}, $orgid, $i, $webvar{$excln}, $webvar{$commentn});
       $err .= "error adding $webvar{$blockn}: $ret<br>\n" if $ret;
       $page->param($blockn => $webvar{$blockn});