FJRA en 21:13 6 sep 2008

2008-09-06T21:13:33Z

FJRA en 15:48 23 abr 2008

2008-04-23T15:48:17Z

Página nueva

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";
}

[[Category:Perl_Scripts]]

@@ 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).
+<source lang="perl">
   #!/usr/bin/perl
          use Mail::IMAPClient;
@@ Línea 30: / Línea 30: @@
                  print "OK\n";
+         }
 [[Category:Perl_Scripts]]

Expunge-imap.pl - Historial de revisiones

FJRA en 21:13 6 sep 2008

FJRA en 15:48 23 abr 2008