From 14fc4fbdf59efc5626b5508780ebe3477cc9366a Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 3 Oct 2012 19:08:47 +0200
Subject: Make the configuration map a dynamic variable.

---
 www/common.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'www/common.pl')

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 {
-- 
cgit v1.2.3