[FUGSPBR] SendMail e Perl

[Alexandre Fernandes]

achei o erro, thanks, é que simplifiquei tanto o código que deixei apenas a
parte do sendmail, removendo o retorno html, por isso o apache estava
chiando, agora está ok.... (Além da falta da barra)

----- Original Message -----
From: "Alessandro Nunes" <itsari em terra.com.br>
To: <fugspbr em fugspbr.org>
Sent: Thursday, November 01, 2001 9:31 AM
Subject: Re: [FUGSPBR] SendMail e Perl


Dei uma olhada rapida.
A principio, seu script nao compila:

[nunes em recreio bin]$ perl -cw fbsd_list.pl
In string, @excalibur now must be written as \@excalibur at fbsd_list.pl
line 33, near "From: atendimento em excalibur"
fbsd_list.pl had compilation errors.

Conforme sugerido acima, troque a linha

print MAIL "From: atendimento em excalibur.com.br (Excalibur)\n";

por

print MAIL "From: atendimento\@excalibur.com.br (Excalibur)\n";

Apos a alteracao ficou assim:

[nunes em recreio bin]$ perl -cw fbsd_list.pl
Name "main::error" used only once: possible typo at fbsd_list.pl line 10.
Name "main::results" used only once: possible typo at fbsd_list.pl line 9.
Name "main::scriptname" used only once: possible typo at fbsd_list.pl line
7.
fbsd_list.pl syntax OK

[]'s

-------------------
Alessandro Nunes
itsari em terra.com.br

At 15:00 31/10/2001 -0300, you wrote:
>Pessoal, apesar de não ser exatamente o tópico desta lista, estou
>engatinhando e Perl, e estou tentando fazer o script abaixo funcionar e
>estou recebendo um erro 500, ele recebe os dados de um form via post e deve
>montar e enviar um email.
>
>Será que alguma alma caridosa pode me socorrer ??? :(
>
>#!/usr/local/bin/perl
>
># passo5.pl Copyright Alexandre Fernandes
># Version 0.01
># 31-outubro-2001
>
>$scriptname ="passo5.pl";
>
>$results = "";
>$error = "";
>
># Get the input from form
>read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
>
>#Split the name-value pairs.
>  @pairs=split(/&/,$buffer);
>  #for each name=value pair, seperate them.
>  foreach $pair(@pairs){
>     ($name,$value)=split(/=/,$pair);  #split name=value to name value
>     $value=~tr/+/ /;                  #substitute plus sign with space
sign
>     $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; #decode
>hexdecimal to character
>     $FORM{$name}=$value;
>  }
>
>$mailprog ="/usr/lib/sendmail";
>$sendto = $FORM{'email'};
>$subject = "Excalibur - Assinatura de Hospedagem";
>
>open(MAIL, "|$mailprog -t") || die "Erro na abertura de $mailprog!";
>
>print MAIL "To: $sendto\n";
>print MAIL "From: atendimento em excalibur.com.br (Excalibur)\n";
>print MAIL "Subject: $subject\n\n";
>
>
>print MAIL <<"EOM";
>Prezado(a) $FORM{'responsavel'},
>
>Para seu site ser liberado é preciso efetuar o pagamento da 1º mensalidade
>via depósito bancário. Caso não efetue o pagamento em 5 dias úteis
comunique
>a Excalibur, para que não haja problemas futuros.
>Assim que efetuar o 1º pagamento seus dados serão processados, será enviado
>um novo e-mail com instruções de como acessar sua conta, configurações e
>tudo o que você precisar para utilizar ao máximo os recursos oferecidos no
>seu plano escolhido.
>
>--------------------------------------------------
>Seu pedido:
>--------------------------------------------------
>Plano Escolhido: $FORM{'plano'}
>Transferência de domínio: $FORM{'transferencia'}
>--------------------------------------------------
>
>EOM
>
>
>
>
>----
>Para sair da lista envie um e-mail para majordomo em fugspbr.org
>com as palavras "unsubscribe fugspbr" no corpo da mensagem.

----
Para sair da lista envie um e-mail para majordomo em fugspbr.org
com as palavras "unsubscribe fugspbr" no corpo da mensagem.


----
Para sair da lista envie um e-mail para majordomo em fugspbr.org
com as palavras "unsubscribe fugspbr" no corpo da mensagem.