🚀 go-pugleaf

MaRc <marc@gmails.com> pisze:
> witam
> mam w perlu taki fragment kodu:
>
> use Mail::Sender;
> my $sender = new Mail::Sender;
> my @odbiorcy= qw(marcin@gmail.com);
>
>
> my $mailTresc = "";
>
> foreach my $odb (@odbiorcy) {
> if ($sender->MailMsg({
>    smtp => 'smtp.gmail.com',
>    from => 'albundy@gmail.com',
>    to =>$odb,
>    subject => "Status urzadzen $czas",
>    msg => $mailTresc,
>    auth => 'LOGIN',
>    authid => 'albundy@gmail.com',
>    authpwd => 'albundypassword',
>  }) < 0) {
>   die "$Mail::Sender::Error\n";
>  }
>  print "Mail to $odb sent OK.\n"
> }
>
> w zaleznosci od statusu urzadzen ilosc znakow w zmiennej $mailTresc
> jest rozna.
> mail jest wysylany jak jest nie wiele znakow, ale jesli pojawi sie
> wieksza ilosc tekstu to niestety mail nie zostaje wyslany :( mam time
> outa
>
> czy to jest moze wina modulu Mail::Sender ??
> ewentualnie jak zaradzic temu "zjawisku"?

Ustaw debug na zapis do pliku a potem go obejrzyj:
http://search.cpan.org/~jenda/Mail-Sender-0.8.16/Sender.pm

Obstawiałby jakieś problemy z długością linii w emailu.

P.S.
Po za tym przy wysyłaniu większej ilości emaili w stylu 
"jeden odbiorca = jeden email" ja użyłbym modułu Net::SMTP
i jednej sesji SMTP to wysłania wszystkich taich maili.

-- 
Andrzej Adam Filip : anfi@onet.eu : Andrzej.Filip@gmail.com
Gdy zmienią się trendy muzyczne,
jednocześnie zmianom ulegają fundamentalne prawa państwa.
  -- Platon (427-347 p.n.e.)