Ho avuto la necessità di generare degli script per effettuare dei controlli su dei server VMWARE ESX, il problema che l’installazione base dell’ESX non prevede Sendmail per cui il classico comando MAIL (che non e’ neppure presente) non funziona.
Girando in rete ho trovato questo bellissimo script:
#!/usr/bin/perl
use Net::SMTP;
my $smtp = Net::SMTP->new(‘ indirizzo ip del server smtp
$smtp->mail(‘srvtest@xxxx.xx’);
$smtp->to(‘sistemisti@xxxxxxx.xx’);
$smtp->data();
$smtp->datasend(“From:Server n” .
“To: Sistemistin” .
“Subject: backup falliton”
);
open(MAILFILE, ‘mail.txt’);
$smtp->datasend(
close(MAILFILE);
$smtp->dataend();
$smtp->quit();
Dove in mail.txt è un file di testo con il testo della mail
Ovviamente sul server deve essere installato il perl (nei server esx è di default)