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