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

<?php

/**
 * mail_fetch/options.php
 *
 * Setup of the mailfetch plugin.
 *
 * @copyright &copy; 1999-2007 The SquirrelMail Project Team
 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
 * @version $Id$
 * @package plugins
 * @subpackage mail_fetch
 */

/**
 * Include the SquirrelMail initialization file.
 */
require('../../include/init.php');
include_once(SM_PATH . 'plugins/mail_fetch/functions.php' );
include_once(SM_PATH . 'functions/imap_general.php');
include_once(SM_PATH . 'functions/forms.php');

/* globals */
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('mf_auth',          $mf_auth,          SQ_POST);
sqgetGlobalVar('mf_type',          $mf_type,          SQ_POST);
sqgetGlobalVar('submit_mailfetch', $submit_mailfetch, SQ_POST);


/* end globals */

displayPageHeader( $color );

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:""));
     $pass = "";
     if ( isset($mf_pass) ) {
        if ( isset($mf_cypher) && $mf_cypher == 'on' ) {
            setPref($data_dir,$username,"mailfetch_cypher", ($mf_cypher == 'on' ? 'on' : ''));
            $pass = encrypt($mf_pass);
        } else {
            $pass = $mf_pass;
        }
     }
     setPref($data_dir,$username,"mailfetch_pass_$mf_sn",$pass);
     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:""));
     setPref($data_dir,$username,"mailfetch_auth_$mf_sn",(isset($mf_auth)?$mf_auth:MAIL_FETCH_AUTH_USER));
     setPref($data_dir,$username,"mailfetch_type_$mf_sn",(isset($mf_type)?$mf_type:MAIL_FETCH_USE_PLAIN));
     $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:""));
     $pass = "";
     if ( isset($mf_pass) ) {
        if ( isset($mf_cypher) && $mf_cypher == 'on' ) {
            setPref($data_dir,$username,"mailfetch_cypher", 'on');
            $pass = encrypt($mf_pass);
        } else {
            setPref($data_dir,$username,"mailfetch_cypher", '');
            $pass = $mf_pass;
        }
     }
     setPref($data_dir,$username,"mailfetch_pass_$mf_sn",$pass);
     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:""));
     setPref($data_dir,$username,"mailfetch_auth_$mf_sn",(isset($mf_auth)?$mf_auth:MAIL_FETCH_AUTH_USER));
     setPref($data_dir,$username,"mailfetch_type_$mf_sn",(isset($mf_type)?$mf_type:MAIL_FETCH_USE_PLAIN));
     $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_auth_'.$i,
                     getPref($data_dir,$username, 'mailfetch_auth_'.$tmp,MAIL_FETCH_AUTH_USER));
             setPref($data_dir,$username,'mailfetch_type_'.$i,
                     getPref($data_dir,$username, 'mailfetch_type_'.$tmp,MAIL_FETCH_USE_PLAIN));
             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");
    $mailfetch_auth_[$i] = getPref($data_dir, $username, "mailfetch_auth_$i",MAIL_FETCH_AUTH_USER);
    $mailfetch_type_[$i] = getPref($data_dir, $username, "mailfetch_type_$i",MAIL_FETCH_USE_PLAIN);
    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', _("Authentication type:"), 'right' ) .
             html_tag( 'td', addSelect('mf_auth',
                                       array(MAIL_FETCH_AUTH_USER     => _("USER"),
                                             MAIL_FETCH_AUTH_APOP     => _("APOP"),
                                             MAIL_FETCH_AUTH_RFC1939  => _("APOP or USER")),
                                       MAIL_FETCH_AUTH_USER,true), 'left' )
                   ) .
         html_tag( 'tr',
             html_tag( 'th', _("Connection type:"), 'right' ) .
             html_tag( 'td', addSelect('mf_type',
                                       array(MAIL_FETCH_USE_PLAIN => _("Plain text"),
                                             MAIL_FETCH_USE_TLS   => _("Use TLS"),
                                             MAIL_FETCH_USE_STLS  => _("Use StartTLS")),
                                       MAIL_FETCH_USE_PLAIN,true), 'left' )
                   ) .
         html_tag( 'tr' ) .
             html_tag( 'th', _("Store in Folder:"), 'right' ) .
             html_tag( 'td', '', 'left' );
     $imapConnection = sqimap_login ($username, false, $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', _("Authentication type:"), 'right' ) .
                 html_tag( 'td', addSelect('mf_auth',array(MAIL_FETCH_AUTH_USER     => _("USER"),
                                                           MAIL_FETCH_AUTH_APOP     => _("APOP"),
                                                           MAIL_FETCH_AUTH_RFC1939  => _("APOP or USER")),
                                                           $mailfetch_auth_[$mf_sn],true), 'left' )
                       ) .
             html_tag( 'tr',
                 html_tag( 'th', _("Connection type:"), 'right' ) .
                 html_tag( 'td', addSelect('mf_type',array(MAIL_FETCH_USE_PLAIN => _("Plain text"),
                                                           MAIL_FETCH_USE_TLS   => _("Use TLS"),
                                                           MAIL_FETCH_USE_STLS  => _("Use StartTLS")),
                                                           $mailfetch_type_[$mf_sn],true), 'left' )
                       ) .
             html_tag( 'tr' ) .
                 html_tag( 'th', _("Store in Folder:"), 'right' ) .
                 html_tag( 'td', '', 'left' );

     $imapConnection = sqimap_login ($username, false, $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%"' );
}

