Para para você conseguir fazer e rodar este script você precisará dos seguintes materiais: PERL, HTTPD (opcional), servidor SMTP, Net::SMTP, editor de texto.
Mãos a massa.
Iniciando:
Após isto deverá enviar os seguintes dados: servidor SMTP, usuário, autenticação, destinatário, cabeçálio do e-mail e conteúdo.
Um exemplo com o código completo:
Com isto você já pode enviar e-mails para seus visitantes sem precisar do send-mail!
Mãos a massa.
Iniciando:
Código:
use Net::SMTP;
Código:
$smtp = Net::SMTP->new('smtp.cgiclube.net'); # abre conexão com o servidor smtp $smtp->mail("cgiclube"); # usuário $smtp->auth("cgiclube","senha"); # identificação $smtp->to('alguem@cgiclube.net '); # destinatário $smtp->data(); $smtp->datasend("To: alguem@cgiclube.net "); # destinatário $smtp->datasend("From: alguem@cgiclube.net "); # remetente e encerra o cabeçálio $smtp->datasend("email enviado! cgiclube.net"); # conteúdo $smtp->quit; #fecha conexão
Código:
#!/usr/bin/perl use Net::SMTP; $smtp = Net::SMTP->new('smtp.cgiclube.net'); $smtp->mail("cgiclube"); $smtp->auth("cgiclube","senha"); $smtp->to('alguem@cgiclube.net '); $smtp->data(); $smtp->datasend("To: alguem@cgiclube.net "); $smtp->datasend("From: alguem@cgiclube.net "); $smtp->datasend("email enviado! cgiclube.net"); $smtp->quit; print "Content-type: text/html "; print "email enviado"; exit;
Comment