Appendix B. RHN API Access 139
############################################################################
# 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/
