Модернизация ПМ - отправка писем нескольким юзерам
Открываем messenger.cgi и идём в
Код:| elsif ($action eq "send") { |
находим строки
Код: # Check to make sure the user exists
&getmember("$intouser");
if ($userregistered eq "no") { &messengererror("$ibtxt{'1120'}&$ibtxt{'1121'}"); } |
и удаляем их нафиг.
спускаемся ниже и перед строками
Код: # Ensure the username has the underscore returned
$memberfilename = $intouser;
$memberfilename =~ s/ /\_/g; |
добавляем вот это
Код: #спам двум, трём и т.д юзверям
$intouser =~ s/\, /\,/gi;
@inpmspam = split(/\,/, $intouser);
foreach $namespam (@inpmspam) {
chomp $namespam;
&getmember("$namespam");
if ($userregistered eq "no") { &messengererror("$ibtxt{'1120'}&$ibtxt{'1121'}"); } |
ниже, строку
Код:| $memberfilename = $intouser; |
меняем на
Код:| $memberfilename = $namespam; |
топаем дальше, после строк
Код: foreach $line (@inboxmessages) {
chomp $line;
print FILE "$line\n";
}
close (FILE); |
прописываем
Код:
на этом и остановимся. Я провел беглый тест, сообщения отправляются замечательно. но! советую провести свои эксперименты %)
----------
Китайцы будут атаковать маленькими мобильными группами по 10 млн. человек в каждой.... |