$oTemplate->display('footer.tpl');
Commit	Line	Data
d622d38a	1	<?php
4b4abf93	2
8d6a115b	3	/**
	4	* mail_fetch/options.php
	5	*
8d6a115b	6	* Setup of the mailfetch plugin.
8d6a115b	7	*
4b5049de	8	* @copyright © 1999-2007 The SquirrelMail Project Team
4b4abf93	9	* @license http://opensource.org/licenses/gpl-license.php GNU Public License
4f51df66	10	* @version $Id$
ea5f4b8e	11	* @package plugins
ea5f4b8e	12	* @subpackage mail_fetch
8d6a115b	13	*/
d622d38a	14
202bcbcc	15	/**
	16	* Include the SquirrelMail initialization file.
	17	*/
	18	require('../../include/init.php');
929da10d	19	include_once(SM_PATH . 'plugins/mail_fetch/functions.php' );
202bcbcc	20	include_once(SM_PATH . 'functions/imap_general.php');
929da10d	21	include_once(SM_PATH . 'functions/forms.php');
d622d38a	22
3c66c567	23	/* globals */
3c66c567	24	sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
91e0dccc	25
3c66c567	26	if(!sqgetGlobalVar('mf_cypher', $mf_cypher, SQ_POST)) {
	27	$mf_cypher = '';
	28	}
	29	if(! sqgetGlobalVar('mf_action', $mf_action, SQ_POST) ) {
a747d971	30	if (sqgetGlobalVar('mf_action_mod', $mf_action_mod, SQ_POST)) {
	31	$mf_action = 'Modify';
	32	}
	33	elseif (sqgetGlobalVar('mf_action_del', $mf_action_del, SQ_POST)) {
	34	$mf_action = 'Delete';
	35	}
	36	else {
	37	$mf_action = 'config';
	38	}
3c66c567	39	}
86bb8549	40
162cd2c6	41	sqgetGlobalVar('mf_sn', $mf_sn, SQ_POST);
3c66c567	42	sqgetGlobalVar('mf_server', $mf_server, SQ_POST);
	43	sqgetGlobalVar('mf_port', $mf_port, SQ_POST);
	44	sqgetGlobalVar('mf_alias', $mf_alias, SQ_POST);
	45	sqgetGlobalVar('mf_user', $mf_user, SQ_POST);
	46	sqgetGlobalVar('mf_pass', $mf_pass, SQ_POST);
	47	sqgetGlobalVar('mf_subfolder', $mf_subfolder, SQ_POST);
	48	sqgetGlobalVar('mf_login', $mf_login, SQ_POST);
	49	sqgetGlobalVar('mf_fref', $mf_fref, SQ_POST);
	50	sqgetGlobalVar('mf_lmos', $mf_lmos, SQ_POST);
