=?iso-8859-1?q?=5Bmdk-re=5D_Re=3A_=5Bmdk-re=5D_=F0=D2=CF=D3=D4=CF=CA_=D0?= =?iso-8859-1?q?=CF=DE=D4=CF=D7=D9=CA=CB=CC=C9=C5=CE=D4?=

[Henri Bourbon]

Monday, August 20, 2001, 10:40:33, "Прокопьев Евгений" wrote:

>> > Скажите, есть под линукс какой-нибудь простой почтовый клиент,
> работающий
>> > из командной строки (чтоб можно было раз в неделю, к примеру, посылать
>> > письмо автоматом), но не требующий smtp сервера?
>> Можно самому написать на Perl'е 5 строк с использованием модуля
> Mail::Sender
>> (взять на CPAN). Он пошлет письмо через любой инетовский smtp-сервер.

> Я в перле вообще никак. Если есть что-то готовое в виде этих пяти строк,
> пришлите, пожалуйста

Я не думаю, что для отсылки письма раз в неделю нужен Perl, по крайней мере,
если вы не разбираетесь в Perl. Но раз пошла такая пьянка...

#!/usr/bin/perl -w
use strict;

my $recipient = 'Putin на mail.ru (Vladimir Putin)'; # Адресат

my $msg = <<EOT;
Date: Mon, 20 Aug 2001 12:59:23 +0400
From: npecca\@yahoo.com (mutt lover)
Message-ID: <Very-Important-Message-No243\@HB>
To: $recipient
Subject: Let's go fishing
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit

Вован, поехали на выходных чиста оттянемся, рыбки половим, а?
EOT

open(MAIL, "| /usr/sbin/sendmail -t") or die "Could not run sendmail!";
print(MAIL $msg);
close(MAIL) or die;

print "Sent ok\n";

-- 
HB