NAME
TAM::Admin::GSO
SYNOPSIS
use TAM::Admin;
# Connect to the policy server as sec_master
my $pdadmin = TAM::Admin->new('sec_master', 'password');
# Get the GSO resource with the ID winnt and print basic information
my $gso = $pdadmin->get_gso('resource' => 'winnt');
print 'GSO ID: ', $gso->id, "\n";
print 'GSO Description: ', $gso->description, "\n";
# Get the credential for bob
my $cred = $gso->get_cred('bob')
# Add a credential for alice
$gso->add_cred('alice', 'WORKGROUP\ALICE', 'mypassword');DESCRIPTION
TAM::Admin::GSO is a support module for the TAM::Admin module.
METHODS
Basic Methods
id
Return the label of the GSO object.
description(<description>)
Return the current description of the GSO object. The method will set the description to the value of the first parameter, if passed.
add_cred(<userid>, <username>, <password>)
Add a credential for the user designated by the first argument. The second and third argument specify the username/password pair information to be contained in the new credential
get_cred(<userid>)
Retrieve the credential information for the specified user. The resulting object will be a TAM::Admin::GSO::Credential object.
Resource Group Methods
These methods only apply if the GSO object is a GSO resource group.
list
List all GSO resources in this resource group.
resources
Return an array of the GSO resources in this group. Each entry in the array will be a TAM::Admin::GSO object.
Response Methods
ok
Returns true if the last action was successful.
error
Returns true if the last action was unsuccessful.
message([<index>])
Returns the error message for the last action. The index will specify which error message to return if the last action resulted in more that one error condition. The index is 0 based.
code([<index>])
Returns the error code for the last action. The index will specify which error code to return if the last ction resulted in more that one error condition. The index is 0 based.
msg_count
Returns the number of errors generated for the last action.
AUTHOR
George Chlipala, george@walnutcs.com
SEE ALSO
perl(1).