smeserver-ezmlm-web/contribs8/smeserver-ezmlm-web-1.1.2-api.patch3

diff -Nur -x '*.orig' -x '*.rej' smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update
--- smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update      2006-03-08 12:30:00.616124755 +1100
+++ mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update    2006-03-08 12:29:41.228469581 +1100
@@ -51,7 +51,7 @@
                -s /bin/false ezmlm)) == 0
            or warn("Could not create user 'ezmlm'\n");
 
-    $accounts->new_record("ezmlm", { type => "system", Uid => "80", Gid => "80" } );
+    $accounts->new_record("ezmlm", { type => "system", Uid => "80", Gid => "80" } )
        unless ($accounts->get("ezmlm"));
 }
 
@@ -84,22 +84,22 @@
 
 if ( $event eq "mailinglist-create" )
 {
-    my $list = new Mail::Ezmlm;
+    my $ezmlm = new Mail::Ezmlm;
     
-    my $thislist = $list->make(
+    my $thislist = $ezmlm->make(
                -dir      => $listHome,
                 -qmail    => $listAlias,
                 -name     => $listName,
                 -host     => $listHost,
                 -user     => '',
-                -switches => 'aBdfgHiJklMnOpQrStuWx'
+                -switches => 'aBdfgHiJklMnOpQrStuWx',
                );
 
     die "List creation failed\n" unless $thislist;
 
     my $listOwner = $list->prop("Owner");
 
-    $list->update("5 $listOwner");
+    $ezmlm->update("5 $listOwner");
 }
 elsif ( $event eq "mailinglist-delete" )
 {
1	unnilennium	1.1	diff -Nur -x '.orig' -x '.rej' smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update
2			--- smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update 2006-03-08 12:30:00.616124755 +1100
3			+++ mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update 2006-03-08 12:29:41.228469581 +1100
4			@@ -51,7 +51,7 @@
5			-s /bin/false ezmlm)) == 0
6			or warn("Could not create user 'ezmlm'\n");
7
8			- $accounts->new_record("ezmlm", { type => "system", Uid => "80", Gid => "80" } );
9			+ $accounts->new_record("ezmlm", { type => "system", Uid => "80", Gid => "80" } )
10			unless ($accounts->get("ezmlm"));
11			}
12
13			@@ -84,22 +84,22 @@
14
15			if ( $event eq "mailinglist-create" )
16			{
17			- my $list = new Mail::Ezmlm;
18			+ my $ezmlm = new Mail::Ezmlm;
19
20			- my $thislist = $list->make(
21			+ my $thislist = $ezmlm->make(
22			-dir => $listHome,
23			-qmail => $listAlias,
24			-name => $listName,
25			-host => $listHost,
26			-user => '',
27			- -switches => 'aBdfgHiJklMnOpQrStuWx'
28			+ -switches => 'aBdfgHiJklMnOpQrStuWx',
29			);
30
31			die "List creation failed\n" unless $thislist;
32
33			my $listOwner = $list->prop("Owner");
34
35			- $list->update("5 $listOwner");
36			+ $ezmlm->update("5 $listOwner");
37			}
38			elsif ( $event eq "mailinglist-delete" )
39			{