Remover caixas postais do Cyrus IMAP

Publicado por Fabio Soares Schmidt (última atualização em 19/03/2013)

[ Hits: 3.162 ]

Homepage: respirandolinux.wordpress.com

Download remover_caixas.pl




Script em Perl para remover caixas postais do Cyrus IMAP, utilizando um laço for é útil para remover caixas em lote.

  



Esconder código-fonte

#!/usr/bin/perl -w

#Autor: Fabio S. Schmidt <[email protected]>
#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";
    }
}

Scripts recomendados

Envia e-mail com anexo

FetchYahoo 2.8.1

Retornar somente e-mails válidos

Notificador de Gmail no Conky.

Apagar MAILER-DAEMON da fila de email


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts