1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
package Fripost::Schema;
use 5.010_000;
use strict;
use base qw/Net::LDAP/;
our $VERSION = '0.01';
# Initialize a connection to the LDAP host.
sub new {
my $class = shift;
my $h = shift;
my $self = {options => $h};
bless $self, $class;
my $ldap = Net::LDAP->new ( $h->{server_host} )
or die "Error: Cannot initialize connection to LDAP server.\n";
my $mesg;
if ( (defined $h->{bind_dn}) and $h->{bind_dn} ne '' ) {
$self->_dsay( "Binding to DN `" .$h->{bind_dn}. "'." );
$mesg = $ldap->bind( $h->{bind_dn}, password => $h->{bind_pw} );
}
else {
# Anonymous bind
$self->_dsay( "Anonymous bind." );
$mesg = $ldap->bind();
}
die "Error: " .$mesg->error. "\n" if $mesg->code;
$self->{ldap} = $ldap;
return $self;
}
# Search a user, and return the corresponding entries if found. If no
# user is given, returns all users.
sub searchUser {
my $self = shift;
my $base = join ',', ('ou=mailboxes',$self->{options}->{base_dn});
my $filter = "(ObjectClass=virtualMailbox)";
$filter = "(&" .$filter. "(uid=" .$_[0]. ")" .")"
if defined $_[0];
my $res = $self->{ldap}->search(
base => $base,
scope => 'one',
attrs => [ 'uid', 'gn' , 'sn', 'maildir', 'isActive' ],
filter => $filter
);
die "Error: " .$res->error. "\n" if $res->code;
return $res;
}
# Add a user
sub addUser {
my $self = shift;
my $user = shift;
my $base = join ',', ('ou=mailboxes',$self->{options}->{base_dn});
my $res = $self->{ldap}->add( 'uid=' .$user->{username}. ',' .$base,
attrs => [ uid => $user->{username},
objectClass => [ 'top', 'virtualMailbox' ],
userPassword => $user->{userPassword},
maildir => $user->{maildir},
isActive => $user->{isActive}
]
);
die "Error: " .$res->error. "\n" if $res->code;
return $res;
}
# Disconnect to the LDAP server.
sub unbind {
$_[0]->{ldap}->unbind();
}
# Debug print.
sub _dsay {
my $self = shift;
return unless (exists $self->{options}->{debug}) and $self->{options}->{debug};
print STDERR "Debug: ";
say STDERR @_;
}
1;
=head1 NAME
Fripost::Schema -
=head1 AUTHOR
Guilhem Moulin C<< <guilhem at fripost.org> >>
=head1 COPYRIGHT
Copyright 2012 Guilhem Moulin, all rights reserved.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it
under the same terms as perl itself.
=cut
1; # End of Schema.pm
__END__
|