/[local]/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.4 by dpavlin, Sun Jun 16 15:26:13 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 $db = OpenIsis::open( "$common::isis_data/$db_dir/LIBRI/LIBRI" );  my @isis_dirs = ( '.' );        # use dirname as database name
348    
349  my $max_rowid = OpenIsis::maxRowid( $db );  if ($opts{m}) {
350            @isis_dirs = split(/,/,$opts{m});
351    }
352    
353    my @isis_dbs;
354    
355    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( "$isis_db" );
369    
370      my $max_rowid = OpenIsis::maxRowid( $db );
371    
372  my $last_pcnt = 0;    my $last_pcnt = 0;
373    
374  for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {    for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {
375          my $row = OpenIsis::read( $db, $row_id );          my $row = OpenIsis::read( $db, $row_id );
376          if (my $tmp = $row->{'200'}->[0]) {          if (my $tmp = $row->{'200'}->[0]) {
377    
# Line 498  for (my $row_id = 1; $row_id <= $max_row Line 519  for (my $row_id = 1; $row_id <= $max_row
519                  print S $mps;                  print S $mps;
520                  print MPS $mps;                  print MPS $mps;
521          }          }
522      }
523  }  }
524  print S "M over and out\nX\n";  print S "M over and out\nX\n";
525  print MPS "M over and out\nX\n";  print MPS "M over and out\nX\n";
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.26