--- isis2stream.pl	2002/06/16 15:26:13	1.4
+++ isis2stream.pl	2002/06/16 15:45:44	1.5
@@ -344,13 +344,23 @@
 
 my $last_tell=0;
 
-my $db = OpenIsis::open( "$common::isis_data/$db_dir/LIBRI/LIBRI" );
+my @isis_dbs = ( '.' );	# use dirname as database name
 
-my $max_rowid = OpenIsis::maxRowid( $db );
+if ($opts{m}) {
+	@isis_dbs = split(/,/,$opts{m});
+}
+
+foreach my $db_name (@isis_dbs) {
+
+  print MPS "M reading ISIS from $db_dir/$db_name/LIBRI...\n";
+
+  my $db = OpenIsis::open( "$common::isis_data/$db_dir/$db_name/LIBRI/LIBRI" );
+
+  my $max_rowid = OpenIsis::maxRowid( $db );
 
-my $last_pcnt = 0;
+  my $last_pcnt = 0;
 
-for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {
+  for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {
 	my $row = OpenIsis::read( $db, $row_id );
 	if (my $tmp = $row->{'200'}->[0]) {
 
@@ -498,6 +508,7 @@
 		print S $mps;
 		print MPS $mps;
 	}
+  }
 }
 print S "M over and out\nX\n";
 print MPS "M over and out\nX\n";