use strict;
use warnings;
+use LiCoM::Config (qw(get_config));
+use LiCoM::Connection (qw($Ldap));
+
use Net::LDAP;
use Net::LDAP::Filter;
=cut
-our %Config =
-(
- base_dn => undef
-);
-
our %ValidFields =
(
telephoneNumber => 1,
labeledURI => 1,
mail => 1,
mobile => 1,
- o => 1
+ userPassword => 0
);
our %ExternalNames =
uri => 'labeledURI',
mail => 'mail',
cellphone => 'mobile',
- group => 'o'
+ password => 'userPassword'
);
-our $Ldap;
-
return (1);
-=head1 METHODS
-
-=over 4
-
-=item Person-E<gt>B<connect> (I<$server>, I<$bind_dn>, I<$password>, I<$base_dn>, [I<$port>])
-
-Connects to the LDAP-Server given.
-
-=cut
-
-sub connect
-{
- my $pkg = shift;
- my %opts = @_;
-
- my $bind_dn = $opts{'bind_dn'};
- my $base_dn = $opts{'base_dn'};
- my $uri = $opts{'uri'};
- my $passwd = $opts{'password'};
-
- my $msg;
-
- $Ldap = Net::LDAP->new ($uri);
-
- $msg = $Ldap->bind ($bind_dn, password => $passwd);
- if ($msg->is_error ())
- {
- warn ('LDAP bind failed: ' . $msg->error_text ());
- return (0);
- }
-
- $Config{'base_dn'} = $base_dn;
-
- return (1);
-}
-
-=item Person-E<gt>B<disconnect> ()
-
-Disconnect from the LDAP-Server.
-
-=cut
-
-sub disconnect
-{
- $Ldap->unbind ();
- $Ldap = undef;
-}
-
-=item Person-E<gt>B<new> (I<$ldap_entry>)
-
-Created a new I<Person>-object from the passed I<Net::LDAP::Entry>-object.
-
-=cut
-
sub new
{
my $pkg = shift;
return (bless ($obj, $pkg));
}
-=item Person-E<gt>B<load> (I<$cn>)
+=head1 STATIC FUNCTIONS
+
+=over 4
+
+=item LiCoM::Person-E<gt>B<load> (I<$cn>)
Loads the given CN and returns the B<Person>-object.
return ($retval);
}
-=item Person-E<gt>B<create> (B<lastname> =E<gt> I<$lastname>, B<firstname> =E<gt> I<$firstname>, ...)
+=item LiCoM::Person-E<gt>B<create> (B<lastname> =E<gt> I<$lastname>, B<firstname> =E<gt> I<$firstname>, ...)
Create a new I<Net::LDAP::Entry>-object and return it's corresponding
I<Person>-object.
my $dn;
my $ou;
- $entry->add (objectClass => [qw(top organizationalUnit person organizationalPerson inetOrgPerson)]);
+ $entry->add (objectClass => [qw(person organizationalPerson inetOrgPerson)]);
for (keys %hash)
{
return (undef);
}
- $dn = "cn=$sn $gn," . $Config{'base_dn'};
- ($ou) = $Config{'base_dn'} =~ m/\bou\s*=\s*([^,]+)/i;
+ $ou = 'Person';
+ $dn = "cn=$sn $gn,ou=$ou," . get_config ('base_dn');
$entry->add (cn => "$sn $gn", ou => $ou);
$entry->dn ($dn);
- print "<!--\n";
- $entry->dump (*STDOUT);
- print "-->\n";
-
$entry->changetype ('add');
my $mesg = $entry->update ($Ldap);
return (new ($pkg, $entry));
}
-=item Person-E<gt>B<search> (B<firstname> =E<gt> I<"Flor*">)
+=item LiCoM::Person-E<gt>B<search> (B<firstname> =E<gt> I<"Flor*">)
Search for the given patterns. Returns a list of I<Person>-objects.
if (@disjunc)
{
- push (@konjunct, join ('', '(|', @disjunc, ')'));
+ my $tmp;
+ if (scalar (@disjunc) == 1)
+ {
+ $tmp = $disjunc[0];
+ }
+ else
+ {
+ $tmp = join ('', '(|', @disjunc, ')');
+ }
+ push (@konjunct, $tmp);
}
}
$filter = '(objectclass=inetOrgPerson)';
}
- print STDERR "Debug: using filter: $filter";
-
$mesg = $Ldap->search
(
- base => $Config{'base_dn'},
+ base => 'ou=Person,' . get_config ('base_dn'),
filter => $filter
);
return (@retval);
}
+=item LiCoM::Person-E<gt>B<get_user> (I<$dn>)
+
+Returns the cn and, if defined, the user-id of this dn.
+
+=cut
+
+sub get_user
+{
+ my $pkg = shift;
+ my $dn = shift;
+ my ($search) = $dn =~ m/cn\s*=\s*([^,]+)/i;
+
+ die unless ($search);
+
+ my $cn = '';
+ my $id = '';
+
+ my $mesg = $Ldap->search
+ (
+ base => 'ou=Person,' . get_config ('base_dn'),
+ filter => "(cn=$search)"
+ );
+
+ if ($mesg->is_error ())
+ {
+ warn ("Error while querying LDAP server: " . $mesg->error_text ());
+ return ('');
+ }
+
+ for ($mesg->entries ())
+ {
+ my $e = $_;
+ my ($t_cn) = $e->get_value ('cn', asref => 0);
+ my ($t_id) = $e->get_value ('uid', asref => 0);
+
+ if (!$id or $t_id)
+ {
+ $cn = $t_cn;
+ $id = $t_id;
+ }
+ }
+
+ return ($cn, $id);
+}
+
+=back
+
+=head1 METHODS
+
+=over 4
+
=item I<$obj>-E<gt>B<delete> ()
Deletes the record.
my $sn = $obj->{'sn'};
my $gn = $obj->{'givenName'};
my $cn = "$sn $gn";
- my $dn = "cn=$cn," . $Config{'base_dn'};
+ my $dn = "cn=$cn,ou=Person," . get_config ('base_dn');
$obj->{'cn'} = $cn;
=item I<$obj>-E<gt>B<uri> ([I<@uri>])
-=item I<$obj>-E<gt>B<group> ([I<@groups>])
-
-Get or set the attribute.
+Get or set the attribute. This is the same as calling S<I<$obj>-E<gt>B<set>
+(I<$field>, I<\@values>)> or S<I<$obj>-E<gt>B<get> (I<$field>)>.
=cut
my $obj = shift;
my @values = @_;
my $field = $Person::AUTOLOAD;
+
+ return (undef) unless ($field);
+
$field =~ s/.*:://;
return (set ($obj, $field, @values ? [@values] : undef))
}
+=item I<$obj>-E<gt>B<get> (I<$field>)
+
+Returs the value(s) of field I<$field>.
+
+=cut
+
sub get
{
my $obj = shift;
my $field = shift;
- return (set ($obj, $field, undef));
+ if (wantarray ())
+ {
+ return (set ($obj, $field, undef));
+ }
+ else
+ {
+ return (scalar (set ($obj, $field, undef)));
+ }
}
+=item I<$obj>-E<gt>B<set> (I<$field>, I<\@values>)
+
+Sets the field I<$field> to the value(s) I<\@valued>. Pass an empty array-ref
+to delete the field.
+
+=cut
+
sub set
{
my $obj = shift;
}
if (!defined ($ValidFields{$field}))
{
- return (undef);
+ return;
}
if (defined ($value))
$entry->update ($Ldap);
}
- $obj->{$field} = [] unless (defined ($obj->{$field}));
+ if (!defined ($obj->{$field}) and $ValidFields{$field})
+ {
+ $obj->{$field} = [];
+ }
if (wantarray () and $ValidFields{$field})
{
}
}
-sub get_user
-{
- my $pkg = shift;
- my $dn = shift;
- my ($search) = $dn =~ m/cn\s*=\s*([^,]+)/i;
-
- die unless ($search);
-
- my $cn = '';
- my $id = '';
-
- my $mesg = $Ldap->search
- (
- base => $Config{'base_dn'},
- filter => "(cn=$search)"
- );
-
- if ($mesg->is_error ())
- {
- warn ("Error while querying LDAP server: " . $mesg->error_text ());
- return ('');
- }
-
- for ($mesg->entries ())
- {
- my $e = $_;
- my ($t_cn) = $e->get_value ('cn', asref => 0);
- my ($t_id) = $e->get_value ('uid', asref => 0);
-
- if (!$id or $t_id)
- {
- $cn = $t_cn;
- $id = $t_id;
- }
- }
-
- return ($cn, $id);
-}
-
-sub password
-{
- my $obj = shift;
- my $entry = $obj->{'ldap'};
- my $pwd;
-
- if (@_)
- {
- $pwd = shift;
- $entry->changetype ('modify');
- $entry->replace (userPassword => $pwd);
- $entry->update ($Ldap);
- }
-
- $pwd = $entry->get_value ('userPassword');
-}
-
=back
=head1 AUTHOR
projects / licom.git / blobdiff