X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=src%2Flogin.php;h=fc5a4bf910f3e204298d58ad86a64e39d3771772;hp=e459c0aac24a59eb57fc4188212485b8f5325a7e;hb=353d074afac6827c90f4bb03e846c5e453d3b5b1;hpb=d3b3a524c091171c117c06f1d9342b495f6a0783 diff --git a/src/login.php b/src/login.php index e459c0aa..fc5a4bf9 100644 --- a/src/login.php +++ b/src/login.php @@ -3,31 +3,24 @@ /** * login.php -- simple login screen * - * Copyright (c) 1999-2004 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. * + * @copyright 1999-2018 The SquirrelMail Project Team + * @license http://opensource.org/licenses/gpl-license.php GNU Public License * @version $Id$ * @package squirrelmail */ +/** This is the login page */ +define('PAGE_NAME', 'login'); + /** - * Path for SquirrelMail required files. - * @ignore + * Include the SquirrelMail initialization file. */ -define('SM_PATH','../'); +require('../include/init.php'); /* 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'); @@ -38,55 +31,53 @@ require_once(SM_PATH . 'functions/forms.php'); 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'); - -/** - * This detects if the IMAP server has logins disabled, and if so, + * 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') { - $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.").'
'; + /** + * 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); + // display footer (closes html tags) and stop script execution + $oTemplate->display('footer.tpl'); + exit; } - $string .= _("Please contact your system administrator and report this error."); - error_box($string,$color); - exit; } } -do_hook('login_cookie'); +$username_form_name = 'login_username'; +$password_form_name = 'secretkey'; +do_hook('login_cookie', $null); -/* Output the javascript onload function. */ +$loginname_value = (sqGetGlobalVar('loginname', $loginname) ? sm_encode_html_special_chars($loginname) : ''); -$header = "