Remover caixas postais do Cyrus IMAP
Publicado por Fabio Soares Schmidt (última atualização em 19/03/2013)
[ Hits: 3.964 ]
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"; } }
Apagar spam na fila do postfix por palavra
Validando lista de e-mail no MX
Nenhum comentário foi encontrado.
Desktop Linux ganha fôlego enquanto distros refinam experiência e segurança
Wayland em alta, IA em debate e novos ventos para distros e devices
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie