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