Changeset 347 for trunk/DNSDB.pm
- Timestamp:
- 06/15/12 18:08:14 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r346 r347 296 296 my $dbh = shift; 297 297 my $hname = shift; 298 298 299 $hname =~ s/^\*\.//; # this should be impossible to find in the domains table. 299 300 my @hostbits = split /\./, $hname; 300 301 my $sth = $dbh->prepare("SELECT count(*),domain_id FROM domains WHERE domain = ? GROUP BY domain_id");
Note:
See TracChangeset
for help on using the changeset viewer.