|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Marsel Kirsanov 2:5023/10.91 27 Jul 2000 21:46:45
To : All
Subject : Помогите доделать скрипт-почтальона
--------------------------------------------------------------------------------
Делаю я скрипт рассылки новостей. Скрипт, который берет из формы E-mail и
заносит в list.txt, я написал. А вот как сделать так чтобы он брал адрес
E-mail'a из list.txt не знаю; могу только на один послать адрес :(
Подкорректируйте, пожалуйста...
#!/usr/bin/perl
$mailprog = '/usr/sbin/sendmail';
$from = 'postmaster@al.ru';
$answer = 'postmaster@al.ru';
$for = 'som-e-@mail.com';
open (MAIL, "|$mailprog $for") || die "Can't open $mailprog!\n";
print MAIL "Subject:\n";
print MAIL "From:$from\n";
print MAIL "Reply-to:$answer\n";
print MAIL "To:$youmail\n";
print MAIL "Hовости нашего сервера\n";
close (MAIL);
> Boт.
Sincerely, Marsel.
--- Summer moved on... plase write me anytime to marsel@emux.net
* Origin: My love moved down. (2:5023/10.91)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
