Remover caixas postais do Cyrus IMAP

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

[ Hits: 3.728 ]

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 <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";
    }
}

Scripts recomendados

Apagar spam na fila do postfix por palavra

Envia e-mail com anexo

Retornar somente e-mails válidos

Adicionar conta de e-mail - Postfix com domínios virtuais no MySQL

FetchYahoo 2.8.1


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts