Remove extraneous and misleading old CVS IDs

[ZOOM-Perl-moved-to-github.git] / samples / zoom / zselect

diff --git a/samples/zoom/zselect b/samples/zoom/zselect
index d0f8c0a..14d0b45 100755 (executable)
--- a/samples/zoom/zselect
+++ b/samples/zoom/zselect
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 
-# $Id: zselect,v 1.1 2006-09-25 11:43:21 mike Exp $
+# Example command-line:
+#      ./zselect -t q localhost:3313/IR-Explain---1 "net.port=3950" "concat(zeerex:serverInfo/zeerex:host, ':', zeerex:serverInfo/zeerex:port, '/', zeerex:serverInfo/zeerex:database)"
 
 use strict;
 use warnings;
@@ -67,5 +68,6 @@ foreach my $i (1..$n) {
 sub register_namespaces {
     my($xc) = @_;
     $xc->registerNs(zeerex => 'http://explain.z3950.org/dtd/2.0/');
+    $xc->registerNs(irspy => 'http://indexdata.com/irspy/1.0');
     # More to come
 }