Problem winmail.dat and TNEF

[mul]

> 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
> 
Ok, 

i have deleted :
my ($tmpfh, $unpackdir) = tempfile("tnefXXXXXX", TMPDIR => $dir, UNLINK => 0);
>  $dir =~ s,^.*/,,;