Viewing file:  edit_blocked.cgi (892 B) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/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'});
|