Juniper NETWORK AND SECURITY MANAGER 2010.4 - API GUIDE REV 1, Manual

Page: 106 / 170

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