[FUGSPBR] SendMail e Perl
Alexandre Fernandes
alexandre em af.eti.br
Qua Out 31 16:00:14 BRST 2001
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.
Mais detalhes sobre a lista de discussão freebsd