Changeset 3523 for trunk/gsdl/perllib

Timestamp:

2002-11-11T15:26:08+13:00 (22 years ago)

Author:

kjdon

Message:

now EMAILplug accepts the split_exp option - a regular expression that SplitPlug uses to divide a file into multiple documents

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -83 +83 @@
 sub new {
     my ($class) = @_;
-    my $self = new BasPlug ("EMAILPlug", @_);
+    my $self = new BasPlug ($class, @_);
+
+    if (!parsargv::parse(\@_, 
+             q^split_exp/.*/^, \$self->{'split_exp'},
+             "allow_extra_options")) {
+    print STDERR "\nIncorrect options passed to $class.";
+    print STDERR "\nCheck your collect.cfg configuration file\n";
+    die "\n";
+    }
     # this might not actually be true at read-time, but after processing
     # it should all be utf8.
@@ -102 +110 @@
 sub get_default_split_exp {
     return q^\nFrom .*\n^;
+    
 }
 
@@ -186 +195 @@
     $value =~ s/^\s+//;
     $value =~ s/\s+$//;
-
     # decode headers if stored using =?<charset>?[BQ]?<data>?= (rfc2047)
     if ($value =~ /=\?.*\?[BbQq]\?.*\?=/) {