[TWiki-Dev] [SVN] CrawfordCurrie r10110 - twiki/branches/TWikiRelease04x00/twikiplugins/MailInContrib/lib/TWiki/Contrib

[<de...@de...>]

Author: CrawfordCurrie
Date: 2006-05-06 04:54:23 -0500 (Sat, 06 May 2006)
New Revision: 10110

Modified:
   twiki/branches/TWikiRelease04x00/twikiplugins/MailInContrib/lib/TWiki/Contrib/MailInContrib.pm
Log:
Item2022: imported rules for attachment name filtering. The core should really publish this assumption.

Modified: twiki/branches/TWikiRelease04x00/twikiplugins/MailInContrib/lib/TWiki/Contrib/MailInContrib.pm
===================================================================
--- twiki/branches/TWikiRelease04x00/twikiplugins/MailInContrib/lib/TWiki/Contrib/MailInContrib.pm	2006-05-06 09:43:26 UTC (rev 10109)
+++ twiki/branches/TWikiRelease04x00/twikiplugins/MailInContrib/lib/TWiki/Contrib/MailInContrib.pm	2006-05-06 09:54:23 UTC (rev 10110)
@@ -379,6 +379,11 @@
     close( TF );
 
     my $err = '';
+    # SMELL: no central way to process attachment filenames, so we
+    # have to copy-paste the TWiki core code.
+    $filename =~ s/ /_/go;
+    $filename =~ s/$TWiki::cfg{NameFilter}//goi;
+    $filename =~ s/$TWiki::cfg{UploadFilter}/$1\.txt/goi;
     $this->{session}->{store}->saveAttachment(
         $web, $topic, $filename, $user,
         { comment => "Submitted by e-mail", file => $tmpfile });