Semplice subfunction in Perl per inviare mail
Alla fine, durante le varie ricerche sul portale cpan sono riuscito a trovare una libreria Perl che mi permetta di inviare, in modo semplice, delle mail.
Quella in oggetto è la Mail::Sender che mi ha permesso l’implementazione di una veloce subroutine l’invio
<br />sub sendEmail<br />{<br />&nbsp;&nbsp;&nbsp; my ($to_orig, $from_orig, $subject_orig, $body_orig) = @_;<br />&nbsp;&nbsp;&nbsp; my $new_subject = '[CHECKING] '.$subject_orig;<br /># &nbsp;&nbsp;&nbsp; syslog('info', 'CAMPO TO '.$to_orig, time);<br /># &nbsp;&nbsp;&nbsp; syslog('info', 'CAMPO FROM '.$from_orig, time);<br /># &nbsp;&nbsp;&nbsp; syslog('info', 'CAMPO SUBJECT&nbsp; '.$subject_orig, time);<br />&nbsp;&nbsp;&nbsp; my $sender = new Mail::Sender({ smtp =&gt; 'IP o nome del mailserver', from =&gt; $from_orig });<br />&nbsp;&nbsp;&nbsp; $sender-&gt;OpenMultipart({ to =&gt; $to_orig, subject =&gt; $new_subject,});<br />&nbsp;&nbsp;&nbsp; $sender-&gt;Body;<br />&nbsp;&nbsp;&nbsp; $sender-&gt;SendLine( $body_orig );<br />&nbsp;&nbsp;&nbsp; $sender-&gt;Close;<br />}<br />
Ovviamente non bisogna dimenticare la dichiarazione
<br />use Mail::Sender;<br />
Per la sua installazione su sistemi Debian ho utilizzato la utility dh-make-perl, al seguente modo:
<br />dh-make-perl -build -cpan Mail::Sender<br />
Come sempre, dei feedback sono sempre graditi.
Technorati Tags: perl, dh-make-perl, Mail::Sender

Related posts:
- Debian e CPAN: come installare pacchetti PERL usando dpkg
- Spedire una mail con un allegato testo via shell Linux
- Too many open files
Articoli correlati elaborati dal plugin Yet Another Related Posts.
Popularity: unranked [?]








Patrick Michaud ha confermato sul suo 


