#!/usr/bin/perl
# Checks an IP address against various RBLs
# requires dnstxt from djbdns
# rbl [IP]

@RBLs=("zen.spamhaus.org","cbl.abuseeat.org","sbl-xbl.spamhaus.org","bl.spamcop.net","dnsbl.sorbs.net","bogusmx.rfc-ignorant.org");
($O1,$O2,$O3,$O4)=split(/\./,$ARGV[0],4);
foreach $RBL (@RBLs) {
  if ($ARGV[1] eq "-v") { print "$RBL... "; }
  $RBLText=`dnstxt $O4.$O3.$O2.$O1.$RBL`;
  $RBLText =~ s/^\n$//;
  print "$RBLText";
}