Apologies for replying to my own message, but ...
> As always, the usual caveats apply. Some fingerprints might no longer work.
this was more true than I hoped. As a countermeasure the patch below will
change the rd bit in the two 'QUERY' qy vectors to '1', which is what
essentially was sent anyway.
It also fixes some spurious complaints in debug mode.
-Peter
--- Fingerprint.pm.bak Mon Feb 26 17:30:16 2007
+++ Fingerprint.pm Thu Jan 17 21:24:34 2008
@@ -51,9 +51,9 @@
my @qy = ("0,IQUERY,0,0,1,0,0,0,NOERROR,0,0,0,0",
"0,NS_NOTIFY_OP,0,0,0,0,0,0,NOERROR,0,0,0,0",
- "0,QUERY,0,0,0,0,0,0,NOERROR,0,0,0,0",
+ "0,QUERY,0,0,1,0,0,0,NOERROR,0,0,0,0",
"0,IQUERY,0,0,0,0,1,1,NOERROR,0,0,0,0",
- "0,QUERY,0,0,0,0,0,0,NOTIMP,0,0,0,0",
+ "0,QUERY,0,0,1,0,0,0,NOTIMP,0,0,0,0",
"0,IQUERY,1,0,1,1,1,1,NOERROR,0,0,0,0",
"0,UPDATE,0,0,0,1,0,0,NOERROR,0,0,0,0",
"0,QUERY,1,1,1,1,1,1,NOERROR,0,0,0,0",
@@ -496,7 +496,7 @@
push @s, $r{vstring} if(defined $r{vstring});
- push @s, "($r{state};$r{id})" if($self->{debug});
+ push @s, "($r{state};$r{id})" if($self->{debug} && exists($r{state}));
return join($self->{separator}, @s);
}
@@ -710,6 +710,7 @@
$resolver->retry($self->{retry});
$resolver->retrans($self->{timeout});
$resolver->usevc($self->{forcetcp});
+ $resolver->recurse($header->rd);
my $answer = $resolver->send($packet);
if ($answer && $self->{debug}) {
print STDERR "==> ANSWER BEGIN\n";
_______________________________________________
fpdns mailing list
[email protected]
https://www.rfc.se/mailman/listinfo/fpdns
