<?php
/**
- * redirect.php
- * Derived from webmail.php by Ralf Kraudelt <kraude@wiwi.uni-rostock.de>
- *
- * Copyright (c) 1999-2002 The SquirrelMail Project Team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
- *
* Prevents users from reposting their form data after a successful logout.
*
- * $Id$
+ * Derived from webmail.php by Ralf Kraudelt <kraude@wiwi.uni-rostock.de>
+ *
+ * @copyright © 1999-2009 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
+ * @version $Id$
+ * @package squirrelmail
*/
-/*****************************************************************/
-/*** THIS FILE NEEDS TO HAVE ITS FORMATTING FIXED!!! ***/
-/*** PLEASE DO SO AND REMOVE THIS COMMENT SECTION. ***/
-/*** + Base level indent should begin at left margin, as ***/
-/*** the require_once below looks. ***/
-/*** + All identation should consist of four space blocks ***/
-/*** + Tab characters are evil. ***/
-/*** + all comments should use "slash-star ... star-slash" ***/
-/*** style -- no pound characters, no slash-slash style ***/
-/*** + FLOW CONTROL STATEMENTS (if, while, etc) SHOULD ***/
-/*** ALWAYS USE { AND } CHARACTERS!!! ***/
-/*** + Please use ' instead of ", when possible. Note " ***/
-/*** should always be used in _( ) function calls. ***/
-/*** Thank you for your help making the SM code more readable. ***/
-/*****************************************************************/
-
-require_once('../functions/i18n.php');
-require_once('../functions/strings.php');
-require_once('../config/config.php');
-require_once('../functions/prefs.php');
-require_once('../functions/imap.php');
-require_once('../functions/plugin.php');
-require_once('../functions/constants.php');
-require_once('../functions/page_header.php');
-
-function attachment_common_parse($str, $debug) {
- global $attachment_common_types, $attachment_common_types_parsed;
-
- $attachment_common_types_parsed[$str] = true;
- $types = explode(', ', $str);
-
- foreach ($types as $val) {
- // Ignore the ";q=1.0" stuff
- if (strpos($val, ';') !== false)
- $val = substr($val, 0, strpos($val, ';'));
-
- if (! isset($attachment_common_types[$val])) {
- $attachment_common_types[$val] = true;
- }
- }
-}
+/** This is the redirect page */
+define('PAGE_NAME', 'redirect');
+/**
+ * Include the SquirrelMail initialization file.
+ */
+require('../include/init.php');
-/* Before starting the session, the base URI must be known. Assuming */
-/* that this file is in the src/ subdirectory (or something). */
-ereg ("(^.*/)[^/]+/[^/]+$", $PHP_SELF, $regs);
-$base_uri = $regs[1];
+/* SquirrelMail required files. */
+require_once(SM_PATH . 'functions/imap_general.php');
+require_once(SM_PATH . 'functions/strings.php');
header('Pragma: no-cache');
$location = get_location();
-session_set_cookie_params (0, $base_uri);
-session_start();
+// session_set_cookie_params (0, $base_uri);
-session_unregister ('user_is_logged_in');
-session_register ('base_uri');
+sqsession_unregister ('user_is_logged_in');
+sqsession_register ($base_uri, 'base_uri');
-if (! isset($squirrelmail_language) ||
- $squirrelmail_language == '' ) {
+/* get globals we me need */
+sqGetGlobalVar('login_username', $login_username);
+sqGetGlobalVar('secretkey', $secretkey);
+if(!sqGetGlobalVar('squirrelmail_language', $squirrelmail_language) || $squirrelmail_language == '') {
$squirrelmail_language = $squirrelmail_default_language;
}
+if (!sqgetGlobalVar('mailtodata', $mailtodata)) {
+ $mailtodata = '';
+}
+
+/* end of get globals */
+
set_up_language($squirrelmail_language, true);
/* Refresh the language cookie. */
-setcookie('squirrelmail_language', $squirrelmail_language, time()+2592000,$base_uri);
+sqsetcookie('squirrelmail_language', $squirrelmail_language, time()+2592000,
+ $base_uri);
if (!isset($login_username)) {
- displayHtmlHeader( _("You must be logged in to access this page.") );
- echo "<BODY BGCOLOR=\"#ffffff\">\n" .
- "<BR> <BR>\n" .
- "<CENTER>\n" .
- '<B>' . _("You must be logged in to access this page.") . "</B><BR>" .
- '<A HREF="../src/login.php">' . _("Go to the login page") . "</A>\n" .
- "</CENTER>\n" .
- "</BODY></HTML>\n";
+ logout_error( _("You must be logged in to access this page.") );
exit;
}
-if (!session_is_registered('user_is_logged_in')) {
- do_hook ('login_before');
+do_hook('login_before', $null);
- $onetimepad = OneTimePadCreate(strlen($secretkey));
- $key = OneTimePadEncrypt($secretkey, $onetimepad);
- session_register('onetimepad');
+$onetimepad = OneTimePadCreate(strlen($secretkey));
+$key = OneTimePadEncrypt($secretkey, $onetimepad);
- /* Verify that username and password are correct. */
- if ($force_username_lowercase) {
- $login_username = strtolower($login_username);
- }
+/* remove redundant spaces */
+$login_username = trim($login_username);
- $imapConnection = sqimap_login($login_username, $key, $imapServerAddress, $imapPort, 0);
- if (!$imapConnection) {
- displayHtmlHeader( _("There was an error contacting the mail server.") );
- echo "<body bgcolor=\"#ffffff\">\n".
- "<br> <br>\n".
- "<center>\n".
- '<b>' . _("There was an error contacting the mail server.") . "</b><br>\n".
- _("Contact your administrator for help.") . "\n".
- "</center>\n".
- "</body></html>\n";
- exit;
- } else {
- $delimiter = sqimap_get_delimiter ($imapConnection);
- }
- sqimap_logout($imapConnection);
- session_register('delimiter');
+/* Case-normalise username if so desired */
+if ($force_username_lowercase) {
+ $login_username = strtolower($login_username);
+}
- $username = $login_username;
- session_register ('username');
- setcookie('key', $key, 0, $base_uri);
- do_hook ('login_verified');
+/* Verify that username and password are correct. */
+$imapConnection = sqimap_login($login_username, $key, $imapServerAddress, $imapPort, 0);
+/* From now on we are logged it. If the login failed then sqimap_login handles it */
+/**
+ * Regenerate session id to make sure that authenticated session uses
+ * different ID than one used before user authenticated. This is a
+ * countermeasure against session fixation attacks.
+ * NB: session_regenerate_id() was added in PHP 4.3.2 (and new session
+ * cookie is only sent out in this call as of PHP 4.3.3), but PHP 4
+ * is not vulnerable to session fixation problems in SquirrelMail
+ * because it prioritizes $base_uri subdirectory cookies differently
+ * than PHP 5, which is otherwise vulnerable. If we really want to,
+ * we could define our own session_regenerate_id() when one does not
+ * exist, but there seems to be no reason to do so.
+ */
+sqsession_is_active();
+if (function_exists('session_regenerate_id')) {
+ session_regenerate_id();
}
+/**
+* The cookie part. session_start and session_regenerate_session normally set
+* their own cookie. SquirrelMail sets another cookie which overwites the
+* php cookies. The sqsetcookie function sets the cookie by using the header
+* function which gives us full control how the cookie is set. We do that
+* to add the HttpOnly cookie attribute which blocks javascript access on
+* IE6 SP1.
+*/
+sqsetcookie(session_name(),session_id(),false,$base_uri);
+sqsetcookie('key', $key, false, $base_uri);
+
+sqsession_register($onetimepad, 'onetimepad');
+
+$sqimap_capabilities = sqimap_capability($imapConnection);
+
+/* Server side sorting control */
+if (isset($sqimap_capabilities['SORT']) && $sqimap_capabilities['SORT'] == true &&
+ isset($disable_server_sort) && $disable_server_sort) {
+ unset($sqimap_capabilities['SORT']);
+}
+
+/* Thread sort control */
+if (isset($sqimap_capabilities['THREAD']) && $sqimap_capabilities['THREAD'] == true &&
+ isset($disable_thread_sort) && $disable_thread_sort) {
+ unset($sqimap_capabilities['THREAD']);
+}
+
+sqsession_register($sqimap_capabilities, 'sqimap_capabilities');
+$delimiter = sqimap_get_delimiter ($imapConnection);
+
+if (isset($sqimap_capabilities['NAMESPACE']) && $sqimap_capabilities['NAMESPACE'] == true) {
+ $namespace = sqimap_get_namespace($imapConnection);
+ sqsession_register($namespace, 'sqimap_namespace');
+}
+
+sqimap_logout($imapConnection);
+sqsession_register($delimiter, 'delimiter');
+
+$username = $login_username;
+sqsession_register ($username, 'username');
+do_hook('login_verified', $null);
+
/* Set the login variables. */
$user_is_logged_in = true;
$just_logged_in = true;
/* And register with them with the session. */
-session_register ('user_is_logged_in');
-session_register ('just_logged_in');
+sqsession_register ($user_is_logged_in, 'user_is_logged_in');
+sqsession_register ($just_logged_in, 'just_logged_in');
/* parse the accepted content-types of the client */
$attachment_common_types = array();
$attachment_common_types_parsed = array();
-session_register('attachment_common_types');
-session_register('attachment_common_types_parsed');
+sqsession_register($attachment_common_types, 'attachment_common_types');
+sqsession_register($attachment_common_types_parsed, 'attachment_common_types_parsed');
-$debug = false;
-if (isset($HTTP_SERVER_VARS['HTTP_ACCEPT']) &&
- !isset($attachment_common_types_parsed[$HTTP_SERVER_VARS['HTTP_ACCEPT']]))
- attachment_common_parse($HTTP_SERVER_VARS['HTTP_ACCEPT'], $debug);
-if (isset($HTTP_ACCEPT) &&
- !isset($attachment_common_types_parsed[$HTTP_ACCEPT]))
- attachment_common_parse($HTTP_ACCEPT, $debug);
+if ( sqgetGlobalVar('HTTP_ACCEPT', $http_accept, SQ_SERVER) &&
+ !isset($attachment_common_types_parsed[$http_accept]) ) {
+ attachment_common_parse($http_accept);
+}
+// having just logged in, need to synch the template file cache
+// so the right template set is displayed (per user prefs)
+require(SM_PATH . 'include/load_prefs.php');
+global $sTemplateID;
+Template::cache_template_file_hierarchy($sTemplateID, TRUE);
/* Complete autodetection of Javascript. */
-$javascript_setting = getPref
- ($data_dir, $username, 'javascript_setting', SMPREF_JS_AUTODETECT);
-$js_autodetect_results = (isset($js_autodetect_results) ?
- $js_autodetect_results : SMPREF_JS_OFF);
-if ($javascript_setting == SMPREF_JS_AUTODETECT) {
- if ($js_autodetect_results == SMPREF_JS_ON) {
- setPref($data_dir, $username, 'javascript_on', SMPREF_JS_ON);
- } else {
- setPref($data_dir, $username, 'javascript_on', SMPREF_JS_OFF);
+checkForJavascript();
+
+/* Compute the URL to forward the user to. */
+$redirect_url = $location . '/webmail.php';
+
+if ( sqgetGlobalVar('session_expired_location', $session_expired_location, SQ_SESSION) ) {
+ sqsession_unregister('session_expired_location');
+ if ( $session_expired_location == 'compose' ) {
+ $compose_new_win = getPref($data_dir, $username, 'compose_new_win', 0);
+ if ($compose_new_win) {
+ // do not prefix $location here because $session_expired_location is set to the PAGE_NAME
+ // of the last page
+ $redirect_url = $location . '/' . $session_expired_location . '.php';
+ } else {
+ $redirect_url = $location . '/webmail.php?right_frame=' . urlencode($session_expired_location . '.php');
+ }
+ } else if ($session_expired_location != 'webmail'
+ && $session_expired_location != 'left_main') {
+ $redirect_url = $location . '/webmail.php?right_frame=' . urlencode($session_expired_location . '.php');
}
-} else {
- setPref($data_dir, $username, 'javascript_on', SMPREF_JS_OFF);
+ unset($session_expired_location);
}
-/* Compute the URL to forward the user to. */
-if(isset($rcptemail)) {
- $redirect_url = 'webmail.php?right_frame=compose.php&rcptaddress=';
- $redirect_url .= urlencode($rcptemail);
-} else {
- $redirect_url = 'webmail.php';
+if($mailtodata != '') {
+ $redirect_url = $location . '/webmail.php?right_frame=compose.php&mailtodata=';
+ $redirect_url .= urlencode($mailtodata);
}
-/* Send them off to the appropriate page. */
+/* Write session data and send them off to the appropriate page. */
+session_write_close();
header("Location: $redirect_url");
+exit;
+
+/* --------------------- end main ----------------------- */
-?>
+function attachment_common_parse($str) {
+ global $attachment_common_types, $attachment_common_types_parsed;
+
+ /*
+ * Replace ", " with "," and explode on that as Mozilla 1.x seems to
+ * use "," to seperate whilst IE, and earlier versions of Mozilla use
+ * ", " to seperate
+ */
+
+ $str = str_replace( ', ' , ',' , $str );
+ $types = explode(',', $str);
+
+ foreach ($types as $val) {
+ // Ignore the ";q=1.0" stuff
+ if (strpos($val, ';') !== false) {
+ $val = substr($val, 0, strpos($val, ';'));
+ }
+ if (! isset($attachment_common_types[$val])) {
+ $attachment_common_types[$val] = true;
+ }
+ }
+ sqsession_register($attachment_common_types, 'attachment_common_types');
+
+ /* mark as parsed */
+ $attachment_common_types_parsed[$str] = true;
+}
projects / squirrelmail.git / blobdiff