PAL.C.T MINI SHELL
#!/usr/bin/perl
# Add one list member
require './virtualmin-mailman-lib.pl';
&ReadParse();
&error_setup($text{'addmem_err'});
@lists = &list_lists();
($list) = grep { $_->{'list'} eq $in{'list'} } @lists;
&can_edit_list($list) || &error($text{'mems_ecannot'});
# Validate and store inputs
$in{'email'} =~ /^\S+$/ || &error($text{'addmem_eemail'});
$mem = { 'email' => $in{'email'},
'digest' => $in{'digest'},
'welcome' => $in{'welcome'},
'admin' => $in{'admin'} };
$err = &add_member($mem, $list);
&error($err) if ($err);
&redirect("list_mems.cgi?list=$in{'list'}&show=$in{'show'}");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`