23 |
+templates2events("/var/qmail/users/assign", $event); |
+templates2events("/var/qmail/users/assign", $event); |
24 |
+safe_symlink("/var/qmail/bin/qmail-newu","root/etc/e-smith/events/$event/S55email-assign"); |
+safe_symlink("/var/qmail/bin/qmail-newu","root/etc/e-smith/events/$event/S55email-assign"); |
25 |
|
|
26 |
|
diff -Nur --no-dereference smeserver-ezmlm-web-1.1.3.old/createlinks smeserver-ezmlm-web-1.1.3/createlinks |
27 |
|
--- smeserver-ezmlm-web-1.1.3.old/createlinks 2022-03-19 01:02:18.606000000 -0400 |
28 |
|
+++ smeserver-ezmlm-web-1.1.3/createlinks 2022-03-19 01:03:34.418000000 -0400 |
29 |
|
@@ -45,7 +45,7 @@ |
30 |
|
mailinglist-update |
31 |
|
mailinglist-assign |
32 |
|
)); |
33 |
|
-my $event="smeserver-ezmlm-www-update"; |
34 |
|
+my $event="smeserver-ezmlm-web-update"; |
35 |
|
templates2events("/etc/ezmlm/ezmlmwebrc",$event); |
36 |
|
templates2events("/home/e-smith/files/ezmlm/lists/webusers",$event); |
37 |
|
templates2events("/etc/ezmlm/ezmlmwebrc", $event); |
38 |
|
diff -Nur --no-dereference smeserver-ezmlm-web-1.1.3.old/root/etc/e-smith/web/functions/mailinglists smeserver-ezmlm-web-1.1.3/root/etc/e-smith/web/functions/mailinglists |
39 |
|
--- smeserver-ezmlm-web-1.1.3.old/root/etc/e-smith/web/functions/mailinglists 2022-03-19 01:02:18.602000000 -0400 |
40 |
|
+++ smeserver-ezmlm-web-1.1.3/root/etc/e-smith/web/functions/mailinglists 2022-03-19 01:04:52.303000000 -0400 |
41 |
|
@@ -280,7 +280,7 @@ |
42 |
|
foreach my $member ( split ( /,/, $members ) ) { |
43 |
|
$members{$member} = 1; |
44 |
|
} |
45 |
|
- my @users = sort { $a->key() cmp $b->key() } $accounts->users(); |
46 |
|
+ my @users = sort { $a->key() cmp $b->key() } ( $accounts->users() , $accounts->get('admin') ); |
47 |
|
|
48 |
|
|
49 |
|
my $out = "<tr>\n <td class=\"sme-noborders-label\">" |
50 |
|
@@ -474,6 +474,7 @@ |
51 |
|
|
52 |
|
my $listOwner = $q->param ('listOwner'); |
53 |
|
$listOwner = "admin" if ($listOwner eq "Administrator"); |
54 |
|
+ my @users = sort { $a->key() cmp $b->key() } ( $accounts->users() , $accounts->get('admin') ); |
55 |
|
|
56 |
|
#------------------------------------------------------------ |
57 |
|
# Looks good. Find out if this account has been taken |
58 |
|
@@ -498,6 +499,7 @@ |
59 |
|
Domain => $listDomain, |
60 |
|
Description => $listDescription, |
61 |
|
Owner => $listOwner, |
62 |
|
+ webusers => $webusers, |
63 |
|
} ); |
64 |
|
|
65 |
|
system ('/sbin/e-smith/signal-event', 'mailinglist-create', $listName) == 0 |