smeserver-userpanels/root/etc/e-smith/web/functions/userpanel-forwarding

66 lines
1.8 KiB
Plaintext
Raw Permalink Normal View History

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