RE: Spam moving

От: Nazarkin Andrew <CGatePro_at_mx_ru>
Дата: Wed 21 Jun 2006 - 10:25:02 MSD

Я таким пользуюсь:
#!/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";
}

Писал не я :-)

P.S. ВАЖНО!!! После выполнения скрипта все серверные правила у всех слетят, останется только правило SPAM.
Попросил автора дописать скрипт - но ему некогда ((

С уважением
Назаркин Андрей Николаевич
ООО СК "Ренессанс Жизнь"
Начальник управления ИТ
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 10:13 AM
To: CommuniGate Pro Russian Discussions
Subject: [CGP] Spam moving

Коллеги, вот какой вопрос - сейчас я весь спам в корпоративном домене отгребаю в один мэйлбокс. Есть ли скрипт, позволяющий за один проход создать каждому юзеру в домене мэйлбокс Spam и соответственно правило, отправляющее предназначенный для юзера спам в его спамовый мэйлбокс?

##################################################################

Вы получили это сообщение потому, что подписаны на список рассылки   <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/ Получено Wed Jun 21 06:24:58 2006