smeserver-denyhosts/root/etc/e-smith/web/functions/denyhosts

45 lines
1.3 KiB
XML
Executable File

#!/usr/bin/perl -wT
# vim: ft=xml ts=8 sw=4 noet:
#----------------------------------------------------------------------
# heading : Security
# description : SSH Denyhosts
# navigation : 5000 5250
#----------------------------------------------------------------------
use strict;
use esmith::FormMagick::Panel::denyhosts;
my $f = esmith::FormMagick::Panel::denyhosts->new();
$f->display();
__DATA__
<form title="SSH Denyhosts" header="/etc/e-smith/web/common/head.tmpl"
footer="/etc/e-smith/web/common/foot.tmpl">
<page name="First" post-event="change_settings()"
pre-event="print_status_message()">
<field type="select" id="status"
options=" 'enabled' => 'ENABLED', 'disabled' => 'DISABLED'"
value="get_prop('denyhosts', 'status')">
<label>STATUS</label>
<description>SERVICE_STATUS</description>
</field>
<subroutine src="show_valid_from_list()"/>
<field type="text" id="ip" value=""
validation="ip_number_or_blank">
<description>DESC_ADD_IP</description>
<label>ADD_IP</label>
</field>
<subroutine src="print_button('SAVE')" />
<subroutine src="show_current_deny()"/>
</page>
<page name="Second"
pre-event="RemoveIP()">
<subroutine src="print_status_message()" />
<subroutine src="back()" />
</page>
</form>