drop "Application" on second thought (a matter of taste, mostly)
[squirrelmail.git] / src / redirect.php
1 <?php
2
3 /**
4 * Prevents users from reposting their form data after a successful logout.
5 *
6 * Derived from webmail.php by Ralf Kraudelt <kraude@wiwi.uni-rostock.de>
7 *
8 * @copyright &copy; 1999-2007 The SquirrelMail Project Team
9 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
10 * @version $Id$
11 * @package squirrelmail
12 */
13 $sInitLocation = 'redirect';
14
15 /**
16 * Include the SquirrelMail initialization file.
17 */
18 require('../include/init.php');
19
20 /* SquirrelMail required files. */
21 require_once(SM_PATH . 'functions/imap_general.php');
22 require_once(SM_PATH . 'functions/strings.php');
23
24 header('Pragma: no-cache');
25 $location = get_location();
26
27 // session_set_cookie_params (0, $base_uri);
28
29 sqsession_unregister ('user_is_logged_in');
30 sqsession_register ($base_uri, 'base_uri');
31
32 /* get globals we me need */
33 sqGetGlobalVar('login_username', $login_username);
34 sqGetGlobalVar('secretkey', $secretkey);
35 if(!sqGetGlobalVar('squirrelmail_language', $squirrelmail_language) || $squirrelmail_language == '') {
36 $squirrelmail_language = $squirrelmail_default_language;
37 }
38 if (!sqgetGlobalVar('mailtodata', $mailtodata)) {
39 $mailtodata = '';
40 }
41
42 /* end of get globals */
43
44 set_up_language($squirrelmail_language, true);
45 /* Refresh the language cookie. */
46 sqsetcookie('squirrelmail_language', $squirrelmail_language, time()+2592000,
47 $base_uri);
48
49 if (!isset($login_username)) {
50 logout_error( _("You must be logged in to access this page.") );
51 exit;
52 }
53
54 if (!sqsession_is_registered('user_is_logged_in')) {
55 do_hook('login_before', $null);
56
57 $onetimepad = OneTimePadCreate(strlen($secretkey));
58 $key = OneTimePadEncrypt($secretkey, $onetimepad);
59
60 /* remove redundant spaces */
61 $login_username = trim($login_username);
62
63 /* Verify that username and password are correct. */
64 if ($force_username_lowercase) {
65 $login_username = strtolower($login_username);
66 }
67
68 $imapConnection = sqimap_login($login_username, $key, $imapServerAddress, $imapPort, 0);
69 /* From now on we are logged it. If the login failed then sqimap_login handles it */
70
71 /* regenerate the session id to avoid session hyijacking */
72 sqsession_destroy();
73 @sqsession_is_active();
74 session_regenerate_id();
75 /**
76 * The cookie part. session_start and session_regenerate_session normally set
77 * their own cookie. SquirrelMail sets another cookie which overwites the
78 * php cookies. The sqsetcookie function sets the cookie by using the header
79 * function which gives us full control how the cookie is set. We do that
80 * to add the HttpOnly cookie attribute which blocks javascript access on
81 * IE6 SP1.
82 */
83 sqsetcookie(session_name(),session_id(),false,$base_uri);
84 sqsetcookie('key', $key, false, $base_uri);
85
86 sqsession_register($onetimepad, 'onetimepad');
87
88 $sqimap_capabilities = sqimap_capability($imapConnection);
89
90 /* Server side sorting control */
91 if (isset($sqimap_capabilities['SORT']) && $sqimap_capabilities['SORT'] == true &&
92 isset($disable_server_sort) && $disable_server_sort) {
93 unset($sqimap_capabilities['SORT']);
94 }
95
96 /* Thread sort control */
97 if (isset($sqimap_capabilities['THREAD']) && $sqimap_capabilities['THREAD'] == true &&
98 isset($disable_thread_sort) && $disable_thread_sort) {
99 unset($sqimap_capabilities['THREAD']);
100 }
101
102 sqsession_register($sqimap_capabilities, 'sqimap_capabilities');
103 $delimiter = sqimap_get_delimiter ($imapConnection);
104
105 if (isset($sqimap_capabilities['NAMESPACE']) && $sqimap_capabilities['NAMESPACE'] == true) {
106 $namespace = sqimap_get_namespace($imapConnection);
107 sqsession_register($namespace, 'sqimap_namespace');
108 }
109
110 sqimap_logout($imapConnection);
111 sqsession_register($delimiter, 'delimiter');
112
113 $username = $login_username;
114 sqsession_register ($username, 'username');
115 do_hook('login_verified', $null);
116 }
117
118 /* Set the login variables. */
119 $user_is_logged_in = true;
120 $just_logged_in = true;
121
122 /* And register with them with the session. */
123 sqsession_register ($user_is_logged_in, 'user_is_logged_in');
124 sqsession_register ($just_logged_in, 'just_logged_in');
125
126 /* parse the accepted content-types of the client */
127 $attachment_common_types = array();
128 $attachment_common_types_parsed = array();
129 sqsession_register($attachment_common_types, 'attachment_common_types');
130 sqsession_register($attachment_common_types_parsed, 'attachment_common_types_parsed');
131
132 if ( sqgetGlobalVar('HTTP_ACCEPT', $http_accept, SQ_SERVER) &&
133 !isset($attachment_common_types_parsed[$http_accept]) ) {
134 attachment_common_parse($http_accept);
135 }
136
137 /* Complete autodetection of Javascript. */
138 checkForJavascript();
139
140 /* Compute the URL to forward the user to. */
141 $redirect_url = $location . '/webmail.php';
142
143 if ( sqgetGlobalVar('session_expired_location', $session_expired_location, SQ_SESSION) ) {
144 sqsession_unregister('session_expired_location');
145 if ( strpos($session_expired_location, 'compose.php') !== FALSE ) {
146 $compose_new_win = getPref($data_dir, $username, 'compose_new_win', 0);
147 if ($compose_new_win) {
148 // do not prefix $location here because $session_expired_location is set to PHP_SELF
149 // of the last page
150 $redirect_url = $session_expired_location;
151 } else {
152 $redirect_url = $location.'/webmail.php?right_frame='.urlencode($session_expired_location);
153 }
154 }
155 unset($session_expired_location);
156 }
157
158 if($mailtodata != '') {
159 $redirect_url = $location . '/webmail.php?right_frame=compose.php&mailtodata=';
160 $redirect_url .= urlencode($mailtodata);
161 }
162
163 /* Write session data and send them off to the appropriate page. */
164 session_write_close();
165 header("Location: $redirect_url");
166 exit;
167
168 /* --------------------- end main ----------------------- */
169
170 function attachment_common_parse($str) {
171 global $attachment_common_types, $attachment_common_types_parsed;
172
173 /*
174 * Replace ", " with "," and explode on that as Mozilla 1.x seems to
175 * use "," to seperate whilst IE, and earlier versions of Mozilla use
176 * ", " to seperate
177 */
178
179 $str = str_replace( ', ' , ',' , $str );
180 $types = explode(',', $str);
181
182 foreach ($types as $val) {
183 // Ignore the ";q=1.0" stuff
184 if (strpos($val, ';') !== false)
185 $val = substr($val, 0, strpos($val, ';'));
186
187 if (! isset($attachment_common_types[$val])) {
188 $attachment_common_types[$val] = true;
189 }
190 }
191 sqsession_register($attachment_common_types, 'attachment_common_types');
192
193 /* mark as parsed */
194 $attachment_common_types_parsed[$str] = true;
195 }