Changeset 1895

Show
Ignore:
Timestamp:
01.02.2001 17:45:43 (19 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...

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/EMAILPlug.pm

    r1869 r1895  
    4949package EMAILPlug; 
    5050 
    51 use BasPlug; 
     51use SplitPlug; 
     52 
    5253use sorttools; 
    5354use util; 
    5455 
    5556 
    56 # EMAILPlug is a sub-class of BasPlug. 
     57# EMAILPlug is a sub-class of SplitPlug. 
    5758 
    5859sub BEGIN {  
    59     @ISA = ('BasPlug'); 
     60    @ISA = ('SplitPlug'); 
    6061} 
    6162 
     
    7677    return q^\d+(\.email)?$^; 
    7778} 
     79 
     80# This plugin splits the mbox mail files at lines starting with From<sp> 
     81sub get_default_split_exp { 
     82    return q^From .*\n^; 
     83} 
     84 
    7885 
    7986# do plugin specific processing of doc_obj