Remover caixas postais do Cyrus IMAP
Publicado por Fabio Soares Schmidt (última atualização em 19/03/2013)
[ Hits: 3.587 ]
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
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
iso de sistema 32 bit em atividade (3)
Lançado Ubuntu 24.04 Final (0)
ASRock H310CM-HG4 vs Linux (11)