From 08b9ee11fe5e5a54af866a061c9e8d7782cac3c7 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 3 Oct 2012 18:59:16 +0200
Subject: Make /etc/aliases optional.  Add configurability through setup.pl.

---
 www/common.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 www/common.pl

(limited to 'www/common.pl')

diff --git a/www/common.pl b/www/common.pl
new file mode 100644
index 0000000..7590fba
--- /dev/null
+++ b/www/common.pl
@@ -0,0 +1,24 @@
+#! /usr/bin/env perl
+# Copyright 2012, Matthias Andreas Benkard <code@mail.matthias.benkard.de>.
+
+use common::sense;
+#use Modern::Perl 2011;
+use Modern::Perl;
+
+use Mail::ExpandAliases;
+
+
+sub email_users($$) {
+  ($config, $email) = @_;
+  my $alias;
+  if ($email =~ /^(.*?)@/) { $alias = $1; }
+  my $aliases_file = $config->{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 {
+    return ($alias);
+  }
+}
-- 
cgit v1.2.3