On 2007-Aug-14, at 3:00 PM, Julian Field wrote:
> What version are you running? I can't find that line of code.
Version 4.61.7
Here's what I'm showing as the replacement loop (line 288 -> 303):
288 while (defined($_ = $dirh->read)) {
289 #print STDERR "Directory entry is \"$_\" in \"$dir\"\n";
290 next unless -f "$dir/$_";
291 next if $_ eq $tnefname;
292 #next if /^msg[\d-]+\.txt$/;
293 $safename = $message->MakeNameSafe($_, $dir);
294 if (/^msg[\d-]+\.txt$/) {
295 ($type, $encoding) = ("text/plain", "8bit");
296 } else {
297 ($type, $encoding) = ("application/octet-stream", "base64");
298 if ($safename ne $_ && -f "$dir/$_") {
299 #print STDERR "Renaming '$dir/$_' to '$dir/$safename'\n";
300 my $dangerous = quotemeta $_;
301 rename "$dir/$dangerous", "$dir/$safename";
302 }
303 }
From what I've read, it should be safe/sane to ignore the msg text
file as it's the body content from the TNEF which will/should already
be inline (in plain text) in the message, but just wanted to double
check.
--
Regards,
Derek Buttineau
Internet Systems Developer
Compu-SOLVE Internet Services
Compu-SOLVE Technologies, Inc
Phone: 705-725-1212 x255
E-Mail: derek at csolve.net