Re: Custom Account Settings and CLI

От: Victor Sudakov <CGatePro_at_mx_ru>
Дата: Fri 15 Apr 2005 - 13:24:33 MSD

Victor Sudakov wrote:
>
> Добавлен ряд Custom Account Settings (например, title и initials).
> Хранятся в свойствах аккаунтов.
>
> Нет ли у кого примера скриптика, который бы позволил заполнить эти
> Settings значениями из плоского текстового файла вида

После раздумий и рассматриваний примеров родил такое, укажите pls на возможные проблемы. Сразу скажу, что скармливать скрипту собираюсь русские значения title через "iconv -t utf-8 < data.txt | ./script.pl"

---

#!/usr/bin/perl -w

use CLI;
use strict;

my $cli = new CGP::CLI( { PeerAddr => "172.16.XXX.XXX",
                          PeerPort => 106,
                          login    => "postmaster",
                          password => "XXX" } )

   || die "Can't login to CGPro: ".$CGP::ERR_STRING."\n";

my @arr;

while (<STDIN>){
  chomp($_);
  @arr = split("\t",$_);
  print "$arr[0]\n";
  $cli->UpdateAccountSettings($arr[0],{title => $arr[1]})

        || die "Error: ".$cli->getErrMessage.", quitting";

}

---

-- 
Victor Sudakov,  VAS4-RIPE, VAS47-RIPN

Получено Fri Apr 15 09:24:35 2005