Well, finally got it. I had assumed that pdns was going to parse the entire
output from the script (including the content), which isn't the case. The
tabs in the output were screwing me up. I removed the tabs in the content
and it pulls it in as a single string. Also had to change the elsif
statements to regular if's so it would eval each one for ANY requests.
Working script is below:
#!/usr/bin/perl -w
# sample PowerDNS Coprocess backend
#
use strict;
$|=1; # no buffering
my $line=<>;
chomp($line);
unless($line eq "HELO\t1") {
print "FAIL\n";
print STDERR "Recevied $line\n";
<>;
exit;
}
print "OK Sample backend firing up\n"; # print our banner
while(<>)
{
print STDERR "$$ Received: $_";
chomp();
my @arr=split(/\t/);
if(@arr<6) {
print "LOG PowerDNS sent unparseable line\n";
print "FAIL\n";
next;
}
my ($type,$qname,$qclass,$qtype,$id,$ip)=split(/\t/);
if(($qtype eq "SOA") && $qname eq "privatelnp.foxfam.net") {
print
"DATA\t$qname\t$qclass\tSOA\t3600\t-1\tdns.privatelnp.foxfam.net.
help.privatelnp.foxfam.net. 1 10800 3600 604800 3600\n";
print STDERR
"DATA\t$qname\t$qclass\tSOA\t3600\t-1\tdns.privatelnp.foxfam.net.
help.privatelnp.foxfam.net. 1 10800 3600 604800 3600\n";
}
if(($qtype eq "A" || $qtype eq "ANY") && $qname eq "privatelnp.foxfam.net")
{
print "DATA\t$qname\t$qclass\tA\t3600\t-1\t66.49.125.190\n";
print STDERR "DATA\t$qname\t$qclass\tA\t3600\t-1\t66.49.125.190\n";
}
if(($qtype eq "CNAME" || $qtype eq "ANY") && $qname eq
"dns.privatelnp.foxfam.net") {
print
"DATA\t$qname\t$qclass\tCNAME\t3600\t-1\tprivatelnp.foxfam.net\n";
print STDERR
"DATA\t$qname\t$qclass\tCNAME\t3600\t-1\tprivatelnp.foxfam.net\n";
}
if(($qtype eq "NS" || $qtype eq "ANY") && $qname =~ /privatelnp.foxfam.net/)
{
print
"DATA\t$qname\t$qclass\tNS\t3600\t-1\tdns.privatelnp.foxfam.net\n";
print STDERR
"DATA\t$qname\t$qclass\tNS\t3600\t-1\tdns.privatelnp.foxfam.net\n";
}
if(($qtype eq "NAPTR" || $qtype eq "ANY") && $qname =~
/privatelnp.foxfam.net/) {
my $naptrstring = "DATA\t$qname\t$qclass\tNAPTR\t3600\t-1\t100 50 \"U\"
\"E2U+sip\" \"!^.*\$!sip:[EMAIL PROTECTED]" .\n";
print $naptrstring;
print STDERR $naptrstring;
}
print STDERR "$$ End of data\n";
print "END\n";
}
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Tyler Parkin
Sent: Friday, November 14, 2008 3:48 PM
To: [email protected]
Subject: [Pdns-users] backend NAPTR no Answer - powerdns
Can someone help me identify what's wrong w/ the syntax of an NAPTR record?
I've tried a dozen different arrangements and can't seem to get PDNS to send
an answer to the query. It doesn't cought at the data line I feed, it just
doesn't sent anything.
Nov 14 12:40:51 Query: 'Q 5.5.5.1.2.1.2.privatelnp.foxfam.com IN
ANY -1 66.49.125.190'
10622 Received: Q 5.5.5.1.2.1.2.privatelnp.foxfam.com IN ANY
-1 66.49.125.190
DATA 5.5.5.1.2.1.2.privatelnp.foxfam.com IN 3600 NAPTR 100
50 "U" "E2U+sip" "!^.*$!sip:[EMAIL PROTECTED]" .
10622 End of data
Nov 14 12:40:51 Query: 'Q *.5.5.1.2.1.2.privatelnp.foxfam.com IN
ANY -1 66.49.125.190'
10622 Received: Q *.5.5.1.2.1.2.privatelnp.foxfam.com IN ANY
-1 66.49.125.190
DATA *.5.5.1.2.1.2.privatelnp.foxfam.com IN 3600 NAPTR 100
50 "U" "E2U+sip" "!^.*$!sip:[EMAIL PROTECTED]" .
10622 End of data
I've tried w/ and w/out the period, 3600, IN and NAPTR and it won't send
anything through.
It DOES send SOA fine, so dig naptr requests show up as authoritative with
no answer.
pertinent part from the perl backend:
elsif(($qtype eq "NAPTR" || $qtype eq "ANY") && $qname =~
/privatelnp.foxfam.com/) {
my $naptrstring =
"DATA\t$qname\t$qclass\t3600\tNAPTR\t100\t50\t\"U\"\t\"E2U+sip\"\t\"!^.*\$!s
ip:[EMAIL PROTECTED]"\t.\n";
print $naptrstring;
print STDERR $naptrstring;
}
dig request:
[EMAIL PROTECTED] ~]# dig NAPTR @66.49.125.190
5.5.5.1.2.1.2.privatelnp.foxfam.com NAPTR
;; Warning, extra type option
; <<>> DiG 9.3.4-P1 <<>> NAPTR @66.49.125.190 5.5.5.1.2.1.2.
privatelnp.foxfam.com NAPTR
; (1 server found)
;; global options: printcmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 864
;; flags: qr aa rd; QUERY: 1, ANSWER: 0, AUTHORITY: 1, ADDITIONAL: 0
;; QUESTION SECTION:
;5.5.5.1.2.1.2.privatelnp.foxfam.com. IN NAPTR
;; AUTHORITY SECTION:
privatelnp.foxfam.com. 3600 IN SOA dns.privatelnp.foxfam.com.
help. privatelnp.foxfam.com. 1 10800 3600 604800 3600
;; Query time: 3 msec
;; SERVER: 66.49.125.190#53(66.49.125.190)
;; WHEN: Fri Nov 14 12:56:51 2008
;; MSG SIZE rcvd: 117
--
View this message in context:
http://www.nabble.com/backend-NAPTR-no-Answer---powerdns-tp20508024p20508024
.html
Sent from the PowerDNS mailing list archive at Nabble.com.
_______________________________________________
Pdns-users mailing list
[email protected]
http://mailman.powerdns.com/mailman/listinfo/pdns-users
_______________________________________________
Pdns-users mailing list
[email protected]
http://mailman.powerdns.com/mailman/listinfo/pdns-users
