Changeset 3523
- Timestamp:
- 2002-11-11T15:26:08+13:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/EMAILPlug.pm
r3414 r3523 83 83 sub new { 84 84 my ($class) = @_; 85 my $self = new BasPlug ("EMAILPlug", @_); 85 my $self = new BasPlug ($class, @_); 86 87 if (!parsargv::parse(\@_, 88 q^split_exp/.*/^, \$self->{'split_exp'}, 89 "allow_extra_options")) { 90 print STDERR "\nIncorrect options passed to $class."; 91 print STDERR "\nCheck your collect.cfg configuration file\n"; 92 die "\n"; 93 } 86 94 # this might not actually be true at read-time, but after processing 87 95 # it should all be utf8. … … 102 110 sub get_default_split_exp { 103 111 return q^\nFrom .*\n^; 112 104 113 } 105 114 … … 186 195 $value =~ s/^\s+//; 187 196 $value =~ s/\s+$//; 188 189 197 # decode headers if stored using =?<charset>?[BQ]?<data>?= (rfc2047) 190 198 if ($value =~ /=\?.*\?[BbQq]\?.*\?=/) {
Note:
See TracChangeset
for help on using the changeset viewer.