upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-11 01:59:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Added some comments.

Browse source
This commit is contained in:
Scott Mann 2011-02-22 22:50:45 +00:00
parent fd5d7b4b1c
commit 44b49a34b1
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
bin/tests/system/ixfr/ans2/ans.pl
View file

@ -15,7 +15,7 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: ans.pl,v 1.6 2007/09/24 04:13:25 marka Exp $
# $Id: ans.pl,v 1.7 2011/02/22 22:50:45 smann Exp $
#
# This is the name server from hell. It provides canned
@ -53,6 +53,15 @@
# The server handles UDP and TCP queries. Zone transfer
# responses work, but must fit in a single 64 k message.
#
# Now you can add TSIG, just specify key/key data with:
#
# /pattern <key> <key_data>/
# name ttl type rdata
# name ttl type rdata
#
# Note that this data will still be sent with any request for
# pattern, only this data will be signed. Currently, this is only
# done for TCP.
use IO::File;
use IO::Socket;
@ -104,7 +113,7 @@ sub handle {
}
}
# $packet->print;
$packet->print;
return $packet->data;
}