Newsgroup: it.comp.os.linux.iniziare
Titolo: Eliminare su server pop la posta di un utente indesiderato

 
# THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
APPLICABLE LAW.
    my ($hostname, $line, $passwd, $pop, $username, $nlines);
    $hostname = "
pop.tiscali.it
";   # server
    $username = "miousername\@
tiscali.it
"; # username
    $passwd = "miapassword";           # password
    $nlines = "0";                  # numero di righe del *corpo* scaricate
    use Net::Telnet ();
    $pop = new Net::Telnet (Telnetmode => 0);
    $pop->open(Host => $hostname,
               Port => 110);
    ## Read connection message.
    $line = $pop->getline;
    die $line unless $line =~ /^\+OK/;
    ## Send user name.
    $pop->print("user $username");
    $line = $pop->getline;
    die $line unless $line =~ /^\+OK/;
    ## Send password.
    $pop->print("pass $passwd");
    $line = $pop->getline;
    die $line unless $line =~ /^\+OK/;
    ## Request status of messages.
    $nmessages = 0;
    $pop->print("list");
    $line = $pop->getline;
    die $line unless $line =~ /^\+OK/;
    while ( $line ne  ".\n" ) {
     $line = $pop->getline;
        if ( $line =~ /[0-9]\ [0-9]*\n/ ) {
      #print $line;
                $nmessages++;
        }
    } 
    print "Ci sono $nmessages nuovi messaggi\n\n";
 
    ## Exit if there are not new messages 
    if ( $nmessages == 0 ) { exit; }
    ## Scan messages
    $ndeleted = 0;
    my @messages = (1..$nmessages);    
    for $n (@messages) {
     $pop->print("top $n  $nlines");
     $line = $pop->getline;
     while ( $line ne ".\n" ) {
         $line = $pop->getline;
         print "1: $line";
     }
     print "Cancello il messaggio numero $n [sN]? ";
     my $answer = <STDIN>;
     if ( $answer =~ /[yYsS]/ ) {
      $pop->print("dele $n");
         $line = $pop->getline;
                die $line unless $line =~ /^\+OK/;
                print "Messaggio numero $n cancellato!\n";
                $ndeleted++;
     }
        print "\n";
    }
 
    print "Ho cancellato $ndeleted messaggi. Esco\n";
    $pop->print("quit");
    exit;
-------
il punto č che non so come modificarlo, quindi avrei bisogno di una mano...
So che per far ciň che desidero sarebbe piů facile usare il server imap del
provider, ma purtroppoo... tiscali sembra non supportrlo, e non possiamo
cambiare indirizzo e-mail e provider, perchč altrimenti i clienti
dovrebbero cambiarlo a loro volta. In ogni caso che ISP supportano imap?
Libero? ed altri come virgilio?
Spero che possiate aiutarmi, e mi scuso per il tempo fattovi perdere.
Ciao e grazie anticipatamente
-- 
Marco Siviero
Usin' Slackware Linux 10.1 (2.6.10 kernel) on a Compaq Presario 2175EU
notebook (AMD Athlon XP-M 2800+ CPU)
Linux proud user #373650
http://web.tiscali.it/darker1985webspace/index.html

 cancellarle, per non doverle scaricare.
Perche' non provi ad installare mailfilter? In dieci minuti sistemi 
tutto .... Vedi google .... Sul sito di mailfilter c'e' un'ottima
spiegazione; e' molto semplice e funziona benissimo ....
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 spiegazione; e' molto semplice e funziona benissimo ....
Ora lo guardo...
Grazie


 allegate 10-20 foto ad alta risoluzione a colori e ci metto secoli a
]zac[
kmail con i filtri pop attivati consente di scaricare il soli header dei
messaggi e di selezionare quali eliminare sul server, quali lasciare sul
server, quali scaricare.
Esiste anche una patch che permette di fare il match dei filtri anche sulla
parte inziale del corpo del messaggio (per es. si può filtrare sul nome del
file allegato).

 Ora lo guardo...
Era ciò che mi serviva l'ideale, un sistema calibrato per ciò che devo fare
io.
Grazie ancora.


Usare imap?

 Usare imap?
Tiscali non lo supporta, e cambiare indirizzo e-mail sarebbe uno sbattimento
per i clienti che dovrebbero aggiornare l'indirizzo... In ogni caso ho
risolto con mailfilter.
Grazie in ogni caso!
