#!/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>