Niet lezen, slechts een test

[Zager]

Niet lezen zei ik toch.... Test test.
Test Number 41989.00370914154

[s|b]

Post by Zager
Niet lezen zei ik toch.... Test test.
Test Number 41989.00370914154

FAIL

[Maurice de]

Post by Zager
Niet lezen zei ik toch.... Test test.
Test Number 41989.00370914154

Abuse send.

# look up contacts from abuse.net
use Net::DNS;
sub ablookup {
my ($domain) = @_;
my ($res, $query, @r);

$res = new Net::DNS::Resolver;
while(1) {
$query = $res->search("$domain.contacts.abuse.net", "TXT");
if ($query) {
my $rr;

foreach $rr ($query->answer) {
push @r, $rr->txtdata if $rr->type eq "TXT";
}
return @r;
} else { # Net::DNS rejects special characters, strip off
# subdomains and see if a parent domain works
if($domain =~ m{^[^.]+\.([^.]+\..+)}) {
$domain = $1;
} else {
die "Cannot lookup contacts for $domain";
}
}
}
}