/[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.4 by dpavlin, Sun Jun 16 15:26:13 2002 UTC revision 1.5 by dpavlin, Sun Jun 16 15:45:44 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_dbs = ( '.' ); # use dirname as database name
348    
349  my $max_rowid = OpenIsis::maxRowid( $db );  if ($opts{m}) {
350            @isis_dbs = split(/,/,$opts{m});
351    }
352    
353    foreach my $db_name (@isis_dbs) {
354    
355      print MPS "M reading ISIS from $db_dir/$db_name/LIBRI...\n";
356    
357      my $db = OpenIsis::open( "$common::isis_data/$db_dir/$db_name/LIBRI/LIBRI" );
358    
359      my $max_rowid = OpenIsis::maxRowid( $db );
360    
361  my $last_pcnt = 0;    my $last_pcnt = 0;
362    
363  for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {    for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {
364          my $row = OpenIsis::read( $db, $row_id );          my $row = OpenIsis::read( $db, $row_id );
365          if (my $tmp = $row->{'200'}->[0]) {          if (my $tmp = $row->{'200'}->[0]) {
366    
# Line 498  for (my $row_id = 1; $row_id <= $max_row Line 508  for (my $row_id = 1; $row_id <= $max_row
508                  print S $mps;                  print S $mps;
509                  print MPS $mps;                  print MPS $mps;
510          }          }
511      }
512  }  }
513  print S "M over and out\nX\n";  print S "M over and out\nX\n";
514  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.5

  ViewVC Help
Powered by ViewVC 1.1.26