929da10d	51	sqgetGlobalVar('mf_auth', $mf_auth, SQ_POST);
929da10d	52	sqgetGlobalVar('mf_type', $mf_type, SQ_POST);
3c66c567	53	sqgetGlobalVar('submit_mailfetch', $submit_mailfetch, SQ_POST);
d622d38a	54
a747d971	55
3c66c567	56	/* end globals */
3c66c567	57
876fdb60	58	displayPageHeader( $color );
d622d38a	59
60683821	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:""));
	65	setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
	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:""));
f54ec17d	68	$pass = "";
	69	if ( isset($mf_pass) ) {
	70	if ( isset($mf_cypher) && $mf_cypher == 'on' ) {
	71	setPref($data_dir,$username,"mailfetch_cypher", ($mf_cypher == 'on' ? 'on' : ''));
	72	$pass = encrypt($mf_pass);
	73	} else {
	74	$pass = $mf_pass;
	75	}
	76	}
	77	setPref($data_dir,$username,"mailfetch_pass_$mf_sn",$pass);
60683821	78	setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
	79	setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
	80	setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
	81	setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
929da10d	82	setPref($data_dir,$username,"mailfetch_auth_$mf_sn",(isset($mf_auth)?$mf_auth:MAIL_FETCH_AUTH_USER));
929da10d	83	setPref($data_dir,$username,"mailfetch_type_$mf_sn",(isset($mf_type)?$mf_type:MAIL_FETCH_USE_PLAIN));
60683821	84	$mf_sn++;
	85	setPref($data_dir,$username,'mailfetch_server_number', $mf_sn);
	86	$mf_action = 'config';
	87	break;
	88	case 'confirm_modify':
	89	//modify a server
	90	if (!isset($mf_server)) return;
	91	setPref($data_dir,$username,"mailfetch_server_$mf_sn", (isset($mf_server)?$mf_server:""));
	92	setPref($data_dir,$username,"mailfetch_port_$mf_sn", (isset($mf_port)?$mf_port:110));
	93	setPref($data_dir,$username,"mailfetch_alias_$mf_sn", (isset($mf_alias)?$mf_alias:""));
	94	setPref($data_dir,$username,"mailfetch_user_$mf_sn",(isset($mf_user)?$mf_user:""));
f54ec17d	95	$pass = "";
	96	if ( isset($mf_pass) ) {
	97	if ( isset($mf_cypher) && $mf_cypher == 'on' ) {
	98	setPref($data_dir,$username,"mailfetch_cypher", 'on');
	99	$pass = encrypt($mf_pass);
	100	} else {
	101	setPref($data_dir,$username,"mailfetch_cypher", '');
	102	$pass = $mf_pass;
	103	}
	104	}
	105	setPref($data_dir,$username,"mailfetch_pass_$mf_sn",$pass);
60683821	106	setPref($data_dir,$username,"mailfetch_lmos_$mf_sn",(isset($mf_lmos)?$mf_lmos:""));
	107	setPref($data_dir,$username,"mailfetch_login_$mf_sn",(isset($mf_login)?$mf_login:""));
	108	setPref($data_dir,$username,"mailfetch_fref_$mf_sn",(isset($mf_fref)?$mf_fref:""));
	109	setPref($data_dir,$username,"mailfetch_subfolder_$mf_sn",(isset($mf_subfolder)?$mf_subfolder:""));
