diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-10-03 19:08:47 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-10-03 19:08:47 +0200 |
commit | 14fc4fbdf59efc5626b5508780ebe3477cc9366a (patch) | |
tree | 1f36b72022c24d406f95dc5bc7d27992c68289e3 /www/common.pl | |
parent | 08b9ee11fe5e5a54af866a061c9e8d7782cac3c7 (diff) |
Make the configuration map a dynamic variable.
Diffstat (limited to 'www/common.pl')
-rw-r--r-- | www/common.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/www/common.pl b/www/common.pl index 7590fba..aa86e47 100644 --- a/www/common.pl +++ b/www/common.pl @@ -7,15 +7,18 @@ use Modern::Perl; use Mail::ExpandAliases; +sub load_config() { + $::MULKONF = { }; + do "config.pl"; +} -sub email_users($$) { - ($config, $email) = @_; +sub email_users($) { + my ($email) = @_; my $alias; if ($email =~ /^(.*?)@/) { $alias = $1; } - my $aliases_file = $config->{aliases}; + my $aliases_file = $::MULKONF->{aliases}; if (not ($aliases_file eq ".")) { my $aliases = Mail::ExpandAliases->new($aliases_file); - my $session_user = $session->param('user'); my $email_users = $aliases->expand($alias) or die "User not found"; return @$email_users; } else { |