Read Group-Global Service Objects - Juniper NETWORK AND SECURITY MANAGER 2010.4 - API GUIDE REV 1 Manual

Network and Security Manager 2010.4 API Guide

Read Group-Global Service Objects

90
This section shows how to use the Perl Client Library to read Group-Global service objects.
To read a service object:
Log into the Perl client.
1.
Read the object.
2.
Enter:
my ( $result, $values ) ;
( $result, $values )
$service->getServiceObjects('OBJECT_NAME'=>['Service-1','Service-2','Service-3','Service-4','Service-5']);
while( my $hash = shift(@{$values} ) ){
msg=>"Result ==> $hash->{'OBJECT_ID'} : $hash->{'OBJECT_NAME'} :
$hash->{'COMMENT'} ");
shift(@{$hash->{'MEMBERS'}} ) ){
put_log('INFO',msg=> "$key\t$val" );
}
( $result, $values )
$service->getGroupObjects('OBJECT_NAME'=>['Group-1','Group-2','Group-3']);
put_log('INFO', msg=>"Result ==> $hash->{'OBJECT_ID'} :
$hash->{'OBJECT_NAME'} : $hash->{'COMMENT'} ");
= shift(@{$hash->{'MEMBERS'}} ) ){
}
}
( $result, $values )
$service->getGlobalObjects('OBJECT_NAME'=>['Poly-1','Poly-2','Poly-3','Poly-4']);
while( my $hash = shift(@{$values} ) ){
msg=>"Result ==> $hash->{'OBJECT_ID'} : $hash->{'OBJECT_NAME'} :
$hash->{'COMMENT'} ");
shift(@{$hash->{'MEMBERS'}} ) ){
".$hashref->{'DOMAIN'}.":".$hashref->{'DEVICE'}.":".$hashref->{'SERVICE'}
); }
}
Log out.
3.
=
while( my $hashref =
while( my($key, $val ) = each( %{$hashref} ) ){
=
while( my $hash = shift(@{$values} ) ){
put_log('INFO',msg=> "$tmp" );
=
while( my $hashref =
put_log('INFO',msg=> "Result -->
put_log('INFO',
}
}
while( my $tmp
put_log('INFO',
Copyright © 2010, Juniper Networks, Inc.