NAME

Weblogic::UserAdmin - Administration Functions For Weblogic 8.1 Automated

SYNOPSIS

  use Weblogic::UserAdmin;
  
  my $Weblogic = Weblogic::UserAdmin->new({
                                console=>"http://$server", 
                                port => $port,
                                username => "system",
                                password => "leper",
                        });
        
  if($Weblogic->user_exist($user)) {
        print "User Already Exists\n";
        exit 1;
  };            

  $Weblogic->user_add({user=>$user, password=>$password});

DESCRIPTION

my $Weblogic = Weblogic::UserAdmin->new({ console=>"http://$server", port => $port, username => "system", password => "leper", });

    Create and login to server object specifying host port system username 
    and password. Returns Weblogic::UserAdmin object.

users

    Return an array of all usernames from the server.

user_exist('username')

Checks if a user exists

user_add({user=>$user, password=>$userpassword});

    Add user specifying username and password.

group_list

Lists all groups - returned as an array

user_add_group({user=>$user, group=>$groupname})

    Add the specified user to the specified group.

user_del({user=>$user})

    Delete user. USer is automagically removed from group.

AUTHOR

    David Peters
    CPAN ID: DAVIDP
    David.Peters@EssentialEnergy.com.au

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

perl(1).