Commit 44b49a34 authored by Scott Mann's avatar Scott Mann

Added some comments.

parent fd5d7b4b
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment