initial commit of file from CVS for e-smith-qmail on Wed 12 Jul 09:06:46 BST 2023

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

@@ -0,0 +1,32 @@
+{
+    $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}:-::";
+}