Changeset 40 for trunk

Timestamp:

03/04/12 15:02:13 (13 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Minor cleanups to prepare for semirelease
GPL-tag executables and Perl module from Makefile MANIFEST

Location:

trunk/dnsbl

Files:

• COPYING (added)
• DNSBL.pm (modified) (1 diff, 1 prop)
• Makefile (modified) (1 diff, 1 prop)
• browse.cgi (modified) (1 diff)
• check-iplist.pl (modified) (1 diff)
• delist-ip (modified) (2 diffs)
• dnsbl.cgi (modified) (1 diff)
• export-dnsbl (modified) (1 diff)
• extract-data (modified) (1 diff)
• orgmove (modified) (1 diff)
• setparents.pl (modified) (1 diff)

trunk/dnsbl/DNSBL.pm

@@ -1 +1 @@
 # DNSBL
 # Functions for interacting with the DNSBL database
+##
+# $Id$
+# Copyright 2009-2011 Kris Deugau <kdeugau@deepnet.cx>
+# 
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version. 
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 package DNSBL;

trunk/dnsbl/Makefile

@@ -9 +9 @@
 MANIFEST = \
         browse.cgi check-iplist.pl delist-ip export-dnsbl index.shtml Makefile \
-        dnsbl.cgi DNSBL.pm dnsbl.sql templates/ addparents.sql setparents.pl
+        dnsbl.cgi DNSBL.pm dnsbl.sql templates/ addparents.sql setparents.pl \
+        COPYING
 
 PKGNAME=dnsbl
-VERSION=0.2.1
+VERSION=0.2.2
 
 all:

trunk/dnsbl/browse.cgi

@@ -1 +1 @@
 #!/usr/bin/perl
 # quickndirty browse-the-damned-by-web
+##
+# $Id$
+# Copyright 2009-2011 Kris Deugau <kdeugau@deepnet.cx>
+#
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;

trunk/dnsbl/check-iplist.pl

@@ -1 +1 @@
 #!/usr/bin/perl
+# Integrity/data-correctness checker
+##
+# $Id$
+# Copyright 2009-2011 Kris Deugau <kdeugau@deepnet.cx>
+# 
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version. 
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;

trunk/dnsbl/delist-ip

@@ -1 +1 @@
 #!/usr/bin/perl
 # Delist an IP
-# 2010/09/07 kdeugau@deepnet.cx
+##
+# $Id$
+# Copyright 2011, 2012 Kris Deugau <kdeugau@deepnet.cx>
+# 
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version. 
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;
@@ -57 +73 @@
   $sth = $dbh->prepare("DELETE FROM iplist WHERE ip=?");
   $sth->execute($ip);
+  $dbh->do("UPDATE blocks SET ipcount=ipcount-1 WHERE block >> ?", undef, ($ip));
   $dbh->commit;
 };

trunk/dnsbl/dnsbl.cgi

@@ -1 +1 @@
 #!/usr/bin/perl
+# Main add-IP-to-list CGI
+##
+# $Id$
+# Copyright 2009-2011 Kris Deugau <kdeugau@deepnet.cx>
+# 
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version. 
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;

trunk/dnsbl/export-dnsbl

@@ -1 +1 @@
 #!/usr/bin/perl
 # Export DNSBL data
-# 2009/05/26 kdeugau@deepnet.cx
-# need to stub it out so it can use a module to actually write zone
-# data for different NS software
-# completed 2008/08/14
+##
+# $Id$
+# Copyright 2009-2011 Kris Deugau <kdeugau@deepnet.cx>
+# 
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version. 
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;

trunk/dnsbl/extract-data

@@ -1 +1 @@
 #!/usr/bin/perl
+# $Id$
+#
 # Extract relay IP, URI hosts from mail in folder
-# Hack-n-patch from:
-# Heavily reworked from original:
+#
+# Heavily reworked 2009/01/21 by Kris Deugau <kdeugau@deepnet.cx>
+# from original learn-spam-from-IMAP script:
 # dmz@dmzs.com - March 19, 2004
 # http://www.dmzs.com/tools/files/spam.phtml
 # LGPL
-# by:
-# Kris Deugau <kdeugau@deepnet.cx> 2009/01/21
+#
+# Hack-n-patch'ed to convert to IP and URI extraction script:
 # Kris Deugau <kdeugau@deepnet.cx> 2009/05/19
+#
+# Little bits to feed a lightweight package-creating tool:
 ##wrapreq libmail-imapclient-perl (>=3.11), libio-socket-ssl-perl, install-sa
 ##wrapver 0.1
 ##wrapsum Extract relay IP and URI hosts from mail in IMAP folder
-# $Id$
-# $URL$
 
 use strict;

trunk/dnsbl/orgmove

@@ -1 +1 @@
 #!/usr/bin/perl
 # move blocks listed with one org to another.  intended for orgs that have several bytestrings as names in WHOIS.
+##
+# $Id$
+# Copyright 2009-2010 Kris Deugau <kdeugau@deepnet.cx>
+# 
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version. 
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;

trunk/dnsbl/setparents.pl

@@ -1 +1 @@
 #!/usr/bin/perl
 # hack to set new parent column on blocks and iplist tables
+##
+# $Id$
+# Copyright 2009-2011 Kris Deugau <kdeugau@deepnet.cx>
+# 
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version. 
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;