--- isis2stream.pl	2002/06/16 15:26:13	1.4
+++ isis2stream.pl	2002/06/16 16:06:55	1.6
@@ -344,13 +344,34 @@
 
 my $last_tell=0;
 
-my $db = OpenIsis::open( "$common::isis_data/$db_dir/LIBRI/LIBRI" );
+my @isis_dirs = ( '.' );	# use dirname as database name
 
-my $max_rowid = OpenIsis::maxRowid( $db );
+if ($opts{m}) {
+	@isis_dirs = split(/,/,$opts{m});
+}
+
+my @isis_dbs;
+
+foreach (@isis_dirs) {
+	if (-e "$common::isis_data/$db_dir/$_/LIBRI") {
+		push @isis_dbs,"$common::isis_data/$db_dir/$_/LIBRI/LIBRI";
+	}
+	if (-e "$common::isis_data/$db_dir/$_/PERI") {
+		push @isis_dbs,"$common::isis_data/$db_dir/$_/PERI/PERI";
+	}
+}
+
+foreach my $isis_db (@isis_dbs) {
+
+  print MPS "M reading ISIS from '$isis_db'...\n";
+
+  my $db = OpenIsis::open( "$isis_db" );
+
+  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 +519,7 @@
 		print S $mps;
 		print MPS $mps;
 	}
+  }
 }
 print S "M over and out\nX\n";
 print MPS "M over and out\nX\n";