ans.pl revision 08e36aa5a5c7697a839f83831fccf8fb3f792848
# Copyright (C) 2016 Internet Systems Consortium, Inc. ("ISC") # Permission to use, copy, modify, and/or distribute this software for any # purpose with or without fee is hereby granted, provided that the above # copyright notice and this permission notice appear in all copies. # THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH # REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY # AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT, # INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM # LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR # PERFORMANCE OF THIS SOFTWARE. my $
pidf =
new IO::
File "ans.pid",
"w" or die "cannot open pid file: $!";
print $
pidf "$$\n" or die "cannot write pid file: $!";
$
pidf->
close or die "cannot close pid file: $!";
sub rmpid {
unlink "ans.pid";
exit 1; };
#} elsif ($qtype eq "AAAA") { #new Net::DNS::RR($qname . #" 300 AAAA 2001:db8:beef::1")); }
elsif ($
qtype eq "NS") {