Mail::Sendmail mi da sempre degli errori, al fine di evitare che si
possano vedere pezzi di programma in rete, attivo il comando exit ad
ogni errore.
Qualcuno ha esperienza d'uso di questo modulo? Ho l'impressione che mi
sfugga qualcosa.
il link è
http://search.cpan.org/~mivkovic/Mail-Sendmail-0.79/Sendmail.pm
Ho inserito la chiamata al modulo in una mia libreria.pm nel modo
seguente:
use Mail::Sendmail;
# ------------------- inizio sub invia_email
------------------------------
# parametri in entrata:
# indirizzo email mittente
# indirizzo email ricevente
# oggetto
# messaggio
sub invia_email {
my $da = shift;
my $a = shift;
my $ogg = shift;
my $msg = shift;
my %mail = ( To=>$a, From=>$da, Subject=>$ogg, Message=>$msg );
$mail{Smtp} = 'mail.server.xxx';
sendmail(%mail) or exit errore('Errore invio emai','La connessione al
server di posta elettronica non funziona');
}
# ------------------- fine sub invia_email
--------------------------------
Sembra tutto regolare ma non funziona.
Saluti
Dopo aver provato vari moduli, tra cui Mail::Sender e Mail::Sendmail, su
win32 mi sono trovato bene con Email::Send . Lo trovi con PPM e ...
almeno a me va ;)
Grazie della segnalazione, lo installo subito.
Peccato per Mail::Mailer funziona molto bene sotto Unix/Linux.