From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <npecca@yahoo.com>
From: Henri Bourbon <npecca@yahoo.com>
X-Mailer: The Bat! (v1.51) Personal
X-Priority: 3 (Normal)
Message-ID: <616346756.20010821182722@yahoo.com>
To: "\"Прокопьев Евгений\"" <mandrake-russian@altlinux.ru>
Subject: Re: [mdk-re] Re: [mdk-re] Простой почтовыйклиент
In-Reply-To: <001401c12943$032468f0$5a0aa8c0@john>
References: <00c001c12933$19553510$5a0aa8c0@john>
 <01082010214306.04829@pif.b5.mephi.ru> <001401c12943$032468f0$5a0aa8c0@john>
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
X-Return-Path: npecca@yahoo.com
X-MDaemon-Deliver-To: mandrake-russian@altlinux.ru
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Tue Aug 21 18:27:02 2001
X-Original-Date: Tue, 21 Aug 2001 18:27:22 +0400
Archived-At: <http://lore.altlinux.org/community/616346756.20010821182722@yahoo.com/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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