/[webpac]/trunk2/tests/test_isis.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/tests/test_isis.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 61 by dpavlin, Fri Jul 4 19:37:32 2003 UTC revision 84 by dpavlin, Fri Jul 11 20:14:45 2003 UTC
# Line 4  use strict; Line 4  use strict;
4  use OpenIsis;  use OpenIsis;
5  use Data::Dumper;  use Data::Dumper;
6    
7  my $mfn = shift @ARGV || '528';  my @mfns = @ARGV || ( 1 );
8    
9  my $db = OpenIsis::open( 'LIBRI', '-dbpath', '/data/isis_data/ps/LIBRI/' );  my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );
10    
11  my $row = OpenIsis::read( $db, $mfn );  #my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
12    foreach my $mfn (@mfns) {
13            print "mfn: $mfn\n";
14    
15  print Dumper($row);          my $row = OpenIsis::read( $db, $mfn );
16    
17            print Dumper($row);
18    }
19    

Legend:
Removed from v.61  
changed lines
  Added in v.84

  ViewVC Help
Powered by ViewVC 1.1.26