45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
|
#!/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>
|
||
|
|
|