- 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/;
+ }