ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

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
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;
}