RE: Проблема с отправкой аттача

alex-chem — Mon, 25 Sep 2006 17:03:45 GMT

Файл исходный и полученный после отправки, различаются на 1 байт, куда мог потерятся, может что с чтением в буфер не то?

Проблема с отправкой аттача

alex-chem — Mon, 25 Sep 2006 12:26:16 GMT

А проблема в том что иногда, подчеркиваю не постоянно, архив в полученном письме имеет CRC = 00000000, вобщем ноль, что распознается как запорченный архив, и файлы извлеч нельзя :(. Привожу код который формирует письмо с аттачем:

[quote]

$smtp = Net::SMTP->new($smtp_ip, Timeout => 30, Debug => 1 ) or die "Couldn't connect to server: $!" ;

$smtp->mail($from_address);
$smtp->data();

$smtp->datasend("From: $from_address");
$smtp->datasend("To: $to_address");
$smtp->datasend("Subject: ".$subj."");
$smtp->datasend("Mime-Version: 1.0");

$smtp->datasend("X-Mailer: MyMail v1b");
$smtp->datasend("");
$smtp->datasend("Content-Transfer-Encoding: 8bit");
$smtp->datasend("");

if (length($attachname) > 3)
{#если имеется этач
$smtp->datasend("Content-Type: multipart/mixed; boundary=\"MyBoundary\"");

open (ATTACH, "< $attachdir/$attachname");
$attach = ATTACH;
}
else
{
$smtp->datasend("Content-Type: text/plain; charset=Windows-1251");
}

if ($attach)
{#если имеется этач
$smtp->datasend(" This is a multi-part message in MIME format.");
$smtp->datasend("");
$smtp->datasend("--MyBoundary"); #разделитель - определен в начале
$smtp->datasend(" Content-Type: text\/plain");
}

$smtp->datasend(" $mess"); #тут тело письма

if ($attach)
{ # а тут этачмент
$smtp->datasend("");
$smtp->datasend("--MyBoundary"); #разделитель - определен в начале
$smtp->datasend("");
$smtp->datasend("Content-Type: application/octet-stream; name=\"$attachname\"");
$smtp->datasend("");
$smtp->datasend("Content-Disposition: attachment; filename=\"$attachname\"");
$smtp->datasend("");
$smtp->datasend("Content-Transfer-Encoding: base64");

$smtp->datasend("");
$smtp->datasend("--MyBoundary");
$smtp->datasend("");

while (read($attach, $buf, 60*57))
{
$smtp->datasend(encode_base64($buf));
}

$smtp->datasend("--MyBoundary--");

}

$smtp->dataend();
$smtp->quit;

[/quote]

Релиб / Веб-программирование / Perl / Проблема с отправкой аттача / Latest Posts

RE: Проблема с отправкой аттача

Проблема с отправкой аттача