RE: Spam moving

С уважением
Назаркин Андрей Николаевич
ООО СК "Ренессанс Жизнь"
Начальник управления ИТ
e-mail: ANazarkin@renlife.ru , su@renlife.com тел. (495) 981-2-981 доб. 8178
моб. тел. +7-903-204-5903

-----Original Message-----
From: CommuniGate Pro Russian Discussions [mailto:CGatePro@mx.ru] Sent: Wednesday, June 21, 2006 11:05 AM
To: CommuniGate Pro Russian Discussions
Subject: Re: [CGP] Spam moving

On Wed, 21 Jun 2006 10:25:02 +0400
"Nazarkin Andrew" <CGatePro@mx.ru> wrote:

> Я таким пользуюсь:
> #!/usr/bin/perl -w
>
> use CLI;
>
>
>
> $CGServerAddress = "X.X.X.X";
>
> my $Login = "postmaster\@domain.com";
>
> print "Password: ";
> my $Password = "1234";
> chomp $Password;
>
> my $cli = new CGP::CLI( { PeerAddr => $CGServerAddress,
> PeerPort => 106,
> login => $Login,
> password => $Password,
> SecureLogin => 0} )
> || die "Can't login to CGPro: ".$CGP::ERR_STRING."\n";
> $AccountList = $cli->ListAccounts('renlife.com')
> || die "Error: ".$cli->getErrMessage.", quitting";
> foreach(keys %$AccountList) {
> print $_."\n";
> $ACC = $_;
> crtspmbox($ACC);
> }
> sub crtspmbox {
> my $acc = shift;
> $cli->CreateMailbox($acc,'SPAM');
> my @Rules =(
> [ 5, 'SPAM',
> [['Header Field', 'is', '*X-Spam-Status: Yes*']],
> [['Store in', "~".$acc."/SPAM"],
> ['Discard']]
> ]
> );
> $cli->SetAccountRules($acc,\@Rules) || die "Error:
> ".$cli->getErrMessage .", quitting";
> }

Недостатки этого скрипта: не проверяет наличие ящика перед созданием, не проверяет наличие правила перед созданием, удаляет существующие правила пользователей. Нужно получить массив правил аккаунта, в него добавить новое, потом записывать.

Все именно так и есть.
Может, кто возьмется подправить? ;-)

--
С уважением, 

Сергей Чумаков
системный администратор ISP Оптима Телеком

##################################################################
Вы получили это сообщение потому, что подписаны на список рассылки
  <CGatePro@mx.ru>.

Чтобы отписаться, отправьте сообщение на адрес <CGatePro-off@mx.ru>
Чтобы переключиться в режим дайджеста - mailto:<CGatePro-digest@mx.ru>
Чтобы переключиться в индексный режим - mailto:<CGatePro-index@mx.ru>
Для административных запросов адрес <CGatePro-request@mx.ru> Архив
списка: http://mx.demos.su/lists/cgp-russian/