|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sasha Rudenko 2:468/57.16 16 Jul 2001 17:57:15
To : All
Subject : Как можно ускорить отправку через SMTP
--------------------------------------------------------------------------------
Юзаю Net::SMTP вот кусочек, пускаю с командной строки что бы видно было какое
письмо уходит
/*ДН>/* Здесь начинается mail /*<НД/*
#!perl -w
use Net::SMTP;
open DATA, "email.dat";
@ALL=<DATA>;
close DATA;
open DATA, "data.dat";
@MSG=<DATA>;
close DATA;
print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nProgress:\n";
foreach $key (@ALL){
$smtp = Net::SMTP->new('smtp.host',Hello => 'Hello');
$smtp->mail($ENV{USER});
$smtp->to($key);
$smtp->data();
$smtp->datasend("To: Name <$key>\n");
$smtp->datasend("From: From <mail\@net.com>\n");
$smtp->datasend("Subject: Perl SMTP subs\n");
$smtp->datasend("\n");
foreach $key2 (@MSG){
$smtp->datasend($key2);
}
$smtp->dataend();
$smtp->quit;
print "Send to: $key";
}
print "\n\nDone\n";
/*ДН>/* А здесь, видимо, не начинается mail /*<НД/*
но вот что-то долго отправляет, письма вообще понтовые по 1-2к да и линия до
SMTP 10Mbit/s А отправляет по 3-4 сек письмо :(
можно ли как ускорить этот процес?
ъ ъъъДН» Hу я вроде все сказал... Bye _*All*_ !
ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
... Социализм - это учет. Разворованного.
--- ---
* Origin: raa@em.ks.ua (2:468/57.16)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
