344 |
|
|
345 |
my $last_tell=0; |
my $last_tell=0; |
346 |
|
|
347 |
my @isis_dbs = ( '.' ); # use dirname as database name |
my @isis_dirs = ( '.' ); # use dirname as database name |
348 |
|
|
349 |
if ($opts{m}) { |
if ($opts{m}) { |
350 |
@isis_dbs = split(/,/,$opts{m}); |
@isis_dirs = split(/,/,$opts{m}); |
351 |
} |
} |
352 |
|
|
353 |
foreach my $db_name (@isis_dbs) { |
my @isis_dbs; |
354 |
|
|
355 |
print MPS "M reading ISIS from $db_dir/$db_name/LIBRI...\n"; |
foreach (@isis_dirs) { |
356 |
|
if (-e "$common::isis_data/$db_dir/$_/LIBRI") { |
357 |
|
push @isis_dbs,"$common::isis_data/$db_dir/$_/LIBRI/LIBRI"; |
358 |
|
} |
359 |
|
if (-e "$common::isis_data/$db_dir/$_/PERI") { |
360 |
|
push @isis_dbs,"$common::isis_data/$db_dir/$_/PERI/PERI"; |
361 |
|
} |
362 |
|
} |
363 |
|
|
364 |
|
foreach my $isis_db (@isis_dbs) { |
365 |
|
|
366 |
|
print MPS "M reading ISIS from '$isis_db'...\n"; |
367 |
|
|
368 |
my $db = OpenIsis::open( "$common::isis_data/$db_dir/$db_name/LIBRI/LIBRI" ); |
my $db = OpenIsis::open( "$isis_db" ); |
369 |
|
|
370 |
my $max_rowid = OpenIsis::maxRowid( $db ); |
my $max_rowid = OpenIsis::maxRowid( $db ); |
371 |
|
|