mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
20 lines
389 B
Perl
Executable File
20 lines
389 B
Perl
Executable File
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'};
|
|
}
|