--- trunk/tools/test_isis.pl 2003/07/11 20:14:19 83 +++ trunk/tools/test_isis.pl 2003/07/11 20:14:45 84 @@ -4,11 +4,16 @@ use OpenIsis; use Data::Dumper; -my $mfn = shift @ARGV || '528'; +my @mfns = @ARGV || ( 1 ); -my $db = OpenIsis::open( 'LIBRI', '-dbpath', '/data/isis_data/ps/LIBRI/' ); +my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' ); -my $row = OpenIsis::read( $db, $mfn ); +#my $row = OpenIsis::read( $db, $mfn, "MHL V205" ); +foreach my $mfn (@mfns) { + print "mfn: $mfn\n"; -print Dumper($row); + my $row = OpenIsis::read( $db, $mfn ); + + print Dumper($row); +}