Re: filtrar spam

[Ernest Adrogué <eadrogue@gmx.net>]

On Thu, Sep 25, 2003 at 01:37:16AM +0200, Orestes Mas wrote:
> 
> El problema és que jo no sé gens de perl i no he pogut modificar l'escript 
> (només he pogut introduir noves cadenes a cercar), i els últims 10 missatges 
> els he hagut d'esborrar a mà

Tampoc en sé gens de perl, però amb una mica d'imaginació he
vist que comentant unes línies...

                if ($nonstop) {
                    push @deleted, $msgnum;
                } else {
                    my $a;
                    do {
#                       print 'Mark message for deletion? ([Y]es, [n]o, [a]bort): ';
#                       $a = <STDIN>
#                   } until $a =~ /^[yna]?$/i;
#                   if ($a =~ /^y?$/i) {
                        push @deleted, $msgnum;
#                   } elsif ($a =~ /^a$/i) {
#                       say "Aborted. No messages were deleted from the server.";
#                       $pop->quit;
#                       exit;
                    }


... esborra TOTS els missatges més grans de 140K (aprox).
Ara va perfecte, i a més no demana confirmació ni res. Com
a contrapartida t'has d'arriscar a esborrar algun missatge
bo. Però quants en reps d'aquesta mida? Un a l'any? Dos?


-- 
Ernest Adrogué
eadrogue(at)gmx.net