344 |
|
|
345 |
my $last_tell=0; |
my $last_tell=0; |
346 |
|
|
347 |
my $db = OpenIsis::open( "$common::isis_data/$db_dir/LIBRI/LIBRI" ); |
my @isis_dirs = ( '.' ); # use dirname as database name |
348 |
|
|
349 |
my $max_rowid = OpenIsis::maxRowid( $db ); |
if ($opts{m}) { |
350 |
|
@isis_dirs = split(/,/,$opts{m}); |
351 |
|
} |
352 |
|
|
353 |
|
my @isis_dbs; |
354 |
|
|
355 |
|
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( "$isis_db" ); |
369 |
|
|
370 |
|
my $max_rowid = OpenIsis::maxRowid( $db ); |
371 |
|
|
372 |
my $last_pcnt = 0; |
my $last_pcnt = 0; |
373 |
|
|
374 |
for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) { |
for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) { |
375 |
my $row = OpenIsis::read( $db, $row_id ); |
my $row = OpenIsis::read( $db, $row_id ); |
376 |
if (my $tmp = $row->{'200'}->[0]) { |
if (my $tmp = $row->{'200'}->[0]) { |
377 |
|
|
519 |
print S $mps; |
print S $mps; |
520 |
print MPS $mps; |
print MPS $mps; |
521 |
} |
} |
522 |
|
} |
523 |
} |
} |
524 |
print S "M over and out\nX\n"; |
print S "M over and out\nX\n"; |
525 |
print MPS "M over and out\nX\n"; |
print MPS "M over and out\nX\n"; |