Georgy I.Prykhnenko wrote:
>Привет всем!
>Задача - рассылка информации партнерам (не спам!!! Они сами согласны :) ),
>но не целым списком, а для каждого отдельной мессагой, чтобы они не
>догадывались о существовании списка получателей. Отправитель посылает мыло
>на какой внутренний адрес, потом оно рассылается наружу по списку с
>указанными условиями. Такое легко реализуется напр. в mdaemon-е.
>Помогите советом куда копать. Буду очень благодарен за полную доку по файлу
>конфигурации sendmail - .mc. Спасибо.
>
>
Вот мой скрипт для рассылки спама:
rubystar:[/mnt/mdk-rubystar/scripts/perl/send-spum]$ cat sends.pl
#!/usr/bin/perl
# Определяем пути к файлам...
$mailprogram="/usr/sbin/sendmail";
$userlistfile="./userlist";
$phrasesfile="./phrases";
$themesfile="./themes";
$sendersfile="./senders";
open (USERLIST, "$userlistfile");
user = <USERLIST>;
close (USERLIST);
open (THEMES, "$themesfile");
themes = <THEMES>;
close (THEMES);
open (SENDERS, "$sendersfile");
senders = <SENDERS>;
close (SENDERS);
$/ = "|";
open (PHRASES, "$phrasesfile");
phrases = <PHRASES>;
close (PHRASES);
<... И т.д. ...>
for ($i=0; $i<=$#user; $i++) {
$message_id = int(rand($#phrases))+1;
$sender_id = int(rand($#senders))+1;
$theme_id = int(rand($#themes))+1;
open (MAIL, "|$mailprogram");
print MAIL "To: $user[$i]\n";
print MAIL "From: $senders[$sender_id]\n";
print MAIL "Subject: $themes[$theme_id]\n\n";
print MAIL "$phrases[$message_id]\n";
close (MAIL);
}