← Back
Editing: edit_blocked.cgi
#!/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'});
Save File
Cancel