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