- my $db = OpenIsis::open( $isis_db );
-
- # check if .txt database for OpenIsis is zero length,
- # if so, erase it and re-open database
- sub check_txt_db {
- my $isis_db = shift || die "need isis database name";
- my $reopen = 0;
-
- if (-e $isis_db.".TXT") {
- print STDERR "WARNING: removing $isis_db.TXT OpenIsis database...\n";
- unlink $isis_db.".TXT" || warn "FATAL: unlink error on '$isis_db.TXT': $!";
- $reopen++;
- }
- if (-e $isis_db.".PTR") {
- print STDERR "WARNING: removing $isis_db.PTR OpenIsis database...\n";
- unlink $isis_db.".PTR" || warn "FATAL: unlink error on '$isis_db.PTR': $!";
- $reopen++;
- }
- return OpenIsis::open( $isis_db ) if ($reopen);
- }