smeserver-mailman/contribs7/smeserver-mailman-1.3.0-smelist.patch

diff -Nur -x '*.orig' -x '*.rej' smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist
--- smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist    2006-03-08 15:46:50.679958384 +1100
+++ mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist  2006-03-08 15:46:25.691262259 +1100
@@ -18,6 +18,14 @@
     delete $ENV {'ENV'};
 }
 
+die "Unknown event $event" 
+       unless ($event =~ /^(addlist|rmlist|update)$/);
+$event = $1;
+
+die "Invalid list name $list" 
+       unless ($list =~ /^([\w\._]+)$/);
+$list = $1;
+
 esmith::util::setRealToEffective ();
 system ("/sbin/e-smith/signal-event", "mailman-$event", "$list") == 0
     or die ("Error occurred while modifying mailman list $list.\n");
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist
2			--- smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist 2006-03-08 15:46:50.679958384 +1100
3			+++ mezzanine_patched_smeserver-mailman-1.3.0/root/usr/lib/mailman/bin/smelist 2006-03-08 15:46:25.691262259 +1100
4			@@ -18,6 +18,14 @@
5			delete $ENV {'ENV'};
6			}
7
8			+die "Unknown event $event"
9			+ unless ($event =~ /^(addlist\|rmlist\|update)$/);
10			+$event = $1;
11			+
12			+die "Invalid list name $list"
13			+ unless ($list =~ /^([\w\._]+)$/);
14			+$list = $1;
15			+
16			esmith::util::setRealToEffective ();
17			system ("/sbin/e-smith/signal-event", "mailman-$event", "$list") == 0
18			or die ("Error occurred while modifying mailman list $list.\n");