[squirrelmail.git] / plugins / mail_fetch / options.php

<?php

/**
 * mail_fetch/options.php
 *
 * Copyright (c) 1999-2005 The SquirrelMail Project Team
 * Licensed under the GNU GPL. For full terms see the file COPYING.
 *
 * Setup of the mailfetch plugin.
 *
 * @version $Id$
 * @package plugins
 * @subpackage mail_fetch
 */

/** @ignore */
define('SM_PATH','../../');

require_once(SM_PATH . 'include/validate.php');
include_once(SM_PATH . 'functions/imap.php');

/* globals */
sqgetGlobalVar('username',   $username,   SQ_SESSION);
sqgetGlobalVar('key',        $key,        SQ_COOKIE);
sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
sqgetGlobalVar('delimiter',  $delimiter,  SQ_SESSION);

if(!sqgetGlobalVar('mf_cypher', $mf_cypher, SQ_POST)) {
    $mf_cypher = '';
}
if(! sqgetGlobalVar('mf_action', $mf_action, SQ_POST) ) {
    if (sqgetGlobalVar('mf_action_mod', $mf_action_mod, SQ_POST)) {
        $mf_action = 'Modify';
    }
    elseif (sqgetGlobalVar('mf_action_del', $mf_action_del, SQ_POST)) {
        $mf_action = 'Delete';
    }
    else {
        $mf_action = 'config';
    }
}

sqgetGlobalVar('mf_sn',            $mf_sn,            SQ_POST);
sqgetGlobalVar('mf_server',        $mf_server,        SQ_POST);
sqgetGlobalVar('mf_port',          $mf_port,          SQ_POST);
sqgetGlobalVar('mf_alias',         $mf_alias,         SQ_POST);
sqgetGlobalVar('mf_user',          $mf_user,          SQ_POST);
sqgetGlobalVar('mf_pass',          $mf_pass,          SQ_POST);
sqgetGlobalVar('mf_subfolder',     $mf_subfolder,     SQ_POST);
sqgetGlobalVar('mf_login',         $mf_login,         SQ_POST);
sqgetGlobalVar('mf_fref',          $mf_fref,          SQ_POST);
sqgetGlobalVar('mf_lmos',          $mf_lmos,          SQ_POST);
sqgetGlobalVar('submit_mailfetch', $submit_mailfetch, SQ_POST);


