PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show a list of blocked users and hosts
require './webmin-lib.pl';
&ui_print_header(undef, $text{'blocked_title'}, "");
&get_miniserv_config(\%miniserv);
@blocked = &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'}),
], [ "valign=middle","valign=middle","valign=middle","valign=middle" ]);
}
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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`