Changeset 18469 for gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm
- Timestamp:
- 2009-02-06T18:19:44+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm
r18456 r18469 90 90 91 91 if (defined $archive_info) { 92 print STDERR "********* have parsed and processed an archive info file\n";93 94 92 my $archive_info_filename = $self->{'archive_info_filename'}; 95 93 … … 100 98 101 99 my $index_status = $archive_info->get_status_info($doc_oid); 102 print STDERR "*** Updating$doc_oid $index_status\n";100 #### print STDERR "*** Away to Update $doc_oid $index_status\n"; 103 101 104 102 if ($index_status eq "D") { 105 103 # delete 106 104 $archive_info->delete_info($doc_oid); 105 &GDBMUtils::gdbmDatabaseRemove($archive_info_filename,$doc_oid); 107 106 } 108 107 elsif ($index_status =~ m/^(I|R)$/) { … … 215 214 my $process_file = 1; 216 215 217 # ...unless the build processor is incremental capable and -incremental was specified 216 # ...unless the build processor is incremental capable and -incremental was specified, in which case we need to check its index_status flag 218 217 if ($processor->is_incremental_capable() && $self->{'incremental'}) 219 218 { … … 230 229 } 231 230 elsif ($index_status eq "R") { 232 # Need to be delete it from the index.231 # Need to be reindexed/replaced 233 232 $new_mode = $curr_mode."reindex"; 233 234 234 $process_file = 1; 235 235 } … … 237 237 # ... or we're being asked to delete it (in which case skip it) 238 238 elsif ($index_status eq "D") { 239 # Delete it somehow from archives dir!! 240 # => get short name, lop off filename, concat archivedir 241 # move to recyle bin 239 # Non-incremental Delete 240 # It's already been deleted from the archives directory 241 # (done during import.pl) 242 # => All we need to do here is not process it 242 243 243 244 $process_file = 0; 244 245 } 246 247 if (!$processor->is_incremental_capable() && $self->{'incremental'}) { 248 # Nag feature 249 if (!defined $self->{'incremental-warning'}) { 250 print $outhandle "\n"; 251 print $outhandle "Warning: command-line option '-incremental' used with *non-incremental*\n"; 252 print $outhandle " processor '", ref $processor, "'. Some conflicts may arise.\n"; 253 print $outhandle "\n"; 254 sleep 10; 255 $self->{'incremental-warning'} = 1; 256 } 257 } 258 259 245 260 246 261 if ($process_file) {
Note:
See TracChangeset
for help on using the changeset viewer.