initial commit of file from CVS for smeserver-userpanels on Sat Sep 7 21:13:20 AEST 2024

root/etc/e-smith/web/functions/userpanel-password

@@ -0,0 +1,52 @@
+#!/usr/bin/perl -wT
+
+#----------------------------------------------------------------------
+# heading     : Your Settings
+# description : PASSWORD_CHANGE
+# longdesc    : change your password
+# navigation  : 100 100
+
+# e-smith manager functions: userpassword
+# copyright (C) 1999, 2000, 2001 e-smith, inc.
+# FM version stephen@dungog.net 2006
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+#----------------------------------------------------------------------
+
+use strict;
+use warnings;
+
+use esmith::FormMagick::Panel::userpanelPassword;
+
+my $fm = esmith::FormMagick::Panel::userpanelPassword->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"  post-event="change_password" pre-event="turn_off_buttons()">
+
+        <description>DESCRIPTION</description>
+
+        <field type="password" id="oldPass" validation="nonblank" value="">
+            <label>PASSWORD_OLD</label>
+        </field>
+        <field type="password" id="pass" validation="nonblank, check_password" value="">
+            <label>PASSWORD_NEW</label>
+        </field>
+        <field type="password" id="passVerify" validation="password_compare" value="">
+            <label>PASSWORD_VERIFY_NEW</label>
+        </field>
+        <subroutine src="print_button('PASSWORD_CHANGE')" />
+    </page>
+
+    <page name="Done" pre-event="print_status_message()">
+    </page>
+
+</form>