SME Server's panel to create simple list. It works like groups email, except that you can enter raw (including external) email addresses instead of having to select existing user accounts
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
1.5 KiB
53 lines
1.5 KiB
11 years ago
|
{
|
||
|
$OUT = '';
|
||
|
my (undef, undef, $uid, $gid, undef, undef, undef, $dir, undef)
|
||
|
= getpwnam("alias");
|
||
|
unless (defined $uid && defined $gid && defined $dir)
|
||
|
{
|
||
|
my $msg =
|
||
|
"Failed to obtain user details for \'alias\' "
|
||
|
. "while processing pseudonym assignments.";
|
||
|
|
||
|
warn "$msg\n";
|
||
|
$OUT = $msg;
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
my $alias_assign = "alias:${uid}:${gid}:${dir}";
|
||
|
|
||
|
undef $uid;
|
||
|
undef $gid;
|
||
|
undef $dir;
|
||
|
|
||
|
use esmith::AccountsDB;
|
||
|
my $adb = esmith::AccountsDB->open_ro();
|
||
|
|
||
|
foreach $pseudonym ( $adb->pseudonyms )
|
||
|
{
|
||
|
next if ( $pseudonym->key =~ /@/ ); # user@domain goes in virtualdomains
|
||
|
|
||
|
my $account = $pseudonym->prop('Account');
|
||
|
unless ($account)
|
||
|
{
|
||
|
my $key = $pseudonym->key;
|
||
|
warn "pseudonym $key has no account property";
|
||
|
next;
|
||
|
}
|
||
|
$account = $adb->get($pseudonym->prop('Account'));
|
||
|
unless ($account)
|
||
|
{
|
||
|
my $key = $pseudonym->key;
|
||
|
warn "pseudonym $key points to account which does not exist";
|
||
|
next;
|
||
|
}
|
||
|
if ($account->prop('type') eq "minilist")
|
||
|
{
|
||
|
$OUT .= "=" . $pseudonym->key . ":${alias_assign}:-:" . $account->key . ":\n";
|
||
|
$OUT .= "+" . $pseudonym->key . "-:${alias_assign}:-:" . $account->key . ":\n";
|
||
|
next;
|
||
|
}
|
||
|
}
|
||
|
chomp($OUT);
|
||
|
$OUT = "=alias:${alias_assign}:::" unless $OUT;
|
||
|
}
|