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