929da10d	110	setPref($data_dir,$username,"mailfetch_auth_$mf_sn",(isset($mf_auth)?$mf_auth:MAIL_FETCH_AUTH_USER));
929da10d	111	setPref($data_dir,$username,"mailfetch_type_$mf_sn",(isset($mf_type)?$mf_type:MAIL_FETCH_USE_PLAIN));
60683821	112	$mf_action = 'config';
	113	break;
	114	case 'confirm_delete':
	115	//delete a server
	116	$mailfetch_server_number = getPref($data_dir, $username, "mailfetch_server_number");
	117	if ($mf_sn+1==$mailfetch_server_number) {
	118	//is the last server, whe can only decrase $mailfetch_server_number
	119	$mailfetch_server_number--;
	120	setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
	121	} else {
	122	//if not the last, all the sequel server come up one step
	123	//then whe decrase $mailfetch_server_number
	124	$mailfetch_server_number--;
	125	for ($i=$mf_sn;$i<$mailfetch_server_number;$i++) {
	126	$tmp=$i+1;
	127	setPref($data_dir,$username,'mailfetch_server_'.$i,
	128	getPref($data_dir,$username, 'mailfetch_server_'.$tmp));
	129	setPref($data_dir,$username,'mailfetch_port_'.$i,
	130	getPref($data_dir,$username, 'mailfetch_port_'.$tmp));
	131	setPref($data_dir,$username,'mailfetch_alias_'.$i,
	132	getPref($data_dir,$username, 'mailfetch_alias_'.$tmp));
	133	setPref($data_dir,$username,'mailfetch_user_'.$i,
	134	getPref($data_dir,$username, 'mailfetch_user_'.$tmp));
	135	setPref($data_dir,$username,'mailfetch_pass_'.$i,
	136	getPref($data_dir,$username, 'mailfetch_pass_'.$tmp));
	137	setPref($data_dir,$username,'mailfetch_lmos_'.$i,
	138	getPref($data_dir,$username, 'mailfetch_lmos_'.$tmp));
	139	setPref($data_dir,$username,'mailfetch_login_'.$i,
	140	getPref($data_dir,$username, 'mailfetch_login_'.$tmp));
	141	setPref($data_dir,$username,'mailfetch_fref_'.$i,
	142	getPref($data_dir,$username, 'mailfetch_fref_'.$tmp));
	143	setPref($data_dir,$username,'mailfetch_subfolder_'.$i,
	144	getPref($data_dir,$username, 'mailfetch_subfolder_'.$tmp));
929da10d	145	setPref($data_dir,$username,'mailfetch_auth_'.$i,
	146	getPref($data_dir,$username, 'mailfetch_auth_'.$tmp,MAIL_FETCH_AUTH_USER));
	147	setPref($data_dir,$username,'mailfetch_type_'.$i,
	148	getPref($data_dir,$username, 'mailfetch_type_'.$tmp,MAIL_FETCH_USE_PLAIN));
60683821	149	setPref($data_dir,$username,'mailfetch_uidl_'.$i,
	150	getPref($data_dir,$username, 'mailfetch_uidl_'.$tmp));
	151	}
	152	setPref($data_dir,$username,"mailfetch_server_number", $mailfetch_server_number);
	153	}
	154	$mf_action = 'config';
	155	break;
	156	}
