Re: группа "pattern"

От: Sadmin <CGatePro_at_mx_ru>
Дата: Mon 16 May 2005 - 15:16:26 MSD

Hello aleksandr,

Monday, May 16, 2005, 9:44:15 AM, you wrote:

a> Добрый день! Подскажите пожалуйста, как добавить уже имеющиеся
a> "Accounts"(300 человек) во вновь созданную  группу "pattern" для облегчения
a> их администрирования и для рассылок сообщений пользователям только
a> определенных групп? Спасибо большое заранее за помощь.


a>                                                     Александр.

Можно, но только через CLI насколько я знаю: #!/usr/bin/perl -w

use CLI;
$CGServerAddress = "127.0.0.1";

my $Login = "postmaster\@yourdomain.ru";

print "Password: ";
my $Password = <STDIN>;
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('yourdomain.ru')|| die "Error: ".$cli->getErrMessage.", quitting&quot;;

foreach(keys %$AccountList) {

               print $_."\n";
               $ACC = $_;
               setgroup($ACC);
                            }

sub setgroup {
        my $acc = shift;
        $Settings=$cli->GetGroup('pattern') ||  die "Error: ".$cli->getErrMessage.", quitting";
        my $Members=@$Settings{'Members'};
        push(@$Members,$acc);
        $cli->SetGroup('pattern',$Settings) ||  die "Error: ".$cli->getErrMessage.", quitting";

};

-- 
ink2">Best regards,
 Sadmin                            mailto:f_tmp@inbox.ru

Получено Mon May 16 11:16:32 2005