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
|
package Fripost::Schema::Type::Alias;
use 5.010_000;
use warnings;
use strict;
use base qw/Net::LDAP/;
our $VERSION = '0.01';
#######################################################################
# Search an alias, and return the corresponding entries if found. If no
# alias is given, returns all aliases.
# Filters on values of both keys `address' and `goto' (unless they are
# undefined).
# An extra key `domain' can be given to scope the search on aliases for
# this domain only.
sub search {
my $self = shift;
my $base = join ',', ( 'ou=domains'
, $self->{_options}->{base_dn} );
$base = 'dc='.$_[0]->{domain} .','. $base
if defined $_[0]->{domain};
my @filters = ('(ObjectClass=virtualAliases)');
push @filters, '(mailLocalAddress=' .$_[0]->{address}. ')'
if defined $_[0]->{address};
push @filters, '(mailTarget=' .$_[0]->{goto}. ')'
if defined $_[0]->{goto};
my $filter;
if ($#filters == 0 ) {
$filter = $filters[0];
}
elsif ($#filters > 0) {
$filter = '(&' . (join '', @filters) . ')';
}
my $res = $self->{_ldap}->search(
base => $base,
scope => 'subtree',
attrs => [ 'mailLocalAddress', 'mailTarget', 'isActive' ],
filter => $filter
);
die "Error: " .$res->error. "\n" if $res->code;
return $res;
}
# Add the given alias
sub add {
my $self = shift;
my $alias = shift;
# TODO: detect cycles
die "Error: Cannot create alias `" .$alias->{address}.
"' targetting to itself.\n"
if $alias->{address} eq $alias->{goto};
my $domain = (split /\@/, $alias->{address}, 2)[1];
my $base = join ',', ( 'mailTarget='.$alias->{goto}
, 'dc='. $domain
, 'ou=domains'
, $self->{_options}->{base_dn} );
my @attrs = ( mailLocalAddress => $alias->{address} );
my $res;
if ($self->search({ goto => $alias->{goto}, domain => $domain })->count) {
$res = $self->{_ldap}->modify( $base, add => [ @attrs ] );
}
else {
$res = $self->{_ldap}->add( $base,
attrs => [ mailTarget => $alias->{goto}
, objectClass => [ 'top',
'inetLocalMailRecipient',
'virtualAliases' ]
, @attrs
, isActive => $alias->{isActive}
]
);
}
die "Error: " .$res->error. "\n" if $res->code;
return $res;
}
#######################################################################
1;
=head1 NAME
Fripost::Schema::Type::Alias -
=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 Alias.pm
__END__
|