Potreste aiutarmi a configuarare questo autoresponder per favore?
Di perl non ho mai scriptato niente, in asp qualcosa si.
L'ho provato a configurare e uploadato nel mio sito ma non funziona.
Questo script tutorial è stato preso da webmasterpoint.org.
Codice PHP:
<%@language=perlscript%>
<%
use Net::POP3;
use Net::SMTP;
$srv = Net::POP3->new('mail.PerlScripters.com');
$get = $srv->login('admin', 'password');
$msg = $srv->list();
foreach $m (keys %$msg) {
$read = $srv->top($m, 3);
for(@$read) {
if($_=~/From:/) {
local (@d) = split(/ /, $_);
@a[$m]=$d[1];
}
}
}
$srv->quit();
for($b=1; $b<=$#a; $b++) {
$smtp = Net::SMTP->new('mail.PerlScripters.com');
$smtp->mail( 'autoresponder@PerlScripters.com' );
my $c = ($a[$b]);
$smtp->to($c);
$smtp->data();
$smtp->datasend("Subject: Automated Response\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("From: autoresponder\@PerlScripters.com\n");
$smtp->datasend("Your mail has been received");
$smtp->dataend();
undef $c;
$smtp->quit;
}
%>
Per funzionare il mio server deve essere abilitato a qualcosa oltre che all'asp?
In teoria, quando uno manda un'email dovrebbe arrivare il messaggio "Your mail has been received", giusto?