summaryrefslogtreecommitdiffstats
path: root/contrib/rblcheck-dns
diff options
context:
space:
mode:
authorHolger Weiss <holger@zedat.fu-berlin.de>2013-09-02 13:16:24 +0200
committerHolger Weiss <holger@zedat.fu-berlin.de>2013-09-02 13:16:24 +0200
commitb15adb7762b6caaecaa83637abfcf5fdb4802092 (patch)
tree64eddbe2aa1a7f98a140be0f7973f05d7a781ae0 /contrib/rblcheck-dns
parentc4d5882b9e1d07c7b61091062b7d085fa5f00284 (diff)
downloadmonitoring-plugins-b15adb7762b6caaecaa83637abfcf5fdb4802092.tar.gz
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.
Diffstat (limited to 'contrib/rblcheck-dns')
-rwxr-xr-xcontrib/rblcheck-dns69
1 files changed, 0 insertions, 69 deletions
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 @@
1#!/usr/bin/perl
2# Multi-RBL Query tool, developer Vikram <vr@udel.edu>
3use strict;
4use Socket;
5my $suspect = $ARGV[1];
6
7die "Syntax: $0 -H <ip address>\n" unless $suspect;
8
9my @rblservers=qw[
10 3y.spam.mrs.kithrup.com
11 block.blars.org
12 bl.redhatgate.com
13 blackholes.five-ten-sg.com
14 blackholes.intersil.net
15 blackholes.mail-abuse.org
16 blackholes.wirehub.net
17 blacklist.spambag.org
18 dev.null.dk
19 dews.qmail.org
20 dialup.blacklist.jippg.org
21 dialups.mail-abuse.org
22 dnsbl.njabl.org
23 dul.maps.vix.com
24 dul.orca.bc.ca
25 dynablock.wirehub.net
26 formmail.relays.monkeys.com
27 ipwhois.rfc-ignorant.org
28 list.dsbl.org
29 multihop.dsbl.org
30 okrelays.nthelp.com
31 pm0-no-more.compu.net
32 proxies.relays.monkeys.com
33 rbl-plus.mail-abuse.org
34 rbl.maps.vix.com
35 rbl.spam.org.tr
36 relays.mail-abuse.org
37 relays.nthelp.com
38 relays.ordb.org
39 relays.radparker.com
40 relays.visi.com
41 sbl.spamhaus.org
42 spamguard.leadmon.net
43 spammers.v6net.org
44 spamsources.fabel.dk
45 spews.org
46 unconfirmed.dsbl.org
47 xbl.selwerd.cx
48];
49
50
51my $spam = 0;
52foreach ( @rblservers ) {
53 my @s = split('\.',$suspect);
54 my $req = "$s[3].$s[2].$s[1].$s[0].".$_;
55
56 my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($req);
57 next unless (@addrs);
58
59 my $result = inet_ntoa($addrs[0]);
60 #next unless (substr($result, 7) eq '127.0.0');
61
62 print "$suspect is listed in the following RBLS: " if ( $spam == 0 );
63 print $_, " ";
64 $spam = 1;
65}
66
67print "$suspect is not listed in any RBLS" if ( $spam == 0 );
68print "\n";
69exit( $spam );