mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 00:39:57 +00:00
23 lines
432 B
Perl
23 lines
432 B
Perl
do '../web-lib-funcs.pl';
|
|
|
|
sub show_userIgnoreList
|
|
{
|
|
my($ig_usr) = shift(@_) || '';
|
|
$ig_usr =~ s/\t/\n/g;
|
|
my($preta) = '<TEXTAREA NAME="ignore_users" COLS="35" ROWS="4">';
|
|
my($postta) = '</TEXTAREA>';
|
|
|
|
return
|
|
$preta .
|
|
$ig_usr .
|
|
$postta .
|
|
' ' .
|
|
&user_chooser_button("ignore_users", 1);
|
|
}
|
|
|
|
sub parse_userIgnoreList
|
|
{
|
|
$in{'ignore_users'} =~ s/\r?\n/\t/g;
|
|
return $in{'ignore_users'};
|
|
}
|