Problem winmail.dat and TNEF

[Andrew Colin Kissa]

On 22 Feb 2012, at 7:23 PM, mul wrote:

> my ($tmpfh, $unpackdir) = tempfile("tnefXXXXXX", TMPDIR => $dir, UNLINK => 0);
>  $dir =~ s,^.*/,,;
>  $unpackdir = $message->MakeNameSafe($unpackdir, $dir);
>  unless (mkdir "$dir/$unpackdir", 0777) {
>    MailScanner::Log::WarnLog("Trying to unpack %s in message %s, could not cre$
>                              "$dir/$unpackdir");
>    return 0;

Edit it to look like this:

 my $unpackdir = tempdir("tnefXXXXXX");
 $unpackdir = $message->MakeNameSafe($unpackdir, $dir);
 unless (mkdir "$dir/$unpackdir", 0777) {
   MailScanner::Log::WarnLog("Trying to unpack %s in message %s, could not cre$
                             "$dir/$unpackdir");
   return 0;

--
www.baruwa.org