Вы про справочник "IP зоны"? Записи туда добавляются функцией rpcf_add_ipzone:Volniy_Strelok писал(а):Немогли бы вы дать рабочий кусок кода для добавления IP группы в список адресов IP -зоны?
Ни как не получается добавить сеть с помощью rpcf_add_ipgroup.
Код: Выделить всё
#! /usr/bin/perl
use strict;
use Ourfa;
my $ourfa = Ourfa->new(
api_xml_dir=>"/netup/utm5/xml",
server=>'localhost',
login=>'init',
password=>'init',
);
my $res = $ourfa->rpcf_add_ipzone(
'id'=>0,
'name'=>'zone3',
'count'=>3,
'ipzones'=>[
{net=>"192.168.0.0", mask=>"255.255.255.0", gateaway=>"192.168.0.1"},
{net=>"192.168.1.0", mask=>"255.255.255.0", gateaway=>"192.168.1.1"},
{net=>"192.168.2.0", mask=>"255.255.255.0", gateaway=>"192.168.2.1"},
]);
printf("new zone id: %u\n", $res->{id});
Функции удаления зоны из справочника нет.
Хотя вам, похоже, нужно просто добавить IP адрес пользователю?