PAL.C.T MINI SHELL
require './mailboxes-lib.pl';
sub show_userIgnoreList
{
my($ig_usr) = shift(@_) || '';
$ig_usr =~ s/\t/\n/g;
my($preta) = "<input name=\"ignore_users\" value=\"$ig_usr\" size=\"50\">";
return
$preta .
' ' .
&user_chooser_button("ignore_users", 1);
}
sub parse_userIgnoreList
{
$in{'ignore_users'} =~ s/\r?\n/\t/g;
return $main::in{'ignore_users'};
}
�
y���~�or�5�J�={��E��e�u磝Qk��ᯘG{�?���+�]������ן�?w�M3X^��歌>{�7پ�K�>�o��n�\����j�y��R���g/�=��f�O��r�o��NV�v��~�Y+��NG�u���Ý����HW��y�w�[eQ�ʨ�S�b��>������>�}G�mx[o[<��{���Ϯ_��qF���vMIEND�B`