Warning: Illegal string offset 'region' in /home/mhd-01/www.gabcicala.it/htdocs/wp-content/plugins/mygeopositioncom-geotags-geometatags/mygeopositioncom-geotags-geometatags.php on line 386

Warning: Illegal string offset 'placename' in /home/mhd-01/www.gabcicala.it/htdocs/wp-content/plugins/mygeopositioncom-geotags-geometatags/mygeopositioncom-geotags-geometatags.php on line 390

Warning: Illegal string offset 'position' in /home/mhd-01/www.gabcicala.it/htdocs/wp-content/plugins/mygeopositioncom-geotags-geometatags/mygeopositioncom-geotags-geometatags.php on line 394

Semplice subfunction in Perl per inviare mail


Warning: Illegal string offset 'addMap' in /home/mhd-01/www.gabcicala.it/htdocs/wp-content/plugins/mygeopositioncom-geotags-geometatags/mygeopositioncom-geotags-geometatags.php on line 639

Warning: Illegal string offset 'position' in /home/mhd-01/www.gabcicala.it/htdocs/wp-content/plugins/mygeopositioncom-geotags-geometatags/mygeopositioncom-geotags-geometatags.php on line 561

Warning: Illegal string offset 'position' in /home/mhd-01/www.gabcicala.it/htdocs/wp-content/plugins/mygeopositioncom-geotags-geometatags/mygeopositioncom-geotags-geometatags.php on line 603

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

sub sendEmail
{
 my ($to_orig, $from_orig, $subject_orig, $body_orig) = @_;
 my $new_subject = '[CHECKING] '.$subject_orig;
#     syslog('info', 'CAMPO TO '.$to_orig, time);
#     syslog('info', 'CAMPO FROM '.$from_orig, time);
#     syslog('info', 'CAMPO SUBJECT  '.$subject_orig, time);
 my $sender = new Mail::Sender({ smtp => 'IP o nome del mailserver', from => $from_orig });
 $sender->OpenMultipart({ to => $to_orig, subject => $new_subject,});
 $sender->Body;
 $sender->SendLine( $body_orig );
 $sender->Close;
}

Ovviamente non bisogna dimenticare la dichiarazione

use Mail::Sender;

Per la sua installazione su sistemi Debian ho utilizzato la utility dh-make-perl, al seguente modo:

dh-make-perl -build -cpan Mail::Sender;

Come sempre, dei feedback sono sempre graditi.

Technorati Tags: , ,

About the Author: glycerin