- Create a generic function to empty a folder tree, thanks to
[squirrelmail.git] / src / webmail.php
... / ...
CommitLineData
1<?php
2
3/**
4 * webmail.php -- Displays the main frameset
5 *
6 * Copyright (c) 1999-2005 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * This file generates the main frameset. The files that are
10 * shown can be given as parameters. If the user is not logged in
11 * this file will verify username and password.
12 *
13 * @version $Id$
14 * @package squirrelmail
15 */
16
17/**
18 * Path for SquirrelMail required files.
19 * @ignore
20 */
21define('SM_PATH','../');
22
23/* SquirrelMail required files. */
24require_once(SM_PATH . 'functions/strings.php');
25require_once(SM_PATH . 'config/config.php');
26require_once(SM_PATH . 'functions/prefs.php');
27require_once(SM_PATH . 'functions/imap.php');
28require_once(SM_PATH . 'functions/plugin.php');
29require_once(SM_PATH . 'functions/i18n.php');
30require_once(SM_PATH . 'functions/auth.php');
31require_once(SM_PATH . 'functions/global.php');
32
33if (!function_exists('sqm_baseuri')){
34 require_once(SM_PATH . 'functions/display_messages.php');
35}
36$base_uri = sqm_baseuri();
37
38sqsession_is_active();
39
40sqgetGlobalVar('username', $username, SQ_SESSION);
41sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
42sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
43
44if (sqgetGlobalVar('sort', $sort)) {
45 $sort = (int) $sort;
46}
47
48if (sqgetGlobalVar('startMessage', $startMessage)) {
49 $startMessage = (int) $startMessage;
50}
51
52if (!sqgetGlobalVar('mailbox',$mailbox)) {
53 $mailbox = 'INBOX';
54}
55
56sqgetGlobalVar('right_frame', $right_frame, SQ_GET);
57
58if ( isset($_SESSION['session_expired_post']) ) {
59 sqsession_unregister('session_expired_post');
60}
61if(!sqgetGlobalVar('mailto', $mailto)) {
62 $mailto = '';
63}
64
65is_logged_in();
66
67do_hook('webmail_top');
68
69/**
70 * We'll need this to later have a noframes version
71 *
72 * Check if the user has a language preference, but no cookie.
73 * Send him a cookie with his language preference, if there is
74 * such discrepancy.
75 */
76$my_language = getPref($data_dir, $username, 'language');
77if ($my_language != $squirrelmail_language) {
78 setcookie('squirrelmail_language', $my_language, time()+2592000, $base_uri);
79}
80
81$err=set_up_language(getPref($data_dir, $username, 'language'));
82
83$output = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\">\n".
84 "<html><head>\n" .
85 "<title>$org_title</title>\n".
86 "</head>";
87
88// Japanese translation used without mbstring support
89if ($err==2) {
90 echo $output.
91 "<body>\n".
92 "<p>You need to have php4 installed with the multibyte string function \n".
93 "enabled (using configure option --enable-mbstring).</p>\n".
94 "<p>System assumed that you accidently switched to Japanese translation \n".
95 "and reverted your language preference to English.</p>\n".
96 "<p>Please refresh this page in order to use webmail.</p>\n".
97 "</body></html>";
98 return;
99}
100
101$left_size = getPref($data_dir, $username, 'left_size');
102$location_of_bar = getPref($data_dir, $username, 'location_of_bar');
103
104if (isset($languages[$squirrelmail_language]['DIR']) &&
105 strtolower($languages[$squirrelmail_language]['DIR']) == 'rtl') {
106 $temp_location_of_bar = 'right';
107} else {
108 $temp_location_of_bar = 'left';
109}
110
111if ($location_of_bar == '') {
112 $location_of_bar = $temp_location_of_bar;
113}
114$temp_location_of_bar = '';
115
116if ($left_size == "") {
117 if (isset($default_left_size)) {
118 $left_size = $default_left_size;
119 }
120 else {
121 $left_size = 200;
122 }
123}
124
125if ($location_of_bar == 'right') {
126 $output .= "<frameset cols=\"*, $left_size\" id=\"fs1\">\n";
127}
128else {
129 $output .= "<frameset cols=\"$left_size, *\" id=\"fs1\">\n";
130}
131
132/*
133 * There are three ways to call webmail.php
134 * 1. webmail.php
135 * - This just loads the default entry screen.
136 * 2. webmail.php?right_frame=right_main.php&sort=X&startMessage=X&mailbox=XXXX
137 * - This loads the frames starting at the given values.
138 * 3. webmail.php?right_frame=folders.php
139 * - Loads the frames with the Folder options in the right frame.
140 *
141 * This was done to create a pure HTML way of refreshing the folder list since
142 * we would like to use as little Javascript as possible.
143 */
144
145if (empty($right_frame) || (strpos(urldecode($right_frame), '://'))) {
146 $right_frame = '';
147}
148
149if ($right_frame == 'right_main.php') {
150 $urlMailbox = urlencode($mailbox);
151 $right_frame_url = "right_main.php?mailbox=$urlMailbox"
152 . (!empty($sort)?"&amp;sort=$sort":'')
153 . (!empty($startMessage)?"&amp;startMessage=$startMessage":'');
154} elseif ($right_frame == 'options.php') {
155 $right_frame_url = 'options.php';
156} elseif ($right_frame == 'folders.php') {
157 $right_frame_url = 'folders.php';
158} elseif ($right_frame == 'compose.php') {
159 $right_frame_url = 'compose.php?' . $mailto;
160} else if ($right_frame == '') {
161 $right_frame_url = 'right_main.php';
162} else {
163 $right_frame_url = htmlspecialchars($right_frame);
164}
165
166$left_frame = '<frame src="left_main.php" name="left" frameborder="1" title="'.
167 _("Folder List") ."\" />\n";
168$right_frame = '<frame src="'.$right_frame_url.'" name="right" frameborder="1" title="'.
169 _("Message List") ."\" />\n";
170
171if ($location_of_bar == 'right') {
172 $output .= $right_frame . $left_frame;
173}
174else {
175 $output .= $left_frame . $right_frame;
176}
177$ret = concat_hook_function('webmail_bottom', $output);
178if($ret != '') {
179 $output = $ret;
180}
181echo $output;
182?>
183</frameset>
184</html>