O suporte do servidor disse para eu mudar a permissão para executavel, mas não sei como se faz isso. Será que isso tem alguma relação?
O que será q está faltando?

Posted 07/01/2005, 18:18
Posted 07/01/2005, 18:46
Posted 08/01/2005, 12:12
Posted 08/01/2005, 16:23
Posted 08/01/2005, 22:03
Posted 08/01/2005, 22:55
Posted 09/01/2005, 12:33
#!/usr/bin/perl
#################
# EDITE SO AS VARIAVEIS ABAIXO
#################
$sendmail = "/usr/sbin/sendmail -i -t"; #path do sendmail
$seuemail = "hbarone\@terra.com.br"; # ponha seu email aqui com uma \ antes do @
$titulo = "Contato"; # titulo do e-mail
#################
# Não mecha daqui para baixo
#################
use CGI;
$cgi = new CGI;
$nome = $cgi->param("nome");
$mail = $cgi->param("mail");
$msg = $cgi->param("msg");
$assunto = $cgi->param("assunto");
open(MAIL, "|$sendmail");
print MAIL "From: $mail\n";
print MAIL "To: $seuemail\n";
print MAIL "Subject: $titulo\n\n";
print MAIL "Nome: $nome\n";
print MAIL "E-mail: $mail\n";
print MAIL "Assunto: $assunto\n";
print MAIL "Mensagem: $msg\n";
close(MAIL);
print "Content-type: text/html\n\n";
print "E-mail enviado com sucesso!<br>Obrigado pelo contato! $!";
Posted 09/01/2005, 12:50
Posted 09/01/2005, 16:15
Posted 09/01/2005, 18:19
Posted 09/01/2005, 19:15
Posted 10/01/2005, 11:23
Posted 11/01/2005, 17:05
Posted 11/01/2005, 19:13
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)