Added some comments.

diff --git a/bin/tests/system/ixfr/ans2/ans.pl b/bin/tests/system/ixfr/ans2/ans.pl
index ef679556dffa4fed1c10a79657c0eb0ca8dbedec..c29997a8cbe98666003fda31257b40a2494293e8 100644 (file)
--- a/bin/tests/system/ixfr/ans2/ans.pl
+++ b/bin/tests/system/ixfr/ans2/ans.pl
@@ -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;
 }