Changeset 1895

Timestamp:

2001-02-01T17:45:43+13:00 (23 years ago)

Author:

jrm21

Message:

Email plug now uses SplitPlug for mbox mail files. Hopefully this won't
cause problems with the other file formats (eg maildir) which don't use
the magic regexp /^{From / as a mail separator...}

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -49 +49 @@
 package EMAILPlug;
 
-use BasPlug;
+use SplitPlug;
+
 use sorttools;
 use util;
 
 
-# EMAILPlug is a sub-class of BasPlug.
+# EMAILPlug is a sub-class of SplitPlug.
 
 sub BEGIN { 
-    @ISA = ('BasPlug');
+    @ISA = ('SplitPlug');
 }
 
@@ -76 +77 @@
     return q^\d+(\.email)?$^;
 }
+
+# This plugin splits the mbox mail files at lines starting with From<sp>
+sub get_default_split_exp {
+    return q^From .*\n^;
+}
+
 
 # do plugin specific processing of doc_obj