Changeset 16677 for gsdl/trunk/perllib/plugins/EmailPlugin.pm
- Timestamp:
- 2008-08-08T10:10:24+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/EmailPlugin.pm
r16341 r16677 141 141 sub get_default_split_exp { 142 142 return q^\nFrom .*\d{4}\n^; 143 144 } 145 146 sub can_process_this_file { 147 my $self = shift(@_); 148 my ($filename) = @_; 149 150 # avoid any confusion between filenames matching \d+ (which are by default 151 # matched by EmailPlugin) and directories that match \d+ (which should not) 152 153 return 0 if (-d $filename); 154 155 if ($self->{'process_exp'} ne "" && $filename =~ /$self->{'process_exp'}/) { 156 return 1; 157 } 158 return 0; 143 159 144 160 }
Note:
See TracChangeset
for help on using the changeset viewer.