Просмотр сообщений

1

Perl / организация рассылки

« : 29 Июня 2010, 00:09:40 »

класть куда в базу мскула?

4

Perl / организация рассылки

« : 28 Июня 2010, 12:59:58 »

да, сервер выполняет и другие задачи, хотя планируеться рассылка ночью, когда основной нагрузки нету.

по поводу миллиона писем неизвесно, не пробовал

может добавлять не все сразу а порциями как то?

5

т.к. письма отправлять все сразу для сервера нагрузка, надо раз в 10 мин кроном скрипт запускать и порциями по 500 шт отправлять.
вопрос в том куда эти письма и как складывать до отправки?
1. в мускул всовывать по каждому письму (мыло - тело)
2. сохранять в тхт файл (1я строчка мыло, остальное тело).

и все же, чем лучше отправлять?
sendmail, Net::SMTP, Mime::Lite, и т.д.

6

Perl / отправка почты

« : 05 Марта 2010, 16:19:22 »

APL

Код: [Выделить]


$mail="Само письмо
.
(никаких проблем с точками у меня никогда не было)";
open MAIL, \'|/usr/sbin/sendmail -t\' || die \'error sending message\';
	print MAIL "From: from\\@mail.ru\\n";
	print MAIL "To: to\\@mail.ru\\n";
	print MAIL "Content-Type: text\\/plain\\n";
	print MAIL "Subject: Тема письма\\n\\n";
	print MAIL "$mail"; 
close MAIL;
print "будут";

пробуй

7

Perl / отправка почты

« : 03 Марта 2010, 15:09:06 »

Цитировать

arto:
s#^\\.$#..#gm

действительно, не подумал.
но все же, это единственный способ?

8

Perl / отправка почты

« : 03 Марта 2010, 13:38:55 »

Цитировать

arto:
а чем вам не понравился первый ответ?

сообщение набираю не я, а юзер.
вот юзеру хочеться пиать только 1 точку в строке.
построчно - это так

Код: [Выделить]

foreach (split /\\n/, $text) { print $_; }

9

Perl / отправка почты

« : 03 Марта 2010, 10:40:37 »

по существу будут ответы?
или проверять посторчно на наличие точки?

10

Perl / отправка почты

« : 03 Марта 2010, 10:39:25 »

упусил что не загаживать лишними переменными код.
как окозалось есть те кто это не понял.

11

Perl / отправка почты

« : 02 Марта 2010, 22:00:30 »

Цитировать

arto:
# sendmail -t -f
sendmail: option requires an argument -- f
#

там мыло добавлять надо
sendmail -t -f $mymail

12

Perl / отправка почты

« : 01 Марта 2010, 11:10:36 »

если отправлять почту стандартным способом

Код: [Выделить]

 
 open (MAIL, "|/usr/sbin/sendmail -t -f");
 print MAIL "$text";

при этом если юзер вводит сообщение где в строке только 1 точка

Цитировать

Здрасте
.
перезвоните

я понимаю что это бредово выглядит, но все же.
по почте доходит только

Цитировать

Здрасте
.

как это исправить?

13

Perl / ssl + xml

« : 05 Ноября 2009, 17:36:35 »

помогите пожалуйста с примером
надо соединится через https (ssl) при этом посредством xml передать логин и пароль

Код: [Выделить]

$doc = qq[



    
        login
        pass
        
            1.0
            en
        
    
    1234

];

use LWP;
$ua = LWP::UserAgent->new;
$ua -> agent("Bond, James Bond/0.07");
$req = HTTP::Request -> new ( POST => \'https://$host:$port\');
$req -> content_type (\'application/xml\');
$req -> content ($doc);

$response = $ua -> request ($req);
if ($response->is_success) { print $response->decoded_content; }
else { print $response->status_line; }

при таком варианте зависает надолго

14

Perl / переменные в CGI

« : 23 Сентября 2009, 23:19:22 »

если не использовать CGI, то получение переменных у нас выглядит так:

Код: [Выделить]

if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }

и что б получить все что там передали можно воспользоваться print $buffer;

но используя CGI этот немер не проходит.
даже если

Код: [Выделить]


use CGI;
$a1=param(\'a1\');
$a1=param(\'a2\');
$a1=param(\'a3\');
if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }

$buffer = NULL

вообщем для логирования полных запросов надо узнать все что передали скрипту

15

Perl / Помогите с скриптом

« : 21 Сентября 2009, 00:35:02 »

use Net::SMTP - это ставится отдельно

Новости: