/[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

Contents of /trunk2/tests/test_isis.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 337 - (show annotations)
Thu Jun 10 19:22:40 2004 UTC (15 years, 6 months ago) by dpavlin
File MIME type: text/plain
File size: 352 byte(s)
new trunk for webpac v2

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

Properties

Name Value
cvs2svn:cvs-rev 1.2
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26