4cf43843	157
60683821	158	$mailfetch_server_number = getPref($data_dir, $username, 'mailfetch_server_number', 0);
	159	$mailfetch_cypher = getPref( $data_dir, $username, 'mailfetch_cypher' );
	160	if ($mailfetch_server_number<1) {
	161	$mailfetch_server_number=0;
	162	}
	163	for ($i=0;$i<$mailfetch_server_number;$i++) {
	164	$mailfetch_server_[$i] = getPref($data_dir, $username, "mailfetch_server_$i");
	165	$mailfetch_port_[$i] = getPref($data_dir, $username, "mailfetch_port_$i");
	166	$mailfetch_alias_[$i] = getPref($data_dir, $username, "mailfetch_alias_$i");
	167	$mailfetch_user_[$i] = getPref($data_dir, $username, "mailfetch_user_$i");
	168	$mailfetch_pass_[$i] = getPref($data_dir, $username, "mailfetch_pass_$i");
	169	$mailfetch_lmos_[$i] = getPref($data_dir, $username, "mailfetch_lmos_$i");
	170	$mailfetch_login_[$i] = getPref($data_dir, $username, "mailfetch_login_$i");
	171	$mailfetch_fref_[$i] = getPref($data_dir, $username, "mailfetch_fref_$i");
	172	$mailfetch_uidl_[$i] = getPref($data_dir, $username, "mailfetch_uidl_$i");
	173	$mailfetch_subfolder_[$i] = getPref($data_dir, $username, "mailfetch_subfolder_$i");
929da10d	174	$mailfetch_auth_[$i] = getPref($data_dir, $username, "mailfetch_auth_$i",MAIL_FETCH_AUTH_USER);
929da10d	175	$mailfetch_type_[$i] = getPref($data_dir, $username, "mailfetch_type_$i",MAIL_FETCH_USE_PLAIN);
60683821	176	if( $mailfetch_cypher == 'on' ) $mailfetch_pass_[$i] = decrypt( $mailfetch_pass_[$i] );
60683821	177	}
ae8a7931	178
60683821	179	echo '<br /><form method="post" action="'.$PHP_SELF.'">' .
	180	html_tag( 'table',
	181	html_tag( 'tr',
	182	html_tag('td',
	183	'<b>' . _("Remote POP server settings") . '</b>',
	184	'center', $color[0] )
	185	),
	186	'center', '', 'width="95%"' ) .
	187	html_tag( 'table',
	188	html_tag( 'tr',
	189	html_tag( 'td',
	190	_("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.") ,
	191	'left' )
	192	) .
	193	html_tag( 'tr',
	194	html_tag( 'td',
	195	_("If you leave password empty, it will be asked when you fetch mail.") ,
	196	'left' )
	197	) .
	198	html_tag( 'tr',
	199	html_tag( 'td',
	200	'<input type="checkbox" name="mf_cypher" ' .
	201	(($mailfetch_cypher=='on')?'checked="checked" />':' />') .
	202	_("Encrypt passwords (informative only)") ,
	203	'right' )
	204	) ,
	205	'center', '', 'width="95%"' );
