Changeset 20577 for gsdl/trunk/perllib/plugins/DirectoryPlugin.pm
- Timestamp:
- 2009-09-10T10:50:05+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/DirectoryPlugin.pm
r19623 r20577 148 148 149 149 150 # called if we are doing incremental building151 sub set_incremental {152 my $self = shift(@_);153 my ($incremental) = @_;154 155 $self->{'incremental'} = $incremental;156 }157 150 158 151 # return 1 if this class might recurse using $pluginfo … … 283 276 284 277 $block_hash->{'all_files'} = {} unless defined $block_hash->{'all_files'}; 278 $block_hash->{'metadata_files'} = {} unless defined $block_hash->{'metadata_files'}; 285 279 286 280 $block_hash->{'file_blocks'} = {} unless defined $block_hash->{'file_blocks'}; … … 597 591 } 598 592 599 600 593 if (defined $self->{'inf_timestamp'}) { 601 594 # Look to see if it's a completely new file … … 608 601 if (! -d $full_filename) { 609 602 if (!$block_hash->{'reindex_files'}->{$full_filename}) { 610 # filename has been around for longer than inf 603 # filename has been around for longer than inf_timestamp 611 604 print $outhandle "**** Skipping $subfile\n" if ($verbosity >3); 612 605 next;
Note:
See TracChangeset
for help on using the changeset viewer.