Remover caixas postais do Cyrus IMAP
Publicado por Fabio Soares Schmidt (última atualização em 19/03/2013)
[ Hits: 3.873 ]
Homepage: respirandolinux.wordpress.com
Script em Perl para remover caixas postais do Cyrus IMAP, utilizando um laço for é útil para remover caixas em lote.
#!/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"; } }
Validando lista de e-mail no MX
Apagar spam na fila do postfix por palavra
Notificador de Gmail no Conky.
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Mikrotik não abre o webmail-segur... da Locaweb (11)
Olha que maravilha, Arch no C2D 7400, 2GB de RAM, vídeo onboard e no G... (3)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (1)