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
|
package simplealias;
sub init {}
my @aliases = (
{
alias_username => "a1",
alias_domain => "example.com",
username => "user",
domain => "example.com"
},
{
alias_username => "a2",
alias_domain => "example.com",
username => "anotheruser",
domain => "example.com"
},
);
sub query {
my $self = shift;
my $alias_username = shift;
my $alias_domain = shift;
foreach my $entry (@aliases) {
if (($entry->{alias_username} eq $alias_username) && ((!defined alias_domain) || ($entry->{alias_domain} == $alias_domain))) {
my $ret;
$ret->{username} = $entry->{username};
$ret->{domain} = $entry->{domain};
return $ret;
}
}
}
1;
|
