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

2023-07-12 09:06:46 +01:00
parent 522798702f
commit 2d08981b2a
67 changed files with 2072 additions and 2 deletions
--- a/root/etc/e-smith/templates/var/qmail/users/assign/70pseudonyms
+++ b/root/etc/e-smith/templates/var/qmail/users/assign/70pseudonyms
@@ -0,0 +1,147 @@
+{
+    $OUT = '';
+
+    # Generate qmail user assignments for pseudonyms. These will
+    # be handled by ~user/.qmail in the case of a user pseudonym
+    # or by ~admin/.qmail in the case of a system pseudonym or by
+    # alias/.qmail-groupname in the case of a group pseudonym.
+
+    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 pseudonym assignments.";
+
+	warn "$msg\n";
+	$OUT = $msg;
+	return;
+    }
+
+    my $alias_assign = "alias:${uid}:${gid}:${dir}";
+
+    undef $uid;
+    undef $gid;
+    undef $dir;
+
+    (undef, undef, $uid, $gid, undef, undef, undef, $dir, undef)
+	= getpwnam("admin");
+
+    unless (defined $uid && defined $gid && defined $dir)
+    {
+	my $msg =
+	    "Failed to obtain user details for \'admin\' "
+	    . "while processing pseudonym assignments.";
+
+	warn "$msg\n";
+	$OUT = $msg;
+	return;
+    }
+
+    my $admin_assign = "admin:${uid}:${gid}:${dir}";
+
+    # Create assignments for each pseudonym.
+
+    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, default to admin";
+	    $account = $adb->get('admin');
+	    #next;
+	}
+
+	$account = $adb->get($pseudonym->prop('Account'));
+        unless ($account)
+        {
+            my $key = $pseudonym->key;
+            warn "pseudonym $key points to account which does not exist, default to admin";
+	    $account = $adb->get('admin');
+            #next;
+        }
+
+	my $i = 1;
+        while ( $account->prop('type') eq "pseudonym")
+	{
+   	    $account = $adb->get($account->prop('Account'));
+	    unless ($account)
+	    {
+	    	my $key = $pseudonym->key;
+	    	warn "pseudonym $key points to account which does not exist, default to admin";
+		$account = $adb->get('admin');
+	    	last; 
+	    }
+	   $i ++; last if $i>10; 
+	}
+
+	if ($account->prop('type') eq "pseudonym")
+        {
+            warn "users/assign: Skipping " . $pseudonym->key . " - too many pseudonym levels\n";
+            next;
+        }
+
+        if ($account->prop('type') eq "user")
+	{
+	    my (undef, undef, $uid, $gid, undef, undef, undef, $dir, undef)
+		= getpwnam($account->key);
+
+	    unless (defined $uid && defined $gid && defined $dir)
+	    {
+		my $msg =
+		    "Failed to obtain user details for \'" . $account->key . "\' "
+		    . "while processing pseudonym assignments.";
+
+		warn "$msg\n";
+		$OUT = $msg;
+		return;
+	    }
+
+	    $assign = $account->key . ":${uid}:${gid}:${dir}";
+
+	    # Assign mail for user_pseudonym@
+	    $OUT .= "=" . $pseudonym->key . ":${assign}:::\n";
+	    $OUT .= "+" . $pseudonym->key . "-:${assign}:-::\n";
+	    next;
+	}
+
+        if ($account->prop('type') eq "group" || $account->key eq "shared")
+	{
+	    $OUT .= "=" . $pseudonym->key . ":${alias_assign}:-:" . $account->key . ":\n";
+	    $OUT .= "+" . $pseudonym->key . "-:${alias_assign}:-:" . $account->key . ":\n";
+	    next;
+	}
+
+        if ($account->prop('type') eq "system" )
+	{
+	    $OUT .= "=" . $pseudonym->key . ":${admin_assign}:::\n";
+	    $OUT .= "+" . $pseudonym->key . "-:${admin_assign}:-::\n";
+	    next;
+	}
+    }
+
+    # Need to remove the final newline character. Blank lines in
+    # /var/qmail/users/assign are prohibited.
+
+    chomp($OUT);
+
+    # Failsafe: /var/qmail/users/assign cannot have blank lines.
+    # Therefore, if $OUT is empty, simply set up an assign for the
+    # alias user.
+
+    $OUT = "=alias:${alias_assign}:::" unless $OUT;
+}