/[webpac]/branches/hidra/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/hidra/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 138 by dpavlin, Wed Oct 29 23:10:51 2003 UTC
# Line 160  sub data2xml { Line 160  sub data2xml {
160                                          }                                          }
161                                          if ($filter) {                                          if ($filter) {
162                                                  no strict 'refs';                                                  no strict 'refs';
163                                                  $display_data .= join($delimiter,&$filter($display));                                                  if ($display_data) {
164                                                            $display_data .= $delimiter.&$filter($display);
165                                                    } else {
166                                                            $display_data = &$filter($display);
167                                                    }
168                                          } else {                                          } else {
169                                                  if ($display_data) {                                                  if ($display_data) {
170                                                          $display_data .= $delimiter.$display;                                                          $display_data .= $delimiter.$display;
171                                                  } else {                                                  } else {
172                                                          $display_data .= $display;                                                          $display_data = $display;
173                                                  }                                                  }
174                                          }                                          }
175                                  }                                  }
# Line 181  sub data2xml { Line 185  sub data2xml {
185                          if (@index_data) {                          if (@index_data) {
186                                  if ($index_filter) {                                  if ($index_filter) {
187                                          no strict 'refs';                                          no strict 'refs';
188                                          foreach my $d (&$index_filter(@index_data)) {                                          foreach my $d (@index_data) {
189                                                  $index->insert($field, $d, $path);                                                  $index->insert($field, &$index_filter($d), $path);
190                                          }                                          }
191                                  } else {                                  } else {
192                                          foreach my $d (@index_data) {                                          foreach my $d (@index_data) {
# Line 332  print STDERR "using: $type...\n"; Line 336  print STDERR "using: $type...\n";
336                  # if so, erase it and re-open database                  # if so, erase it and re-open database
337                  sub check_txt_db {                  sub check_txt_db {
338                          my $isis_db = shift || die "need isis database name";                          my $isis_db = shift || die "need isis database name";
339                            my $reopen = 0;
340    
341                          if (-e $isis_db.".TXT") {                          if (-e $isis_db.".TXT") {
342                                  print STDERR "WARNING: removing .txt OpenIsis database...\n";                                  print STDERR "WARNING: removing $isis_db.TXT OpenIsis database...\n";
343                                  unlink $isis_db.".TXT" || warn "FATAL: unlink error on '$isis_db.TXT': $!";                                  unlink $isis_db.".TXT" || warn "FATAL: unlink error on '$isis_db.TXT': $!";
344                                  my $db = OpenIsis::open( $isis_db );                                  $reopen++;
345                                  return $db;                          }
346                            if (-e $isis_db.".PTR") {
347                                    print STDERR "WARNING: removing $isis_db.PTR OpenIsis database...\n";
348                                    unlink $isis_db.".PTR" || warn "FATAL: unlink error on '$isis_db.PTR': $!";
349                                    $reopen++;
350                          }                          }
351                            return OpenIsis::open( $isis_db ) if ($reopen);
352                  }                  }
353    
354                  # EOF error                  # EOF error

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

  ViewVC Help
Powered by ViewVC 1.1.26