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-forwarding

@@ -0,0 +1,65 @@
+#!/usr/bin/perl -wT
+
+#----------------------------------------------------------------------
+# heading     : Your Settings
+# description : Forward Mail
+# longdesc    : modify your email forwarding
+# navigation  : 100 400
+#
+# Copyright (c) 2001 Daniel van Raay <danielvr@caa.org.au>
+# Modified (c) 2002,2006 Stephen Noble <stephen@dungog.net>
+#
+# 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::userpanelForwarding;
+
+my $fm = esmith::FormMagick::Panel::userpanelForwarding->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="change_settings">
+     
+        <description>DESCRIPTION</description>
+
+        <field 
+          type="select" 
+          id="EmailForward"
+          options="'local'  =>  'LOCAL',
+                   'forward' => 'FORWARD',
+                   'both'    => 'BOTH'"
+          value="get_EmailForward()">
+          
+          <label>EMAIL_DELIVERY</label>
+        </field>
+
+        <field 
+          type="text" size="30"
+          id="ForwardAddress" 
+          value="get_ForwardAddress()"
+          validation="validate_email()">
+          
+          <label>FORWARDING_ADDRESS</label>
+        </field>
+
+        <subroutine src="print_button('SAVE')" />
+    </page>
+ 
+    <page name="Done" pre-event="print_status_message()">
+    </page>
+   
+</form>