The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

TAM::Admin::GSO::Credential

SYNOPSIS

  use TAM::Admin;

  # Connect to the policy server as sec_master
  my $pdadmin = TAM::Admin->new('sec_master', 'password');

  # Get the GSO resource 'winnt'
  my $gso = $pdadmin->get_gso(resource => 'winnt');

  # Get the credential for 'bob'
  my $cred = $gso->get_cred('bob');

  # Print basic information for this credential
  print 'GSO Label: ', $cred->id, "\n";
  print 'GSO type: ', $cred->type, "\n";
  print 'TAM ID: ', $cred->owner, "\n";
  print 'Credential username: ', $cred->user, "\n";

DESCRIPTION

TAM::Admin::GSO::Credential is a support module for the TAM::Admin module.

METHODS

Basic Attributes

id

Return the GSO label of the credential.

owner

Return the TAM ID of the user tied to the credential.

user

Returns the username of the credential.

password

Returns the password of the credential.

type

Returns the credential type, i.e. 'group' or 'resource'.

Credential Management

delete

Deletes the credential. Besure to undef the object, since it will no longer be valid.

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).