d622d38a	206
60683821	207	switch( $mf_action ) {
	208	case 'config':
	209	echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
	210	html_tag( 'tr',
	211	html_tag( 'td', '<b>' . _("Add Server") . '</b>', 'center', $color[9] )
	212	) .
	213	html_tag( 'tr' ) .
	214	html_tag( 'td', '', 'center', $color[0] ) .
4cf43843	215
60683821	216	"<input type=\"hidden\" name=\"mf_sn\" value=\"$mailfetch_server_number\" />" .
	217	'<input type="hidden" name="mf_action" value="add" />' .
	218	html_tag( 'table' ) .
	219	html_tag( 'tr',
	220	html_tag( 'th', _("Server:"), 'right' ) .
	221	html_tag( 'td', '<input type="text" name="mf_server" value="" size="40" />', 'left' )
	222	) .
	223	html_tag( 'tr',
	224	html_tag( 'th', _("Port:"), 'right') .
	225	html_tag( 'td', '<input type="text" name="mf_port" value="110" size="20" />', 'left')
	226	) .
	227	html_tag( 'tr',
	228	html_tag( 'th', _("Alias:"), 'right' ) .
	229	html_tag( 'td', '<input type="text" name="mf_alias" value="" size="20" />', 'left' )
	230	) .
	231	html_tag( 'tr',
	232	html_tag( 'th', _("Username:"), 'right' ) .
	233	html_tag( 'td', '<input type="text" name="mf_user" value="" size="20" />', 'left' )
	234	) .
	235	html_tag( 'tr',
	236	html_tag( 'th', _("Password:"), 'right' ) .
	237	html_tag( 'td', '<input type="password" name="mf_pass" value="" size="20" />', 'left' )
	238	) .
929da10d	239	html_tag( 'tr',
	240	html_tag( 'th', _("Authentication type:"), 'right' ) .
	241	html_tag( 'td', addSelect('mf_auth',
	242	array(MAIL_FETCH_AUTH_USER => _("USER"),
	243	MAIL_FETCH_AUTH_APOP => _("APOP"),
	244	MAIL_FETCH_AUTH_RFC1939 => _("APOP or USER")),
	245	MAIL_FETCH_AUTH_USER,true), 'left' )
	246	) .
	247	html_tag( 'tr',
	248	html_tag( 'th', _("Connection type:"), 'right' ) .
	249	html_tag( 'td', addSelect('mf_type',
	250	array(MAIL_FETCH_USE_PLAIN => _("Plain text"),
	251	MAIL_FETCH_USE_TLS => _("Use TLS"),
	252	MAIL_FETCH_USE_STLS => _("Use StartTLS")),
	253	MAIL_FETCH_USE_PLAIN,true), 'left' )
	254	) .
60683821	255	html_tag( 'tr' ) .
	256	html_tag( 'th', _("Store in Folder:"), 'right' ) .
	257	html_tag( 'td', '', 'left' );
2128bbc6	258	$imapConnection = sqimap_login ($username, false, $imapServerAddress, $imapPort, 0);
60683821	259	$boxes = sqimap_mailbox_list($imapConnection);
60683821	260	echo '<select name="mf_subfolder">';
4cf43843	261
60683821	262	$selected = 0;
	263	if ( isset($mf_subfolder) )
	264	$selected = array(strtolower($mf_subfolder));
	265	echo sqimap_mailbox_option_list($imapConnection, $selected);
	266	echo '</select></td></tr>' .
	267	html_tag( 'tr',
	268	html_tag( 'th', ' ', 'right' ) .
	269	html_tag( 'td', '<input type="checkbox" name="mf_lmos" checked="checked" />' . _("Leave Mail on Server"), 'left' )
	270	) .
	271	html_tag( 'tr',
	272	html_tag( 'th', ' ', 'right' ) .
	273	html_tag( 'td', '<input type="checkbox" name="mf_login" />' . _("Check mail at login"), 'left' )
	274	) .
	275	html_tag( 'tr',
	276	html_tag( 'th', ' ', 'right' ) .
	277	html_tag( 'td', '<input type="checkbox" name="mf_fref" />' . _("Check mail at folder refresh"), 'left' )
	278	) .
	279	html_tag( 'tr',
	280	html_tag( 'td',
	281	'<input type="submit" name="submit_mailfetch" value="' . _("Add Server") . '" />',
	282	'center', '', 'colspan="2"' )
	283	) .
	284	'</table></td></tr></table></form>';
4cf43843	285
60683821	286	// Modify Server
	287	echo '<font size="-5"><br /></font>' .
	288	html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
	289	html_tag( 'tr',
	290	html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
	291	) .
	292	html_tag( 'tr' ) .
	293	html_tag( 'td', '', 'center', $color[0] );
	294	if ($mailfetch_server_number>0) {
	295	echo "<form action=\"$PHP_SELF\" method=\"post\" target=\"_self\">";
	296	echo '<b>' . _("Server Name:") . '</b> <select name="mf_sn">';
	297	for ($i=0;$i<$mailfetch_server_number;$i++) {
	298	echo "<option value=\"$i\">" .
	299	htmlspecialchars( (($mailfetch_alias_[$i]=='')?$mailfetch_server_[$i]:$mailfetch_alias_[$i])) . "</option>";
	300	}
	301	echo '</select>'.
	302	'  <input type="submit" name="mf_action_mod" value="' . _("Modify") . '" />'.
	303	'  <input type="submit" name="mf_action_del" value="' . _("Delete") . '" />'.
	304	'</form>';
	305	} else {
	306	echo _("No servers known.");
	307	}
	308	echo '</td></tr></table>';
	309	break;
	310	case 'Delete': //erase confirmation about a server
	311	echo html_tag( 'table',
	312	html_tag( 'tr',
	313	html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
	314	) ,
	315	'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
	316	'<br />' .
	317	html_tag( 'table',
	318	html_tag( 'tr',
	319	html_tag( 'td', '<b>' . _("Confirm Deletion of a Server") . '</b>', 'center', $color[9] )
	320	) .
	321	html_tag( 'tr',
	322	html_tag( 'td',
	323	"<input type=\"hidden\" name=\"mf_sn\" value=\"$mf_sn\" />" .
	324	'<input type="hidden" name="mf_action" value="confirm_delete" />' .
	325	'<br />' . _("Selected Server:") . " <b>" . htmlspecialchars($mailfetch_server_[$mf_sn]) . "</b><br />" .
	326	_("Confirm delete of selected server?") . '<br /><br />' .
	327	'<input type="submit" name="submit_mailfetch" value="' . _("Confirm Delete") . '" />' .
	328	'<br /></form>' ,
	329	'center', $color[9] )
	330	) ,
	331	'center', '', 'width="70%" cellpadding="5" cellspacing="1"' );
	332	break; //modify a server
	333	case 'Modify':
	334	echo html_tag( 'table',
	335	html_tag( 'tr',
	336	html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
	337	) ,
	338	'center', '', 'width="95%" cellpadding="5" cellspacing="1"' ) .
	339	'<br />' .
	340	html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="5" cellspacing="1"' ) .
	341	html_tag( 'tr',
	342	html_tag( 'td', '<b>' . _("Modify Server") . '</b>', 'center', $color[9] )
	343	) .
	344	html_tag( 'tr' ) .
	345	html_tag( 'td', '', 'center', $color[0] ) .
4cf43843	346
60683821	347	"<input type=\"hidden\" name=\"mf_sn\" value=\"$mf_sn\" />" .
	348	'<input type="hidden" name="mf_action" value="confirm_modify" />' .
	349	html_tag( 'table' ) .
	350	html_tag( 'tr',
	351	html_tag( 'th', _("Server:"), 'right' ) .
	352	html_tag( 'td', '<input type="text" name="mf_server" value="' .
	353	htmlspecialchars($mailfetch_server_[$mf_sn]) . '" size="40" />', 'left' )
	354	) .
	355	html_tag( 'tr',
	356	html_tag( 'th', _("Port:"), 'right' ) .
	357	html_tag( 'td', '<input type="text" name="mf_port" value="' .
	358	htmlspecialchars($mailfetch_port_[$mf_sn]) . '" size="40" />', 'left' )
	359	) .
	360	html_tag( 'tr',
	361	html_tag( 'th', _("Alias:"), 'right' ) .
	362	html_tag( 'td', '<input type="text" name="mf_alias" value="' .
	363	htmlspecialchars($mailfetch_alias_[$mf_sn]) . '" size="40" />', 'left' )
	364	) .
	365	html_tag( 'tr',
	366	html_tag( 'th', _("Username:"), 'right' ) .
	367	html_tag( 'td', '<input type="text" name="mf_user" value="' .
	368	htmlspecialchars($mailfetch_user_[$mf_sn]) . '" size="20" />', 'left' )
	369	) .
	370	html_tag( 'tr',
	371	html_tag( 'th', _("Password:"), 'right' ) .
	372	html_tag( 'td', '<input type="password" name="mf_pass" value="' .
	373	htmlspecialchars($mailfetch_pass_[$mf_sn]) . '" size="20" />', 'left' )
	374	) .
929da10d	375	html_tag( 'tr',
	376	html_tag( 'th', _("Authentication type:"), 'right' ) .
	377	html_tag( 'td', addSelect('mf_auth',array(MAIL_FETCH_AUTH_USER => _("USER"),
	378	MAIL_FETCH_AUTH_APOP => _("APOP"),
	379	MAIL_FETCH_AUTH_RFC1939 => _("APOP or USER")),
	380	$mailfetch_auth_[$mf_sn],true), 'left' )
	381	) .
	382	html_tag( 'tr',
	383	html_tag( 'th', _("Connection type:"), 'right' ) .
	384	html_tag( 'td', addSelect('mf_type',array(MAIL_FETCH_USE_PLAIN => _("Plain text"),
	385	MAIL_FETCH_USE_TLS => _("Use TLS"),
	386	MAIL_FETCH_USE_STLS => _("Use StartTLS")),
	387	$mailfetch_type_[$mf_sn],true), 'left' )
	388	) .
60683821	389	html_tag( 'tr' ) .
	390	html_tag( 'th', _("Store in Folder:"), 'right' ) .
	391	html_tag( 'td', '', 'left' );
dcc1cc82	392
2128bbc6	393	$imapConnection = sqimap_login ($username, false, $imapServerAddress, $imapPort, 0);
60683821	394	$boxes = sqimap_mailbox_list($imapConnection);
	395	echo '<select name="mf_subfolder">';
	396	$selected = 0;
	397	if ( isset($mailfetch_subfolder_[$mf_sn]) ) {
	398	$selected = array(strtolower($mailfetch_subfolder_[$mf_sn]));
	399	}
	400	echo sqimap_mailbox_option_list($imapConnection, $selected) .
	401	'</select></td></tr>' .
	402	html_tag( 'tr',
	403	html_tag( 'th', ' ', 'right' ) .
	404	html_tag( 'td',
	405	'<input type="checkbox" name="mf_lmos" ' . (($mailfetch_lmos_[$mf_sn] == 'on')?'checked="checked"':'') .
	406	' />' . _("Leave Mail on Server") ,
	407	'left' )
	408	) .
	409	html_tag( 'tr',
	410	html_tag( 'th', ' ', 'right' ) .
	411	html_tag( 'td',
	412	'<input type="checkbox" name="mf_login" ' . ( ($mailfetch_login_[$mf_sn] == 'on')?'checked="checked"':'') .
	413	' />' . _("Check mail at login"),
	414	'left' )
	415	) .
	416	html_tag( 'tr',
	417	html_tag( 'th', ' ', 'right' ) .
	418	html_tag( 'td',
	419	'<input type="checkbox" name="mf_fref" ' . ( ($mailfetch_fref_[$mf_sn] == 'on')?'checked="checked"':'') .
	420	' />' . _("Check mail at folder refresh") ,
	421	'left' )
	422	) .
	423	html_tag( 'tr',
	424	html_tag( 'td',
	425	'<input type="submit" name="submit_mailfetch" value="' . _("Modify Server") . '" />',
	426	'center', '', 'colspan="2"' )
	427	) .
	428	'</table></form></td></tr></table>';
	429	break;
	430	default: //unsupported action
	431	echo '</form>' .
	432	html_tag( 'table',
	433	html_tag( 'tr',
	434	html_tag( 'td', '<b>' . _("Fetching Servers") . '</b>', 'center', $color[0] )
	435	) ,
	436	'center', '', 'width="95%"' ) .
	437	'<br />' .
	438	html_tag( 'table',
	439	html_tag( 'tr',
	440	html_tag( 'td', '<b>' . _("Undefined Function") . '</b>', 'center', $color[9] ) .
	441	html_tag( 'td', '<b>' . _("The function you requested is unknown.") . '</b>', 'center', $color[0] )
	442	) ,
	443	'center', '', 'width="70%"' );
	444	}
929da10d	445
8ab3c1bd	446	$oTemplate->display('footer.tpl');