diff options
author | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-02 13:16:24 +0200 |
---|---|---|
committer | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-02 13:16:24 +0200 |
commit | b15adb7762b6caaecaa83637abfcf5fdb4802092 (patch) | |
tree | 64eddbe2aa1a7f98a140be0f7973f05d7a781ae0 /contrib/rblcheck-web | |
parent | c4d5882b9e1d07c7b61091062b7d085fa5f00284 (diff) | |
download | monitoring-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-x | contrib/rblcheck-web | 37 |
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); |