CGI/Perl

[doidoht]

Galera... copiei o código de se enviar e-mail CGI-Clube.

programamail = "/usr/sbin/sendmail"; #programa que sera utilizado para enviar email.
$email = 'jfsso\@nospam.cgiclube.net'; # email de quem ira receber.
$seumail = 'CGiClube.NET <info\@nospam.cgiclube.net>';
$assunto = "[CGiClube.NET]";
open(MAIL,"| $programaemail -t"); #abre o programa para enviar email
print MAIL "To: $email\n"; #cabecalio
print MAIL "From: $webmaster\n"; #cabecalio
print MAIL "Subject: $assunto\n\n"; #cabecalio
print MAIL "Conteudo"; #conteudo
close(MAIL); #fecha o programa


Fiz no conectiva 8. Se pesso pra executar com o comando ./email.cgi dá permission denied... e olha que atribui a permissão 777 .... e qdo executo no windows chamando o arquivo do conectiva 8 via browser, ele não executa, apenas imprime o código no navegador... o que será que tá acontecendo!?

[]´s

[The-shadow]

Bem, primeiro deve ser porque o apache (suponho que vc está usar o apache como webserver) n tem o mod_perl instalado.. depois ele tem de tar na directoria /cgi-bin/ para que o apache os identifique como executáveis..
chmod 755 script.pl + chmod 755 cgi-bin
deve funcionar

Cumps.

[1c3m4n]

Se vc quer rodar um cgi no apache fora do diretorio cgi-bin padrao vc tem q fazer:

# To use CGI scripts outside of ScriptAliased directories:
# (You will also need to add "ExecCGI" to the "Options" directive.)