/[webpac]/branches/ffzg/all2xml.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 /branches/ffzg/all2xml.pl

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

revision 106 by dpavlin, Mon Jul 14 17:09:36 2003 UTC revision 108 by dpavlin, Mon Jul 14 18:20:27 2003 UTC
# Line 334  print STDERR "using: $type...\n"; Line 334  print STDERR "using: $type...\n";
334                          my $isis_db = shift || die "need isis database name";                          my $isis_db = shift || die "need isis database name";
335                          if (-e $isis_db.".TXT") {                          if (-e $isis_db.".TXT") {
336                                  print STDERR "WARNING: removing .txt OpenIsis database...\n";                                  print STDERR "WARNING: removing .txt OpenIsis database...\n";
337                                  unlink $isis_db.".TXT" || warn "unlink error on '$isis_db.TXT': $!";                                  unlink $isis_db.".TXT" || warn "FATAL: unlink error on '$isis_db.TXT': $!";
338                                  my $db = OpenIsis::open( $isis_db );                                  my $db = OpenIsis::open( $isis_db );
339                                  return $db;                                  return $db;
340                          }                          }
# Line 343  print STDERR "using: $type...\n"; Line 343  print STDERR "using: $type...\n";
343                  # EOF error                  # EOF error
344                  if ($db == -1) {                  if ($db == -1) {
345                          $db = check_txt_db($isis_db);                          $db = check_txt_db($isis_db);
346                          if (! $db) {                          if ($db == -1) {
347                                  print STDERR "FATAL: OpenIsis can't open zero size file $isis_db\n";                                  print STDERR "FATAL: OpenIsis can't open zero size file $isis_db\n";
348                                  next;                                  next;
349                          }                          }
# Line 392  print STDERR "using: $type...\n"; Line 392  print STDERR "using: $type...\n";
392                                  }                                  }
393                          }                          }
394                  }                  }
395                    # for this to work with current version of OpenIsis (0.9.0)
396                    # you might need my patch from
397                    # http://www.rot13.org/~dpavlin/projects/openisis-0.9.0-perl_close.diff
398                    OpenIsis::close($db);
399                  print STDERR "\n";                  print STDERR "\n";
400    
401          } elsif ($type_base eq "excel") {          } elsif ($type_base eq "excel") {

Legend:
Removed from v.106  
changed lines
  Added in v.108

  ViewVC Help
Powered by ViewVC 1.1.26