236 lines
6.8 KiB
Plaintext
236 lines
6.8 KiB
Plaintext
|
#!/usr/bin/perl -wT
|
||
|
|
# vim: ft=xml ts=4 sw=4 et:
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
# heading : Collaboration
|
||
|
|
# description : fetchmail
|
||
|
|
# navigation : 3000 3205
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
# copyright (C) 2004 Schirrm's Studio
|
||
|
|
#
|
||
|
|
# 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.
|
||
|
|
#
|
||
|
|
# This program is distributed in the hope that it will be useful,
|
||
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
# GNU General Public License for more details.
|
||
|
|
#
|
||
|
|
# You should have received a copy of the GNU General Public License
|
||
|
|
# along with this program; if not, write to the Free Software
|
||
|
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use esmith::FormMagick::Panel::fetchmail;
|
||
|
|
my $form = esmith::FormMagick::Panel::fetchmail->new();
|
||
|
|
# Uncomment the next line for debugging purposes.
|
||
|
|
# $form->debug(1);
|
||
|
|
$form->display();
|
||
|
|
|
||
|
|
|
||
|
|
__DATA__
|
||
|
|
<form
|
||
|
|
title="FORM_TITLE"
|
||
|
|
header="/etc/e-smith/web/common/head.tmpl"
|
||
|
|
footer="/etc/e-smith/web/common/foot.tmpl">
|
||
|
|
|
||
|
|
<!-- page 0 -->
|
||
|
|
<page
|
||
|
|
name="First"
|
||
|
|
pre-event="print_status_message()">
|
||
|
|
<description>FIRST_PAGE_DESCRIPTION</description>
|
||
|
|
|
||
|
|
<subroutine src="show_schedule_infos()" />
|
||
|
|
<subroutine src="show_fetchmail_status()" />
|
||
|
|
<subroutine src="show_fetchmail_users()" />
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 1 -->
|
||
|
|
<page
|
||
|
|
name="SetGeneral"
|
||
|
|
pre-event="print_status_message()"
|
||
|
|
post-event="temp_store_general()">
|
||
|
|
<title>SET_GENERAL_TITLE</title>
|
||
|
|
<description>SET_GENERAL_PAGE_DESCRIPTION</description>
|
||
|
|
<field type="literal" id="user" value="$q->param('user')">
|
||
|
|
<label>LABEL_USER_ACCOUNT</label>
|
||
|
|
</field>
|
||
|
|
<field type="literal" id="name" value="$q->param('name')">
|
||
|
|
<label>USER_NAME</label>
|
||
|
|
</field>
|
||
|
|
|
||
|
|
<field
|
||
|
|
id="ghost"
|
||
|
|
type="select"
|
||
|
|
options="'NO','YES'"
|
||
|
|
value="display_general('ghost')">
|
||
|
|
<label>LABEL_GHOST</label>
|
||
|
|
</field>
|
||
|
|
<field
|
||
|
|
id="debug"
|
||
|
|
type="select"
|
||
|
|
options="'NO','YES'"
|
||
|
|
value="display_general('debug')">
|
||
|
|
<label>LABEL_DEBUG</label>
|
||
|
|
</field>
|
||
|
|
<field
|
||
|
|
id="mail-keep"
|
||
|
|
type="select"
|
||
|
|
options="'KEEP_NO','KEEP_YES','KEEP_NEW'"
|
||
|
|
value="display_general('keep')">
|
||
|
|
<label>LABEL_MAIL_RETRIEVE</label>
|
||
|
|
</field>
|
||
|
|
<field
|
||
|
|
id="forward-mail"
|
||
|
|
type="text"
|
||
|
|
size="50"
|
||
|
|
value="display_general('forwarder')"
|
||
|
|
validation="validate_mail()">
|
||
|
|
<label>LABEL_FORWARD_MAIL</label>
|
||
|
|
</field>
|
||
|
|
|
||
|
|
<subroutine src="show_copy_to()" />
|
||
|
|
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 2 -->
|
||
|
|
<page
|
||
|
|
name="SetAccounts"
|
||
|
|
pre-event="print_status_message()"
|
||
|
|
post-event="validate_change()">
|
||
|
|
<title>SET_ACCOUNTS_TITLE</title>
|
||
|
|
<description>SET_ACCOUNTS_PAGE_DESCRIPTION</description>
|
||
|
|
<field type="literal" id="user2" value="get_field('user')">
|
||
|
|
<label>LABEL_USER_ACCOUNT</label>
|
||
|
|
</field>
|
||
|
|
<field type="literal" id="name2" value="get_field('name')">
|
||
|
|
<label>USER_NAME</label>
|
||
|
|
</field>
|
||
|
|
|
||
|
|
<field
|
||
|
|
id="mail-server"
|
||
|
|
type="text"
|
||
|
|
size="40"
|
||
|
|
validation="validate_account_data(Server)"
|
||
|
|
value="display_account('Server')">
|
||
|
|
<label>LABEL_MAIL_SERVER</label>
|
||
|
|
</field>
|
||
|
|
<field
|
||
|
|
id="mail-type"
|
||
|
|
type="select"
|
||
|
|
options="'IMAP','POP3','SPOP3','SIMAP'"
|
||
|
|
value="display_account('Type')">
|
||
|
|
<label>LABEL_MAIL_TYPE</label>
|
||
|
|
</field>
|
||
|
|
<field
|
||
|
|
id="mail-account"
|
||
|
|
type="text"
|
||
|
|
size="40"
|
||
|
|
value="display_account('Account')"
|
||
|
|
validation="validate_account_data(Account)">
|
||
|
|
<label>LABEL_MAIL_ACCOUNT</label>
|
||
|
|
</field>
|
||
|
|
<field
|
||
|
|
id="mail-password"
|
||
|
|
type="text"
|
||
|
|
size="40"
|
||
|
|
value="display_account('Password')"
|
||
|
|
validation="validate_account_data(Password)">
|
||
|
|
<label>LABEL_MAIL_PASSWORD</label>
|
||
|
|
</field>
|
||
|
|
<field
|
||
|
|
id="mail-options"
|
||
|
|
type="text"
|
||
|
|
size="100"
|
||
|
|
value="display_account('Options')">
|
||
|
|
<label>LABEL_MAIL_OPTIONS</label>
|
||
|
|
</field>
|
||
|
|
<field type="literal" id="ValidAccount" value="show_button_validate()">
|
||
|
|
<label>BLANK</label>
|
||
|
|
</field>
|
||
|
|
|
||
|
|
|
||
|
|
<subroutine src="show_accounts()" />
|
||
|
|
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 3
|
||
|
|
Note: This page is not used. It's a kludge to permit the next page
|
||
|
|
to work properly from a link on the front page. FormMagick needs
|
||
|
|
work.
|
||
|
|
I Maybe don't need that ? (PS)
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="Dummy">
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 4
|
||
|
|
This is only a wrapper to start a sub, and then go direct back
|
||
|
|
to the front page.
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="Service0"
|
||
|
|
post-event="remove_fetchmail_user">
|
||
|
|
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 5
|
||
|
|
This is only a wrapper to start a sub, and then go direct back
|
||
|
|
to the front page.
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="FetchmailStatus"
|
||
|
|
post-event="fetchmail_enable_disable">
|
||
|
|
<title>SET_FETCHMAIL_SATUS</title>
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 6
|
||
|
|
This is only a wrapper to start a sub, and then go direct back
|
||
|
|
to the front page.
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="Routing"
|
||
|
|
post-event="fetchmail_routing">
|
||
|
|
<title>RoutingIMPAPPOP</title>
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 7
|
||
|
|
This is only a wrapper to start a sub, and then go direct back
|
||
|
|
to the front page.
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="RoutingSMTP"
|
||
|
|
post-event="fetchmail_routingSMTP">
|
||
|
|
<title>RoutingSMTP</title>
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 8
|
||
|
|
This is only a wrapper to start a sub, and then go direct back
|
||
|
|
to the front page.
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="RoutingNNTP"
|
||
|
|
post-event="fetchmail_routingNNTP">
|
||
|
|
<title>RoutingNNTP</title>
|
||
|
|
</page>
|
||
|
|
|
||
|
|
<!-- page 9
|
||
|
|
This is only a wrapper to start a sub, and then go direct back
|
||
|
|
to the front page.
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="SMTPProxy"
|
||
|
|
post-event="fetchmail_SMTPProxy">
|
||
|
|
</page>
|
||
|
|
<!-- keep this one so next button display on previous one
|
||
|
|
-->
|
||
|
|
<page
|
||
|
|
name="Dummy">
|
||
|
|
</page>
|
||
|
|
|
||
|
|
|
||
|
|
</form>
|