Parent Directory | Revision Log
merge changes from trunk to branches, converted all import_xml
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use OpenIsis; |
5 | use Data::Dumper; |
6 | |
7 | my @mfns = @ARGV || ( 1 ); |
8 | |
9 | my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' ); |
10 | |
11 | #my $row = OpenIsis::read( $db, $mfn, "MHL V205" ); |
12 | foreach my $mfn (@mfns) { |
13 | print "mfn: $mfn\n"; |
14 | |
15 | my $row = OpenIsis::read( $db, $mfn ); |
16 | |
17 | print Dumper($row); |
18 | } |
19 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.2 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |