smeserver-qmail/root/etc/e-smith/templates/var/qmail/users/assign/40alias

33 lines
970 B
Plaintext

{
$OUT = '';
# Generate qmail user assignments for the alias user. This will be
# handled by ~alias/.qmail.
my (undef, undef, $uid, $gid, undef, undef, undef, $dir, undef)
= getpwnam("alias");
# It is almost impossible to get Text::Template to output nothing
# on failure. It can be done by removing the newline at the end of
# this file but that is messy. Therefore, we'll simply return an
# error message that will make qmail-newu fail. Also send a
# warning message that will be captured in the logs.
unless (defined $uid && defined $gid && defined $dir)
{
my $msg =
"Failed to obtain user details for \'alias\' "
. "while processing alias assignment.";
warn "$msg\n";
$OUT = $msg;
return;
}
# Assign mail for the alias user itself, and for alias-ext.
my $alias_assign = "alias:${uid}:${gid}:${dir}";
$OUT .= "=alias:${alias_assign}:::\n";
$OUT .= "+alias-:${alias_assign}:-::";
}