/[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 108 by dpavlin, Mon Jul 14 18:20:27 2003 UTC revision 109 by dpavlin, Mon Jul 14 18:50:39 2003 UTC
# Line 332  print STDERR "using: $type...\n"; Line 332  print STDERR "using: $type...\n";
332                  # if so, erase it and re-open database                  # if so, erase it and re-open database
333                  sub check_txt_db {                  sub check_txt_db {
334                          my $isis_db = shift || die "need isis database name";                          my $isis_db = shift || die "need isis database name";
335                            my $reopen = 0;
336    
337                          if (-e $isis_db.".TXT") {                          if (-e $isis_db.".TXT") {
338                                  print STDERR "WARNING: removing .txt OpenIsis database...\n";                                  print STDERR "WARNING: removing $isis_db.TXT OpenIsis database...\n";
339                                  unlink $isis_db.".TXT" || warn "FATAL: unlink error on '$isis_db.TXT': $!";                                  unlink $isis_db.".TXT" || warn "FATAL: unlink error on '$isis_db.TXT': $!";
340                                  my $db = OpenIsis::open( $isis_db );                                  $reopen++;
341                                  return $db;                          }
342                            if (-e $isis_db.".PTR") {
343                                    print STDERR "WARNING: removing $isis_db.PTR OpenIsis database...\n";
344                                    unlink $isis_db.".PTR" || warn "FATAL: unlink error on '$isis_db.PTR': $!";
345                                    $reopen++;
346                          }                          }
347                            return OpenIsis::open( $isis_db ) if ($reopen);
348                  }                  }
349    
350                  # EOF error                  # EOF error

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

  ViewVC Help
Powered by ViewVC 1.1.26