Juniper NETWORK AND SECURITY MANAGER 2010.4 - API GUIDE REV 1, Руководство пользователя

Страница: 108 / 170

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