From: Mike Taylor <mike@indexdata.com>
Date: Wed, 17 Dec 2014 15:40:14 +0000 (+0000)
Subject: Merge branch 'master' of ssh://git.indexdata.com/home/git/pub/irspy
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=87332c48fcaa7439ba80974f4d67797121c83c97;hp=f82e882f43a42886de6fb0f2f409a31987cc5fb3

Merge branch 'master' of ssh://git.indexdata.com/home/git/pub/irspy
---

diff --git a/bin/reindex.pl b/bin/reindex.pl
index 54dfa62..9328c72 100755
--- a/bin/reindex.pl
+++ b/bin/reindex.pl
@@ -36,14 +36,17 @@ 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:)?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:)?databaseInfo.*?>/$&$udb/;
+	my $udb;
+	if ($xml !~ /<(e:)?databaseInfo.*?>/) {
+	    $udb = qq[<i:udb xmlns:i="http://indexdata.com/irspy/1.0">irspy-a$i</i:udb>];
+	    $xml =~ s/\/serverInfo>/$&<databaseInfo>$udb<\/databaseInfo>/;
+	    print "x";
+	} else {
+	    $udb = qq[<i:udb xmlns:i="http://indexdata.com/irspy/1.0">irspy-$i</i:udb>];
+	    $xml =~ s/<(e:)?databaseInfo.*?>/$&$udb/;
+	}
     }
 
     update($conn, $xml);