X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;ds=sidebyside;f=src%2Flogin.php;h=e5efc68a6091f3f2f6dfa44085b492dad881bc12;hb=f5dcd7f397592d2e271e80f97555701fb4ad3a66;hp=ac9b981590a03105eb5c9d36473fcf5caa144e53;hpb=ea348fd37a5f4faae0586ffce5de22e1312ecf8f;p=squirrelmail.git diff --git a/src/login.php b/src/login.php index ac9b9815..e5efc68a 100644 --- a/src/login.php +++ b/src/login.php @@ -3,73 +3,85 @@ /** * login.php -- simple login screen * - * Copyright (c) 1999-2003 The SquirrelMail Project Team - * Licensed under the GNU GPL. For full terms see the file COPYING. - * * This a simple login screen. Some housekeeping is done to clean * cookies and find language. * - * $Id$ + * @copyright © 1999-2006 The SquirrelMail Project Team + * @license http://opensource.org/licenses/gpl-license.php GNU Public License + * @version $Id$ + * @package squirrelmail + */ + +// reduces the files included in init.php +$sInitLocation = 'login'; + +/** + * Include the SquirrelMail initialization file. */ +require('../include/init.php'); -/* Path for SquirrelMail required files. */ -define('SM_PATH','../'); /* SquirrelMail required files. */ -require_once(SM_PATH . 'functions/strings.php'); -require_once(SM_PATH . 'config/config.php'); -require_once(SM_PATH . 'functions/i18n.php'); -require_once(SM_PATH . 'functions/plugin.php'); -require_once(SM_PATH . 'functions/constants.php'); -require_once(SM_PATH . 'functions/page_header.php'); -require_once(SM_PATH . 'functions/html.php'); -require_once(SM_PATH . 'functions/global.php'); require_once(SM_PATH . 'functions/imap_general.php'); +require_once(SM_PATH . 'functions/forms.php'); -/* +/** * $squirrelmail_language is set by a cookie when the user selects * language and logs out */ set_up_language($squirrelmail_language, TRUE, TRUE); -/** - * Find out the base URI to set cookies. - */ -if (!function_exists('sqm_baseuri')){ - require_once(SM_PATH . 'functions/display_messages.php'); -} -$base_uri = sqm_baseuri(); - /* * In case the last session was not terminated properly, make sure * we get a new one. */ - sqsession_destroy(); - -header('Pragma: no-cache'); - -$imap = sqimap_create_stream($imapServerAddress, $imapPort, $use_imap_tls); -$logindisabled = sqimap_capability($imap,'LOGINDISABLED'); -sqimap_logout($imap); -if ($logindisabled) { - $string = "The IMAP server is reporting that logins are disabled.
"; - if (!$use_imap_tls) { - $string .= "The use of TLS may allow SquirrelMail to login.
"; +sqsession_is_active(); +$_SESSION=array(); + + +/** + * PHP bug. http://bugs.php.net/11643 (warning, spammed bug tracker) and + * http://bugs.php.net/13834 + * SID constant is not destroyed in PHP 4.1.2, 4.2.3 and maybe other + * versions. Produces warning on login page. Bug should be fixed only in 4.3.0 + */ + +/** + * This detects if the IMAP server has logins disabled, and if so, + * squelches the display of the login form and puts up a message + * explaining the situation. + */ +if($imap_auth_mech == 'login') { + /** + * detect disabled login, only when imapServerAddress contains + * server address and not mapping. See sqimap_get_user_server() + */ + if (substr($imapServerAddress, 0, 4) != "map:") { + $imap = sqimap_create_stream($imapServerAddress, $imapPort, $use_imap_tls); + $logindisabled = sqimap_capability($imap,'LOGINDISABLED'); + sqimap_logout($imap); + if ($logindisabled) { + $string = _("The IMAP server is reporting that plain text logins are disabled.").'
'. + _("Using CRAM-MD5 or DIGEST-MD5 authentication instead may work.").'
'; + if (!$use_imap_tls) { + $string .= _("Also, the use of TLS may allow SquirrelMail to login.").'
'; + } + $string .= _("Please contact your system administrator and report this error."); + error_box($string,$color); + exit; + } } - $string .= "Please contact your system administrator."; - error_box($string,$color); - exit; } do_hook('login_cookie'); -/* Output the javascript onload function. */ +$loginname_value = (sqGetGlobalVar('loginname', $loginname) ? htmlspecialchars($loginname) : ''); -$header = "