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

Annotation of /trunk2/tests/test_isis.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 278 - (hide annotations)
Sun Mar 14 12:37:14 2004 UTC (20 years ago) by dpavlin
Original Path: trunk/tests/test_isis.pl
File MIME type: text/plain
File size: 352 byte(s)
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)

1 dpavlin 61 #!/usr/bin/perl -w
2    
3     use strict;
4     use OpenIsis;
5     use Data::Dumper;
6    
7 dpavlin 84 my @mfns = @ARGV || ( 1 );
8 dpavlin 61
9 dpavlin 84 my $db = OpenIsis::open( 'LIBRI', '-dbpath', shift @ARGV || '/data/isis_data/bug/LIBRI/' );
10 dpavlin 61
11 dpavlin 84 #my $row = OpenIsis::read( $db, $mfn, "MHL V205" );
12     foreach my $mfn (@mfns) {
13     print "mfn: $mfn\n";
14 dpavlin 61
15 dpavlin 84 my $row = OpenIsis::read( $db, $mfn );
16 dpavlin 61
17 dpavlin 84 print Dumper($row);
18     }
19    

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26