Remover caixas postais do Cyrus IMAP
Publicado por Fabio Soares Schmidt (última atualização em 19/03/2013)
[ Hits: 3.917 ]
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"; } }
Notificador de Gmail no Conky.
Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL
Retornar somente e-mails válidos
Apagar spam na fila do postfix por palavra
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
ETH1:2 não responde ao meu IP da rede (1)
Google Crhome não abre desde que eu atualizei pelo "program... (14)
como instalar todas as dependencias, para jogar no bottles o jogo mu d... (1)