Remover caixas postais do Cyrus IMAP

Publicado por Fabio Soares Schmidt (última atualização em 19/03/2013)

[ Hits: 2.906 ]

Homepage: respirandolinux.wordpress.com

Download remover_caixas.pl




Script em Perl para remover caixas postais do Cyrus IMAP, utilizando um laço for é útil para remover caixas em lote.

  



Esconder código-fonte

#!/usr/bin/perl -w

#Autor: Fabio S. Schmidt <fabio.schmidt@4linux.com.br>
#Script para remover caixas postais do Cyrus Imap

use Cyrus::IMAP::Admin;
#

# PARAMETROS DE CONFIGURACAO
#
my $cyrus_server = $ARGV[2];
my $cyrus_user = "admin";
my $matricula = $ARGV[1];
my $mechanism = "login";

if (!$ARGV[1]) {
    die "Usage: $0 SENHA MAILBOX SERVIDOR\n";
} else {
    $cyrus_pass = "$ARGV[0]";
}

print "Removendo usuario : $matricula. \n";
removeusuario($matricula);
sub removeusuario {
    my ($user, $subfolder) = @_;
    my $cyrus = Cyrus::IMAP::Admin->new($cyrus_server);
    $cyrus->authenticate($mechanism,'imap','',$cyrus_user,'0','10000',$cyrus_pass);
    $cyrus->deletemailbox("user.$matricula");

    if ($cyrus->error) {
        print STDERR "Error: ", $matricula," ", $cyrus->error, "\n";
    } else {
        print "Usuario $matricula foi removido com sucesso.\n";
    }
}

Scripts recomendados

Retorna apenas emails válidos com MX válidos

Validando lista de e-mail no MX

Apagar spam na fila do postfix por palavra

newsletter.pl

Notificador de Gmail no Conky.


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts