From b15adb7762b6caaecaa83637abfcf5fdb4802092 Mon Sep 17 00:00:00 2001
From: Holger Weiss <holger@zedat.fu-berlin.de>
Date: Mon, 2 Sep 2013 13:16:24 +0200
Subject: Remove "contrib" plugins

These days, sites such as "Nagios Exchange" are a much better place for
publishing plugins not maintained by the Plugins Development Team.
---
 contrib/rblcheck-dns | 69 ----------------------------------------------------
 1 file changed, 69 deletions(-)
 delete mode 100755 contrib/rblcheck-dns

(limited to 'contrib/rblcheck-dns')

diff --git a/contrib/rblcheck-dns b/contrib/rblcheck-dns
deleted file mode 100755
index 5e96195f..00000000
--- a/contrib/rblcheck-dns
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/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