Add Service Objects - Juniper NETWORK AND SECURITY MANAGER 2010.4 - API GUIDE REV 1 Manual

Network and Security Manager 2010.4 API Guide

Add Service Objects

88
NOTE: The COLOR and COMMENT arguments are optional for these
procedures.
This section shows how to use the Perl Client Library to add service objects.
To add a service object:
Log in to the Perl client.
1.
Initialize the service object.
2.
my $service = UTILS::SERVICE->init( 'SOAP'=>$connect );
Add the object.
3.
Enter:
'IS_ICMP'=>[
'CODE'=>'11'},
]
my $result = $service->addServiceObjects('OBJECT_NAME'=>'Service-1',
'APPLICATION'=>'FTP', 'GROUP_MEMBERS'=>$members
$members = {
{'PROTOCOL'=>'TCP','SRC_TYPE'=>'specific','DST_TYPE'=>'specific'},
{'PROTOCOL'=>'IGMP','SRC_TYPE'=>'specific-string','DST_TYPE'=>'specific-string'},
{'PROTOCOL'=>'IP','SRC_TYPE'=>'range','DST_TYPE'=>'range'}
$result = $service->addServiceObjects('OBJECT_NAME'=>'Service-2',
'APPLICATION'=>'DNS', 'GROUP_MEMBERS'=>$members
{'SUN_LOW'=>'101'},
$service->addServiceObjects('OBJECT_NAME'=>'Service-3',
'APPLICATION'=>'DNS', 'GROUP_MEMBERS'=>$members
{'TYPE'=>'20', 'CODE'=>'21'}
{'PROTOCOL'=>'UDP'},
'SUN_RPC'=>[
]};
Copyright © 2010, Juniper Networks, Inc.
{'TYPE'=>'10',
};
);
'NOT_ICMP'=>[
]};
);
$members = {
{'SUN_LOW'=>'201'}
$result =
);