/* end globals */

    displayPageHeader( $color, 'None' );

    switch( $mf_action ) {
    case 'add':
        if ($mf_sn<1) $mf_sn=0;
        if (!isset($mf_server)) return;
        setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
        setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
        setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
        setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
        setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass )    :""));
        if( isset($mf_cypher) && $mf_cypher <> 'on' ) SetPref($data_dir,$username,'mailfetch_cypher',    'on');
        setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
        setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
        setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
        setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
        $mf_sn++;
        setPref($data_dir,$username,'mailfetch_server_number', $mf_sn);
        $mf_action = 'config';
        break;
    case 'confirm_modify':
        //modify    a server
        if (!isset($mf_server)) return;
        setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
        setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
        setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
        setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
        setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass )    :""));
        if( $mf_cypher <> 'on' ) setPref($data_dir,$username,"mailfetch_cypher", 'on');
        setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
        setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
        setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
        setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
        $mf_action = 'config';
        break;
    case 'confirm_delete':
        //delete    a server
        $mailfetch_server_number    = getPref($data_dir, $username, "mailfetch_server_number");
        if ($mf_sn+1==$mailfetch_server_number) {
            //is the last server, whe can only decrase $mailfetch_server_number
            $mailfetch_server_number--;
            setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
        } else {
            //if not the last, all the sequel server come up one step
            //then whe decrase $mailfetch_server_number
            $mailfetch_server_number--;
            for ($i=$mf_sn;$i<$mailfetch_server_number;$i++) {
                $tmp=$i+1;
                setPref($data_dir,$username,'mailfetch_server_'.$i,
                    getPref($data_dir,$username, 'mailfetch_server_'.$tmp));
                setPref($data_dir,$username,'mailfetch_port_'.$i,
                    getPref($data_dir,$username, 'mailfetch_port_'.$tmp));
                setPref($data_dir,$username,'mailfetch_alias_'.$i,
                    getPref($data_dir,$username, 'mailfetch_alias_'.$tmp));
                setPref($data_dir,$username,'mailfetch_user_'.$i,
                    getPref($data_dir,$username, 'mailfetch_user_'.$tmp));
                setPref($data_dir,$username,'mailfetch_pass_'.$i,
                    getPref($data_dir,$username, 'mailfetch_pass_'.$tmp));
                setPref($data_dir,$username,'mailfetch_lmos_'.$i,
                    getPref($data_dir,$username, 'mailfetch_lmos_'.$tmp));
                setPref($data_dir,$username,'mailfetch_login_'.$i,
                    getPref($data_dir,$username, 'mailfetch_login_'.$tmp));
                setPref($data_dir,$username,'mailfetch_fref_'.$i,
                    getPref($data_dir,$username, 'mailfetch_fref_'.$tmp));
                setPref($data_dir,$username,'mailfetch_subfolder_'.$i,
                    getPref($data_dir,$username, 'mailfetch_subfolder_'.$tmp));
                setPref($data_dir,$username,'mailfetch_uidl_'.$i,
                    getPref($data_dir,$username, 'mailfetch_uidl_'.$tmp));
            }
            setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
        }
        $mf_action = 'config';
        break;
    }

    $mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number', 0);
    $mailfetch_cypher = getPref( $data_dir, $username, 'mailfetch_cypher' );
    if ($mailfetch_server_number<1) {
        $mailfetch_server_number=0;
    }
    for ($i=0;$i<$mailfetch_server_number;$i++) {
        $mailfetch_server_[$i] = getPref($data_dir, $username, "mailfetch_server_$i");
        $mailfetch_port_[$i] = getPref($data_dir, $username, "mailfetch_port_$i");
        $mailfetch_alias_[$i] = getPref($data_dir, $username, "mailfetch_alias_$i");
        $mailfetch_user_[$i] = getPref($data_dir, $username, "mailfetch_user_$i");
        $mailfetch_pass_[$i] = getPref($data_dir, $username, "mailfetch_pass_$i");
        $mailfetch_lmos_[$i] = getPref($data_dir, $username, "mailfetch_lmos_$i");
        $mailfetch_login_[$i] = getPref($data_dir, $username, "mailfetch_login_$i");
        $mailfetch_fref_[$i] = getPref($data_dir, $username, "mailfetch_fref_$i");
        $mailfetch_uidl_[$i] = getPref($data_dir, $username, "mailfetch_uidl_$i");
        $mailfetch_subfolder_[$i] = getPref($data_dir, $username, "mailfetch_subfolder_$i");
        if( $mailfetch_cypher == 'on' ) $mailfetch_pass_[$i] = decrypt( $mailfetch_pass_[$i] );
    }


    echo '<br /><form method="post" action="'.$PHP_SELF.'">' .
            html_tag( 'table',
                html_tag( 'tr',
                    html_tag( 'td',
                        '<b>' . _("Remote POP server settings") . '</b>',
                    'center', $color[0] )
                ),
            'center', '', 'width="95%"' ) .
            html_tag( 'table',
                html_tag( 'tr',
                    html_tag( 'td',
                        _("You should be aware that the encryption used to store your password is not perfectly secure. However, if you are using pop, there is inherently no encryption anyway. Additionally, the encryption that we do to save it on the server can be undone by a hacker reading the source to this file.") ,
                    'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'td',
                        _("If you leave password empty, it will be asked when you fetch mail.") ,
                    'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'td',
                        '<input type="checkbox" name="mf_cypher" ' .
                        (($mailfetch_cypher=='on')?'checked="checked" />':' />') .
                        _("Encrypt passwords (informative only)") ,
                    'right' )
                ) ,
            'center', '', 'width="95%"' );

    switch( $mf_action ) {
    case 'config':
        echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
                    html_tag( 'tr',
                        html_tag( 'td', '<b>' . _("Add Server") . '</b>', 'center', $color[9] )
                    ) .
                    html_tag( 'tr' ) .
                        html_tag( 'td', '', 'center', $color[0] ) .

            "<input type=\"hidden\" name=\"mf_sn\" value=\"$mailfetch_server_number\" />" .
            '<input type="hidden" name="mf_action" value="add" />' .
            html_tag( 'table' ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Server:"), 'right' ) .
                    html_tag( 'td', '<input type="text" name="mf_server" value="" size="40" />', 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Port:"), 'right') .
                    html_tag( 'td', '<input type="text" name="mf_port" value="110" size="20" />', 'left')
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Alias:"), 'right' ) .
                    html_tag( 'td', '<input type="text" name="mf_alias" value="" size="20" />', 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Username:"), 'right' ) .
                    html_tag( 'td', '<input type="text" name="mf_user" value="" size="20" />', 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Password:"), 'right' ) .
                    html_tag( 'td', '<input type="password" name="mf_pass" value="" size="20" />', 'left' )
                ) .
                html_tag( 'tr' ) .
                    html_tag( 'th', _("Store in Folder:"), 'right' ) .
                    html_tag( 'td', '', 'left' );
        $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
        $boxes = sqimap_mailbox_list($imapConnection);
        echo '<select name="mf_subfolder">';

        $selected = 0;
        if ( isset($mf_subfolder) )
          $selected = array(strtolower($mf_subfolder));
        echo sqimap_mailbox_option_list($imapConnection, $selected);
        echo '</select></td></tr>' .
                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td', '<input type="checkbox" name="mf_lmos" checked="checked" />' . _("Leave Mail on Server"), 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td', '<input type="checkbox" name="mf_login" />' . _("Check mail at login"), 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td', '<input type="checkbox" name="mf_fref" />' . _("Check mail at folder refresh"), 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'td',
                        '<input type="submit" name="submit_mailfetch" value="' . _("Add Server") . '" />',
                    'center', '', 'colspan="2"' )
                ) .
            '</table></td></tr></table></form>';

        // Modify Server
        echo '<font size="-5"><br /></font>' .
            html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
                html_tag( 'tr',
                    html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
                ) .
                html_tag( 'tr' ) .
                    html_tag( 'td', '', 'center', $color[0] );
        if ($mailfetch_server_number>0) {
            echo "<form action=\"$PHP_SELF\" method=\"post\" target=\"_self\">";
            echo '<b>' . _("Server Name:") . '</b> <select name="mf_sn">';
            for ($i=0;$i<$mailfetch_server_number;$i++) {
                echo "<option value=\"$i\">" .
                    htmlspecialchars( (($mailfetch_alias_[$i]=='')?$mailfetch_server_[$i]:$mailfetch_alias_[$i])) . "</option>";
            }
            echo '</select>'.
                 '&nbsp;&nbsp;<input type="submit" name="mf_action_mod" value="' . _("Modify") . '" />'.
                 '&nbsp;&nbsp;<input type="submit" name="mf_action_del" value="' . _("Delete") . '" />'.
                 '</form>';
        } else {
            echo _("No servers known.");
        }
        echo '</td></tr></table>';
        break;
    case 'Delete':                                     //erase confirmation about a server
        echo html_tag( 'table',
                    html_tag( 'tr',
                        html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
                    ) ,
                'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
            '<br />' .
            html_tag( 'table',
                html_tag( 'tr',
                    html_tag( 'td', '<b>' . _("Confirm Deletion of a Server") . '</b>', 'center', $color[9] )
                ) .
                html_tag( 'tr',
                    html_tag( 'td',
                        "<input type=\"hidden\" name=\"mf_sn\" value=\"$mf_sn\" />" .
                        '<input type="hidden" name="mf_action" value="confirm_delete" />' .
                        '<br />' . _("Selected Server:") . " <b>" . htmlspecialchars($mailfetch_server_[$mf_sn]) . "</b><br />" .
                        _("Confirm delete of selected server?") . '<br /><br />' .
                        '<input type="submit" name="submit_mailfetch" value="' . _("Confirm Delete") . '" />' .
                        '<br /></form>' ,
                    'center', $color[9] )
                ) ,
            'center', '', 'width="70%" cellpadding="5" cellspacing="1"' );
        break;                                  //modify a server
    case 'Modify':
        echo html_tag( 'table',
                    html_tag( 'tr',
                        html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
                    ) ,
                'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
            '<br />' .
            html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
                html_tag( 'tr',
                    html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
                ) .
                html_tag( 'tr' ) .
                    html_tag( 'td', '', 'center', $color[0] ) .

            "<input type=\"hidden\" name=\"mf_sn\" value=\"$mf_sn\" />" .
            '<input type="hidden" name="mf_action" value="confirm_modify" />' .
            html_tag( 'table' ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Server:"), 'right' ) .
                    html_tag( 'td', '<input type="text" name="mf_server" value="' .
                        htmlspecialchars($mailfetch_server_[$mf_sn]) . '" size="40" />', 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Port:"), 'right' ) .
                    html_tag( 'td', '<input type="text" name="mf_port" value="' .
                        htmlspecialchars($mailfetch_port_[$mf_sn]) . '" size="40" />', 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Alias:"), 'right' ) .
                    html_tag( 'td', '<input type="text" name="mf_alias" value="' .
                        htmlspecialchars($mailfetch_alias_[$mf_sn]) . '" size="40" />', 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Username:"), 'right' ) .
                    html_tag( 'td', '<input type="text" name="mf_user" value="' .
                        htmlspecialchars($mailfetch_user_[$mf_sn]) . '" size="20" />', 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', _("Password:"), 'right' ) .
                    html_tag( 'td', '<input type="password" name="mf_pass" value="' .
                        htmlspecialchars($mailfetch_pass_[$mf_sn]) . '" size="20" />', 'left' )
                ) .
                html_tag( 'tr' ) .
                    html_tag( 'th', _("Store in Folder:"), 'right' ) .
                    html_tag( 'td', '', 'left' );

        $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
        $boxes = sqimap_mailbox_list($imapConnection);
        echo '<select name="mf_subfolder">';
        $selected = 0;
        if ( isset($mailfetch_subfolder_[$mf_sn]) ) {
            $selected = array(strtolower($mailfetch_subfolder_[$mf_sn]));
        }
        echo sqimap_mailbox_option_list($imapConnection, $selected) .
             '</select></td></tr>' .

                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td',
                        '<input type="checkbox" name="mf_lmos" ' . (($mailfetch_lmos_[$mf_sn] == 'on')?'checked="checked"':'') .
                        ' />' . _("Leave Mail on Server") ,
                    'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td',
                        '<input type="checkbox" name="mf_login" ' . ( ($mailfetch_login_[$mf_sn] == 'on')?'checked="checked"':'') .
                        ' />' . _("Check mail at login"),
                    'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td',
                        '<input type="checkbox" name="mf_fref" ' . ( ($mailfetch_fref_[$mf_sn] == 'on')?'checked="checked"':'') .
                        ' />' . _("Check mail at folder refresh") ,
                    'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'td',
                        '<input type="submit" name="submit_mailfetch" value="' . _("Modify Server") . '" />',
                    'center', '', 'colspan="2"' )
                ) .

            '</table></form></td></tr></table>';
        break;
    default:                                    //unsupported action
        echo '</form>' .
        html_tag( 'table',
            html_tag( 'tr',
                html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
            ) ,
        'center', '', 'width="95%"' ) .
        '<br />' .
        html_tag( 'table',
            html_tag( 'tr',
                html_tag( 'td', '<b>' . _("Undefined Function") . '</b>', 'center', $color[9] ) .
                html_tag( 'td', '<b>' . _("The function you requested is unknown.") . '</b>', 'center', $color[0] )
            ) ,
        'center', '', 'width="70%"' );
    }

?>
</body></html>
Commit	Line	Data
d622d38a	1	<?php
d3c89357	2
8d6a115b	3	/**
	4	* mail_fetch/options.php
	5	*
6c84ba1e	6	* Copyright (c) 1999-2005 The SquirrelMail Project Team
8d6a115b	7	* Licensed under the GNU GPL. For full terms see the file COPYING.
	8	*
	9	* Setup of the mailfetch plugin.
	10	*
4f51df66	11	* @version $Id$
ea5f4b8e	12	* @package plugins
ea5f4b8e	13	* @subpackage mail_fetch
8d6a115b	14	*/
d622d38a	15
ea5f4b8e	16	/** @ignore */
8d6a115b	17	define('SM_PATH','../../');
aa7fb30c	18
8d6a115b	19	require_once(SM_PATH . 'include/validate.php');
5c89bd63	20	include_once(SM_PATH . 'functions/imap.php');
d622d38a	21
3c66c567	22	/* globals */
	23	sqgetGlobalVar('username', $username, SQ_SESSION);
	24	sqgetGlobalVar('key', $key, SQ_COOKIE);
	25	sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
	26	sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
91e0dccc	27
3c66c567	28	if(!sqgetGlobalVar('mf_cypher', $mf_cypher, SQ_POST)) {
	29	$mf_cypher = '';
	30	}
	31	if(! sqgetGlobalVar('mf_action', $mf_action, SQ_POST) ) {
a747d971	32	if (sqgetGlobalVar('mf_action_mod', $mf_action_mod, SQ_POST)) {
	33	$mf_action = 'Modify';
	34	}
	35	elseif (sqgetGlobalVar('mf_action_del', $mf_action_del, SQ_POST)) {
	36	$mf_action = 'Delete';
	37	}
	38	else {
	39	$mf_action = 'config';
	40	}
3c66c567	41	}
86bb8549	42
162cd2c6	43	sqgetGlobalVar('mf_sn', $mf_sn, SQ_POST);
3c66c567	44	sqgetGlobalVar('mf_server', $mf_server, SQ_POST);
	45	sqgetGlobalVar('mf_port', $mf_port, SQ_POST);
	46	sqgetGlobalVar('mf_alias', $mf_alias, SQ_POST);
	47	sqgetGlobalVar('mf_user', $mf_user, SQ_POST);
	48	sqgetGlobalVar('mf_pass', $mf_pass, SQ_POST);
	49	sqgetGlobalVar('mf_subfolder', $mf_subfolder, SQ_POST);
	50	sqgetGlobalVar('mf_login', $mf_login, SQ_POST);
	51	sqgetGlobalVar('mf_fref', $mf_fref, SQ_POST);
	52	sqgetGlobalVar('mf_lmos', $mf_lmos, SQ_POST);
	53	sqgetGlobalVar('submit_mailfetch', $submit_mailfetch, SQ_POST);
d622d38a	54
a747d971	55
3c66c567	56	/* end globals */
	57
	58	displayPageHeader( $color, 'None' );
d622d38a	59
d3c89357	60	switch( $mf_action ) {
	61	case 'add':
	62	if ($mf_sn<1) $mf_sn=0;
	63	if (!isset($mf_server)) return;
	64	setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
85756247	65	setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
d3c89357	66	setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
	67	setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
	68	setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass ) :""));
86bb8549	69	if( isset($mf_cypher) && $mf_cypher <> 'on' ) SetPref($data_dir,$username,'mailfetch_cypher', 'on');
d3c89357	70	setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
	71	setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
	72	setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
	73	setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
	74	$mf_sn++;
	75	setPref($data_dir,$username,'mailfetch_server_number', $mf_sn);
	76	$mf_action = 'config';
	77	break;
	78	case 'confirm_modify':
	79	//modify a server
	80	if (!isset($mf_server)) return;
	81	setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
85756247	82	setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
d3c89357	83	setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
	84	setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
	85	setPref($data_dir,$username,"mailfetch_pass_$mf_sn",(isset($mf_pass)?encrypt( $mf_pass ) :""));
	86	if( $mf_cypher <> 'on' ) setPref($data_dir,$username,"mailfetch_cypher", 'on');
	87	setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
	88	setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
	89	setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
	90	setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
	91	$mf_action = 'config';
	92	break;
	93	case 'confirm_delete':
	94	//delete a server
	95	$mailfetch_server_number = getPref($data_dir, $username, "mailfetch_server_number");
	96	if ($mf_sn+1==$mailfetch_server_number) {
	97	//is the last server, whe can only decrase $mailfetch_server_number
	98	$mailfetch_server_number--;
	99	setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
	100	} else {
	101	//if not the last, all the sequel server come up one step
	102	//then whe decrase $mailfetch_server_number
	103	$mailfetch_server_number--;
	104	for ($i=$mf_sn;$i<$mailfetch_server_number;$i++) {
	105	$tmp=$i+1;
162cd2c6	106	setPref($data_dir,$username,'mailfetch_server_'.$i,
	107	getPref($data_dir,$username, 'mailfetch_server_'.$tmp));
	108	setPref($data_dir,$username,'mailfetch_port_'.$i,
	109	getPref($data_dir,$username, 'mailfetch_port_'.$tmp));
	110	setPref($data_dir,$username,'mailfetch_alias_'.$i,
	111	getPref($data_dir,$username, 'mailfetch_alias_'.$tmp));
	112	setPref($data_dir,$username,'mailfetch_user_'.$i,
	113	getPref($data_dir,$username, 'mailfetch_user_'.$tmp));
	114	setPref($data_dir,$username,'mailfetch_pass_'.$i,
	115	getPref($data_dir,$username, 'mailfetch_pass_'.$tmp));
	116	setPref($data_dir,$username,'mailfetch_lmos_'.$i,
	117	getPref($data_dir,$username, 'mailfetch_lmos_'.$tmp));
	118	setPref($data_dir,$username,'mailfetch_login_'.$i,
	119	getPref($data_dir,$username, 'mailfetch_login_'.$tmp));
	120	setPref($data_dir,$username,'mailfetch_fref_'.$i,
	121	getPref($data_dir,$username, 'mailfetch_fref_'.$tmp));
	122	setPref($data_dir,$username,'mailfetch_subfolder_'.$i,
	123	getPref($data_dir,$username, 'mailfetch_subfolder_'.$tmp));
91e0dccc	124	setPref($data_dir,$username,'mailfetch_uidl_'.$i,
162cd2c6	125	getPref($data_dir,$username, 'mailfetch_uidl_'.$tmp));
d3c89357	126	}
	127	setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
	128	}
	129	$mf_action = 'config';
	130	break;
	131	}
	132
	133	$mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number', 0);
	134	$mailfetch_cypher = getPref( $data_dir, $username, 'mailfetch_cypher' );
	135	if ($mailfetch_server_number<1) {
	136	$mailfetch_server_number=0;
	137	}
d622d38a	138	for ($i=0;$i<$mailfetch_server_number;$i++) {
d622d38a	139	$mailfetch_server_[$i] = getPref($data_dir, $username, "mailfetch_server_$i");
e42b0dd2	140	$mailfetch_port_[$i] = getPref($data_dir, $username, "mailfetch_port_$i");
d622d38a	141	$mailfetch_alias_[$i] = getPref($data_dir, $username, "mailfetch_alias_$i");
	142	$mailfetch_user_[$i] = getPref($data_dir, $username, "mailfetch_user_$i");
	143	$mailfetch_pass_[$i] = getPref($data_dir, $username, "mailfetch_pass_$i");
	144	$mailfetch_lmos_[$i] = getPref($data_dir, $username, "mailfetch_lmos_$i");
	145	$mailfetch_login_[$i] = getPref($data_dir, $username, "mailfetch_login_$i");
	146	$mailfetch_fref_[$i] = getPref($data_dir, $username, "mailfetch_fref_$i");
	147	$mailfetch_uidl_[$i] = getPref($data_dir, $username, "mailfetch_uidl_$i");
	148	$mailfetch_subfolder_[$i] = getPref($data_dir, $username, "mailfetch_subfolder_$i");
	149	if( $mailfetch_cypher == 'on' ) $mailfetch_pass_[$i] = decrypt( $mailfetch_pass_[$i] );
	150	}
	151
	152
6fd95361	153	echo '<br /><form method="post" action="'.$PHP_SELF.'">' .
4cf43843	154	html_tag( 'table',
	155	html_tag( 'tr',
	156	html_tag( 'td',
	157	'<b>' . _("Remote POP server settings") . '</b>',
	158	'center', $color[0] )
	159	),
658b4c55	160	'center', '', 'width="95%"' ) .
4cf43843	161	html_tag( 'table',
	162	html_tag( 'tr',
	163	html_tag( 'td',
6fd95361	164	_("You should be aware that the encryption used to store your password is not perfectly secure. However, if you are using pop, there is inherently no encryption anyway. Additionally, the encryption that we do to save it on the server can be undone by a hacker reading the source to this file.") ,
4cf43843	165	'left' )
	166	) .
	167	html_tag( 'tr',
	168	html_tag( 'td',
333daac7	169	_("If you leave password empty, it will be asked when you fetch mail.") ,
4cf43843	170	'left' )
	171	) .
	172	html_tag( 'tr',
	173	html_tag( 'td',
6fd95361	174	'<input type="checkbox" name="mf_cypher" ' .
6fd95361	175	(($mailfetch_cypher=='on')?'checked="checked" />':' />') .
4cf43843	176	_("Encrypt passwords (informative only)") ,
	177	'right' )
	178	) ,
658b4c55	179	'center', '', 'width="95%"' );
d622d38a	180
d3c89357	181	switch( $mf_action ) {
d3c89357	182	case 'config':
658b4c55	183	echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
4cf43843	184	html_tag( 'tr',
	185	html_tag( 'td', '<b>' . _("Add Server") . '</b>', 'center', $color[9] )
	186	) .
	187	html_tag( 'tr' ) .
	188	html_tag( 'td', '', 'center', $color[0] ) .
	189
6fd95361	190	"<input type=\"hidden\" name=\"mf_sn\" value=\"$mailfetch_server_number\" />" .
6fd95361	191	'<input type="hidden" name="mf_action" value="add" />' .
4cf43843	192	html_tag( 'table' ) .
	193	html_tag( 'tr',
	194	html_tag( 'th', _("Server:"), 'right' ) .
6fd95361	195	html_tag( 'td', '<input type="text" name="mf_server" value="" size="40" />', 'left' )
4cf43843	196	) .
b33b71fc	197	html_tag( 'tr',
e42b0dd2	198	html_tag( 'th', _("Port:"), 'right') .
6fd95361	199	html_tag( 'td', '<input type="text" name="mf_port" value="110" size="20" />', 'left')
e42b0dd2	200	) .
4cf43843	201	html_tag( 'tr',
4cf43843	202	html_tag( 'th', _("Alias:"), 'right' ) .
6fd95361	203	html_tag( 'td', '<input type="text" name="mf_alias" value="" size="20" />', 'left' )
4cf43843	204	) .
	205	html_tag( 'tr',
	206	html_tag( 'th', _("Username:"), 'right' ) .
6fd95361	207	html_tag( 'td', '<input type="text" name="mf_user" value="" size="20" />', 'left' )
4cf43843	208	) .
	209	html_tag( 'tr',
	210	html_tag( 'th', _("Password:"), 'right' ) .
6fd95361	211	html_tag( 'td', '<input type="password" name="mf_pass" value="" size="20" />', 'left' )
4cf43843	212	) .
	213	html_tag( 'tr' ) .
	214	html_tag( 'th', _("Store in Folder:"), 'right' ) .
	215	html_tag( 'td', '', 'left' );
d3c89357	216	$imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
d3c89357	217	$boxes = sqimap_mailbox_list($imapConnection);
4cf43843	218	echo '<select name="mf_subfolder">';
ae8a7931	219
	220	$selected = 0;
	221	if ( isset($mf_subfolder) )
	222	$selected = array(strtolower($mf_subfolder));
	223	echo sqimap_mailbox_option_list($imapConnection, $selected);
4cf43843	224	echo '</select></td></tr>' .
	225	html_tag( 'tr',
	226	html_tag( 'th', ' ', 'right' ) .
6fd95361	227	html_tag( 'td', '<input type="checkbox" name="mf_lmos" checked="checked" />' . _("Leave Mail on Server"), 'left' )
4cf43843	228	) .
	229	html_tag( 'tr',
	230	html_tag( 'th', ' ', 'right' ) .
333daac7	231	html_tag( 'td', '<input type="checkbox" name="mf_login" />' . _("Check mail at login"), 'left' )
4cf43843	232	) .
	233	html_tag( 'tr',
	234	html_tag( 'th', ' ', 'right' ) .
333daac7	235	html_tag( 'td', '<input type="checkbox" name="mf_fref" />' . _("Check mail at folder refresh"), 'left' )
4cf43843	236	) .
	237	html_tag( 'tr',
	238	html_tag( 'td',
6fd95361	239	'<input type="submit" name="submit_mailfetch" value="' . _("Add Server") . '" />',
4cf43843	240	'center', '', 'colspan="2"' )
4cf43843	241	) .
658b4c55	242	'</table></td></tr></table></form>';
d622d38a	243
d3c89357	244	// Modify Server
6fd95361	245	echo '<font size="-5"><br /></font>' .
658b4c55	246	html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
4cf43843	247	html_tag( 'tr',
	248	html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
	249	) .
	250	html_tag( 'tr' ) .
	251	html_tag( 'td', '', 'center', $color[0] );
d3c89357	252	if ($mailfetch_server_number>0) {
4cf43843	253	echo "<form action=\"$PHP_SELF\" method=\"post\" target=\"_self\">";
4cf43843	254	echo '<b>' . _("Server Name:") . '</b> <select name="mf_sn">';
d3c89357	255	for ($i=0;$i<$mailfetch_server_number;$i++) {
4cf43843	256	echo "<option value=\"$i\">" .
658b4c55	257	htmlspecialchars( (($mailfetch_alias_[$i]=='')?$mailfetch_server_[$i]:$mailfetch_alias_[$i])) . "</option>";
d3c89357	258	}
4cf43843	259	echo '</select>'.
6fd95361	260	'  <input type="submit" name="mf_action_mod" value="' . _("Modify") . '" />'.
6fd95361	261	'  <input type="submit" name="mf_action_del" value="' . _("Delete") . '" />'.
d3c89357	262	'</form>';
d3c89357	263	} else {
333daac7	264	echo _("No servers known.");
d3c89357	265	}
4cf43843	266	echo '</td></tr></table>';
d3c89357	267	break;
a747d971	268	case 'Delete': //erase confirmation about a server
4cf43843	269	echo html_tag( 'table',
	270	html_tag( 'tr',
	271	html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
	272	) ,
658b4c55	273	'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
6fd95361	274	'<br />' .
4cf43843	275	html_tag( 'table',
	276	html_tag( 'tr',
	277	html_tag( 'td', '<b>' . _("Confirm Deletion of a Server") . '</b>', 'center', $color[9] )
	278	) .
	279	html_tag( 'tr',
	280	html_tag( 'td',
6fd95361	281	"<input type=\"hidden\" name=\"mf_sn\" value=\"$mf_sn\" />" .
	282	'<input type="hidden" name="mf_action" value="confirm_delete" />' .
	283	'<br />' . _("Selected Server:") . " <b>" . htmlspecialchars($mailfetch_server_[$mf_sn]) . "</b><br />" .
	284	_("Confirm delete of selected server?") . '<br /><br />' .
	285	'<input type="submit" name="submit_mailfetch" value="' . _("Confirm Delete") . '" />' .
	286	'<br /></form>' ,
4cf43843	287	'center', $color[9] )
4cf43843	288	) ,
658b4c55	289	'center', '', 'width="70%" cellpadding="5" cellspacing="1"' );
d3c89357	290	break; //modify a server
a747d971	291	case 'Modify':
4cf43843	292	echo html_tag( 'table',
	293	html_tag( 'tr',
	294	html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
	295	) ,
658b4c55	296	'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
6fd95361	297	'<br />' .
658b4c55	298	html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
4cf43843	299	html_tag( 'tr',
09c5aef1	300	html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
4cf43843	301	) .
	302	html_tag( 'tr' ) .
	303	html_tag( 'td', '', 'center', $color[0] ) .
	304
6fd95361	305	"<input type=\"hidden\" name=\"mf_sn\" value=\"$mf_sn\" />" .
6fd95361	306	'<input type="hidden" name="mf_action" value="confirm_modify" />' .
4cf43843	307	html_tag( 'table' ) .
	308	html_tag( 'tr',
	309	html_tag( 'th', _("Server:"), 'right' ) .
a9e1e670	310	html_tag( 'td', '<input type="text" name="mf_server" value="' .
6fd95361	311	htmlspecialchars($mailfetch_server_[$mf_sn]) . '" size="40" />', 'left' )
4cf43843	312	) .
e42b0dd2	313	html_tag( 'tr',
e42b0dd2	314	html_tag( 'th', _("Port:"), 'right' ) .
a9e1e670	315	html_tag( 'td', '<input type="text" name="mf_port" value="' .
6fd95361	316	htmlspecialchars($mailfetch_port_[$mf_sn]) . '" size="40" />', 'left' )
e42b0dd2	317	) .
4cf43843	318	html_tag( 'tr',
4cf43843	319	html_tag( 'th', _("Alias:"), 'right' ) .
a9e1e670	320	html_tag( 'td', '<input type="text" name="mf_alias" value="' .
6fd95361	321	htmlspecialchars($mailfetch_alias_[$mf_sn]) . '" size="40" />', 'left' )
4cf43843	322	) .
	323	html_tag( 'tr',
	324	html_tag( 'th', _("Username:"), 'right' ) .
91e0dccc	325	html_tag( 'td', '<input type="text" name="mf_user" value="' .
6fd95361	326	htmlspecialchars($mailfetch_user_[$mf_sn]) . '" size="20" />', 'left' )
4cf43843	327	) .
	328	html_tag( 'tr',
	329	html_tag( 'th', _("Password:"), 'right' ) .
a9e1e670	330	html_tag( 'td', '<input type="password" name="mf_pass" value="' .
6fd95361	331	htmlspecialchars($mailfetch_pass_[$mf_sn]) . '" size="20" />', 'left' )
4cf43843	332	) .
	333	html_tag( 'tr' ) .
	334	html_tag( 'th', _("Store in Folder:"), 'right' ) .
	335	html_tag( 'td', '', 'left' );
	336
d3c89357	337	$imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
d3c89357	338	$boxes = sqimap_mailbox_list($imapConnection);
4cf43843	339	echo '<select name="mf_subfolder">';
ae8a7931	340	$selected = 0;
956f0980	341	if ( isset($mailfetch_subfolder_[$mf_sn]) ) {
956f0980	342	$selected = array(strtolower($mailfetch_subfolder_[$mf_sn]));
91e0dccc	343	}
956f0980	344	echo sqimap_mailbox_option_list($imapConnection, $selected) .
956f0980	345	'</select></td></tr>' .
4cf43843	346
	347	html_tag( 'tr',
	348	html_tag( 'th', ' ', 'right' ) .
	349	html_tag( 'td',
6fd95361	350	'<input type="checkbox" name="mf_lmos" ' . (($mailfetch_lmos_[$mf_sn] == 'on')?'checked="checked"':'') .
6fd95361	351	' />' . _("Leave Mail on Server") ,
4cf43843	352	'left' )
	353	) .
	354	html_tag( 'tr',
	355	html_tag( 'th', ' ', 'right' ) .
	356	html_tag( 'td',
6fd95361	357	'<input type="checkbox" name="mf_login" ' . ( ($mailfetch_login_[$mf_sn] == 'on')?'checked="checked"':'') .
333daac7	358	' />' . _("Check mail at login"),
4cf43843	359	'left' )
	360	) .
	361	html_tag( 'tr',
	362	html_tag( 'th', ' ', 'right' ) .
	363	html_tag( 'td',
6fd95361	364	'<input type="checkbox" name="mf_fref" ' . ( ($mailfetch_fref_[$mf_sn] == 'on')?'checked="checked"':'') .
333daac7	365	' />' . _("Check mail at folder refresh") ,
4cf43843	366	'left' )
	367	) .
	368	html_tag( 'tr',
	369	html_tag( 'td',
6fd95361	370	'<input type="submit" name="submit_mailfetch" value="' . _("Modify Server") . '" />',
4cf43843	371	'center', '', 'colspan="2"' )
	372	) .
	373
	374	'</table></form></td></tr></table>';
d3c89357	375	break;
d3c89357	376	default: //unsupported action
4cf43843	377	echo '</form>' .
	378	html_tag( 'table',
	379	html_tag( 'tr',
	380	html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
	381	) ,
658b4c55	382	'center', '', 'width="95%"' ) .
6fd95361	383	'<br />' .
4cf43843	384	html_tag( 'table',
	385	html_tag( 'tr',
	386	html_tag( 'td', '<b>' . _("Undefined Function") . '</b>', 'center', $color[9] ) .
333daac7	387	html_tag( 'td', '<b>' . _("The function you requested is unknown.") . '</b>', 'center', $color[0] )
4cf43843	388	) ,
658b4c55	389	'center', '', 'width="70%"' );
d3c89357	390	}
dcc1cc82	391
5c89bd63	392	?>
4f51df66	393	</body></html>