Red Hat NETWORK SATELLITE 5.1.1 - RELEASE NOTES, Справочное руководство

Страница: 213 / 268

Sample API Script
201
#
#
# We use the Frontier modules, available from:
#
#
#
# http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search?dist=Frontier-RPC
#
#
#
############################################################################
############################################################################
# Defining an XMLRPC session.
#
############################################################################
# Define the host first. This will be the FQDN of your satellite system.
my $HOST = 'satellite.server.yourdomain.com';
# Now we create the client object that will be used throughout the
session.
my $client = new Frontier::Client(url => "http://$HOST/rpc/api");
# Next, we execute a login call, which returns a session identifier that
will
# be passed in all subsequent calls. The syntax of this call is
described at:
#
# http://$HOST/rpc/api/auth/login/
my $session = $client->call('auth.login', 'username', 'password');
############################################################################
# System calls.
#
############################################################################
# This next call returns a list of systems available to the user. The
# syntax of this call is described at:
#
# http://$HOST/rpc/api/system/list_user_systems/
#
# In the code snippet below, we dump data about our systems, and we
# capture the ID of the first system we find for future operations.
my $systems = $client->call('system.list_user_systems', $session);
for my $system (@$systems) {
print Dumper($system);