File Coverage

blib/lib/Plugtools/Plugins/HomeOU.pm

Criterion	Covered	Total	%
statement	9	57	15.7
branch	0	16	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	78	16.6

package Plugtools::Plugins::HomeOU;

use warnings;
use strict;
use Net::LDAP::Entry;

=head1 NAME

Plugtools::Plugins::HomeOU - Creates the home OU for a user.

=head1 VERSION

Version 0.0.0

=cut

our $VERSION = '0.0.0';

=head1 SYNOPSIS

This creates the home OU a user has access to.

=cut

=head1 Functions

=head2 plugin

The function that will be called by Plugtools.

    use Plugtools::Plugins::HomeOU;
    %returned=Plugtools::Plugins::HomeOU->plugin(\%opts, \%args);

    if($returned{error}){
        print "Error!\n";
    }

=cut

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

	my %returned;
	$returned{error}=undef;

	if (!defined( $opts{self}->{ini}->{HomeOU}->{homebase} )) {
		$returned{error}=1;
		$returned{errorString}='The variable "homebase" in the section "HomeOU" is undefined';
		warn('Plugtools-Plugins-HomeOU plugin:1: '.$returned{errorString}{errorString});
		return %returned;
	}

	if (!defined( $args{user} )) {
		$returned{error}=2;
		$returned{errorString}='$args{user} is noet defined';
		warn('Plugtools-Plugins-HomeOU plugin:2: '.$returned{errorString}{errorString});
		return %returned;
	}

	my $dn='ou='.$args{user}.','.$opts{self}->{ini}->{HomeOU}->{homebase};

	my $mesg=$opts{ldap}->search(
								 base=>$opts{self}->{ini}->{HomeOU}->{homebase},
								 filter=>'(&(ou='.$args{user}.') (objectClass=organizationalUnit))'
								 );
	if (!$mesg->{errorMessage} eq '') {
		$returned{error}=4;
		$returned{errorString}='$entry->update($ldap) failed. $mesg->{errorMessage}="'.
		                        $mesg->{errorMessage}.'"';
		warn('Plugtools-Plugins-HomeOU plugin:4: '.$returned{errorString});
		return %returned;
	}

	my $entry=$mesg->pop_entry;
	while (defined($entry)) {
		my $dn2=$entry->dn;

		if ($dn2 eq $dn) {
			if ($opts{self}->{ini}->{HomeOU}->{errorIfExists}){
				$returned{error}=5;
				$returned{errorString}='The DN "'.$dn.'" already exists.';
				warn('Plugtools-Plugins-HomeOU plugin:5: '.$returned{errorString});
				return %returned;
			}else {
				return %returned;
			}
		}

		$mesg->pop_entry;
	}

	$entry=Net::LDAP::Entry->new;
	$entry->dn($dn);
	$entry->add(
				objectClass=>['top', 'organizationalUnit'],
				'ou'=>$args{user},
				);

	my $mesg2=$entry->update($opts{ldap});
	if (!$mesg2->{errorMessage} eq '') {
		$returned{error}=3;
		$returned{errorString}='$entry->update($ldap) failed. $mesg2->{errorMessage}="'.
		                        $mesg2->{errorMessage}.'"';
		warn('Plugtools-Plugins-HomeOU plugin:3: '.$returned{errorString});
		return %returned;
	}

	return %returned;
}

=head1 ERROR CODES

=head2 1

The variable "homebase" in the section "HomeOU" is undefined.

=head2 2

$args{user} is not defined

=head2 3

Failed to add the new entry.

=head2 4

The search to check if it exists failed.

=head2 5

The home OU already exists.

=head1 PLUGTOOLS CONFIG

    pluginAddUser=Plugtools::Plugins::HomeOU
    [HomeOU]
    homebase=ou=home,dc=foo,dc=bar
    errorIfExists=0

=head2 homebase

This is the DB to create the home OU under.

=head2 errorIfExists

This controls if it it should error or not if it already exists. If this is defined, it will
check if it already exists.

If this is not defined, it defaults to false.

=head1 LDAP CONFIG

A rule like the one below will need setup for this to be useful.

    access to dn.regex="^(.+,)?ou=([^,]+),ou=home,dc=foo,dc=bar$"
       by dn.exact,expand="uid=$2,ou=users,dc=foo,dc=bar" write
       by * none

=head1 AUTHOR

Zane C. Bowers, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.




=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Plugtools::Plugins::HomeOU
    perldoc Plugtools


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back


=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright 2009 Zane C. Bowers, all rights reserved.

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


=cut

1; # End of Plugtools