Changeset 11 for trunk/dnsbl/DNSBL.pm

Timestamp:

01/06/10 13:09:31 (14 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Report errors adding a netblock (commonly a range in WHOIS that's not

a single CIDR block)

File:

• trunk/dnsbl/DNSBL.pm (modified) (1 diff)

trunk/dnsbl/DNSBL.pm

@@ -206 +206 @@
   my $block = new NetAddr::IP "$blockin";       # need this to clean up messes like ranges.  sigh.
 
+  return "$blockin not a single CIDR range" if !$block;
+
   local $dbh->{AutoCommit} = 1; # force autocommit
 
   my $sth = $dbh->prepare("INSERT INTO blocks (block,orgid,level) VALUES (?,?,?)");
   $sth->execute("$block",$orgid,$level);
+  return $sth->errstr if $sth->err;
   # nb: no need to return anything, since the CIDR block is the key
 }