Revision 278 (by dpavlin, 2004/03/14 12:37:14) moved tests in own directory, added test to demonstrate XML::Simple feature
to remove spaces from begin and end attribute value (which is wrong for
delimiters as WebPAC uses them)
 
#!/usr/bin/perl -w

use strict;
use OpenIsis;
use Data::Dumper;

my @mfns = @ARGV || ( 1 );

my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );

#my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
foreach my $mfn (@mfns) {
	print "mfn: $mfn\n";

	my $row = OpenIsis::read( $db, $mfn );

	print Dumper($row);
}