/[webpac-proto]/isis2stream.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 /isis2stream.pl

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

revision 1.5 by dpavlin, Sun Jun 16 15:45:44 2002 UTC revision 1.6 by dpavlin, Sun Jun 16 16:06:55 2002 UTC
# Line 344  sub isis_sf { Line 344  sub isis_sf {
344    
345  my $last_tell=0;  my $last_tell=0;
346    
347  my @isis_dbs = ( '.' ); # use dirname as database name  my @isis_dirs = ( '.' );        # use dirname as database name
348    
349  if ($opts{m}) {  if ($opts{m}) {
350          @isis_dbs = split(/,/,$opts{m});          @isis_dirs = split(/,/,$opts{m});
351  }  }
352    
353  foreach my $db_name (@isis_dbs) {  my @isis_dbs;
354    
355    print MPS "M reading ISIS from $db_dir/$db_name/LIBRI...\n";  foreach (@isis_dirs) {
356            if (-e "$common::isis_data/$db_dir/$_/LIBRI") {
357                    push @isis_dbs,"$common::isis_data/$db_dir/$_/LIBRI/LIBRI";
358            }
359            if (-e "$common::isis_data/$db_dir/$_/PERI") {
360                    push @isis_dbs,"$common::isis_data/$db_dir/$_/PERI/PERI";
361            }
362    }
363    
364    foreach my $isis_db (@isis_dbs) {
365    
366      print MPS "M reading ISIS from '$isis_db'...\n";
367    
368    my $db = OpenIsis::open( "$common::isis_data/$db_dir/$db_name/LIBRI/LIBRI" );    my $db = OpenIsis::open( "$isis_db" );
369    
370    my $max_rowid = OpenIsis::maxRowid( $db );    my $max_rowid = OpenIsis::maxRowid( $db );
371    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.26