--- rpms/smeserver-ezmlm-web/contribs10/smeserver-ezmlm-web-1.1.3-bz11288-sme10.patch	2022/03/15 18:54:26	1.1
+++ rpms/smeserver-ezmlm-web/contribs10/smeserver-ezmlm-web-1.1.3-bz11288-sme10.patch	2022/03/19 05:07:17	1.3
@@ -1,24 +1,7 @@
 diff -Nur --no-dereference smeserver-ezmlm-web-1.1.3.old/createlinks smeserver-ezmlm-web-1.1.3/createlinks
 --- smeserver-ezmlm-web-1.1.3.old/createlinks	2022-03-15 14:33:10.330000000 -0400
-+++ smeserver-ezmlm-web-1.1.3/createlinks	2022-03-15 14:46:14.664000000 -0400
-@@ -19,13 +19,14 @@
- 	"root/etc/e-smith/events/$event/S55email-assign");
- 
-     templates2events("/var/service/qpsmtpd/config/goodrcptto", $event);
-+}
- 
--    for my $daemon ( qw(qpsmtpd sqpsmtpd) )
-+for my $daemon ( qw(qpsmtpd sqpsmtpd) )
-     {
-         safe_symlink("sighup",
- 	    "root/etc/e-smith/events/$event/services2adjust/$daemon");
-     }
--}
-+
- 
- templates2events("/etc/ezmlm/ezmlmwebrc",
-     qw(
-@@ -45,5 +46,20 @@
++++ smeserver-ezmlm-web-1.1.3/createlinks	2022-03-15 14:56:23.404000000 -0400
+@@ -45,5 +45,20 @@
          mailinglist-update
          mailinglist-assign
          ));
@@ -40,3 +23,43 @@ diff -Nur --no-dereference smeserver-ezm
 +templates2events("/var/qmail/users/assign", $event);
 +safe_symlink("/var/qmail/bin/qmail-newu","root/etc/e-smith/events/$event/S55email-assign");
  
+diff -Nur --no-dereference smeserver-ezmlm-web-1.1.3.old/createlinks smeserver-ezmlm-web-1.1.3/createlinks
+--- smeserver-ezmlm-web-1.1.3.old/createlinks	2022-03-19 01:02:18.606000000 -0400
++++ smeserver-ezmlm-web-1.1.3/createlinks	2022-03-19 01:03:34.418000000 -0400
+@@ -45,7 +45,7 @@
+         mailinglist-update
+         mailinglist-assign
+         ));
+-my $event="smeserver-ezmlm-www-update";
++my $event="smeserver-ezmlm-web-update";
+ templates2events("/etc/ezmlm/ezmlmwebrc",$event);
+ templates2events("/home/e-smith/files/ezmlm/lists/webusers",$event);
+ templates2events("/etc/ezmlm/ezmlmwebrc", $event);
+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
+--- smeserver-ezmlm-web-1.1.3.old/root/etc/e-smith/web/functions/mailinglists	2022-03-19 01:02:18.602000000 -0400
++++ smeserver-ezmlm-web-1.1.3/root/etc/e-smith/web/functions/mailinglists	2022-03-19 01:04:52.303000000 -0400
+@@ -280,7 +280,7 @@
+     foreach my $member ( split ( /,/, $members ) ) {
+         $members{$member} = 1;
+     }
+-    my @users = sort { $a->key() cmp $b->key() } $accounts->users();
++    my @users = sort { $a->key() cmp $b->key() } ( $accounts->users() , $accounts->get('admin') );
+ 
+ 
+     my $out = "<tr>\n        <td class=\"sme-noborders-label\">"
+@@ -474,6 +474,7 @@
+ 
+     my $listOwner = $q->param ('listOwner');
+     $listOwner = "admin" if ($listOwner eq "Administrator");
++    my @users = sort { $a->key() cmp $b->key() } ( $accounts->users() , $accounts->get('admin') );
+ 
+     #------------------------------------------------------------
+     # Looks good. Find out if this account has been taken
+@@ -498,6 +499,7 @@
+ 		  Domain => $listDomain,
+                   Description => $listDescription,
+ 	          Owner => $listOwner,
++                  webusers => $webusers,
+ 		} );
+ 
+     system ('/sbin/e-smith/signal-event', 'mailinglist-create', $listName) == 0