Read Address Objects - Juniper NETWORK AND SECURITY MANAGER 2010.4 - API GUIDE REV 1 Manual

Network and Security Manager 2010.4 API Guide

Read Address Objects

86
Enter:
for( my $i = 1; $i < 10; $i++ ){
$result = $address->renameObjects('OBJECT_NAME'=>'Network-'.$i,
'NEW_NAME'=>'MyNetwork-'.$i);
msg=>"Error while renaming Network objects." ) unless( $result );
Log out.
3.
This section shows how to read address objects.
To read address objects:
Log into the Perl client.
1.
Read the object.
2.
Enter:
my ( $result, $values ) ;
$client->getHostObjects('OBJECT_NAME'=>['Foo-1','Foo-2','Foo-3','Foo-4']);
objects." ) unless( $result );
while( my $hash = shift(@{$values} ) ){
put_log('INFO', msg=>"Result ==> $hash->{'OBJECT_ID'} :
$hash->{'OBJECT_NAME'} : $hash->{'DOMAIN'} : $hash->{'ZONE'}");
}
( $result, $values )
$client->getGroupObjects('OBJECT_NAME'=>['New-Group-1','New-Group-2']);
objects." ) unless( $result );
) ){
put_log('INFO', msg=>"Result ==> $hash->{'OBJECT_ID'} :
$hash->{'OBJECT_NAME'}");
= shift(@{$hash->{'MEMBERS'}} ) ){
);
}
}
( $result, $values )
$client->getGlobalObjects('OBJECT_NAME'=>['Poly-1','Poly-2','Poly-3']);
objects." ) unless( $result );
) ){
}
put_log('WARN', msg=>"Error while reading Host
=
put_log('WARN', msg=>"Error while reading Group
while( my $hash = shift(@{$values}
put_log('INFO',msg=> "Result --> $tmp\n"
=
put_log('WARN', msg=>"Error while reading Global
while( my $hash = shift(@{$values}
Copyright © 2010, Juniper Networks, Inc.
put_log('WARN',
( $result, $values ) =
while( my $tmp