Changeset 16677 for gsdl/trunk/perllib/plugins/EmailPlugin.pm

Timestamp:

2008-08-08T10:10:24+12:00 (16 years ago)

Author:

davidb

Message:

Minor tweak to EmailPlugin to avoid directories that match \d+ being confused as e-mail files

File:

• gsdl/trunk/perllib/plugins/EmailPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/EmailPlugin.pm

@@ -141 +141 @@
 sub get_default_split_exp {
     return q^\nFrom .*\d{4}\n^;
+    
+}
+
+sub can_process_this_file {
+    my $self = shift(@_);
+    my ($filename) = @_;
+
+    # avoid any confusion between filenames matching \d+ (which are by default
+    # matched by EmailPlugin) and directories that match \d+ (which should not)
+
+    return 0 if (-d $filename); 
+
+    if ($self->{'process_exp'} ne "" && $filename =~ /$self->{'process_exp'}/) {
+    return 1;
+    }
+    return 0;
     
 }