problem with Multipart module

[Mike]

I am trying to use the Net::SMTP::Multipart to send attachments (word
doc) and the encoding is getting mangled on non-linux machines

If I send it to myself everything is fine (either external or via my
mail server)

this appears to the relevant part of the modules

sub FileAttach {
my $self = shift;
foreach my $file (@_) {
unless (-f $file) {
carp 'Net::SMTP::Multipart:FileAttach: unable to find file
$file';
next;
}
my($bytesread,$buffer,$data,$total);
open(FH,"$file") || carp "Net::SMTP::Multipart:FileAttach: failed
to open $file\n";
binmode(FH);
while ( ($bytesread=sysread(FH,$buffer, 1024))==1024 ){
$total += $bytesread;
# 500K Limit on Upload Images to prevent buffer overflow
#if (($total/1024) > 500){
# printf "TooBig %s\n",$total/1024;
# $toobig = 1;
# last;
#}
$data .= $buffer;
}
if ($bytesread) {
$data .= $buffer;
$total += $bytesread ;
}
#print "File Size: $total bytes\n";
close FH;

if ($data){
$self->datasend("--$b\n");
$self->datasend("Content-Type: ; name=\"$file\"\n");
$self->datasend("Content-Transfer-Encoding: base64\n");
$self->datasend("Content-Disposition: attachment; =filename=
\"$file\"\n\n");
$self->datasend(encode_base64($data));
$self->datasend("--$b\n");
}
}
}
and this my script

$smtp->Header(
To => "$mailing1[2]",
Subj => "Management Meeting",

>From => "mike\@bristolreccc.co.uk",
>From => "mike\@bristolreccc.co.uk");

$smtp->Text("text");
$smtp->FileAttach ("doc_file.doc");
$smtp->End();

any help appreciated

[Jenda Krynicky]

From: mike <mike@redtux1.uklinux.net>

> I am trying to use the Net::SMTP::Multipart to send attachments (word
> doc) and the encoding is getting mangled on non-linux machines
>
> If I send it to myself everything is fine (either external or via my
> mail server)
>
> this appears to the relevant part of the modules
>
> sub FileAttach {
> ...

Looks OK
(I don't think it's the best idea to load the whole file into memory,
encode it in one go and then send it. For big files it would be
better to read+encode+send in chunks. IMHO of course)

> and this my script
>
> $smtp->Header(
> To => "$mailing1[2]",
> Subj => "Management Meeting",

> >From => "mike\@bristolreccc.co.uk",
> >From => "mike\@bristolreccc.co.uk");

>
> $smtp->Text("text");
> $smtp->FileAttach ("doc_file.doc");
> $smtp->End();

Seems to be fine as well.

Could you send me a test doc by your script to [email]Jenda@Krynicky.cz[/email]?

Jenda
===== [email]Jenda@Krynicky.cz[/email] === [url]http://Jenda.Krynicky.cz[/url] =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery