Re: Re: Distributed Domains

on 25.7.05 5:48 PM, Mihail Zlatopolsky at CGatePro@mx.ru wrote:

> Hello Roman,
>
> Monday, July 25, 2005, 5:42:52 PM, you wrote:
>
> RP> Hello, on 25.7.05 3:37 PM, Mihail Zlatopolsky at CGatePro@mx.ru wrote:
>

>>> Hello Roman,
>>> 
>>> Monday, July 25, 2005, 2:52:31 PM, you wrote:
>>> 
>>> RP> on 25.7.05 2:29 PM, Mihail Zlatopolsky at CGatePro@mx.ru wrote:
>>> 
>>>>> Hello Roman,
>>>>> 
>>>>> Thursday, July 21, 2005, 2:47:20 PM, you wrote:
>>>>> 
>>>>>>> А как задать список фолдеров на которые подписываюсь?
>>>>> 
>>>>> RP> Массивом. Вот так:
>>>>> 
>>>>> RP> SetAccountSubscription user@domain.com (
>>>>> RP> "~account@domain/mailbox","~account2@domain/mailbox2" )
>>>>> не получается....
>>>>> пишет
>>>>> inp: SetAccountSubscription accountName "test@test.ru"
>>>>> out: 500 failed to read an array: no leading '('\r\n
>>> 
>>> RP> Ну так у массива жолжны быть '(' и ')'. Прочтите
>>> RP> <http://www.stalker.com/CommuniGatePro/Data.html#Array>
>>> 
>>> 
>>> RP> Кроме того, подписываться надо на папку, а не на экаунт.
>>> 
>>> 
>>> Извиняюсь....но у меня никак не получается, объясните если не сложно

То был пример не для Перлового скрипта, а для CLI "ручками".
> $cli->CreateAccount(accountName=>"$user",settings=>\%userData)
> || return "Can't create account via CLI:".$cli->getErrMessage;

> $cli->SetAccountSubscription accountName=>"$user"
> ("~store@test.ru/nospam","~store@test.ru/tospam")
> || return "Subscipt folder failed:".$cli->getErrMessage;

Мда... Столько ошибок, что излишне комментировать.

Правильно так:
$cli->SetAccountSubscription($user,['~store@test.ru/nospam','~store@test.ru/ tospam'] ) || return "Subscipt folder failed:".$cli->getErrMessage;

При этом в скрипте сначало желательно делать GetAccountSubscription, добавлять к текущей подписке новые папки, а потом делать SetAccountSubscription. Короче - так:

 $Subscription= $cli->GetAccountSubscription($user)

          || return "GetAccountSubscription failed:".$cli->getErrMessage;  push(@$Subscription,'~store@test.ru/nospam');  push(@$Subscription,'~store@test.ru/tospam');  $cli->SetAccountSubscription($user,$Subscription)

          || return "Subscipt folder failed:".$cli->getErrMessage;

> что-то не то
>

-- 

Roman