aboutsummaryrefslogtreecommitdiff
path: root/www/common.pl
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-10-03 19:08:47 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-10-03 19:08:47 +0200
commit14fc4fbdf59efc5626b5508780ebe3477cc9366a (patch)
tree1f36b72022c24d406f95dc5bc7d27992c68289e3 /www/common.pl
parent08b9ee11fe5e5a54af866a061c9e8d7782cac3c7 (diff)
Make the configuration map a dynamic variable.
Diffstat (limited to 'www/common.pl')
-rw-r--r--www/common.pl11
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 {