[Tech] eliminare messaggi con fetchmail

[Gian]

francis3 wrote:
> 
> facci vedere lo scrippettino!

Dato che siamo su [Tech] dove so con assoluta certezza che tutti amano
il buon Perl, vi lascio qualcosa che fa solo una parte e solo per il
protocollo pop3.

PS: se fetchmail fa bocchini (come temo), scrivo qualcosa da richiamare
con procmail, magari post analisi di spamassassin in modo da eliminare
anche i messaggi troppo spammosi e poi ve lo giro a puntate ;).
Meglio sarebbe qualcosaCheGiaEsiste, così non perdo tempo a fare il
coder (che non mi si addice proprio!) ;))


#!/usr/bin/perl -w
#
use Net::POP3;

# configurazione:

$host = 'nomeserver';
$user = 'mioutente';
$pass = 'miapassword';

# fine configurazione.

$pop = Net::POP3->new($host) || die "connessione a $host fallita\n";
$pop->login($user,$pass) || die "autenticazione fallita\n";
$msgnums = $pop->list;

foreach $msgnum (keys %$msgnums){
    $msg = $pop->get($msgnum);
    @data = grep {/^Date/} @$msg;
    print "$msgnum - $data[0]";
}

$pop->quit;

# fine script.


-- 

Gian

member of  A.G.O.W. #C10771
   and orgoglione to be!

-------------- parte successiva --------------
Un allegato non testuale è stato rimosso....
Nome:        signature.asc
Tipo:        application/pgp-signature
Dimensione:  189 bytes
Descrizione: OpenPGP digital signature
URL:         <http://lists.linux.it/pipermail/flug-tech/attachments/20070820/6d56aa84/attachment.pgp>