Author:  Van hees Michel <mvanhees@vanhees.homeip.net>
Contributor:  
Release supported: SME 5.6
License: 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.\n"
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/\n";
}
elsif ($EmailForward eq 'forward')
{
@List = split(/;/, $ForwardAddress);
foreach $adrFwd (@List) {
$OUT .= "&" . $adrFwd . "\n";
}
}
elsif ($EmailForward eq 'both')
{
@List = split(/;/, $ForwardAddress);
foreach $adrFwd (@List) {
$OUT .= "&" . $adrFwd . "\n";
}
$OUT .= "./Maildir/\n";
}
else
{
# this shouldn't happen - if it does, deliver locally
$OUT = "./Maildir/\n";
}
}