X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=samples%2Frender-search.pl;h=30af4fecf8fb6b31d00df7a703886142291897ba;hp=352cce2250bfcae651f2312aedffcb6c278845c4;hb=4956f4b56e38c33e1f1dc81819112a9ab6551334;hpb=21d6dec4510eb7809e9c050ad33b80fcf4518896

diff --git a/samples/render-search.pl b/samples/render-search.pl
index 352cce2..30af4fe 100755
--- a/samples/render-search.pl
+++ b/samples/render-search.pl
@@ -1,5 +1,14 @@
 #!/usr/bin/perl -w
 
+# $Header: /home/cvsroot/simpleserver/samples/render-search.pl,v 1.2 2002-03-05 12:03:26 mike Exp $
+#
+# Trivial example of programming using the "augmented classes"
+# paradigm.  This tiny SimpleServer-based Z39.50 server logs Type-1
+# searches in human-readable form.  It works by augmenting existing
+# classes (the RPN-node types) with additional methods -- something
+# that most OO languages would definitely not allow, but Perl does.
+# And it's sort of cute.
+
 use Net::Z3950::SimpleServer;
 use strict;