Diferencia entre revisiones de «Expunge-imap.pl»
De FJWiki
| Línea 2: | Línea 2: | ||
Su primer argumento es el nombre de usuario (correo), segundo el password, tercero el host (opcional, por defecto localhost). | Su primer argumento es el nombre de usuario (correo), segundo el password, tercero el host (opcional, por defecto localhost). | ||
| − | + | <source lang="perl"> | |
#!/usr/bin/perl | #!/usr/bin/perl | ||
use Mail::IMAPClient; | use Mail::IMAPClient; | ||
| Línea 30: | Línea 30: | ||
print "OK\n"; | print "OK\n"; | ||
} | } | ||
| + | </source> | ||
[[Category:Perl_Scripts]] | [[Category:Perl_Scripts]] | ||
Revisión actual del 21:13 6 sep 2008
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";
}
