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_dbs = ( '.' ); # use dirname as database name |
348 |
|
|
349 |
my $max_rowid = OpenIsis::maxRowid( $db ); |
if ($opts{m}) { |
350 |
|
@isis_dbs = split(/,/,$opts{m}); |
351 |
|
} |
352 |
|
|
353 |
|
foreach my $db_name (@isis_dbs) { |
354 |
|
|
355 |
|
print MPS "M reading ISIS from $db_dir/$db_name/LIBRI...\n"; |
356 |
|
|
357 |
|
my $db = OpenIsis::open( "$common::isis_data/$db_dir/$db_name/LIBRI/LIBRI" ); |
358 |
|
|
359 |
|
my $max_rowid = OpenIsis::maxRowid( $db ); |
360 |
|
|
361 |
my $last_pcnt = 0; |
my $last_pcnt = 0; |
362 |
|
|
363 |
for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) { |
for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) { |
364 |
my $row = OpenIsis::read( $db, $row_id ); |
my $row = OpenIsis::read( $db, $row_id ); |
365 |
if (my $tmp = $row->{'200'}->[0]) { |
if (my $tmp = $row->{'200'}->[0]) { |
366 |
|
|
508 |
print S $mps; |
print S $mps; |
509 |
print MPS $mps; |
print MPS $mps; |
510 |
} |
} |
511 |
|
} |
512 |
} |
} |
513 |
print S "M over and out\nX\n"; |
print S "M over and out\nX\n"; |
514 |
print MPS "M over and out\nX\n"; |
print MPS "M over and out\nX\n"; |