| | 34 | if(($qtype eq "SOA" || $qtype eq "ANY") && $qname eq "example.com") { |
| | 35 | print STDERR "$$ Sent SOA records\n"; |
| | 36 | print "DATA $qname $qclass SOA 3600 -1 ahu.example.com ns1.example.com 2008080300 1800 3600 604800 3600\n"; |
| | 37 | } |
| | 38 | if(($qtype eq "NS" || $qtype eq "ANY") && $qname eq "example.com") { |
| | 39 | print STDERR "$$ Sent NS records\n"; |
| | 40 | print "DATA $qname $qclass NS 3600 -1 ns1.example.com\n"; |
| | 41 | print "DATA $qname $qclass NS 3600 -1 ns2.example.com\n"; |
| | 42 | } |
| | 43 | if(($qtype eq "TXT" || $qtype eq "ANY") && $qname eq "example.com") { |
| | 44 | print STDERR "$$ Sent NS records\n"; |
| | 45 | print "DATA $qname $qclass TXT 3600 -1 \"hallo allemaal!\"\n"; |
| | 46 | } |
