Changeset 19746
- Timestamp:
- 2009-06-05T17:08:45+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/DSpacePlugin.pm
r19493 r19746 47 47 package DSpacePlugin; 48 48 49 use BasePlugin;49 use ReadTextFile; 50 50 use plugin; 51 51 use XMLParser; … … 54 54 55 55 sub BEGIN { 56 @DSpacePlugin::ISA = (' BasePlugin');56 @DSpacePlugin::ISA = ('ReadTextFile'); 57 57 } 58 58 … … 104 104 push(@{$hashArgOptLists->{"OptList"}},$options); 105 105 106 $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists);106 $self = new ReadTextFile($pluginlist, $inputargs, $hashArgOptLists); 107 107 108 108 if ($self->{'info_only'}) { … … 126 126 my $self = shift (@_); 127 127 128 return q^(?i) contents$^;128 return q^(?i)(contents)$^; 129 129 } 130 130 … … 133 133 my $self = shift (@_); 134 134 135 # Block all files besides contents 136 return q^(?i)(handle|dublin_core\.xml|\.tx?t)$^; 135 # Block handle and txt files if present. Specifically don't block dublin_core xml 136 return q^(?i)(handle|\.tx?t)$^; 137 } 138 139 sub store_block_files_BACKUP 140 { 141 # Option of making blocking sensitive to files that are in directory 142 # This subroutine is not currently used! (relies on default block expression stopping all handle and .txt files) 143 144 my $self =shift (@_); 145 my ($filename_full_path, $block_hash) = @_; 146 147 my ($tailname, $contents_basedir, $suffix) = &File::Basename::fileparse($filename_full_path, "\\.[^\\.]+\$"); 148 my $handle_filename = &util::filename_cat($contents_basedir,"handle"); 149 150 $block_hash->{'file_blocks'}->{$handle_filename} = 1 if (-e $handle_filename); 137 151 } 138 152
Note:
See TracChangeset
for help on using the changeset viewer.