Red Hat NETWORK 3.2 - PROVISIONING, Справочное руководство

Страница: 117 / 128

Appendix B. RHN API Access 107
############################################################################
#
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);
}
print "\n\nCapturing ID of system @$systems[0]->{name}\n\n";
my $systemid = @$systems[0]->{id};
# This next call returns a list of packages present on this system. The
# syntax of this call is described at:
#
#
http://$HOST/rpc/api/system/list_packages/
#
# This will probably be a pretty long list.
my $packages = $client->call(’system.list_packages’, $session, $systemid);
for my $package (@$packages) {
print Dumper($package);
}
# Additional system calls are described at:
#
http://$HOST/rpc/api/system/