initial commit of file from CVS for smeserver-denyhosts on Sat Sep 7 19:51:06 AEST 2024

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

@@ -0,0 +1,44 @@
+#!/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>
+