Changeset 6079

Timestamp:

2003-12-02T14:48:27+13:00 (20 years ago)

Author:

jrm21

Message:

oops... became too liberal for attachment filenames... now fixed to not
match newline chars (but allow other whitespace in filenames)

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -655 +655 @@
     }
     my $filename="";
-    if ($part_header =~ m@name=\"?([^\"]+)\"?@mis) {
+    if ($part_header =~ m@name=\"?([^\"\n]+)\"?@mis) {
     $filename=$1;
+    $filename =~ s@\r?\s*$@@; # remove trailing space, if any
     }