From: Aki Tuomi <cmouse@cmouse.fi>
Date: Tue, 30 Jun 2015 05:55:25 +0000 (+0300)
Subject: Add sample implementation for ABI v5 backend
X-Git-Tag: dnsdist-1.0.0-alpha1~248^2~77^2~3^2~3
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=614211a4f63b92ae529a297a64c632182be169dd;p=thirdparty%2Fpdns.git

Add sample implementation for ABI v5 backend
---

diff --git a/modules/pipebackend/backend-v5.pl b/modules/pipebackend/backend-v5.pl
new file mode 100755
index 0000000000..db210503fe
--- /dev/null
+++ b/modules/pipebackend/backend-v5.pl
@@ -0,0 +1,74 @@
+#!/usr/bin/perl -w
+# sample PowerDNS Coprocess backend with edns-client-subnet support
+#
+
+use strict;
+
+
+$|=1;					# no buffering
+
+my $line=<>;
+chomp($line);
+
+unless($line eq "HELO\t5" ) {
+	print "FAIL\n";
+	print STDERR "Received unexpected '$line', wrong ABI version?\n";
+	<>;
+	exit;
+}
+print "OK	Sample backend firing up\n";	# print our banner
+
+while(<>)
+{
+	print STDERR "$$ Received: $_";
+	chomp();
+	my @arr=split(/\t/);
+
+        if ($arr[0] eq "CMD") {
+          print $arr[1],"\n";
+          print "END\n";
+          next;
+        }
+
+	if(@arr < 8) {
+		print "LOG	PowerDNS sent unparseable line\n";
+		print "FAIL\n";
+		next;
+	}
+
+	my ($type,$qname,$qclass,$qtype,$id,$ip,$localip,$ednsip)=split(/\t/);
+	my $bits=21;
+	my $auth = 1;
+
+	if(($qtype eq "SOA" || $qtype eq "ANY") && $qname eq "example.com") {
+		print STDERR "$$ Sent SOA records\n";
+		print "DATA	$bits	$auth	$qname	$qclass	SOA	3600	-1	ahu.example.com ns1.example.com 2008080300 1800 3600 604800 3600\n";
+	}
+	if(($qtype eq "NS" || $qtype eq "ANY") && $qname eq "example.com") {
+		print STDERR "$$ Sent NS records\n";
+		print "DATA	$bits	$auth	$qname	$qclass	NS	3600	-1	ns1.example.com\n";
+		print "DATA	$bits	$auth	$qname	$qclass	NS	3600	-1	ns2.example.com\n";
+	}
+	if(($qtype eq "TXT" || $qtype eq "ANY") && $qname eq "example.com") {
+		print STDERR "$$ Sent TXT records\n";
+		print "DATA	$bits	$auth	$qname	$qclass	TXT	3600	-1	\"hallo allemaal!\"\n";
+	}
+	if(($qtype eq "A" || $qtype eq "ANY") && $qname eq "webserver.example.com") {
+		print STDERR "$$ Sent A records\n";
+		print "DATA	$bits	$auth	$qname	$qclass	A	3600	-1	1.2.3.4\n";
+		print "DATA	$bits	$auth	$qname	$qclass	A	3600	-1	1.2.3.5\n";
+		print "DATA	$bits	$auth	$qname	$qclass	A	3600	-1	1.2.3.6\n";
+	}
+	if(($qtype eq "CNAME" || $qtype eq "ANY") && $qname eq "www.example.com") {
+		print STDERR "$$ Sent CNAME records\n";
+		print "DATA	$bits	$auth	$qname	$qclass	CNAME	3600	-1	webserver.example.com\n";
+	}
+	if(($qtype eq "MX" || $qtype eq "ANY") && $qname eq "example.com") {
+		print STDERR "$$ Sent MX records\n";
+		print "DATA	$bits	$auth	$qname	$qclass	MX	3600	-1	25	smtp.powerdns.com\n";
+	}
+
+	print STDERR "$$ End of data\n";
+	print "END\n";
+}
+