PiumaLab

Idee, esperimenti, tentativi e molto altro

perl Net-IMAP-SimpleX-SSL module

La libreria Net::IMAP::SimpleX e` un estensione perl per la gesione di account IMAP. In particolare la SimpleX estende la Net::IMAP::Simple derivandone tutti i metodi e aggiungendone altri molto utili come:

  • body_summary: Ritorna un oggetto che mappa il body di una email
  • fetch: Ritorna varie parti del messaggio a secondo del filtro impostato
  • uidfetch: Simile a fetch solo che l'interrogazione avviene tramite uid al posto del numero del messaggio

La libreria Net::IMAP::SimpleX::SSL aggiunge il supporto SSL alla libreria Net::IMAP::SimpleX. Supporta le connessioni SSL e STARTTLS. Rispetto alla base cambia il costruttore che riceve le opzioni per ssl.

Vediamo un esempio:

my $imap = Net::IMAP::SimpleX::SSL->new(
$server,
use_ssl => 1,
port => 993,
# debug => 1,
ssl_options => [
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
verify_hostname => 0,
SSL_ca_file => "certs/my-ca.pem",
]) || die "Error: Unable to connect to IMAP server $imap : $Net::IMAP::Simple::errstr";

if (!$imap->login($user, $pass)) {
print "Error: IMAP Authentication failed";
print $imap->errstr;
}

$imap->select("INBOX");

($ret, $MessageId) = $imap->fetch($msg_number => "BODY[HEADER.FIELDS (MESSAGE-ID)]");
$MessageId = $MessageId->{"BODY[HEADER.FIELDS (MESSAGE-ID)]"};

Installazione

L'installazione e` molto semplice se si utilizza una delle ultime versioni di cpanm, perché ha già il supporto per installare i moduli perl da github:

# cpanm git://github.com/mazzetta/Net-IMAP-SimpleX-SSL.git

Per maggiori dettagli visitare Net-IMAP-SimpleX-SSL

Leave a Reply

Your email address will not be published. Required fields are marked *