#!/usr/bin/perl -w
-# $Id: test-xml-update.pl,v 1.7 2006-11-29 17:22:32 mike Exp $
+# $Id: test-xml-update.pl,v 1.9 2007-03-19 18:50:22 mike Exp $
#
# Run like this:
# perl -I ../lib ./test-xml-update.pl bagel.indexdata.dk:210/gils title "Test Database" author "Adam" description "This is a nice database"
}
my($id, %data) = @ARGV;
-my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
+my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
user => "admin", password => "fruitbat");
$conn->option(elementSetName => "zeerex");
my $qid = $id;
": ", join(", ", map { $_->[2] } @changedFields), "\n");
if ($opts{w}) {
- ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
+ ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode(), $id);
print "Rewrote record '$id'\n";
}