From 8017a63d26f07d47ea8356588d7b38af952a5da5 Mon Sep 17 00:00:00 2001
From: Stanley Hopcroft <stanleyhopcroft@users.sourceforge.net>
Date: Mon, 29 Nov 2004 05:07:34 +0000
Subject: *** empty log message ***

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@949 f882894a-f735-0410-b71e-b25c423dba1c
---
 contrib/rblcheck-dns | 69 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100755 contrib/rblcheck-dns

(limited to 'contrib/rblcheck-dns')

diff --git a/contrib/rblcheck-dns b/contrib/rblcheck-dns
new file mode 100755
index 00000000..5e96195f
--- /dev/null
+++ b/contrib/rblcheck-dns
@@ -0,0 +1,69 @@
+#!/usr/bin/perl
+# Multi-RBL Query tool, developer Vikram <vr@udel.edu>
+use strict;
+use Socket;
+my $suspect = $ARGV[1];
+
+die "Syntax: $0 -H <ip address>\n" unless $suspect;
+
+my @rblservers=qw[
+	3y.spam.mrs.kithrup.com
+	block.blars.org
+	bl.redhatgate.com
+	blackholes.five-ten-sg.com
+	blackholes.intersil.net
+	blackholes.mail-abuse.org
+	blackholes.wirehub.net
+	blacklist.spambag.org
+	dev.null.dk
+	dews.qmail.org	
+	dialup.blacklist.jippg.org
+	dialups.mail-abuse.org
+	dnsbl.njabl.org
+	dul.maps.vix.com
+	dul.orca.bc.ca
+	dynablock.wirehub.net
+	formmail.relays.monkeys.com
+	ipwhois.rfc-ignorant.org
+	list.dsbl.org
+	multihop.dsbl.org
+	okrelays.nthelp.com	
+	pm0-no-more.compu.net
+	proxies.relays.monkeys.com
+	rbl-plus.mail-abuse.org
+	rbl.maps.vix.com
+	rbl.spam.org.tr
+	relays.mail-abuse.org
+	relays.nthelp.com
+	relays.ordb.org
+	relays.radparker.com
+	relays.visi.com
+	sbl.spamhaus.org
+	spamguard.leadmon.net
+	spammers.v6net.org
+	spamsources.fabel.dk
+	spews.org
+	unconfirmed.dsbl.org
+	xbl.selwerd.cx
+];
+
+
+my $spam = 0;
+foreach ( @rblservers ) {
+	my @s = split('\.',$suspect);
+	my $req = "$s[3].$s[2].$s[1].$s[0].".$_;
+
+	my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($req);
+	next unless (@addrs);
+
+        my $result = inet_ntoa($addrs[0]);
+	#next unless (substr($result, 7) eq '127.0.0');
+
+	print "$suspect is listed in the following RBLS: " if ( $spam == 0 );
+	print $_, " ";
+	$spam = 1;
+}
+
+print "$suspect is not listed in any RBLS" if ( $spam == 0 );
+print "\n";
+exit( $spam );
-- 
cgit v1.2.3-74-g34f1