big update
[squirrelmail.git] / src / right_main.php
CommitLineData
59177427 1<?php
c57b0888 2/**
3 * right_main.php
4 *
82d304a0 5 * Copyright (c) 1999-2004 The SquirrelMail Project Team
c57b0888 6 * Licensed under the GNU GPL. For full terms see the file COPYING.
7 *
8 * This is where the mailboxes are listed. This controls most of what
9 * goes on in SquirrelMail.
10 *
30967a1e 11 * @version $Id$
8f6f9ba5 12 * @package squirrelmail
c57b0888 13 */
14
30967a1e 15/**
16 * Path for SquirrelMail required files.
17 * @ignore
18 */
86725763 19define('SM_PATH','../');
20
21/* SquirrelMail required files. */
08185f2a 22require_once(SM_PATH . 'include/validate.php');
8650e9e1 23require_once(SM_PATH . 'functions/global.php');
86725763 24require_once(SM_PATH . 'functions/imap.php');
25require_once(SM_PATH . 'functions/date.php');
86725763 26require_once(SM_PATH . 'functions/mime.php');
27require_once(SM_PATH . 'functions/mailbox_display.php');
28require_once(SM_PATH . 'functions/display_messages.php');
29require_once(SM_PATH . 'functions/html.php');
c97f4825 30require_once(SM_PATH . 'functions/plugin.php');
c57b0888 31
32/***********************************************************
33 * incoming variables from URL: *
34 * $sort Direction to sort by date *
35 * values: 0 - descending order *
36 * values: 1 - ascending order *
37 * $startMessage Message to start at *
38 * $mailbox Full Mailbox name *
39 * *
40 * incoming from cookie: *
c57b0888 41 * $key pass *
a32985a5 42 * incoming from session: *
43 * $username duh *
44 * *
c57b0888 45 ***********************************************************/
46
a32985a5 47
48/* lets get the global vars we may need */
1e12d1ff 49sqgetGlobalVar('key', $key, SQ_COOKIE);
50sqgetGlobalVar('username', $username, SQ_SESSION);
51sqgetGlobalVar('onetimepad',$onetimepad, SQ_SESSION);
52sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
53sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION);
54
55sqgetGlobalVar('mailbox', $mailbox);
56sqgetGlobalVar('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION);
d7048dd4 57sqgetGlobalVar('numMessages' , $numMessages, SQ_SESSION);
1e12d1ff 58sqgetGlobalVar('session', $session, SQ_GET);
59sqgetGlobalVar('note', $note, SQ_GET);
2ffeb7c5 60sqgetGlobalVar('mail_sent', $mail_sent, SQ_GET);
d7048dd4 61sqgetGlobalVar('use_mailbox_cache', $use_mailbox_cache, SQ_GET);
1e12d1ff 62
63if ( sqgetGlobalVar('startMessage', $temp) ) {
64 $startMessage = (int) $temp;
a32985a5 65}
1e12d1ff 66if ( sqgetGlobalVar('PG_SHOWNUM', $temp) ) {
67 $PG_SHOWNUM = (int) $temp;
a32985a5 68}
1e12d1ff 69if ( sqgetGlobalVar('PG_SHOWALL', $temp, SQ_GET) ) {
70 $PG_SHOWALL = (int) $temp;
a32985a5 71}
1e12d1ff 72if ( sqgetGlobalVar('newsort', $temp, SQ_GET) ) {
73 $newsort = (int) $temp;
a32985a5 74}
1e12d1ff 75if ( sqgetGlobalVar('checkall', $temp, SQ_GET) ) {
76 $checkall = (int) $temp;
a32985a5 77}
1e12d1ff 78if ( sqgetGlobalVar('set_thread', $temp, SQ_GET) ) {
79 $set_thread = (int) $temp;
a32985a5 80}
1e12d1ff 81if ( !sqgetGlobalVar('composenew', $composenew, SQ_GET) ) {
8cc72ada 82 $composenew = false;
83}
a32985a5 84/* end of get globals */
85
86
c57b0888 87/* Open a connection on the imap port (143) */
6f223ace 88
c57b0888 89$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
90
cf710efe 91if (isset($PG_SHOWALL)) {
92 if ($PG_SHOWALL) {
93 $PG_SHOWNUM=999999;
94 $show_num=$PG_SHOWNUM;
a32985a5 95 sqsession_register($PG_SHOWNUM, 'PG_SHOWNUM');
cf710efe 96 }
97 else {
a32985a5 98 sqsession_unregister('PG_SHOWNUM');
cf710efe 99 unset($PG_SHOWNUM);
100 }
101}
102else if( isset( $PG_SHOWNUM ) ) {
bdfb67f8 103 $show_num = $PG_SHOWNUM;
104}
105
94a4ea53 106if (isset($newsort) ) {
107 if ( $newsort != $sort )
108 setPref($data_dir, $username, 'sort', $newsort);
e372ee8c 109
94a4ea53 110 $sort = $newsort;
111 sqsession_register($sort, 'sort');
112}
e372ee8c 113
114/* If the page has been loaded without a specific mailbox, */
115/* send them to the inbox */
116if (!isset($mailbox)) {
117 $mailbox = 'INBOX';
118 $startMessage = 1;
119}
120
121
122if (!isset($startMessage) || ($startMessage == '')) {
123 $startMessage = 1;
124}
125
126/* compensate for the UW vulnerability. */
127if ($imap_server_type == 'uw' && (strstr($mailbox, '../') ||
128 substr($mailbox, 0, 1) == '/')) {
129 $mailbox = 'INBOX';
130}
131
a32985a5 132do_hook ('generic_header');
7c612fdd 133
fb75a74e 134$aMbxResponse = sqimap_mailbox_select($imapConnection, $mailbox);
fe6efa94 135$aMbxResponse['SORT_ARRAY'] = false;
136
137sqgetGlobalVar('aLastSelectedMailbox',$aLastSelectedMailbox,SQ_SESSION);
138
26e90c74 139// deal with imap servers that do not return the required UIDNEXT or
140// UIDVALIDITY response
141// from a SELECT call (since rfc 3501 it's required)
142if (!isset($aMbxResponse['UIDNEXT']) || !isset($aMbxResponse['UIDVALIDITY'])) {
143 $aStatus = sqimap_status_messages($imapConnection,$mailbox,
144 array('UIDNEXT','UIDVALIDITY'));
145 $aMbxResponse['UIDNEXT'] = $aStatus['UIDNEXT'];
146 $aMbxResponse['UIDVALIDTY'] = $aStatus['UIDVALIDITY'];
147}
148
fe6efa94 149if ($aLastSelectedMailbox && !isset($newsort)) {
26e90c74 150 // check if we deal with the same mailbox
151 if ($aLastSelectedMailbox['NAME'] == $mailbox) {
152 if ($aLastSelectedMailbox['EXISTS'] == $aMbxResponse['EXISTS'] &&
153 $aLastSelectedMailbox['UIDVALIDITY'] == $aMbxResponse['UIDVALIDITY'] &&
154 $aLastSelectedMailbox['UIDNEXT'] == $aMbxResponse['UIDNEXT']) {
155 // sort is still valid
156 sqgetGlobalVar('server_sort_array',$server_sort_array,SQ_SESSION);
157 if ($server_sort_array && is_array($server_sort_array)) {
158 $aMbxResponse['SORT_ARRAY'] = $server_sort_array;
159 }
160 }
139b3991 161 }
fe6efa94 162}
139b3991 163
fe6efa94 164$aLastSelectedMailbox['NAME'] = $mailbox;
165$aLastSelectedMailbox['EXISTS'] = $aMbxResponse['EXISTS'];
166$aLastSelectedMailbox['UIDVALIDITY'] = $aMbxResponse['UIDVALIDITY'];
167$aLastSelectedMailbox['UIDNEXT'] = $aMbxResponse['UIDNEXT'];
6f223ace 168
139b3991 169/* decide if we are thread sorting or not */
170if ($allow_thread_sort == TRUE) {
171 if (isset($set_thread)) {
172 $aMbxResponse['SORT_ARRAY'] = false;
173 if (sqsession_is_registered('indent_array')) {
174 sqsession_unregister('indent_array');
175 }
176 if (sqsession_is_registered('server_sort_array')) {
177 sqsession_unregister('server_sort_array');
178 }
179 if ($set_thread == 1) {
180 setPref($data_dir, $username, "thread_$mailbox", 1);
181 $thread_sort_messages = '1';
182 } else if ($set_thread == 2) {
183 setPref($data_dir, $username, "thread_$mailbox", 0);
184 $thread_sort_messages = '0';
185 }
186 } else {
187 $thread_sort_messages = getPref($data_dir, $username, "thread_$mailbox");
188 }
189} else {
190 $thread_sort_messages = 0;
191}
192
193
194
8cc72ada 195if ($composenew) {
196 $comp_uri = SM_PATH . 'src/compose.php?mailbox='. urlencode($mailbox).
c97f4825 197 "&session=$session";
11af81b9 198 displayPageHeader($color, $mailbox, "comp_in_new('$comp_uri');", false);
6f223ace 199} else {
200 displayPageHeader($color, $mailbox);
201}
c57b0888 202do_hook('right_main_after_header');
2ffeb7c5 203
204/* display a message to the user that their mail has been sent */
205if (isset($mail_sent) && $mail_sent == 'yes') {
206 $note = _("Your Message has been sent.");
207}
c57b0888 208if (isset($note)) {
fab3baa6 209 echo html_tag( 'div', '<b>' . $note .'</b>', 'center' ) . "<br>\n";
c57b0888 210}
211
f38b7cf0 212if ( sqgetGlobalVar('just_logged_in', $just_logged_in, SQ_SESSION) ) {
a32985a5 213 if ($just_logged_in == true) {
214 $just_logged_in = false;
dd2a2e15 215 sqsession_register($just_logged_in, 'just_logged_in');
a32985a5 216
217 if (strlen(trim($motd)) > 0) {
218 echo html_tag( 'table',
219 html_tag( 'tr',
c97f4825 220 html_tag( 'td',
a32985a5 221 html_tag( 'table',
222 html_tag( 'tr',
223 html_tag( 'td', $motd, 'center' )
224 ) ,
225 '', $color[4], 'width="100%" cellpadding="5" cellspacing="1" border="0"' )
226 )
227 ) ,
228 'center', $color[9], 'width="70%" cellpadding="0" cellspacing="3" border="0"' );
229 }
23d6bd09 230 }
c57b0888 231}
232
7c612fdd 233
c57b0888 234/*********************************************************************
235 * Check to see if we can use cache or not. Currently the only time *
236 * when you will not use it is when a link on the left hand frame is *
237 * used. Also check to make sure we actually have the array in the *
238 * registered session data. :) *
239 *********************************************************************/
240if (! isset($use_mailbox_cache)) {
241 $use_mailbox_cache = 0;
242}
243
d7c82551 244if ($use_mailbox_cache && sqsession_is_registered('msgs')) {
139b3991 245 showMessagesForMailbox($imapConnection, $mailbox, $numMessages,
246 $startMessage, $sort, $color, $show_num,
fb75a74e 247 $use_mailbox_cache, '',$aMbxResponse);
c57b0888 248} else {
d7c82551 249 if (sqsession_is_registered('msgs')) {
c57b0888 250 unset($msgs);
23d6bd09 251 }
252
d7c82551 253 if (sqsession_is_registered('msort')) {
c57b0888 254 unset($msort);
23d6bd09 255 }
a37f3771 256
d7c82551 257 if (sqsession_is_registered('numMessages')) {
c57b0888 258 unset($numMessages);
2016e645 259 }
e452ce9b 260
fe6efa94 261 $numMessages = $aMbxResponse['EXISTS'];
23d6bd09 262
c97f4825 263 showMessagesForMailbox($imapConnection, $mailbox, $numMessages,
c57b0888 264 $startMessage, $sort, $color, $show_num,
fb75a74e 265 $use_mailbox_cache,'',$aMbxResponse);
23d6bd09 266
d7c82551 267 if (sqsession_is_registered('msgs') && isset($msgs)) {
a32985a5 268 sqsession_register($msgs, 'msgs');
c57b0888 269 }
1108e8bb 270
d7c82551 271 if (sqsession_is_registered('msort') && isset($msort)) {
a32985a5 272 sqsession_register($msort, 'msort');
c57b0888 273 }
9f2215a1 274
a32985a5 275 sqsession_register($numMessages, 'numMessages');
c57b0888 276}
c57b0888 277do_hook('right_main_bottom');
278sqimap_logout ($imapConnection);
dcc1cc82 279echo '</body></html>';
280
fe6efa94 281sqsession_register($aLastSelectedMailbox,'aLastSelectedMailbox');
282
dcc1cc82 283?>