Remover caixas postais do Cyrus IMAP
Publicado por Fabio Soares Schmidt (última atualização em 19/03/2013)
[ Hits: 3.597 ]
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.
Apagar MAILER-DAEMON da fila de email
Nenhum comentário foi encontrado.
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Criando um Pen Drive Bootável no Linux
Não existe o slackbuild do bash no repositório slackbuild? (2)
Como usar o WhatsApp no PC sem precisar escanear o qrcode ou utilizar... (4)
script para criar pacote .rpm (2)