Net::LDAP::posixAccount - Creates new Net::LDAP::Entry objects for a posixAccount entry.

    use Net::LDAP::posixAccount;

    #Initiates the module with a base DN of 'ou=users,dc=foo'.
    my $foo = Net::LDAP::posixAccount->new({baseDN=>'ou=user,dc=foo'});

    #creates a new entry with the minimum requirements
    my $entry = $foo->create({name=>'vvelox', gid=>'404', uid=>'404'});

    #add it using $ldap, a previously created Net::LDAP object
    $entry->update($ldap);

    perldoc Net::LDAP::posixAccount

package Net::LDAP::posixAccount;

use warnings;
use strict;
use Net::LDAP::Entry;
use Sys::User::UIDhelper;
use Sys::Group::GIDhelper;

our $VERSION = '0.0.2';

sub new {
	my %args;
	if(defined($_[1])){
		%args= %{$_[1]};
	};

	#returns undef if the baseDN is not set
	if (!defined($args{baseDN})) {
		warn('Net-LDAP-postixAccount new:0: "baseDN" is not defined');
		return undef;
	}

	my $self={error=>undef, set=>undef, baseDN=>$args{baseDN}};
	bless $self;

	#if it is defined it sets the topless setting to what ever it is
	if (defined($args{topless})) {
		$self->{topless}=$args{topless};
	}else {
		$self->{topless}=undef;
	}

	return $self;
}

sub create {
	my $self=$_[0];
	my %args;
	if(defined($_[1])){
		%args= %{$_[1]};
	};

	#error if name is not defined
	if (!defined($args{name})) {
		warn('Net-LDAP-posixAccount create:1: name not defined');
		$self->{error}=1;
		$self->{errorString}='name not defined';
 		return undef;
	}

	#set CN to name if it is not defined
	if (!defined($args{cn})) {
		$args{cn}=$args{name};
	}

	#error if uid is not defined
	if (!defined($args{uid})) {
		warn('Net-LDAP-posixAccount create:2: uid not defined');
		$self->{error}=2;
		$self->{errorString}='uid not defined';
		return undef;
	}

	#handles choosing the UID if it is set to AUTO
	if ($args{uid} eq 'AUTO') {
		#sets the minUID if it is not defined
		if (!defined($args{minUID} eq '1001')) {
			$args{uid}='1001';
		}

		#sets the maxUID if it is not defined
		if (!defined($args{minUID})) {
			$args{uid}='64000';
		}

		#creates it
		my $uidhelper=Sys::User::UIDhelper->new({
												 min=>$args{minUID},
												 max=>$args{maxUID}
												 });
		#gets the first free one
		$args{uid}=$uidhelper->firstfree();
	}

	#error if gid is not defined
	if (!defined($args{gid})) {
		warn('Net-LDAP-posixAccount create:3: gid not defined');
		$self->{error}=3;
		$self->{errorString}='gid not defined';
		return undef;
	}

	#handles choosing the GID if it is set to AUTO
	if ($args{gid} eq 'AUTO') {
		#sets the minUID if it is not defined
		if (!defined($args{minGID} eq '1001')) {
			$args{uid}='1001';
		}

		#sets the maxUID if it is not defined
		if (!defined($args{minGID})) {
			$args{uid}='64000';
		}

		#creates it
		my $gidhelper=Sys::Group::GIDhelper->new({
												 min=>$args{minGID},
												 max=>$args{maxGID}
												 });
		#gets the first free one
		$args{gid}=$gidhelper->firstfree();
	}

	#set gecos to name if it is not defined
	if (!defined($args{gecos})) {
		if (defined($args{description})) {
			$args{gecos}=$args{description};
		}else{
			$args{gecos}=$args{name};
		}
	}

	#sets the description field
	if (!defined($args{description})) {
		if (defined($args{gecos})) {
			$args{description}=$args{gecos};
		}
	}

	#sets the loginShell to '/sbin/nologin' if it is not defined
	if (!defined($args{loginShell})) {
		$args{loginShell}='/sbin/nologin';
	}	

	#sets the home if it is not specified
	if (!defined($args{home})) {
		$args{loginShell}='/home/'.$args{name};
	}	

	#set primary if it is not defined
	if (!defined($args{primary})) {
		$args{primary}='uid';
	}

	#
	my @primary=('uid', 'cn', 'uidNumber');
	my $dn=undef;
	my $primaryInt=0;
	while (defined($primary[$primaryInt])) {
		#when a match is found, use it to begin forming the the DN
		if ($args{primary} eq $primary[$primaryInt]) {
			$dn=$args{primary}.'=';
		}
		$primaryInt++;
	}

	#error if none is matched
	if (!defined($dn)) {
		warn('Net-LDAP-posixAccount create:4: primary is a invalid value');
		$self->{error}=4;
		$self->{errorString}='primary is a invalid value';
		return undef;
	}

	#forms the DN if it is using the UID
	if ($args{primary} eq 'uid') {
		$dn=$dn.$args{name};
	}

	#forms the DN if it is using the uidNumber
	if ($args{primary} eq 'uidNumber') {
		$dn=$dn.$args{uid};
	}

	#forms the DN if it is using the CN
	if ($args{primary} eq 'cn') {
		$dn=$dn.$args{cn};
	}

	#full forms the DN
	$dn=$dn.','.$self->{baseDN};

	#creates a new object
	my $entry = Net::LDAP::Entry->new;

	#sets the dn
	$entry->dn($dn);

	#adds top if it is not topless
	if (!$args{topless}) {
		$entry->add(objectClass=>['top']);
	}

	#adds the various attributes
	$entry->add(objectClass=>['account', 'posixAccount'],
				uidNumber=>[$args{uid}], gidNumber=>[$args{gid}],
				uid=>[$args{name}], homeDirectory=>[$args{home}],
				gecos=>[$args{gecos}], loginShell=>[$args{loginShell}],
				cn=>[$args{cn}], description=>[$args{description}]);

	return $entry;
}

#blanks the error flags
sub errorBlank{
	my $self=$_[0];

	#error handling
	$self->{error}=undef;
	$self->{errorString}="";

	return 1;
};

1; # End of Net::LDAP::posixAccount