|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 12 Nov 2001 20:53:15
To : Alex Gain
Subject : Re: Снова о sendmail на unix и web-почта
--------------------------------------------------------------------------------
AG> Как в Perl 5 (unix) сделать CGI script для аттача файлов
AG> хотя-бы вордовских, без подключения модуля MIME:: ?
AG> Киньте идеей плиз. Резать сам модуль и включать куски
AG> в скрипт - не предлагать.
= Вставка =
$to = '"Your Name" <yourname@yourdomain.com>';
$recip = 'yourname@yourdomain.com';
$from = '"Your Name" <yourname@yourdomain.com>';
$subject = "This is the subject";
$mainbody = "This is the main body\n";
$attachment = "This is an attachment\n";
$message = MakeMessage($to, $from, $subject, $mainbody, $attachment);
open (MAIL, "|sendmail -t");
print MAIL $message;
close (MAIL);
sub MakeMessage
{
# make a composite message containing a main body and one attachment
my ($to, $from, $subject, $mainbody, $attachment) = @_;
my $message = <<"__EOM__";
From: $from
To: $to
Subject: $subject
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary=\"----=_NextPart_000_0012_01BDDCAE.46F62A80\"
X-Priority: 3
X-MSMail-Priority: Normal
This is a multi-part message in MIME format.
-+----=_NextPart_000_0012_01BDDCAE.46F62A80
Content-Type: text/plain;
charset=\"iso-8859-1\"
Content-Transfer-Encoding: 7bit
$mainbody
-+----=_NextPart_000_0012_01BDDCAE.46F62A80
Content-Type: text/plain;
name=\"attach.txt\"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename=\"attach.txt\"
$attachment
-+----=_NextPart_000_0012_01BDDCAE.46F62A80--
__EOM__
return $message;
}
= Вставка =
-- Hиколай.
* Баба с мышкой хуже обезьяны с гpанатой
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
---
* Origin: Где начало того конца, которым оканчивается начало? (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Снова о sendmail на unix и web-почта 