[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