Invio email con script perl "use Net::SMTP"

[giosax81]

ciao a tutti.

mi sono subito iscritto perchè ho visto che c'è un bel po di gente che si intende di script cgi!!

ho bisogno di un suggerimento.. ho l'esigenza di inviare delle mail automatiche dal mio web server, e prima di imattermi in cose piu complesse, ho voluto creare, a titolo di prova un piccolissimo script che mi generasse una mail e la inviasse ad un indirizzo di posta.. vi riporto il codice che ho creato:

use Net::SMTP;
$smtp=Net::SMTP->new("out.alice.it") or die($!); #è l'smtp della mia linea adsl (alice)
$smtp->mail($ENV{USER});
$smtp->to("mio_indirizzo@dominio.it");

$smtp->data();
$smtp->datasend("mesaggio di prova");
$smtp->dataend();
$smtp->quit();

questa è la parte relativo alla creazione della mail.
quando faccio partire il codice non ci sono errori e la procedura va a buon fine.. ma la mail non arriva..

avete qualche suggerimento? o uno script alternativo.
Vi ringrazio tutti

[giosax81]

aggiungo che il mio web server (xitami) gira sotto windowsXP...
thx

[giosax81]

RAGAZZI....

non c'è proprio nessuno che possa aiutarmi?

[Graziano]

Io ho problemi con uno script simile.
Da quanto ho capito mi manda le email se il destinatario appartiene al dominio in cui gira il seever smtp.
Esempio, se sul mio server locale ho un dominio es. prova.com, impostando il server smtp mail.prova.com, mi invia le email solo se il destinatario è membro di prova.com es. graziano@prova.com.
Non capisco il perchè.

[giosax81]

secondo cio che tu dici, impostando come:
1) server smtp: out.alice.it
2) e come mail del destinatario: xxxx@alice.it

doverei riuscire almeno ad inviare la mia mail all'indirizzo xxx@alice.it... ma cio non accade!

COME MAI?!

[Graziano]

Guarda ho problemi anche io.
Sto cercando di utlizzare lo stesso tuo script per inviare email perchè il vecchio sendmail che usavo non è più installato sul server (misteri del qmail).
Lo script che ho utilizzato mi restituisce lìok ma eppure a destinazione non arriva niente.
Non capisco il perchè.

Net::SMTP>>> Net::SMTP(2.29)
Net::SMTP>>> Net::Cmd(2.26)
Net::SMTP>>> Exporter(5.58)
Net::SMTP>>> IO::Socket::INET(1.31)
Net::SMTP>>> IO::Socket(1.30)
Net::SMTP>>> IO::Handle(1.27)
Net::SMTP=GLOB(0x82dcfc0)<<< 220 **.*****.it ESMTP
Net::SMTP=GLOB(0x82dcfc0)>>> EHLO *****.com
Net::SMTP=GLOB(0x82dcfc0)<<< 250-**.*****.it
Net::SMTP=GLOB(0x82dcfc0)<<< 250-STARTTLS
Net::SMTP=GLOB(0x82dcfc0)<<< 250-PIPELINING
Net::SMTP=GLOB(0x82dcfc0)<<< 250-8BITMIME
Net::SMTP=GLOB(0x82dcfc0)<<< 250-SIZE 0
Net::SMTP=GLOB(0x82dcfc0)<<< 250 AUTH LOGIN PLAIN CRAM-MD5
Net::SMTP=GLOB(0x82dcfc0)>>> MAIL FROM:<******@hotmail.com>
Net::SMTP=GLOB(0x82dcfc0)<<< 250 ok
Net::SMTP=GLOB(0x82dcfc0)>>> RCPT TO:<*******@hotmail.com>
Net::SMTP=GLOB(0x82dcfc0)<<< 250 ok
Net::SMTP=GLOB(0x82dcfc0)>>> DATA
Net::SMTP=GLOB(0x82dcfc0)<<< 354 go ahead
Net::SMTP=GLOB(0x82dcfc0)>>> To: *******@hotmail.com
Net::SMTP=GLOB(0x82dcfc0)>>> From: test <******@hotmail.com>
Net::SMTP=GLOB(0x82dcfc0)>>> test
Net::SMTP=GLOB(0x82dcfc0)>>>
Net::SMTP=GLOB(0x82dcfc0)>>>
Net::SMTP=GLOB(0x82dcfc0)>>> prova12345
Net::SMTP=GLOB(0x82dcfc0)>>> .
Net::SMTP=GLOB(0x82dcfc0)<<< 250 ok 1165620157 qp 32157
Net::SMTP=GLOB(0x82dcfc0)>>> QUIT
Net::SMTP=GLOB(0x82dcfc0)<<< 221 ***.******.it

[giosax81]

scusami ma sendmail non gira solo sotto linux? mi pare che in ambiante windows non ci sia possibilità... fammi sapere! io nel frattempo provo il tuo codice...

[Graziano]

Si ti confermo, infatti il server che uso è linux.
E di solito ho sempre usato sendmail per inviare la posta nei miei script cgi.
Purtroppo su questo nuovo server il sendmail non funziona, mi è stato detto per problemi di compatibilità con qmail.
Ad ogni modo io ora ho fatto delle prove ed ora il net:smtp mi funziona.
Lo puoi testare tu stesso con la funzione "invia cartolina" del mio sito

il codice che ho usato è questo: con localhost come serversmtp

$smtp = Net::SMTP->new("$serverSMTP", Timeout => 50);
$smtp->mail("$mittemail");
$smtp->to("$destemail");
$smtp->data();
$smtp->datasend("Subject: Ciao, ti invio una cartolina virtuale.\n");
$smtp->datasend("To: $destnome <$destemail>\n");
$smtp->datasend("From: $mittnome <$mittemail>\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;

[shishii]

E' bene precisare quanto segue.

Il fatto che su un server linux sendmail sia stato sostituito con qmail non rappresenta un problema, infatti per assicurare la compatibilità con gli script già installati è sufficiente creare un link simbolico "sendmail" che punti a "qmail", ad esempio:

# ln -s /usr/sbin/qmail /usr/sbin/sendmail

Secondo. In genere il metodo di invio RAW di email usando direttamente il protocollo SMTP tramite script non funziona dai server, poichè alice e tutti gli altri provider NON accettano connessioni SMTP da IP che non appartengono a client collegati tramite contratti forniti da loro, quindi si può usare alice (telecom) solo da computer che sono collegati ad internet tramite il provider telecom, ed il server (da cui parte la richiesta) nono lo è.

[Graziano]

Ciao Shishii, ma nel suo esempio lui usa out.virgilio.it sul suo server locale.
Che quel server non utilizzi la connessione alice?
Dovrebbe andargli.