#!/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;
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
}