projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
0dfb76f
)
Include IRSpy namespace.
author
mike
<mike>
Wed, 18 Apr 2007 11:18:08 +0000
(11:18 +0000)
committer
mike
<mike>
Wed, 18 Apr 2007 11:18:08 +0000
(11:18 +0000)
samples/zoom/zselect
patch
|
blob
|
history
diff --git
a/samples/zoom/zselect
b/samples/zoom/zselect
index
bab59c3
..
8ff754b
100755
(executable)
--- a/
samples/zoom/zselect
+++ b/
samples/zoom/zselect
@@
-1,6
+1,6
@@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
-# $Id: zselect,v 1.2 2006-09-25 19:51:42 mike Exp $
+# $Id: zselect,v 1.3 2007-04-18 11:18:08 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)"
# 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)"
@@
-70,5
+70,6
@@
foreach my $i (1..$n) {
sub register_namespaces {
my($xc) = @_;
$xc->registerNs(zeerex => 'http://explain.z3950.org/dtd/2.0/');
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
}
# More to come
}