From: Mike Taylor <mike@indexdata.com>
Date: Mon, 15 Dec 2014 17:07:28 +0000 (+0000)
Subject: Towards IR-350.
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=d1dd6faf3e13c8c12bc46254343b16217394f6ba;hp=040239e61daad5036e47adfdc86fd9c6901c29e1

Towards IR-350.

Tweak UDB-setting code to put it in the right part of the records.
Now ready to deploy.
---

diff --git a/bin/reindex.pl b/bin/reindex.pl
index 36fa799..54dfa62 100755
--- a/bin/reindex.pl
+++ b/bin/reindex.pl
@@ -36,14 +36,14 @@ foreach my $i (1..$n) {
     print " $i/$n (", int($i*100/$n), "%)\n" if $i % 50 == 0;
     my $rec = $rs->record($i-1);
     my $xml = $rec->render();
-    if ($xml !~ /<\/(e:)?host>/) {
+    if ($xml !~ /<(e:)?databaseInfo.*?>/) {
 	# There is an undeletable phantom record: ignore it
 	next;
     }
 
     if ($setUdb) {
 	my $udb = qq[<i:udb xmlns:i="http://indexdata.com/irspy/1.0">irspy-$i</i:udb>];
-	$xml =~ s/<\/(e:)?host>/$1$udb/;
+	$xml =~ s/<(e:)?databaseInfo.*?>/$&$udb/;
     }
 
     update($conn, $xml);