aboutsummaryrefslogtreecommitdiff
path: root/contrib/rblcheck-web
diff options
context:
space:
mode:
authorGravatar Holger Weiss <holger@zedat.fu-berlin.de> 2013-09-02 13:16:24 +0200
committerGravatar Holger Weiss <holger@zedat.fu-berlin.de> 2013-09-02 13:16:24 +0200
commitb15adb7762b6caaecaa83637abfcf5fdb4802092 (patch)
tree64eddbe2aa1a7f98a140be0f7973f05d7a781ae0 /contrib/rblcheck-web
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-web')
-rwxr-xr-xcontrib/rblcheck-web37
1 files changed, 0 insertions, 37 deletions
diff --git a/contrib/rblcheck-web b/contrib/rblcheck-web
deleted file mode 100755
index eb4fcdec..00000000
--- a/contrib/rblcheck-web
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl
-# Multi-RBL Query tool, developer Vikram <vr@udel.edu>
-use IO::Socket::INET;
-
-die "Syntax: $0 -H <ip address>\n" unless $ARGV[1];
-
-$soc = new IO::Socket::INET->new(PeerPort=>80,
-Proto=>'tcp',
-PeerAddr=>"rbls.org") or die("Cannot connect to CERT");
-
-$ip = $ARGV[1];
-$uri = '/?q='.$ip;
-
-$soc->send("GET $uri HTTP/1.1\nHost: rbls.org\n\n");
-@buff = <$soc>;
-delete @buff[0..7];
-$len = @buff;
-
-$alert = 0;
-
-
-for( $i=0;$i<$len;$i++ ) {
- next unless( defined $buff[$i] );
- chomp($buff[$i]);
- #print "$buff[$i]\n";
-
- if ( $buff[$i] eq "<tr bgcolor=#ffc0c0>" ) {
- $rbl = substr($buff[$i+1], 5, index($buff[$i], "</tr>") - 5);
- next if ( index($rbl, '.') == -1 );
- print "$ip is listed in the following RBLS: " if ( $alert == 0 );
- print "$rbl ";
- $alert = 1;
- }
-}
-print "$ip is not listed in any RBLS" if ( $alert == 0 );
-print "\n";
-exit($alert);