Howto forward e-mail to multiple adress

Author:  Van hees Michel <michel_AT_vanhees.cc>
Contributor:  
Release supported: SME 5.6
License: color=#ff0000>GPL
Last updated:

Wednesday,
September 17, 2003 08:49 AM

Problem:  You want to forward all e-mail from one user to multi other users
Solution:  Follow this HowTo

use esmith::config;
use esmith::db;

my %accounts;
tie %accounts, 'esmith::config', '/home/e-smith/accounts';

# get $USERNAME from esmith::config - put there by the
# email-update-user action as a temporary variable
die 'Username argument missing.' unless defined ($USERNAME);

my $type = db_get_type(%accounts, $USERNAME);

die
'Account $USERNAME is not a user account; '
. 'update email forwarding failed.
'
unless $type eq 'user';

my $EmailForward = db_get_prop(%accounts, $USERNAME, 'EmailForward');
my $ForwardAddress = db_get_prop(%accounts, $USERNAME, 'ForwardAddress');
my @List;
my $adrFwd;

if ($EmailForward eq 'local')
{
$OUT = './Maildir/
';
}
elsif ($EmailForward eq 'forward')
{
;@List = split(/;/, $ForwardAddress);
foreach $adrFwd (@List) {
$OUT .= '&' . $adrFwd . '
';
}
}
elsif ($EmailForward eq 'both')
{
;@List = split(/;/, $ForwardAddress);
foreach $adrFwd (@List) {
$OUT .= '&' . $adrFwd . '
';
}
$OUT .= './Maildir/
';
}
else
{
# this shouldn't happen - if it does, deliver locally
$OUT = './Maildir/
';
}
}