source: trunk/dnsbl/delist-ip

Last change on this file was 92, checked in by Kris Deugau, 3 hours ago

/trunk/dnsbl

Convert per-script %config to module-based loader stub in DNSBL::new()

  • Property svn:executable set to *
  • Property svn:keywords set to Date Rev Author Id
File size: 1.9 KB
Line 
1#!/usr/bin/perl
2# Delist an IP
3##
4# $Id: delist-ip 92 2025-09-16 19:56:31Z kdeugau $
5# Copyright 2011,2012,2018,2025 Kris Deugau <kdeugau@deepnet.cx>
6#
7# This program is free software: you can redistribute it and/or modify
8# it under the terms of the GNU General Public License as published by
9# the Free Software Foundation, either version 3 of the License, or
10# (at your option) any later version.
11#
12# This program is distributed in the hope that it will be useful,
13# but WITHOUT ANY WARRANTY; without even the implied warranty of
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15# GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License
18# along with this program. If not, see <http://www.gnu.org/licenses/>.
19##
20
21use strict;
22use warnings;
23use DBI;
24
25# push "the directory the script is in" into @INC
26use FindBin;
27use lib "$FindBin::RealBin/";
28
29use DNSBL 3.0;
30
31die "Usage: delist-ip <list> <IP>\n".
32 " <list> should be the DNSBL you want to remove the IP from\n"
33 if !$ARGV[1];
34my $cfgname = shift @ARGV;
35
36my $dnsbl = new DNSBL (configfile => "/etc/dnsbl/$cfgname.conf");
37$dnsbl->connect;
38
39my $removeme = $ARGV[0];
40
41$sth = $dbh->prepare("SELECT ip,count,s4list,added,exclude FROM iplist WHERE ip=?");
42$sth->execute($removeme);
43my ($ip,$count,$s4list,$added,$exclude) = $sth->fetchrow_array;
44
45die "IP $removeme not found. Exiting.\n" if !$ip;
46
47# need to do the next in a single transaction
48local $dbh->{AutoCommit} = 0;
49local $dbh->{RaiseError} = 1;
50eval {
51 $sth = $dbh->prepare("INSERT INTO waslisted (ip,count,s4list,origadded,exclude) VALUES (?,?,?,?,?)");
52 $sth->execute($ip,$count,$s4list,$added,$exclude);
53 $sth = $dbh->prepare("DELETE FROM iplist WHERE ip=?");
54 $sth->execute($ip);
55 $dbh->do("UPDATE blocks SET ipcount=ipcount-1 WHERE block >> ?", undef, ($ip));
56 $dbh->commit;
57};
58if ($@) {
59 my $msg = $@;
60 eval { $dbh->rollback; };
61 print "Failed to move record from iplist to waslisted: $msg\n";
62}
Note: See TracBrowser for help on using the repository browser.