/**
* 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
*/
-/* Path for SquirrelMail required files. */
+/**
+ * Path for SquirrelMail required files.
+ * @ignore
+ */
define('SM_PATH','../');
/* SquirrelMail required files. */
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);
+set_up_language($squirrelmail_language, TRUE, TRUE);
/**
* Find out the base URI to set cookies.
*/
sqsession_destroy();
-
+sqsession_start();
header('Pragma: no-cache');
+/**
+ * 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.").'<br />'.
+ _("Using CRAM-MD5 or DIGEST-MD5 authentication instead may work.").'<br />';
+ if (!$use_imap_tls) {
+ $string .= _("Also, the use of TLS may allow SquirrelMail to login.").'<br />';
+ }
+ $string .= _("Please contact your system administrator and report this error.");
+ error_box($string,$color);
+ exit;
+ }
+ }
+}
+
do_hook('login_cookie');
+$loginname_value = (sqGetGlobalVar('loginname', $loginname) ? htmlspecialchars($loginname) : '');
+
/* Output the javascript onload function. */
$header = "<script language=\"JavaScript\" type=\"text/javascript\">\n" .
"<!--\n".
" function squirrelmail_loginpage_onload() {\n".
- " document.forms[0].js_autodetect_results.value = '" . SMPREF_JS_ON . "';\n".
" var textElements = 0;\n".
" for (i = 0; i < document.forms[0].elements.length; i++) {\n".
" if (document.forms[0].elements[i].type == \"text\" || document.forms[0].elements[i].type == \"password\") {\n".
if (@file_exists($theme[$theme_default]['PATH']))
@include ($theme[$theme_default]['PATH']);
+if (! isset($color) || ! is_array($color)) {
+ // Add default color theme, if theme loading fails
+ $color = array();
+ $color[0] = '#dcdcdc'; /* light gray TitleBar */
+ $color[1] = '#800000'; /* red */
+ $color[2] = '#cc0000'; /* light red Warning/Error Messages */
+ $color[4] = '#ffffff'; /* white Normal Background */
+ $color[7] = '#0000cc'; /* blue Links */
+ $color[8] = '#000000'; /* black Normal text */
+}
+
displayHtmlHeader( "$org_name - " . _("Login"), $header, FALSE );
-echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\" squirrelmail_loginpage_onload();>" .
- "\n" . '<form action="redirect.php" method="post">' . "\n";
+echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\" onLoad=\"squirrelmail_loginpage_onload()\">" .
+ "\n" . '<form action="redirect.php" method="post" onSubmit="document.forms[0].js_autodetect_results.value=\'' . SMPREF_JS_ON .'\';">' . "\n";
$username_form_name = 'login_username';
$password_form_name = 'secretkey';
do_hook('login_top');
-$loginname_value = (sqGetGlobalVar('loginname', $loginname) ? htmlspecialchars($loginname) : '');
-
/* If they don't have a logo, don't bother.. */
if (isset($org_logo) && $org_logo) {
/* Display width and height like good little people */
}
if(sqgetGlobalVar('mailto', $mailto)) {
- $rcptaddress = '<input type="hidden" name="mailto" value="' . urlencode($mailto) . '" />' . "\n";
+ $rcptaddress = addHidden('mailto', $mailto);
} else {
$rcptaddress = '';
}
' /><br />' . "\n"
: '' ).
( (isset($hide_sm_attributions) && $hide_sm_attributions) ? '' :
- '<small>' . sprintf (_("SquirrelMail version %s"), $version) . '<br />' ."\n".
- ' ' . _("By the SquirrelMail Development Team") . '<br /></small>' . "\n" ) .
+ '<small>' . _("SquirrelMail Webmail Application") . '<br />' ."\n".
+ ' ' . _("By the SquirrelMail Project Team") . '<br /></small>' . "\n" ) .
html_tag( 'table',
html_tag( 'tr',
html_tag( 'td',
_("Name:") ,
'right', '', 'width="30%"' ) .
html_tag( 'td',
- '<input type="text" name="' . $username_form_name .'" value="' . $loginname_value .'" />' ,
+ addInput($username_form_name, $loginname_value),
'left', '', 'width="*"' )
) . "\n" .
html_tag( 'tr',
_("Password:") ,
'right', '', 'width="30%"' ) .
html_tag( 'td',
- '<input type="password" name="' . $password_form_name . '" />' . "\n" .
- '<input type="hidden" name="js_autodetect_results" value="SMPREF_JS_OFF" />' . "\n" .
+ addPwField($password_form_name).
+ addHidden('js_autodetect_results', SMPREF_JS_OFF).
$rcptaddress .
- '<input type="hidden" name="just_logged_in" value="1" />' . "\n",
- 'left', '', 'width="*"' )
- ) ,
- 'center', $color[4], 'border="0" width="100%"' ) ,
- 'left', $color[4] )
- ) .
- html_tag( 'tr',
- html_tag( 'td',
- '<center><input type="submit" value="' . _("Login") . '" /></center>',
- 'left' )
- ),
- '', $color[4], 'border="0" width="350"' ) . '</center>',
- 'center' )
- ) ,
-'', $color[4], 'border="0" cellspacing="0" cellpadding="0" width="100%"' );
-do_hook('login_form');
+ addHidden('just_logged_in', '1'),
+ 'left', '', 'width="*"' )
+ ) .
+ concat_hook_function('login_form') ,
+ 'center', $color[4], 'border="0" width="100%"' ) ,
+ 'left', $color[4] )
+ ) .
+ html_tag( 'tr',
+ html_tag( 'td',
+ '<center>'. addSubmit(_("Login")) .'</center>',
+ 'left' )
+ ),
+ '', $color[4], 'border="0" width="350"' ) . '</center>',
+ 'center' )
+ ) ,
+ '', $color[4], 'border="0" cellspacing="0" cellpadding="0" width="100%"' );
echo '</form>' . "\n";
do_hook('login_bottom');
-echo "</body>\n".
- "</html>\n";
+
?>
+</body></html>
projects / squirrelmail.git / blobdiff