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

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

put_log('INFO', msg=>"Result ==> $hash->{'OBJECT_ID'} :
$hash->{'OBJECT_NAME'}"); while( my
$hashref = shift(@{$hash->{'MEMBERS'}} ) ){
put_log('INFO',msg=> "Result -->
".$hashref->{'DOMAIN'}.":".$hashref->{'DEVICE'}.":".$hashref->{'ADDRESS'}
); }
}
3.
Log out.
Delete Address Objects
This section shows how to delete specific address objects.
To delete address objects:
1.
Log into the Perl client.
2.
Delete the object.
Enter:
$result = $client->deleteObjects('OBJECT_NAME'=>
['Multicast-1','Multicast-2','Multicast-3','Multicast-4','Multicast-5','Multicast-6']
);
put_log('WARN', msg=>"Error while deleting Multicast objects." ) unless(
$result );
3.
Log out.
Delete All Address Objects
This section shows how to delete all address objects.
To delete all address objects:
1.
Log into the Perl client.
2.
Delete all address objects.
Enter:
$result = $client->deleteAllObjects();
put_log('WARN', msg=>"Error while
deleting all objects." ) unless( $result );
3.
Log out.
Using the Perl Client Library with Service Objects
You can use the Perl Client Library to add, read, replace, and delete service objects. These
activities are summarized in the following sections
87 Copyright © 2010, Juniper Networks, Inc.
Chapter 8: Using the API to Manage Shared Objects