mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
36 lines
898 B
Perl
Executable File
36 lines
898 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Show a list of blocked users and hosts
|
|
|
|
require './usermin-lib.pl';
|
|
&ui_print_header(undef, $text{'blocked_title'}, "");
|
|
&get_usermin_miniserv_config(\%miniserv);
|
|
@blocked = &webmin::get_blocked_users_hosts(\%miniserv);
|
|
|
|
if (@blocked) {
|
|
print &ui_columns_start([ $text{'blocked_type'},
|
|
$text{'blocked_who'},
|
|
$text{'blocked_fails'},
|
|
$text{'blocked_when'},
|
|
]);
|
|
foreach $b (@blocked) {
|
|
print &ui_columns_row([
|
|
$text{'blocked_'.$b->{'type'}},
|
|
$b->{'user'} || $b->{'host'},
|
|
$b->{'fails'},
|
|
&make_date($b->{'when'}),
|
|
]);
|
|
}
|
|
print &ui_columns_end();
|
|
print &ui_hr();
|
|
print &ui_buttons_start();
|
|
print &ui_buttons_row("clear_blocked.cgi",
|
|
$text{'blocked_clear'},
|
|
$text{'blocked_cleardesc'});
|
|
print &ui_buttons_end();
|
|
}
|
|
else {
|
|
print "<b>$text{'blocked_none'}</b><p>\n";
|
|
}
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|