Changeset 67 for trunk/dnsbl/delist-ip

Timestamp:

01/09/18 18:12:13 (6 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Review and update copyright dates on DNSBL.pm, DNSBLweb.pm, browse.cgi,

delist-ip, dnsbl.cgi, and export-dnsbl. Also add a version requirement
on DNSBL.pm in any callers.

Update browse.cgi with limited search and some operational-sanity boundaries

instead of blindly barfing out the entire dataset, requiring code changes
to view only a subset of data.

File:

• trunk/dnsbl/delist-ip (modified) (4 diffs)

trunk/dnsbl/delist-ip

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2011, 2012 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2011, 2012, 2018 Kris Deugau <kdeugau@deepnet.cx>
 # 
 #    This program is free software: you can redistribute it and/or modify
@@ -23 +23 @@
 use DBI;
 
-use DNSBL;
+use DNSBL 2.2;
 
 my $dnsbl = new DNSBL;
@@ -59 +59 @@
 my $removeme = $ARGV[0];
 
-$sth = $dbh->prepare("SELECT ip,count,s4list,added FROM iplist WHERE ip=?");
+$sth = $dbh->prepare("SELECT ip,count,s4list,added,exclude FROM iplist WHERE ip=?");
 $sth->execute($removeme);
-my ($ip,$count,$s4list,$added) = $sth->fetchrow_array;
+my ($ip,$count,$s4list,$added,$exclude) = $sth->fetchrow_array;
 
 die "IP $removeme not found.  Exiting.\n" if !$ip;
@@ -69 +69 @@
 local $dbh->{RaiseError} = 1;
 eval {
-  $sth = $dbh->prepare("INSERT INTO waslisted (ip,count,s4list,origadded) VALUES (?,?,?,?)");
-  $sth->execute($ip,$count,$s4list,$added);
+  $sth = $dbh->prepare("INSERT INTO waslisted (ip,count,s4list,origadded,exclude) VALUES (?,?,?,?,?)");
+  $sth->execute($ip,$count,$s4list,$added,$exclude);
   $sth = $dbh->prepare("DELETE FROM iplist WHERE ip=?");
   $sth->execute($ip);