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

<?php

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

define('SM_PATH','../../');

require_once(SM_PATH . 'include/validate.php');
require_once(SM_PATH . 'functions/imap.php');
require_once(SM_PATH . 'include/load_prefs.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) ) {
    $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%" cols="1"' ) .
            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 required when you fetch mail.") ,
                    'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'td',
                        '<input type=checkbox name=mf_cypher ' .
                        (($mailfetch_cypher=='on')?'checked >':'>') .
                        _("Encrypt passwords (informative only)") ,
                    'right' )
                ) ,
            'center', '', 'width="95%" cols="1"' );

    switch( $mf_action ) {
    case 'config':
        echo html_tag( 'table', '', 'center', '', 'width="70%" cols="1" 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>' . _("Leave Mail on Server"), 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td', '<input type="checkbox" name="mf_login">' . _("Check mail during login"), 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'th', '&nbsp;', 'right' ) .
                    html_tag( 'td', '<input type="checkbox" name="mf_fref">' . _("Check mail during folder refresh"), 'left' )
                ) .
                html_tag( 'tr',
                    html_tag( 'td',
                        '<input type=submit name="submit_mailfetch" value="' . _("Add Server") . '">',
                    'center', '', 'colspan="2"' )
                ) .
            '</table></form></td></tr></table>';

        // Modify Server
        echo '<font size=-5><BR></font>' .
            html_tag( 'table', '', 'center', '', 'width="70%" cols="1" 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 value="' . _("Modify") . '">'.
                 '&nbsp;&nbsp;<INPUT TYPE=submit name=mf_action value="' . _("Delete") . '">'.
                 '</form>';
        } else {
            echo _("No-one server in use. Try to add.");
        }
        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%" cols="1" 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>" . htmlentities($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%" cols="1" 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%" cols="1" cellpadding="5" cellspacing="1"' ) .
            '<br>' .
            html_tag( 'table', '', 'center', '', 'width="70%" cols="1" cellpadding="5" cellspacing="1"' ) .
                html_tag( 'tr',
                    html_tag( 'td', '<b>' . _("Mofify a 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="' . htmlentities($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="' . $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="' . htmlentities($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="' . $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="' . $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':'') .
                        '>' . _("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':'') .
                        '>' . _("Check mail during 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':'') .
                        '>' . _("Check mail during 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%" cols="1"' ) .
        '<br>' .
        html_tag( 'table',
            html_tag( 'tr',
                html_tag( 'td', '<b>' . _("Undefined Function") . '</b>', 'center', $color[9] ) .
                html_tag( 'td', '<b>' . _("Hey! Wath do You are looking for?") . '</b>', 'center', $color[0] )
            ) ,
        'center', '', 'width="70%" cols="1"' );
    }

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