Tweet
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