Changeset 5 for trunk/dnsbl/DNSBL.pm

Timestamp:

09/10/09 12:48:42 (15 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Tweak IP-adding script, template, and the DNSBL::ipexists to show how
many times an IP has been reported

File:

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

trunk/dnsbl/DNSBL.pm

@@ -123 +123 @@
 }
 
-# return true if the IP has been reported
+
+## DNSBL::ipexists()
+# return report count if the IP has been reported, otherwise return undef
 sub ipexists {
   my $self = shift;
   my $ip = shift;
-  my $sth = $dbh->prepare("SELECT count(*) FROM iplist WHERE ip=?");
+  my $sth = $dbh->prepare("SELECT count FROM iplist WHERE ip=?");
   $sth->execute($ip);
   my ($ret) = $sth->fetchrow_array();
   return $ret;
-}
+} # end ipexists()