projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add searching support for the zeerex.udb index.
[irspy-moved-to-github.git]
/
bin
/
test-xml-update.pl
diff --git
a/bin/test-xml-update.pl
b/bin/test-xml-update.pl
index
ad27a37
..
f9b37fd
100755
(executable)
--- a/
bin/test-xml-update.pl
+++ b/
bin/test-xml-update.pl
@@
-1,6
+1,4
@@
-#!/usr/bin/perl -w
-
-# $Id: test-xml-update.pl,v 1.6 2006-11-09 16:15:14 mike Exp $
+#!/usr/bin/perl
#
# 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"
#
# 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"
@@
-10,7
+8,7
@@
use warnings;
use Getopt::Std;
use ZOOM;
use ZOOM::IRSpy::Utils qw(irspy_xpath_context modify_xml_document);
use Getopt::Std;
use ZOOM;
use ZOOM::IRSpy::Utils qw(irspy_xpath_context modify_xml_document);
-use ZOOM::IRSpy; # For _really_rewrite_record()
+use ZOOM::IRSpy; # For _rewrite_zeerex_record()
# This array copied from ../web/htdocs/details/edit.mc
my @fields =
# This array copied from ../web/htdocs/details/edit.mc
my @fields =
@@
-24,7
+22,7
@@
my @fields =
qw() ],
[ password => 0, "Password (if needed)", "e:serverInfo/e:authentication/e:password",
qw(e:user) ],
qw() ],
[ password => 0, "Password (if needed)", "e:serverInfo/e:authentication/e:password",
qw(e:user) ],
- [ title => 0, "title", "e:databaseInfo/e:title",
+ [ title => 0, "Title", "e:databaseInfo/e:title",
qw() ],
[ description => 5, "Description", "e:databaseInfo/e:description",
qw(e:title) ],
qw() ],
[ description => 5, "Description", "e:databaseInfo/e:description",
qw(e:title) ],
@@
-55,7
+53,7
@@
if (!getopts('wnxd', \%opts) || @ARGV % 2 == 0) {
}
my($id, %data) = @ARGV;
}
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;
user => "admin", password => "fruitbat");
$conn->option(elementSetName => "zeerex");
my $qid = $id;
@@
-73,12
+71,14
@@
my $xc = irspy_xpath_context($rec);
my %fieldsByKey = map { ( $_->[0], $_) } @fields;
my $oldText = $xc->getContextNode()->toString();
my %fieldsByKey = map { ( $_->[0], $_) } @fields;
my $oldText = $xc->getContextNode()->toString();
-my $nchanges = modify_xml_document($xc, \%fieldsByKey, \%data);
+my @changedFields = modify_xml_document($xc, \%fieldsByKey, \%data);
+my $nchanges = @changedFields;
my $newText = $xc->getContextNode()->toString();
my $newText = $xc->getContextNode()->toString();
-print "Document modified with $nchanges change", $nchanges==1?"":"s", "\n";
+print("Document modified with $nchanges change", $nchanges == 1 ? "" : "s",
+ ": ", join(", ", map { $_->[2] } @changedFields), "\n");
if ($opts{w}) {
if ($opts{w}) {
- ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
+ ZOOM::IRSpy::_rewrite_zeerex_record($conn, $xc->getContextNode(), $id);
print "Rewrote record '$id'\n";
}
print "Rewrote record '$id'\n";
}