Changeset 1757

Timestamp:

2000-12-07T11:47:27+13:00 (23 years ago)

Author:

say1

Message:

tightened the criteria for email files to avoid matching all dynamic libraries

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -85 +85 @@
     # Check that we're dealing with a valid mail file
     return undef unless (($$textref =~ /From:/) || ($$textref =~ /To:/));
+
+    # slightly more strict validity check, to prevent us from matching 
+    # .so.x files ...
+    return undef unless (($$textref =~ /^From(:| )/) ||
+             ($$textref =~ /^[-A-Za-z]{2-100}:/));
 
     print $outhandle "EMAILPlug: processing $file\n"