initial commit of file from CVS for smeserver-raidstatus on Sat Sep 7 20:59:51 AEST 2024

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

@@ -0,0 +1,40 @@
+#!/usr/bin/perl -wT
+
+#----------------------------------------------------------------------
+# heading     : Administration
+# description : Raid Status
+# navigation  : 3100 3200
+#
+# Authors: Stephane de Labrusse
+#----------------------------------------------------------------------
+
+use strict;
+use warnings;
+
+use esmith::FormMagick::Panel::raidstatus;
+
+my $fm = esmith::FormMagick::Panel::raidstatus->new();
+$fm->display();
+
+__DATA__
+<form
+    title="FORM_TITLE"
+        header="/etc/e-smith/web/common/head.tmpl"
+	footer="/etc/e-smith/web/common/foot.tmpl">
+ 	
+	<page name="First" pre-event="print_status_message()"   post-event="apply()">
+		<description>DESCRIPTION_RAIDSTATUS</description>
+        	<subroutine src="print_raidstatus()" />
+
+             <field type="text" id="mailto" size="80">
+                <label>MAILTO</label>
+             value="">
+             <description>DESC_MAILTO</description>
+              <label>MAILTO</label>
+              </field>
+
+ <subroutine src="print_button('SAVE')" />
+	</page>
+
+</form>
+