Re: CLI Again

> on 21.4.03 1:48 PM, Mikhail Aronov at aronov@gpt.ru wrote:
>
> > В CLI (CGP = 4.0.2, CLI.pm = 2.6.0) имееется функция
> > GetAccountEffectiveSettings, которая позволяет не дёргать
> > GetAllAccountsDefaults и GetAccountDefaults без нужды. А аналога для
> > GetWebUser нет. Может, на самом деле есть, но не описана?
>
> В CGPro они есть, об этом недавно здесь было объявлено.

Не совсем так, писали про

GETSERVERWEBUSERDEFAULTS
SETSERVERWEBUSERDEFAULTS
GETCLUSTERWEBUSERDEFAULTS
SETCLUSTERWEBUSERDEFAULTS то есть функции ...DEFAULTS. GetAccountEffectiveSettings хороша тем, что заменяет вызов трёх функций -

GetAllAccountsDefaults
GetAccountDefaults(domain)
GetAccountSettings(account)

Для выяснения настроек WebUser приходится делать так -

GetAllWebUserDefaults
GetWebUserDefaults(domain)
GetWebUser(account)

Агрегатную команду я пытался нащупать телнетом, но не смог.  

> В CLI.pm их нет (пока), так что пользуйтесь функциями SendCommand и
> GetResponseData.

Так и делаю ;) - GetAllWebUserDefaults приведу для справки -

sub GetAllWebUserDefaults {
  my $this = shift;
  $this->send('GETSERVERWEBUSERDEFAULTS');   return undef unless $this->_parseResponse();   $this->parseWords($this->getWords);
}

sub UpdateAllWebUserDefaults {
  my ( $this, $dict ) = @_;
  $this->send('SETSERVERWEBUSERDEFAULTS'.$this->printWords($dict));   $this->_parseResponse();
}

---
M.Aronov