Expunge-imap.pl

expunge-imap.pl es un programita para limpiar los correos marcados como borrado en un servidor imap.

Su primer argumento es el nombre de usuario (correo), segundo el password, tercero el host (opcional, por defecto localhost).

#!/usr/bin/perl
       use Mail::IMAPClient;

       # returns an unconnected Mail::IMAPClient object:
       my $imap = Mail::IMAPClient->new;

       my $id = $ARGV[0];
       my $pass = $ARGV[1];
       my $host = $ARGV[2];
       if ($host=="") {$host="localhost";}

       $imap = Mail::IMAPClient->new(
                       Server => $host,
                       User    => $id,
                       Password=> $pass,
                       Clear   => 5,   # Unnecessary since '5' is the default
       #               ...             # Other key=>value pairs go here
       )       or die "Cannot connect to $host as $id: $@";

       print "Los folders son: ",join(", ",$imap->folders),".\n";
       foreach $folder ($imap->folders )
       {
               print "Limpiando: ",$folder," ";
               $imap->select($folder) or die "Could not select: $@\n";
               $imap->expunge() or print "Problema: $@ "; # or die "Problema limpiando $folder";
               print "OK\n";
       }