Thanks!
-----Original Message-----
From: Thomas Eckardt [mailto:[email protected]]
Sent: Monday, December 28, 2015 2:18 AM
To: For Users of ASSP <[email protected]>
Subject: Re: [Assp-user] DNS Recursion
Because there is no workaround for this problem, you need to change assp.pl to
fix it shortly.
At assp.pl 2.4.5 build 15334 the sub mk_packet starts at line 66852. The lines
66862 to 66869 are
($packet, $error) = Net::DNS::Packet->new( $fqdn , 'A');
return "Cannot build DNS query for $fqdn, type A: $error" unless
ref($packet);
push @{$self->{ID}}, $packet->header->id;
return $packet->data unless wantarray;
($txt_packet, $error) = Net::DNS::Packet->new($fqdn, 'TXT', 'IN');
return "Cannot build DNS query for $fqdn, type TXT: $error" unless
ref($txt_packet);
push @{$self->{ID}}, $packet->header->id;
$packet->data, $txt_packet->data;
change them to
($packet, $error) = Net::DNS::Packet->new( $fqdn , 'A');
return "Cannot build DNS query for $fqdn, type A: $error" unless
ref($packet);
eval{$packet->header->rd(1);};
push @{$self->{ID}}, $packet->header->id;
return $packet->data unless wantarray;
($txt_packet, $error) = Net::DNS::Packet->new($fqdn, 'TXT', 'IN');
return "Cannot build DNS query for $fqdn, type TXT: $error" unless
ref($txt_packet);
eval{$packet->header->rd(1);};
push @{$self->{ID}}, $packet->header->id;
$packet->data, $txt_packet->data;
by adding the line
eval{$packet->header->rd(1);};
two times
Thomas
------------------------------------------------------------------------------
_______________________________________________
Assp-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/assp-user
