At 23:19 24/08/98 -0300, you wrote:
>Ol� pessoal
>
>Fiz um script de lista de e-mail que rodou perfeitamente em teste que
>realizei previamente, 's� que agora que j� tenho 400 usu�rios cadastrados e
>o script est� dando problema, quando envio a mensagem para os usu�rios via
>browser o script d� TIME OUT e nem todos recebem a mensagem...
>O arquivo $listadat � formado de um e-mail em cada linha..
>
>Que fa�o??�� Algu�m me ajudeeeeee..........
>
>############
>open(LISTA,"$listadat");
>@emais=<LISTA>;
>close(LISTA);
>foreach $membros(@emails)
> {
> open (MAIL, "|$mailprog $membros") || die "Impossivel abrir $mailprog!\n";
># corpo de cabe�ario da mensagem .....
> close (MAIL);
> $x++;
> }
Uma dica: eu fiz um programa semelhante utilizando um shell script usando
ISINDEX em vez de um script em Perl. Esse shell script executa o script em
Perl, que vai listando os email que j� foram enviados. Ali�s, outro
detalhe: eu separei os emails por servidor, para agilizar o trabalho do
sendmail. Para ter uma id�ia, uma lista de 1500 emails, que levavam quase 1
hora para serem enviados passaram a ser enviados em quest�o de 20 minutos
(ah, essa etapa o script era executado via linha de comando, n�o browser).
Ah, e mais uma: toda vez que mudava o servidor de destino, eu fazia o
script parar por um segundo. Dessa forma evitava congestionamento no
sendmail tamb�m...
[]'s
Charles Roberto Pilger
Webmaster em f�rias!:)
http://www.mrweb.com.br/perl/
�������������
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
�������������
