Changeset 23119
- Timestamp:
- 2010-10-12T13:58:44+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r23053 r23119 376 376 my $manifest_lookup = new manifest($collectcfg->{'infodbtype'},$archivedir); 377 377 if ($self->{'manifest'} ne "") { 378 print STDERR "parsing manifest\n";379 378 my $manifest_filename = $self->{'manifest'}; 380 379 … … 528 527 # 1. Process delete files first 529 528 # 530 531 529 my @deleted_files = keys %{$manifest_lookup->{'delete'}}; 532 530 my @full_deleted_files = (); … … 534 532 # ensure all filenames are absolute 535 533 foreach my $df (@deleted_files) { 536 #print STDERR "**delete file $df\n";537 534 my $full_df = 538 535 (&util::filename_is_absolute($df)) … … 559 556 my @reindex_files = keys %{$manifest_lookup->{'reindex'}}; 560 557 my @full_reindex_files = (); 561 562 558 # ensure all filenames are absolute 563 559 foreach my $rf (@reindex_files) { … … 580 576 # appropriate plugin, we need to add it to block_hash reindex list 581 577 foreach my $full_rf (@full_reindex_files) { 582 #print STDERR "***reindex file $full_rf\n";583 578 $block_hash->{'reindex_files'}->{$full_rf} = 1; 584 579 } … … 593 588 594 589 foreach my $nf (@new_files) { 595 #print STDERR "***index file $nf\n";596 590 # ensure filename is absolute 597 591 my $full_nf = … … 1159 1153 my $subfile = $dir[$i]; 1160 1154 next if ($subfile =~ m/^\.\.?$/); 1155 next if ($subfile =~ /^\.svn$/); 1161 1156 my $full_file = &util::filename_cat($dirname, $subfile); 1162 1157 if (-d $full_file) {
Note:
See TracChangeset
for help on using the changeset viewer.