Add option that allows users to have replies to their own messages sent to the recipi...
[squirrelmail.git] / src / compose.php
CommitLineData
59177427 1<?php
35586184 2/**
3 * compose.php
4 *
35586184 5 * This code sends a mail.
6 *
7 * There are 4 modes of operation:
8 * - Start new mail
9 * - Add an attachment
10 * - Send mail
11 * - Save As Draft
12 *
c0d96801 13 * @copyright 1999-2012 The SquirrelMail Project Team
4b4abf93 14 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
30967a1e 15 * @version $Id$
8f6f9ba5 16 * @package squirrelmail
35586184 17 */
f7fb20fe 18
ebd2391c 19/** This is the compose page */
20define('PAGE_NAME', 'compose');
21
30967a1e 22/**
202bcbcc 23 * Include the SquirrelMail initialization file.
30967a1e 24 */
202bcbcc 25require('../include/init.php');
86725763 26
c90271cb 27/* If email_address not set and admin wants us to ask user for it,
28 * redirect to options page. */
29if ( $ask_user_info && getPref($data_dir, $username,'email_address') == "" ) {
30 header("Location: " . get_location() . "/options.php?optpage=personal");
31 exit;
32}
33
86725763 34/* SquirrelMail required files. */
202bcbcc 35require_once(SM_PATH . 'functions/imap_general.php');
36require_once(SM_PATH . 'functions/imap_messages.php');
86725763 37require_once(SM_PATH . 'functions/date.php');
38require_once(SM_PATH . 'functions/mime.php');
628bce99 39require_once(SM_PATH . 'functions/compose.php');
86725763 40require_once(SM_PATH . 'class/deliver/Deliver.class.php');
24192f77 41require_once(SM_PATH . 'functions/addressbook.php');
df96b37a 42require_once(SM_PATH . 'functions/forms.php');
a2b193bc 43require_once(SM_PATH . 'functions/identity.php');
91f2085b 44
0b97a708 45/* --------------------- Get globals ------------------------------------- */
0b97a708 46
953fa718 47/** SESSION VARS */
953fa718 48sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
49
f8eb968d 50sqgetGlobalVar('delayed_errors', $delayed_errors, SQ_SESSION);
953fa718 51sqgetGlobalVar('composesession', $composesession, SQ_SESSION);
52sqgetGlobalVar('compose_messages', $compose_messages, SQ_SESSION);
f8eb968d 53
54// compose_messages only useful in SESSION when a forward-as-attachment
55// has been preconstructed for us and passed in via that mechanism; once
56// we have it, we can clear it from the SESSION
57sqsession_unregister('compose_messages');
762853f4 58
59// Turn on delayed error handling in case we wind up redirecting below
60$oErrorHandler->setDelayedErrors(true);
953fa718 61
62/** SESSION/POST/GET VARS */
61bd57f5 63sqgetGlobalVar('send_button_count', $send_button_count, SQ_POST, 1, SQ_TYPE_INT);
64for ($i = 1; $i <= $send_button_count; $i++)
65 if (sqgetGlobalVar('send' . $i, $send, SQ_POST)) break;
567dc524 66// Send can only be achieved by setting $_POST var. If Send = true then
67// retrieve other form fields from $_POST
68if (isset($send) && $send) {
69 $SQ_GLOBAL = SQ_POST;
70} else {
71 $SQ_GLOBAL = SQ_FORM;
72}
73sqgetGlobalVar('session',$session, $SQ_GLOBAL);
74sqgetGlobalVar('mailbox',$mailbox, $SQ_GLOBAL);
75if(!sqgetGlobalVar('identity',$identity, $SQ_GLOBAL)) {
1e2a6ff6 76 $identity=0;
77}
567dc524 78sqgetGlobalVar('send_to',$send_to, $SQ_GLOBAL);
79sqgetGlobalVar('send_to_cc',$send_to_cc, $SQ_GLOBAL);
80sqgetGlobalVar('send_to_bcc',$send_to_bcc, $SQ_GLOBAL);
81sqgetGlobalVar('subject',$subject, $SQ_GLOBAL);
82sqgetGlobalVar('body',$body, $SQ_GLOBAL);
83sqgetGlobalVar('mailprio',$mailprio, $SQ_GLOBAL);
84sqgetGlobalVar('request_mdn',$request_mdn, $SQ_GLOBAL);
85sqgetGlobalVar('request_dr',$request_dr, $SQ_GLOBAL);
86sqgetGlobalVar('html_addr_search',$html_addr_search, $SQ_GLOBAL);
87sqgetGlobalVar('mail_sent',$mail_sent, $SQ_GLOBAL);
51bbe8fa 88sqgetGlobalVar('passed_id',$passed_id, $SQ_GLOBAL, NULL, SQ_TYPE_BIGINT);
567dc524 89sqgetGlobalVar('passed_ent_id',$passed_ent_id, $SQ_GLOBAL);
e506b6e5 90sqgetGlobalVar('fwduid',$fwduid, $SQ_GLOBAL, '');
12a0ed01 91
567dc524 92sqgetGlobalVar('attach',$attach, SQ_POST);
93sqgetGlobalVar('draft',$draft, SQ_POST);
94sqgetGlobalVar('draft_id',$draft_id, $SQ_GLOBAL);
95sqgetGlobalVar('ent_num',$ent_num, $SQ_GLOBAL);
96sqgetGlobalVar('saved_draft',$saved_draft, SQ_FORM);
7e2ff844 97
98if ( sqgetGlobalVar('delete_draft',$delete_draft) ) {
99 $delete_draft = (int)$delete_draft;
100}
101
a6d3eff6 102if ( sqgetGlobalVar('startMessage',$startMessage) ) {
103 $startMessage = (int)$startMessage;
104} else {
105 $startMessage = 1;
106}
953fa718 107
8780308f 108
953fa718 109/** POST VARS */
167c6996 110sqgetGlobalVar('sigappend', $sigappend, SQ_POST);
111sqgetGlobalVar('from_htmladdr_search', $from_htmladdr_search, SQ_POST);
112sqgetGlobalVar('addr_search_done', $html_addr_search_done, SQ_POST);
113sqgetGlobalVar('addr_search_cancel', $html_addr_search_cancel, SQ_POST);
114sqgetGlobalVar('send_to_search', $send_to_search, SQ_POST);
115sqgetGlobalVar('do_delete', $do_delete, SQ_POST);
116sqgetGlobalVar('delete', $delete, SQ_POST);
f8eb968d 117sqgetGlobalVar('attachments', $attachments, SQ_POST);
953fa718 118if ( sqgetGlobalVar('return', $temp, SQ_POST) ) {
73ad81bf 119 $html_addr_search_done = 'Use Addresses';
953fa718 120}
121
122/** GET VARS */
8780308f 123if ( sqgetGlobalVar('account', $temp, SQ_GET) ) {
124 $iAccount = (int) $temp;
125} else {
126 $iAccount = 0;
127}
128
0b97a708 129
98a9cc03 130/** get smaction */
131if ( !sqgetGlobalVar('smaction',$action) )
132{
73ad81bf 133 if ( sqgetGlobalVar('smaction_reply',$tmp) ) $action = 'reply';
134 if ( sqgetGlobalVar('smaction_reply_all',$tmp) ) $action = 'reply_all';
135 if ( sqgetGlobalVar('smaction_forward',$tmp) ) $action = 'forward';
136 if ( sqgetGlobalVar('smaction_attache',$tmp) ) $action = 'forward_as_attachment';
137 if ( sqgetGlobalVar('smaction_draft',$tmp) ) $action = 'draft';
138 if ( sqgetGlobalVar('smaction_edit_new',$tmp) ) $action = 'edit_as_new';
98a9cc03 139}
140
199a9ab8 141sqgetGlobalVar('smtoken', $submitted_token, $SQ_GLOBAL, '');
142
7e2ff844 143/**
144 * Here we decode the data passed in from mailto.php.
145 */
146if ( sqgetGlobalVar('mailtodata', $mailtodata, SQ_GET) ) {
147 $trtable = array('to' => 'send_to',
148 'cc' => 'send_to_cc',
149 'bcc' => 'send_to_bcc',
150 'body' => 'body',
151 'subject' => 'subject');
152 $mtdata = unserialize($mailtodata);
1638beb6 153
7e2ff844 154 foreach ($trtable as $f => $t) {
155 if ( !empty($mtdata[$f]) ) {
156 $$t = $mtdata[$f];
157 }
158 }
159 unset($mailtodata,$mtdata, $trtable);
160}
161
39cf816f 162/* Location (For HTTP 1.1 header("Location: ...") redirects) */
3461167c 163$location = get_location();
1e2a6ff6 164/* Identities (fetch only once) */
165$idents = get_identities();
3461167c 166
09044055 167/* --------------------- Specific Functions ------------------------------ */
0b97a708 168
41b94d65 169function replyAllString($header) {
73ad81bf 170 global $include_self_reply_all, $idents;
171 $excl_ar = array();
172 /**
173 * 1) Remove the addresses we'll be sending the message 'to'
174 */
af084f6e 175 if (isset($header->reply_to)) {
176 $excl_ar = $header->getAddr_a('reply_to');
73ad81bf 177 }
178 /**
179 * 2) Remove our identities from the CC list (they still can be in the
180 * TO list) only if $include_self_reply_all is turned off
181 */
182 if (!$include_self_reply_all) {
183 foreach($idents as $id) {
184 $excl_ar[strtolower(trim($id['email_address']))] = '';
185 }
186 }
187
188 /**
189 * 3) get the addresses.
190 */
191 $url_replytoall_ar = $header->getAddr_a(array('to','cc'), $excl_ar);
192
193 /**
194 * 4) generate the string.
195 */
196 $url_replytoallcc = '';
197 foreach( $url_replytoall_ar as $email => $personal) {
198 if ($personal) {
a9b9e5d3 199 // always quote personal name (can't just quote it if
200 // it contains a comma separator, since it might still
201 // be encoded)
202 $url_replytoallcc .= ", \"$personal\" <$email>";
73ad81bf 203 } else {
204 $url_replytoallcc .= ', '. $email;
1e2a6ff6 205 }
73ad81bf 206 }
207 $url_replytoallcc = substr($url_replytoallcc,2);
208
209 return $url_replytoallcc;
09044055 210}
211
50706f77 212/**
213 * creates top line in reply citations
214 *
215 * Line style depends on user preferences.
216 * $orig_date argument is available only from 1.4.3 and 1.5.1 version.
217 * @param object $orig_from From: header object.
218 * @param integer $orig_date email's timestamp
219 * @return string reply citation
220 */
b0323712 221function getReplyCitation($orig_from, $orig_date) {
12a0ed01 222 global $reply_citation_style, $reply_citation_start, $reply_citation_end;
50706f77 223
05f7db7a 224 if (!is_object($orig_from)) {
d1205176 225 $sOrig_from = '';
05f7db7a 226 } else {
d1205176 227 $sOrig_from = decodeHeader($orig_from->getAddress(false),false,false,true);
05f7db7a 228 }
91c27aee 229
12a0ed01 230 /* First, return an empty string when no citation style selected. */
231 if (($reply_citation_style == '') || ($reply_citation_style == 'none')) {
232 return '';
233 }
234
235 /* Make sure our final value isn't an empty string. */
d1205176 236 if ($sOrig_from == '') {
12a0ed01 237 return '';
238 }
239
240 /* Otherwise, try to select the desired citation style. */
241 switch ($reply_citation_style) {
50706f77 242 case 'author_said':
b986936a 243 // i18n: %s is for author's name
d1205176 244 $full_reply_citation = sprintf(_("%s wrote:"),$sOrig_from);
50706f77 245 break;
246 case 'quote_who':
a42c236f 247 $start = '<quote who="';
50706f77 248 $end = '">';
d1205176 249 $full_reply_citation = $start . $sOrig_from . $end;
50706f77 250 break;
251 case 'date_time_author':
b986936a 252 // i18n:
253 // The first %s is for date string, the second %s is for author's name.
254 // The date uses formating from "D, F j, Y g:i a" and "D, F j, Y H:i"
255 // translations.
256 // Example string:
257 // "On Sat, December 24, 2004 23:59, Santa wrote:"
258 // If you have to put author's name in front of date string, check comments about
259 // argument swapping at http://php.net/sprintf
d1205176 260 $full_reply_citation = sprintf(_("On %s, %s wrote:"), getLongDateString($orig_date), $sOrig_from);
50706f77 261 break;
262 case 'user-defined':
263 $start = $reply_citation_start .
264 ($reply_citation_start == '' ? '' : ' ');
265 $end = $reply_citation_end;
d1205176 266 $full_reply_citation = $start . $sOrig_from . $end;
50706f77 267 break;
268 default:
269 return '';
270 }
271
272 /* Add line feed and return the citation string. */
273 return ($full_reply_citation . "\n");
12a0ed01 274}
275
50706f77 276/**
277 * Creates header fields in forwarded email body
278 *
91c27aee 279 * $default_charset global must be set correctly before you call this function.
50706f77 280 * @param object $orig_header
91c27aee 281 * @return $string
50706f77 282 */
41b94d65 283function getforwardHeader($orig_header) {
50706f77 284 global $editor_size, $default_charset;
285
286 // using own strlen function in order to detect correct string length
287 $display = array( _("Subject") => sq_strlen(_("Subject"),$default_charset),
288 _("From") => sq_strlen(_("From"),$default_charset),
289 _("Date") => sq_strlen(_("Date"),$default_charset),
290 _("To") => sq_strlen(_("To"),$default_charset),
291 _("Cc") => sq_strlen(_("Cc"),$default_charset) );
73ad81bf 292 $maxsize = max($display);
293 $indent = str_pad('',$maxsize+2);
294 foreach($display as $key => $val) {
295 $display[$key] = $key .': '. str_pad('', $maxsize - $val);
296 }
297 $from = decodeHeader($orig_header->getAddr_s('from',"\n$indent"),false,false,true);
298 $from = str_replace('&nbsp;',' ',$from);
299 $to = decodeHeader($orig_header->getAddr_s('to',"\n$indent"),false,false,true);
300 $to = str_replace('&nbsp;',' ',$to);
301 $subject = decodeHeader($orig_header->subject,false,false,true);
302 $subject = str_replace('&nbsp;',' ',$subject);
50706f77 303
304 // using own str_pad function in order to create correct string pad
305 $bodyTop = sq_str_pad(' '._("Original Message").' ',$editor_size -2,'-',STR_PAD_BOTH,$default_charset) .
73ad81bf 306 "\n". $display[_("Subject")] . $subject . "\n" .
307 $display[_("From")] . $from . "\n" .
3aaa3214 308 $display[_("Date")] . getLongDateString( $orig_header->date, $orig_header->date_unparsed ). "\n" .
73ad81bf 309 $display[_("To")] . $to . "\n";
310 if ($orig_header->cc != array() && $orig_header->cc !='') {
311 $cc = decodeHeader($orig_header->getAddr_s('cc',"\n$indent"),false,false,true);
312 $cc = str_replace('&nbsp;',' ',$cc);
313 $bodyTop .= $display[_("Cc")] .$cc . "\n";
314 }
315 $bodyTop .= str_pad('', $editor_size -2 , '-') .
316 "\n\n";
317 return $bodyTop;
41b94d65 318}
09044055 319/* ----------------------------------------------------------------------- */
320
44560457 321/*
1c044820 322 * If the session is expired during a post this restores the compose session
44560457 323 * vars.
324 */
f8eb968d 325$session_expired = false;
5da08ef7 326if (sqsession_is_registered('session_expired_post')) {
953fa718 327 sqgetGlobalVar('session_expired_post', $session_expired_post, SQ_SESSION);
1c044820 328 /*
40934000 329 * extra check for username so we don't display previous post data from
330 * another user during this session.
331 */
c7ebdfcf 332 if (!empty($session_expired_post['username'])
333 && $session_expired_post['username'] == $username) {
1638beb6 334 // these are the vars that we can set from the expired composed session
f8eb968d 335 $compo_var_list = array ('send_to', 'send_to_cc', 'body',
336 'startMessage', 'passed_body', 'use_signature', 'signature',
337 'subject', 'newmail', 'send_to_bcc', 'passed_id', 'mailbox',
338 'from_htmladdr_search', 'identity', 'draft_id', 'delete_draft',
339 'mailprio', 'edit_as_new', 'attachments', 'composesession',
e506b6e5 340 'request_mdn', 'request_dr', 'fwduid');
c6f28eb1 341
342 foreach ($compo_var_list as $var) {
343 if ( isset($session_expired_post[$var]) && !isset($$var) ) {
774d79cc 344 $$var = $session_expired_post[$var];
61e96f7e 345 }
40934000 346 }
c6f28eb1 347
f8eb968d 348 if (!empty($attachments))
177cb345 349 $attachments = unserialize(urldecode($attachments));
f8eb968d 350
0ec1a14b 351 sqsession_register($composesession,'composesession');
f8eb968d 352
40934000 353 if (isset($send)) {
354 unset($send);
355 }
356 $session_expired = true;
357 }
5da08ef7 358 unset($session_expired_post);
0b97a708 359 sqsession_unregister('session_expired_post');
5da08ef7 360 session_write_close();
40934000 361 if (!isset($mailbox)) {
362 $mailbox = '';
363 }
364 if ($compose_new_win == '1') {
365 compose_Header($color, $mailbox);
366 } else {
91c27aee 367 $sHeaderJs = (isset($sHeaderJs)) ? $sHeaderJs : '';
368 if (strpos($action, 'reply') !== false && $reply_focus) {
ca14ebb7 369 $sOnload = 'checkForm(\''.$replyfocus.'\');';
91c27aee 370 } else {
ca14ebb7 371 $sOnload = 'checkForm();';
91c27aee 372 }
ca14ebb7 373 displayPageHeader($color, $mailbox,$sHeaderJs,$sOnload);
40934000 374 }
375 showInputForm($session, false);
376 exit();
44560457 377}
f8eb968d 378
da95c4b6 379if (!isset($composesession)) {
380 $composesession = 0;
a43e4b90 381 sqsession_register(0,'composesession');
7e2ff844 382} else {
383 $composesession = (int)$composesession;
da95c4b6 384}
385
d7f8e6e6 386if (!isset($session) || (isset($newmessage) && $newmessage)) {
0b97a708 387 sqsession_unregister('composesession');
1c044820 388 $session = "$composesession" +1;
91f2085b 389 $composesession = $session;
a43e4b90 390 sqsession_register($composesession,'composesession');
1c044820 391}
b4e7df34 392if (!empty($compose_messages[$session])) {
393 $composeMessage = $compose_messages[$session];
394} else {
73ad81bf 395 $composeMessage = new Message();
396 $rfc822_header = new Rfc822Header();
397 $composeMessage->rfc822_header = $rfc822_header;
398 $composeMessage->reply_rfc822_header = '';
a43e4b90 399}
a43e4b90 400
f8eb968d 401// re-add attachments that were already in this message
402// FIXME: note that technically this is very bad form -
403// should never directly manipulate an object like this
404if (!empty($attachments)) {
177cb345 405 $attachments = unserialize(urldecode($attachments));
f8eb968d 406 if (!empty($attachments) && is_array($attachments))
407 $composeMessage->entities = $attachments;
408}
409
876fdb60 410if (empty($mailbox)) {
00793a25 411 $mailbox = 'INBOX';
412}
413
4dfb9db7 414if ($draft) {
199a9ab8 415
416 // validate security token
417 //
418 sm_validate_security_token($submitted_token, 3600, TRUE);
419
4dfb9db7 420 /*
421 * Set $default_charset to correspond with the user's selection
422 * of language interface.
423 */
424 set_my_charset();
b7ff469f 425 if (! deliverMessage($composeMessage, true)) {
da95c4b6 426 showInputForm($session);
00793a25 427 exit();
734f4ee6 428 } else {
00793a25 429 $draft_message = _("Draft Email Saved");
430 /* If this is a resumed draft, then delete the original */
431 if(isset($delete_draft)) {
906f7e9f 432 $imap_stream = sqimap_login($username, false, $imapServerAddress, $imapPort, false);
b034bca2 433 sqimap_mailbox_select($imap_stream, $draft_folder);
434 // force bypass_trash=true because message should be saved when deliverMessage() returns true.
91c27aee 435 // in current implementation of sqimap_msgs_list_flag() single message id can
b034bca2 436 // be submitted as string. docs state that it should be array.
437 sqimap_msgs_list_delete($imap_stream, $draft_folder, $delete_draft, true);
438 if ($auto_expunge) {
439 sqimap_mailbox_expunge($imap_stream, $draft_folder, true);
9c3e6cd4 440 }
b034bca2 441 sqimap_logout($imap_stream);
442 }
1638beb6 443
762853f4 444 $oErrorHandler->saveDelayedErrors();
c077ffeb 445 session_write_close();
762853f4 446
b034bca2 447 if ($compose_new_win == '1') {
09047d19 448 if ( !isset($pageheader_sent) || !$pageheader_sent ) {
39cf816f 449 header("Location: $location/compose.php?saved_draft=yes&session=$composesession");
09047d19 450 } else {
c8dc86c9 451//FIXME: DON'T ECHO HTML FROM CORE!
f265009a 452 echo ' <br><br><div style="text-align: center;"><a href="' . $location
09047d19 453 . '/compose.php?saved_sent=yes&amp;session=' . $composesession . '">'
f265009a 454 . _("Return") . '</a></div>';
a6d3eff6 455 }
b034bca2 456 exit();
457 } else {
09047d19 458 if ( !isset($pageheader_sent) || !$pageheader_sent ) {
39cf816f 459 header("Location: $location/right_main.php?mailbox=" . urlencode($draft_folder) .
b034bca2 460 "&startMessage=1&note=".urlencode($draft_message));
09047d19 461 } else {
c8dc86c9 462//FIXME: DON'T ECHO HTML FROM CORE!
f265009a 463 echo ' <br><br><div style="text-align: center;"><a href="' . $location
09047d19 464 . '/right_main.php?mailbox=' . urlencode($draft_folder)
465 . '&amp;startMessage=1&amp;note=' . urlencode($draft_message) .'">'
f265009a 466 . _("Return") . '</a></div>';
a6d3eff6 467 }
b034bca2 468 exit();
00793a25 469 }
470 }
471}
472
4dfb9db7 473if ($send) {
199a9ab8 474
475 // validate security token
476 //
477 sm_validate_security_token($submitted_token, 3600, TRUE);
478
0b97a708 479 if (isset($_FILES['attachfile']) &&
73ad81bf 480 $_FILES['attachfile']['tmp_name'] &&
481 $_FILES['attachfile']['tmp_name'] != 'none') {
da95c4b6 482 $AttachFailure = saveAttachedFiles($session);
00793a25 483 }
d887e067 484
00793a25 485 if (checkInput(false) && !isset($AttachFailure)) {
73ad81bf 486 if ($mailbox == "All Folders") {
487 /* We entered compose via the search results page */
a42c236f 488 $mailbox = 'INBOX'; /* Send 'em to INBOX, that's safe enough */
73ad81bf 489 }
9a19cc66 490 $urlMailbox = urlencode($mailbox);
3f6b1b6f 491 if (! isset($passed_id)) {
492 $passed_id = 0;
00793a25 493 }
d4c5c50c 494 /**
00793a25 495 * Set $default_charset to correspond with the user's selection
7058a2a9 496 * of language interface.
00793a25 497 */
498 set_my_charset();
d4c5c50c 499 /**
00793a25 500 * This is to change all newlines to \n
7058a2a9 501 * We'll change them to \r\n later (in the sendMessage function)
00793a25 502 */
503 $body = str_replace("\r\n", "\n", $body);
504 $body = str_replace("\r", "\n", $body);
505
d4c5c50c 506 /**
18c9998a 507 * Rewrap $body so that no line is bigger than $editor_size
00793a25 508 */
18c9998a 509 $body = explode("\n", $body);
510 $newBody = '';
511 foreach ($body as $line) {
512 if( $line <> '-- ' ) {
73ad81bf 513 $line = rtrim($line);
18c9998a 514 }
774d79cc 515 if (sq_strlen($line, $default_charset) <= $editor_size + 1) {
18c9998a 516 $newBody .= $line . "\n";
517 } else {
774d79cc 518 sqWordWrap($line, $editor_size, $default_charset);
18c9998a 519 $newBody .= $line . "\n";
520
521 }
522
523 }
524 $body = $newBody;
1c044820 525
a91189d6 526 $Result = deliverMessage($composeMessage);
81de00c0 527
64793f9a 528 if ($Result)
529 $mail_sent = 'yes';
530 else
531 $mail_sent = 'no';
532
1638beb6 533 // NOTE: this hook changed in 1.5.2 from sending $Result and
6e515418 534 // $composeMessage as args #2 and #3 to being in an array
535 // under arg #2
802e7490 536 $temp = array(&$Result, &$composeMessage, &$mail_sent);
537 do_hook('compose_send_after', $temp);
00793a25 538 if (! $Result) {
da95c4b6 539 showInputForm($session);
00793a25 540 exit();
541 }
5c4ff7bf 542
b034bca2 543 /* if it is resumed draft, delete draft message */
00793a25 544 if ( isset($delete_draft)) {
906f7e9f 545 $imap_stream = sqimap_login($username, false, $imapServerAddress, $imapPort, false);
b034bca2 546 sqimap_mailbox_select($imap_stream, $draft_folder);
547 // bypass_trash=true because message should be saved when deliverMessage() returns true.
91c27aee 548 // in current implementation of sqimap_msgs_list_flag() single message id can
b034bca2 549 // be submitted as string. docs state that it should be array.
550 sqimap_msgs_list_delete($imap_stream, $draft_folder, $delete_draft, true);
551 if ($auto_expunge) {
552 sqimap_mailbox_expunge($imap_stream, $draft_folder, true);
553 }
554 sqimap_logout($imap_stream);
00793a25 555 }
81de00c0 556 /*
557 * Store the error array in the session because they will be lost on a redirect
558 */
762853f4 559 $oErrorHandler->saveDelayedErrors();
c077ffeb 560 session_write_close();
762853f4 561
9c3e6cd4 562 if ($compose_new_win == '1') {
09047d19 563 if ( !isset($pageheader_sent) || !$pageheader_sent ) {
39cf816f 564 header("Location: $location/compose.php?mail_sent=$mail_sent");
09047d19 565 } else {
c8dc86c9 566//FIXME: DON'T ECHO HTML FROM CORE!
f265009a 567 echo ' <br><br><div style="text-align: center;"><a href="' . $location
64793f9a 568 . '/compose.php?mail_sent=$mail_sent">'
f265009a 569 . _("Return") . '</a></div>';
09047d19 570 }
571 exit();
572 } else {
573 if ( !isset($pageheader_sent) || !$pageheader_sent ) {
39cf816f 574 header("Location: $location/right_main.php?mailbox=$urlMailbox".
64793f9a 575 "&startMessage=$startMessage&mail_sent=$mail_sent");
09047d19 576 } else {
c8dc86c9 577//FIXME: DON'T ECHO HTML FROM CORE!
f265009a 578 echo ' <br><br><div style="text-align: center;"><a href="' . $location
09047d19 579 . "/right_main.php?mailbox=$urlMailbox"
64793f9a 580 . "&amp;startMessage=$startMessage&amp;mail_sent=$mail_sent\">"
f265009a 581 . _("Return") . '</a></div>';
09047d19 582 }
583 exit();
9c3e6cd4 584 }
734f4ee6 585 } else {
9c3e6cd4 586 if ($compose_new_win == '1') {
587 compose_Header($color, $mailbox);
588 }
589 else {
590 displayPageHeader($color, $mailbox);
591 }
00793a25 592 if (isset($AttachFailure)) {
73ad81bf 593 plain_error_message(_("Could not move/copy file. File not attached"),
594 $color);
00793a25 595 }
00793a25 596 checkInput(true);
da95c4b6 597 showInputForm($session);
00793a25 598 /* sqimap_logout($imapConnection); */
599 }
e02775fe 600} elseif (isset($html_addr_search_done)) {
199a9ab8 601
602 // validate security token
603 //
604 sm_validate_security_token($submitted_token, 3600, TRUE);
605
73ad81bf 606 if ($compose_new_win == '1') {
607 compose_Header($color, $mailbox);
608 }
609 else {
610 displayPageHeader($color, $mailbox);
611 }
00793a25 612
613 if (isset($send_to_search) && is_array($send_to_search)) {
614 foreach ($send_to_search as $k => $v) {
615 if (substr($k, 0, 1) == 'T') {
616 if ($send_to) {
617 $send_to .= ', ';
618 }
619 $send_to .= $v;
620 }
621 elseif (substr($k, 0, 1) == 'C') {
622 if ($send_to_cc) {
623 $send_to_cc .= ', ';
624 }
625 $send_to_cc .= $v;
626 }
627 elseif (substr($k, 0, 1) == 'B') {
628 if ($send_to_bcc) {
629 $send_to_bcc .= ', ';
630 }
631 $send_to_bcc .= $v;
632 }
633 }
634 }
da95c4b6 635 showInputForm($session);
167c6996 636} elseif (isset($html_addr_search) && !isset($html_addr_search_cancel)) {
0b97a708 637 if (isset($_FILES['attachfile']) &&
73ad81bf 638 $_FILES['attachfile']['tmp_name'] &&
639 $_FILES['attachfile']['tmp_name'] != 'none') {
0b97a708 640 if(saveAttachedFiles($session)) {
cb34dbd0 641 plain_error_message(_("Could not move/copy file. File not attached"));
00793a25 642 }
643 }
644 /*
645 * I am using an include so as to elminiate an extra unnecessary
646 * click. If you can think of a better way, please implement it.
647 */
648 include_once('./addrbook_search_html.php');
e02775fe 649} elseif (isset($attach)) {
199a9ab8 650
651 // validate security token
652 //
653 sm_validate_security_token($submitted_token, 3600, TRUE);
654
73ad81bf 655 if ($compose_new_win == '1') {
656 compose_Header($color, $mailbox);
657 } else {
658 displayPageHeader($color, $mailbox);
659 }
5a3e52f3 660 if (saveAttachedFiles($session)) {
cb34dbd0 661 plain_error_message(_("Could not move/copy file. File not attached"));
5a3e52f3 662 }
da95c4b6 663 showInputForm($session);
01265fba 664}
665elseif (isset($sigappend)) {
199a9ab8 666
667 // validate security token
668 //
669 sm_validate_security_token($submitted_token, 3600, TRUE);
670
1e2a6ff6 671 $signature = $idents[$identity]['signature'];
672
01265fba 673 $body .= "\n\n".($prefix_sig==true? "-- \n":'').$signature;
674 if ($compose_new_win == '1') {
73ad81bf 675 compose_Header($color, $mailbox);
01265fba 676 } else {
677 displayPageHeader($color, $mailbox);
678 }
da95c4b6 679 showInputForm($session);
e02775fe 680} elseif (isset($do_delete)) {
199a9ab8 681
682 // validate security token
683 //
684 sm_validate_security_token($submitted_token, 3600, TRUE);
685
73ad81bf 686 if ($compose_new_win == '1') {
687 compose_Header($color, $mailbox);
688 } else {
689 displayPageHeader($color, $mailbox);
690 }
00793a25 691
00793a25 692 if (isset($delete) && is_array($delete)) {
693 foreach($delete as $index) {
a58b05b4 694 if (!empty($composeMessage->entities) && isset($composeMessage->entities[$index])) {
c077ffeb 695 $composeMessage->entities[$index]->purgeAttachments();
16449d84 696 // FIXME: one person reported that unset() didn't do anything at all here, so this is a work-around... but it triggers PHP notices if the unset() doesn't work, which should be fixed... but bigger question is if unset() doesn't work here, what about everywhere else? Anyway, uncomment this if you think you need it
697 //$composeMessage->entities[$index] = NULL;
a58b05b4 698 unset ($composeMessage->entities[$index]);
699 }
a91189d6 700 }
701 $new_entities = array();
702 foreach ($composeMessage->entities as $entity) {
703 $new_entities[] = $entity;
00793a25 704 }
a91189d6 705 $composeMessage->entities = $new_entities;
00793a25 706 }
da95c4b6 707 showInputForm($session);
734f4ee6 708} else {
00793a25 709 /*
710 * This handles the default case as well as the error case
1c044820 711 * (they had the same code) --> if (isset($smtpErrors))
00793a25 712 */
44560457 713
714 if ($compose_new_win == '1') {
73ad81bf 715 compose_Header($color, $mailbox);
44560457 716 } else {
73ad81bf 717 displayPageHeader($color, $mailbox);
44560457 718 }
00793a25 719
720 $newmail = true;
721
a61878d0 722 if (!isset($passed_ent_id)) {
723 $passed_ent_id = '';
724 }
725 if (!isset($passed_id)) {
1c044820 726 $passed_id = '';
a61878d0 727 }
728 if (!isset($mailbox)) {
729 $mailbox = '';
1c044820 730 }
a61878d0 731 if (!isset($action)) {
732 $action = '';
733 }
1c044820 734
44560457 735 $values = newMail($mailbox,$passed_id,$passed_ent_id, $action, $session);
b9928adc 736
f2ad47f1 737 // forward as attachment - subject is in the message in session
738 //
739 if ($action == 'forward_as_attachment' && empty($values['subject']))
740 $subject = $composeMessage->rfc822_header->subject;
741
b9928adc 742 /* in case the origin is not read_body.php */
743 if (isset($send_to)) {
73ad81bf 744 $values['send_to'] = $send_to;
b9928adc 745 }
746 if (isset($send_to_cc)) {
73ad81bf 747 $values['send_to_cc'] = $send_to_cc;
b9928adc 748 }
749 if (isset($send_to_bcc)) {
73ad81bf 750 $values['send_to_bcc'] = $send_to_bcc;
b9928adc 751 }
2a2f2185 752 if (isset($subject)) {
73ad81bf 753 $values['subject'] = $subject;
2a2f2185 754 }
41b94d65 755 showInputForm($session, $values);
00793a25 756}
757
758exit();
759
00793a25 760/**************** Only function definitions go below *************/
761
92c6f757 762function getforwardSubject($subject)
763{
764 if ((substr(strtolower($subject), 0, 4) != 'fwd:') &&
73ad81bf 765 (substr(strtolower($subject), 0, 5) != '[fwd:') &&
766 (substr(strtolower($subject), 0, 6) != '[ fwd:')) {
92c6f757 767 $subject = '[Fwd: ' . $subject . ']';
768 }
769 return $subject;
770}
00793a25 771
48985d59 772/* This function is used when not sending or adding attachments */
44560457 773function newMail ($mailbox='', $passed_id='', $passed_ent_id='', $action='', $session='') {
1e2a6ff6 774 global $editor_size, $default_use_priority, $body, $idents,
ce68b76b 775 $use_signature, $data_dir, $username,
b4e7df34 776 $key, $imapServerAddress, $imapPort,
74f66d27 777 $composeMessage, $body_quote, $request_mdn, $request_dr,
856e58ef 778 $mdn_user_support, $languages, $squirrelmail_language,
ace75dcb 779 $default_charset, $do_not_reply_to_self;
e7f1a81d 780
d4f20027 781 /*
782 * Set $default_charset to correspond with the user's selection
783 * of language interface. $default_charset global is not correct,
784 * if message is composed in new window.
785 */
786 set_my_charset();
787
91f2085b 788 $send_to = $send_to_cc = $send_to_bcc = $subject = $identity = '';
bdb92db3 789 $mailprio = 3;
44560457 790
41b94d65 791 if ($passed_id) {
906f7e9f 792 $imapConnection = sqimap_login($username, false, $imapServerAddress,
73ad81bf 793 $imapPort, 0);
a61878d0 794
48985d59 795 sqimap_mailbox_select($imapConnection, $mailbox);
41b94d65 796 $message = sqimap_get_message($imapConnection, $passed_id, $mailbox);
1c044820 797
a61878d0 798 $body = '';
799 if ($passed_ent_id) {
800 /* redefine the messsage in case of message/rfc822 */
801 $message = $message->getEntity($passed_ent_id);
802 /* message is an entity which contains the envelope and type0=message
73ad81bf 803 * and type1=rfc822. The actual entities are childs from
804 * $message->entities[0]. That's where the encoding and is located
805 */
a61878d0 806
807 $entities = $message->entities[0]->findDisplayEntity
73ad81bf 808 (array(), $alt_order = array('text/plain'));
a61878d0 809 if (!count($entities)) {
810 $entities = $message->entities[0]->findDisplayEntity
9c462f8b 811 (array(), $alt_order = array('text/plain','text/html'));
a61878d0 812 }
813 $orig_header = $message->rfc822_header; /* here is the envelope located */
814 /* redefine the message for picking up the attachments */
815 $message = $message->entities[0];
816
817 } else {
818 $entities = $message->findDisplayEntity (array(), $alt_order = array('text/plain'));
819 if (!count($entities)) {
9c462f8b 820 $entities = $message->findDisplayEntity (array(), $alt_order = array('text/plain','text/html'));
a61878d0 821 }
822 $orig_header = $message->rfc822_header;
823 }
1c044820 824
a61878d0 825 $type0 = $message->type0;
826 $type1 = $message->type1;
41b94d65 827 foreach ($entities as $ent) {
b455e47b 828 $msg = $message->getEntity($ent);
829 $type0 = $msg->type0;
830 $type1 = $msg->type1;
a61878d0 831 $unencoded_bodypart = mime_fetch_body($imapConnection, $passed_id, $ent);
832 $body_part_entity = $message->getEntity($ent);
1638beb6 833 $bodypart = decodeBody($unencoded_bodypart,
73ad81bf 834 $body_part_entity->header->encoding);
a61878d0 835 if ($type1 == 'html') {
5b755d9f 836 $bodypart = str_replace("\n", ' ', $bodypart);
bb977394 837 $bodypart = preg_replace(array('/<\/?p>/i','/<div><\/div>/i','/<br\s*(\/)*>/i','/<\/?div>/i'), "\n", $bodypart);
5b755d9f 838 $bodypart = str_replace(array('&nbsp;','&gt;','&lt;'),array(' ','>','<'),$bodypart);
a61878d0 839 $bodypart = strip_tags($bodypart);
840 }
e842b215 841 if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
73ad81bf 842 function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_decode')) {
e842b215 843 if (mb_detect_encoding($bodypart) != 'ASCII') {
f4bb5d22 844 $bodypart = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_decode', $bodypart);
e842b215 845 }
846 }
eceefdfe 847
bfa54da7 848 // charset encoding in compose form stuff
73ad81bf 849 if (isset($body_part_entity->header->parameters['charset'])) {
850 $actual = $body_part_entity->header->parameters['charset'];
851 } else {
852 $actual = 'us-ascii';
853 }
beca818e 854
73ad81bf 855 if ( $actual && is_conversion_safe($actual) && $actual != $default_charset){
856 $bodypart = charset_convert($actual,$bodypart,$default_charset,false);
857 }
bfa54da7 858 // end of charset encoding in compose
eceefdfe 859
a61878d0 860 $body .= $bodypart;
861 }
862 if ($default_use_priority) {
863 $mailprio = substr($orig_header->priority,0,1);
864 if (!$mailprio) {
865 $mailprio = 3;
866 }
867 } else {
868 $mailprio = '';
869 }
bdb92db3 870
a45887d7 871 $from_o = $orig_header->from;
fe868193 872 if (is_array($from_o)) {
873 if (isset($from_o[0])) {
874 $from_o = $from_o[0];
875 }
876 }
bdb92db3 877 if (is_object($from_o)) {
878 $orig_from = $from_o->getAddress();
879 } else {
880 $orig_from = '';
a61878d0 881 }
1e2a6ff6 882
a91189d6 883 $identities = array();
1e2a6ff6 884 if (count($idents) > 1) {
885 foreach($idents as $nr=>$data) {
886 $enc_from_name = '"'.$data['full_name'].'" <'. $data['email_address'].'>';
8d2d85f5 887 if(strtolower($enc_from_name) == strtolower($orig_from)) {
1e2a6ff6 888 $identity = $nr;
bc07287b 889 // don't stop! need to build $identities array for idents match below
890 //break;
a61878d0 891 }
a91189d6 892 $identities[] = $enc_from_name;
893 }
1e2a6ff6 894
a91189d6 895 $identity_match = $orig_header->findAddress($identities);
896 if ($identity_match) {
897 $identity = $identity_match;
a61878d0 898 }
bdb92db3 899 }
a61878d0 900
901 switch ($action) {
73ad81bf 902 case ('draft'):
903 $use_signature = FALSE;
904 $composeMessage->rfc822_header = $orig_header;
905 $send_to = decodeHeader($orig_header->getAddr_s('to'),false,false,true);
906 $send_to_cc = decodeHeader($orig_header->getAddr_s('cc'),false,false,true);
907 $send_to_bcc = decodeHeader($orig_header->getAddr_s('bcc'),false,false,true);
908 $send_from = $orig_header->getAddr_s('from');
909 $send_from_parts = new AddressStructure();
910 $send_from_parts = $orig_header->parseAddress($send_from);
911 $send_from_add = $send_from_parts->mailbox . '@' . $send_from_parts->host;
40e07136 912 $identity = find_identity(array($send_from_add));
73ad81bf 913 $subject = decodeHeader($orig_header->subject,false,false,true);
1638beb6 914
762853f4 915 // Remember the receipt settings
916 $request_mdn = $mdn_user_support && !empty($orig_header->dnt) ? '1' : '0';
917 $request_dr = $mdn_user_support && !empty($orig_header->drnt) ? '1' : '0';
1638beb6 918
73ad81bf 919 /* remember the references and in-reply-to headers in case of an reply */
657fe1bd 920//FIXME: it would be better to fiddle with headers inside of the message object or possibly when delivering the message to its destination (drafts folder?); is this possible?
73ad81bf 921 $composeMessage->rfc822_header->more_headers['References'] = $orig_header->references;
922 $composeMessage->rfc822_header->more_headers['In-Reply-To'] = $orig_header->in_reply_to;
923 // rewrap the body to clean up quotations and line lengths
924 sqBodyWrap($body, $editor_size);
925 $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
926 break;
927 case ('edit_as_new'):
928 $send_to = decodeHeader($orig_header->getAddr_s('to'),false,false,true);
929 $send_to_cc = decodeHeader($orig_header->getAddr_s('cc'),false,false,true);
930 $send_to_bcc = decodeHeader($orig_header->getAddr_s('bcc'),false,false,true);
931 $subject = decodeHeader($orig_header->subject,false,false,true);
932 $mailprio = $orig_header->priority;
933 $orig_from = '';
934 $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
935 // rewrap the body to clean up quotations and line lengths
936 sqBodyWrap($body, $editor_size);
937 break;
938 case ('forward'):
939 $send_to = '';
940 $subject = getforwardSubject(decodeHeader($orig_header->subject,false,false,true));
941 $body = getforwardHeader($orig_header) . $body;
942 // the logic for calling sqUnWordWrap here would be to allow the browser to wrap the lines
943 // forwarded message text should be as undisturbed as possible, so commenting out this call
944 // sqUnWordWrap($body);
945 $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
91c27aee 946
73ad81bf 947 //add a blank line after the forward headers
948 $body = "\n" . $body;
949 break;
950 case ('forward_as_attachment'):
951 $subject = getforwardSubject(decodeHeader($orig_header->subject,false,false,true));
952 $composeMessage = getMessage_RFC822_Attachment($message, $composeMessage, $passed_id, $passed_ent_id, $imapConnection);
f2ad47f1 953 $subject = decodeHeader($orig_header->subject,false,false,true);
954 $subject = str_replace('"', "'", $subject);
955 $subject = trim($subject);
956 if (substr(strtolower($subject), 0, 4) != 'fwd:') {
957 $subject = 'Fwd: ' . $subject;
958 }
73ad81bf 959 $body = '';
960 break;
961 case ('reply_all'):
962 if(isset($orig_header->mail_followup_to) && $orig_header->mail_followup_to) {
963 $send_to = $orig_header->getAddr_s('mail_followup_to');
b268e66b 964 } else {
73ad81bf 965 $send_to_cc = replyAllString($orig_header);
966 $send_to_cc = decodeHeader($send_to_cc,false,false,true);
a9b9e5d3 967 $send_to_cc = str_replace('""', '"', $send_to_cc);
b268e66b 968 }
73ad81bf 969 case ('reply'):
970 // skip this if send_to was already set right above here
971 if(!$send_to) {
972 $send_to = $orig_header->reply_to;
973 if (is_array($send_to) && count($send_to)) {
a9b9e5d3 974 $send_to = $orig_header->getAddr_s('reply_to', ',', FALSE, TRUE);
73ad81bf 975 } else if (is_object($send_to)) { /* unneccesarry, just for failsafe purpose */
a9b9e5d3 976 $send_to = $orig_header->getAddr_s('reply_to', ',', FALSE, TRUE);
73ad81bf 977 } else {
a9b9e5d3 978 $send_to = $orig_header->getAddr_s('from', ',', FALSE, TRUE);
73ad81bf 979 }
dd4a44cd 980 }
73ad81bf 981 $send_to = decodeHeader($send_to,false,false,true);
a9b9e5d3 982 $send_to = str_replace('""', '"', $send_to);
ace75dcb 983
984
985 // If user doesn't want replies to her own messages
986 // going back to herself (instead send again to the
987 // original recipient of the message being replied to),
988 // then iterate through identities, checking if the TO
989 // field is one of them (if the reply is to ourselves)
990 //
991 // Note we don't bother if the original message doesn't
992 // have anything in the TO field itself (because that's
993 // what we use if we change the recipient to be that of
994 // the previous message)
995 //
996 if ($do_not_reply_to_self && !empty($orig_header->to)) {
997
998 $orig_to = '';
999
1000 foreach($idents as $id) {
1001
1002 if (!empty($id['email_address'])
1003 && strpos($send_to, $id['email_address']) !== FALSE) {
1004
1005 // if this is a reply-all, the original recipient
1006 // is already in the CC field, so we can just blank
1007 // the recipient (TO field) (as long as the CC field
1008 // isn't empty that is) and we're done
1009 //
1010 if ($action == 'reply_all') {
1011 if (!empty($send_to_cc)) $send_to = '';
1012 break;
1013 }
1014
1015 $orig_to = $orig_header->to;
1016 if (is_array($orig_to) && count($orig_to)) {
1017 $orig_to = $orig_header->getAddr_s('to', ',', FALSE, TRUE);
1018 } else if (is_object($orig_to)) { /* unneccesarry, just for failsafe purpose */
1019 $orig_to = $orig_header->getAddr_s('to', ',', FALSE, TRUE);
1020 } else {
1021 $orig_to = '';
1022 }
1023 $orig_to = decodeHeader($orig_to,false,false,true);
1024 $orig_to = str_replace('""', '"', $orig_to);
1025
1026 break;
1027 }
1028 }
1029
1030 // if the reply was addressed back to ourselves,
1031 // we will send it to the TO of the previous message,
1032 // first making sure that that address wasn't also
1033 // one of our identities
1034 //
1035 if (!empty($orig_to)) {
1036
1037 foreach($idents as $id) {
1038 if (!empty($id['email_address'])
1039 && strpos($orig_to, $id['email_address']) !== FALSE) {
1040 $orig_to = '';
1041 break;
1042 }
1043 }
1044
1045 // if $orig_to still not empty, we can use it
1046 //
1047 if (!empty($orig_to)) {
1048 $send_to = $orig_to;
1049 }
1050 }
1051
1052 }
1053
1054
73ad81bf 1055 $subject = decodeHeader($orig_header->subject,false,false,true);
1056 $subject = str_replace('"', "'", $subject);
1057 $subject = trim($subject);
1058 if (substr(strtolower($subject), 0, 3) != 're:') {
1059 $subject = 'Re: ' . $subject;
1060 }
1061 /* this corrects some wrapping/quoting problems on replies */
1062 $rewrap_body = explode("\n", $body);
3aaa3214 1063 $from = (is_array($orig_header->from) && !empty($orig_header->from)) ? $orig_header->from[0] : $orig_header->from;
73ad81bf 1064 $body = '';
1065 $strip_sigs = getPref($data_dir, $username, 'strip_sigs');
1066 foreach ($rewrap_body as $line) {
3673a2de 1067 if ($strip_sigs && rtrim($line, "\r\n") == '-- ') {
73ad81bf 1068 break;
1069 }
1070 if (preg_match("/^(>+)/", $line, $matches)) {
1071 $gt = $matches[1];
1072 $body .= $body_quote . str_replace("\n", "\n$body_quote$gt ", rtrim($line)) ."\n";
1073 } else {
1074 $body .= $body_quote . (!empty($body_quote) ? ' ' : '') . str_replace("\n", "\n$body_quote" . (!empty($body_quote) ? ' ' : ''), rtrim($line)) . "\n";
1075 }
a61878d0 1076 }
c9d61baf 1077
73ad81bf 1078 //rewrap the body to clean up quotations and line lengths
1079 $body = sqBodyWrap ($body, $editor_size);
c9d61baf 1080
73ad81bf 1081 $body = getReplyCitation($from , $orig_header->date) . $body;
1082 $composeMessage->reply_rfc822_header = $orig_header;
12a0ed01 1083
73ad81bf 1084 break;
1085 default:
1086 break;
41b94d65 1087 }
b4e7df34 1088//FIXME: we used to register $compose_messages in the session here, but not any more - so do we still need the session_write_close() and sqimap_logout() here? We probably need the IMAP logout, but what about the session closure?
5da08ef7 1089 session_write_close();
a61878d0 1090 sqimap_logout($imapConnection);
41b94d65 1091 }
a61878d0 1092 $ret = array( 'send_to' => $send_to,
73ad81bf 1093 'send_to_cc' => $send_to_cc,
1094 'send_to_bcc' => $send_to_bcc,
1095 'subject' => $subject,
1096 'mailprio' => $mailprio,
1097 'body' => $body,
1098 'identity' => $identity );
a61878d0 1099
41b94d65 1100 return ($ret);
48985d59 1101} /* function newMail() */
1102
50706f77 1103/**
1104 * downloads attachments from original message, stores them in attachment directory and adds
1105 * them to composed message.
1106 * @param object $message
1107 * @param object $composeMessage
1108 * @param integer $passed_id
1109 * @param mixed $entities
1110 * @param mixed $imapConnection
91c27aee 1111 * @return object
50706f77 1112 */
a43e4b90 1113function getAttachments($message, &$composeMessage, $passed_id, $entities, $imapConnection) {
1f270d3c 1114 global $squirrelmail_language, $languages, $username, $attachment_dir;
628bce99 1115
1c044820 1116 if (!count($message->entities) ||
73ad81bf 1117 ($message->type0 == 'message' && $message->type1 == 'rfc822')) {
41b94d65 1118 if ( !in_array($message->entity_id, $entities) && $message->entity_id) {
73ad81bf 1119 switch ($message->type0) {
1120 case 'message':
1121 if ($message->type1 == 'rfc822') {
1122 $filename = $message->rfc822_header->subject;
1123 if ($filename == "") {
1124 $filename = "untitled-".$message->entity_id;
1125 }
6f71f6e6 1126 $filename .= '.eml';
73ad81bf 1127 } else {
1128 $filename = $message->getFilename();
181538ac 1129 }
73ad81bf 1130 break;
1131 default:
1132 if (!$message->mime_header) { /* temporary hack */
1133 $message->mime_header = $message->header;
1134 }
1135 $filename = $message->getFilename();
1136 break;
1137 }
117aa0c5 1138//FIXME: added three args to the following, so as to set the last one to TRUE, to mimick a fix in 1.4.21 (#2994865), but didn't test this (note that in 1.4.21, the 2nd and 3rd args are FALSE, but here in this code, they weren't being specified (thus defaulting to TRUE), so I don't know if that means this code is outdated and should have been changed to FALSE, FALSE or if this code is completely different and the addition of the TRUE for arg #4 is wrong
1139 $filename = str_replace('&#32;', ' ', decodeHeader($filename, true, true, true));
73ad81bf 1140 if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
1141 function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
f4bb5d22 1142 $filename = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $filename);
73ad81bf 1143 }
1f270d3c 1144
1145 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
628bce99 1146 $localfilename = sq_get_attach_tempfile();
1147 $message->att_local_name = $localfilename;
73ad81bf 1148
1149 $composeMessage->initAttachment($message->type0.'/'.$message->type1,$filename,
628bce99 1150 $localfilename);
73ad81bf 1151
1152 /* Write Attachment to file */
1f270d3c 1153 $fp = fopen ($hashed_attachment_dir . '/' . $localfilename, 'wb');
91c27aee 1154 mime_print_body_lines ($imapConnection, $passed_id, $message->entity_id, $message->header->encoding, $fp);
73ad81bf 1155 fclose ($fp);
48985d59 1156 }
734f4ee6 1157 } else {
a43e4b90 1158 for ($i=0, $entCount=count($message->entities); $i<$entCount;$i++) {
1159 $composeMessage=getAttachments($message->entities[$i], $composeMessage, $passed_id, $entities, $imapConnection);
48985d59 1160 }
1161 }
a43e4b90 1162 return $composeMessage;
48985d59 1163}
1164
1c044820 1165function getMessage_RFC822_Attachment($message, $composeMessage, $passed_id,
73ad81bf 1166 $passed_ent_id='', $imapConnection) {
756406df 1167 if (!$passed_ent_id) {
1c044820 1168 $body_a = sqimap_run_command($imapConnection,
73ad81bf 1169 'FETCH '.$passed_id.' RFC822',
1170 TRUE, $response, $readmessage,
1171 TRUE);
756406df 1172 } else {
1c044820 1173 $body_a = sqimap_run_command($imapConnection,
73ad81bf 1174 'FETCH '.$passed_id.' BODY['.$passed_ent_id.']',
1175 TRUE, $response, $readmessage, TRUE);
a61878d0 1176 $message = $message->parent;
756406df 1177 }
d0519c03 1178 if ($response == 'OK') {
a61878d0 1179 $subject = encodeHeader($message->rfc822_header->subject);
1180 array_shift($body_a);
1c044820 1181 array_pop($body_a);
a61878d0 1182 $body = implode('', $body_a) . "\r\n";
1c044820 1183
1f270d3c 1184 global $username, $attachment_dir;
1185 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
628bce99 1186 $localfilename = sq_get_attach_tempfile();
1f270d3c 1187 $fp = fopen($hashed_attachment_dir . '/' . $localfilename, 'wb');
a61878d0 1188 fwrite ($fp, $body);
1189 fclose($fp);
6f71f6e6 1190 $composeMessage->initAttachment('message/rfc822',$subject.'.eml',
628bce99 1191 $localfilename);
a43e4b90 1192 }
1193 return $composeMessage;
a6ec592e 1194}
1195
41b94d65 1196function showInputForm ($session, $values=false) {
856e58ef 1197 global $send_to, $send_to_cc, $send_to_bcc,
f8eb968d 1198 $body, $startMessage, $action, $attachments,
b2b614bb 1199 $use_signature, $signature, $prefix_sig, $session_expired,
8d8da447 1200 $editor_size, $editor_height, $subject, $newmail,
e506b6e5 1201 $use_javascript_addr_book, $passed_id, $mailbox, $fwduid,
73ad81bf 1202 $from_htmladdr_search, $location_of_buttons, $attachment_dir,
ce68b76b 1203 $username, $data_dir, $identity, $idents, $delete_draft,
1204 $mailprio, $compose_new_win, $saved_draft, $mail_sent, $sig_first,
b4e7df34 1205 $composeMessage, $composesession, $default_charset,
762853f4 1206 $compose_onsubmit, $oTemplate, $oErrorHandler;
a43e4b90 1207
87745b9c 1208 if (checkForJavascript()) {
1209 $onfocus = ' onfocus="alreadyFocused=true;"';
1210 $onfocus_array = array('onfocus' => 'alreadyFocused=true;');
1211 }
1212 else {
1213 $onfocus = '';
1214 $onfocus_array = array();
1215 }
1216
41b94d65 1217 if ($values) {
73ad81bf 1218 $send_to = $values['send_to'];
1219 $send_to_cc = $values['send_to_cc'];
1220 $send_to_bcc = $values['send_to_bcc'];
1221 $subject = $values['subject'];
1222 $mailprio = $values['mailprio'];
1223 $body = $values['body'];
1224 $identity = (int) $values['identity'];
676bb189 1225 } else {
73ad81bf 1226 $send_to = decodeHeader($send_to, true, false);
1227 $send_to_cc = decodeHeader($send_to_cc, true, false);
1228 $send_to_bcc = decodeHeader($send_to_bcc, true, false);
41b94d65 1229 }
1c044820 1230
48985d59 1231 if ($use_javascript_addr_book) {
c8dc86c9 1232//FIXME: NO HTML IN CORE!
2c92ea9d 1233 echo "\n". '<script type="text/javascript">'."\n<!--\n" .
73ad81bf 1234 'function open_abook() { ' . "\n" .
1235 ' var nwin = window.open("addrbook_popup.php","abookpopup",' .
1236 '"width=670,height=300,resizable=yes,scrollbars=yes");' . "\n" .
1237 ' if((!nwin.opener) && (document.windows != null))' . "\n" .
1238 ' nwin.opener = document.windows;' . "\n" .
1239 "}\n" .
1240 "// -->\n</script>\n\n";
48985d59 1241 }
1242
c8dc86c9 1243//FIXME: NO HTML IN CORE!
4a1788b3 1244 echo "\n" . '<form name="compose" action="compose.php" method="post" ' .
73ad81bf 1245 'enctype="multipart/form-data"';
a34b07a5 1246
1247 $compose_onsubmit = array();
6e515418 1248 global $null;
1249 do_hook('compose_form', $null);
1c044820 1250
a34b07a5 1251 // Plugins that use compose_form hook can add an array entry
1252 // to the globally scoped $compose_onsubmit; we add them up
5c4ff7bf 1253 // here and format the form tag's full onsubmit handler.
1254 // Each plugin should use "return false" if they need to
a34b07a5 1255 // stop form submission but otherwise should NOT use "return
1256 // true" to give other plugins the chance to do what they need
1257 // to do; SquirrelMail itself will add the final "return true".
1258 // Onsubmit text is enclosed inside of double quotes, so plugins
1259 // need to quote accordingly.
395c3216 1260 //
1261 // Also, plugin authors should try to retain compatibility with
1262 // the Compose Extras plugin by resetting its compose submit
1263 // counter when preventing form submit. Use this code:
1264 // if (your-code-here) { submit_count = 0; return false; }
1265 //
a34b07a5 1266 if (checkForJavascript()) {
5c4ff7bf 1267 if (empty($compose_onsubmit))
a34b07a5 1268 $compose_onsubmit = array();
5c4ff7bf 1269 else if (!is_array($compose_onsubmit))
a34b07a5 1270 $compose_onsubmit = array($compose_onsubmit);
1271
82dcbb1e 1272 $onsubmit_text = '';
a34b07a5 1273 foreach ($compose_onsubmit as $text) {
1274 $text = trim($text);
82dcbb1e 1275 if (!empty($text)) {
1276 if (substr($text, -1) != ';' && substr($text, -1) != '}')
1277 $text .= '; ';
1278 $onsubmit_text .= $text;
1279 }
a34b07a5 1280 }
1281
82dcbb1e 1282 if (!empty($onsubmit_text))
c8dc86c9 1283//FIXME: DON'T ECHO HTML FROM CORE!
82dcbb1e 1284 echo ' onsubmit="' . $onsubmit_text . ' return true;"';
a34b07a5 1285 }
5c4ff7bf 1286
a34b07a5 1287
c8dc86c9 1288//FIXME: NO HTML IN CORE!
48985d59 1289 echo ">\n";
1290
c8dc86c9 1291//FIXME: DON'T ECHO HTML FROM CORE!
199a9ab8 1292 echo addHidden('smtoken', sm_generate_security_token());
1293
1294//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1295 echo addHidden('startMessage', $startMessage);
4a1788b3 1296
41b94d65 1297 if ($action == 'draft') {
c8dc86c9 1298//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1299 echo addHidden('delete_draft', $passed_id);
48985d59 1300 }
1301 if (isset($delete_draft)) {
c8dc86c9 1302//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1303 echo addHidden('delete_draft', $delete_draft);
48985d59 1304 }
da95c4b6 1305 if (isset($session)) {
c8dc86c9 1306//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1307 echo addHidden('session', $session);
da95c4b6 1308 }
1c044820 1309
08bad2b1 1310 if (isset($passed_id)) {
c8dc86c9 1311//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1312 echo addHidden('passed_id', $passed_id);
08bad2b1 1313 }
44560457 1314
e506b6e5 1315 if (isset($fwduid)) {
1316//FIXME: DON'T ECHO HTML FROM CORE!
1317 echo addHidden('fwduid', $fwduid);
1318 }
1319
9c3e6cd4 1320 if ($saved_draft == 'yes') {
774d79cc 1321 $oTemplate->assign('note', _("Your draft has been saved."));
762853f4 1322 $oTemplate->display('note.tpl');
9c3e6cd4 1323 }
1324 if ($mail_sent == 'yes') {
774d79cc 1325 $oTemplate->assign('note', _("Your mail has been sent."));
762853f4 1326 $oTemplate->display('note.tpl');
9c3e6cd4 1327 }
9c3e6cd4 1328 if ($compose_new_win == '1') {
762853f4 1329 $oTemplate->display('compose_newwin_close.tpl');
9c3e6cd4 1330 }
1638beb6 1331
78a35fcd 1332 if ($location_of_buttons == 'top') {
c8dc86c9 1333//FIXME: DON'T ECHO HTML FROM CORE!
78a35fcd 1334 showComposeButtonRow();
1335 }
48985d59 1336
762853f4 1337 $identities = array();
1e2a6ff6 1338 if (count($idents) > 1) {
762853f4 1339 reset($idents);
73ad81bf 1340 foreach($idents as $id => $data) {
762853f4 1341 $identities[$id] = $data['full_name'].' &lt;'.$data['email_address'].'&gt;';
73ad81bf 1342 }
762853f4 1343 }
1638beb6 1344
762853f4 1345 $oTemplate->assign('identities', $identities);
1346 $oTemplate->assign('identity_def', $identity);
1347 $oTemplate->assign('input_onfocus', 'onfocus="'.join(' ', $onfocus_array).'"');
1638beb6 1348
762853f4 1349 $oTemplate->assign('to', htmlspecialchars($send_to));
1350 $oTemplate->assign('cc', htmlspecialchars($send_to_cc));
1351 $oTemplate->assign('bcc', htmlspecialchars($send_to_bcc));
1352 $oTemplate->assign('subject', htmlspecialchars($subject));
1638beb6 1353
8949acd6 1354 // access keys...
1355 //
1356 global $accesskey_compose_to, $accesskey_compose_cc,
5f20677e 1357 $accesskey_compose_identity, $accesskey_compose_bcc,
1358 $accesskey_compose_subject;
1359 $oTemplate->assign('accesskey_compose_identity', $accesskey_compose_identity);
8949acd6 1360 $oTemplate->assign('accesskey_compose_to', $accesskey_compose_to);
1361 $oTemplate->assign('accesskey_compose_cc', $accesskey_compose_cc);
1362 $oTemplate->assign('accesskey_compose_bcc', $accesskey_compose_bcc);
1363 $oTemplate->assign('accesskey_compose_subject', $accesskey_compose_subject);
1364
762853f4 1365 $oTemplate->display('compose_header.tpl');
48985d59 1366
78a35fcd 1367 if ($location_of_buttons == 'between') {
c8dc86c9 1368//FIXME: DON'T ECHO HTML FROM CORE!
78a35fcd 1369 showComposeButtonRow();
1370 }
4dfb9db7 1371
762853f4 1372 $body_str = '';
48985d59 1373 if ($use_signature == true && $newmail == true && !isset($from_htmladdr_search)) {
1e2a6ff6 1374 $signature = $idents[$identity]['signature'];
d3c13a51 1375
3b17e952 1376 if ($sig_first == '1') {
50706f77 1377 /*
1378 * FIXME: test is specific to ja_JP translation implementation.
1379 * This test might apply incorrect conversion to other translations, but
91c27aee 1380 * use of 7bit iso-2022-jp charset in other translations might have other
50706f77 1381 * issues too.
1382 */
ab4700c3 1383 if ($default_charset == 'iso-2022-jp') {
762853f4 1384 $body_str = "\n\n".($prefix_sig==true? "-- \n":'').mb_convert_encoding($signature, 'EUC-JP');
83be314a 1385 } else {
762853f4 1386 $body_str = "\n\n".($prefix_sig==true? "-- \n":'').decodeHeader($signature,false,false);
83be314a 1387 }
762853f4 1388 $body_str .= "\n\n".htmlspecialchars(decodeHeader($body,false,false));
1389 } else {
1390 $body_str = "\n\n".htmlspecialchars(decodeHeader($body,false,false));
50706f77 1391 // FIXME: test is specific to ja_JP translation implementation. See above comments.
ab4700c3 1392 if ($default_charset == 'iso-2022-jp') {
762853f4 1393 $body_str .= "\n\n".($prefix_sig==true? "-- \n":'').mb_convert_encoding($signature, 'EUC-JP');
1394 } else {
1395 $body_str .= "\n\n".($prefix_sig==true? "-- \n":'').decodeHeader($signature,false,false);
73ad81bf 1396 }
3b17e952 1397 }
73ad81bf 1398 } else {
762853f4 1399 $body_str = htmlspecialchars(decodeHeader($body,false,false));
48985d59 1400 }
12a0ed01 1401
762853f4 1402 $oTemplate->assign('editor_width', (int)$editor_size);
1403 $oTemplate->assign('editor_height', (int)$editor_height);
1404 $oTemplate->assign('input_onfocus', 'onfocus="'.join(' ', $onfocus_array).'"');
1405 $oTemplate->assign('body', $body_str);
1406 $oTemplate->assign('show_bottom_send', $location_of_buttons!='bottom');
1638beb6 1407
8949acd6 1408 // access keys...
1409 //
1410 global $accesskey_compose_body, $accesskey_compose_send;
1411 $oTemplate->assign('accesskey_compose_body', $accesskey_compose_body);
1412 $oTemplate->assign('accesskey_compose_send', $accesskey_compose_send);
1413
762853f4 1414 $oTemplate->display ('compose_body.tpl');
1638beb6 1415
48985d59 1416 if ($location_of_buttons == 'bottom') {
c8dc86c9 1417//FIXME: DON'T ECHO HTML FROM CORE!
48985d59 1418 showComposeButtonRow();
48985d59 1419 }
46bb8da8 1420
f8eb968d 1421 // composeMessage can be empty when coming from a restored session
1422 if (is_object($composeMessage) && $composeMessage->entities)
1423 $attach_array = $composeMessage->entities;
1424 if ($session_expired && !empty($attachments) && is_array($attachments))
1425 $attach_array = $attachments;
1426
48985d59 1427 /* This code is for attachments */
73ad81bf 1428 if ((bool) ini_get('file_uploads')) {
1429
1430 /* Calculate the max size for an uploaded file.
1431 * This is advisory for the user because we can't actually prevent
1432 * people to upload too large files. */
1433 $sizes = array();
1434 /* php.ini vars which influence the max for uploads */
1435 $configvars = array('post_max_size', 'memory_limit', 'upload_max_filesize');
1436 foreach($configvars as $var) {
4f21ba00 1437 /* skip 0 or empty values, and -1 which means 'unlimited' */
73ad81bf 1438 if( $size = getByteSize(ini_get($var)) ) {
4f21ba00 1439 if ( $size != '-1' ) {
1440 $sizes[] = $size;
1441 }
73ad81bf 1442 }
0a2c3218 1443 }
0a2c3218 1444
762853f4 1445 $attach = array();
1f270d3c 1446 global $username, $attachment_dir;
1447 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
f8eb968d 1448 if (!empty($attach_array)) {
1449 foreach ($attach_array as $key => $attachment) {
73ad81bf 1450 $attached_file = $attachment->att_local_name;
1451 if ($attachment->att_local_name || $attachment->body_part) {
1452 $attached_filename = decodeHeader($attachment->mime_header->getParameter('name'));
1453 $type = $attachment->mime_header->type0.'/'.
a91189d6 1454 $attachment->mime_header->type1;
1638beb6 1455
762853f4 1456 $a = array();
1457 $a['Key'] = $key;
1458 $a['FileName'] = $attached_filename;
1459 $a['ContentType'] = $type;
1f270d3c 1460 $a['Size'] = filesize($hashed_attachment_dir . '/' . $attached_file);
762853f4 1461 $attach[$key] = $a;
73ad81bf 1462 }
1463 }
4dfb9db7 1464 }
1638beb6 1465
762853f4 1466 $max = min($sizes);
1467 $oTemplate->assign('max_file_size', empty($max) ? -1 : $max);
1468 $oTemplate->assign('attachments', $attach);
1638beb6 1469
8949acd6 1470 // access keys...
1471 //
1472 global $accesskey_compose_attach_browse, $accesskey_compose_attach,
1473 $accesskey_compose_delete_attach;
1474 $oTemplate->assign('accesskey_compose_attach_browse', $accesskey_compose_attach_browse);
1475 $oTemplate->assign('accesskey_compose_attach', $accesskey_compose_attach);
1476 $oTemplate->assign('accesskey_compose_delete_attach', $accesskey_compose_delete_attach);
1477
762853f4 1478 $oTemplate->display('compose_attachments.tpl');
73ad81bf 1479 } // End of file_uploads if-block
41b94d65 1480 /* End of attachment code */
762853f4 1481
253ad942 1482 $oTemplate->assign('username', $username);
1483 $oTemplate->assign('smaction', $action);
1484 $oTemplate->assign('mailbox', $mailbox);
953fa718 1485 sqgetGlobalVar('QUERY_STRING', $queryString, SQ_SERVER);
253ad942 1486 $oTemplate->assign('querystring', $queryString);
1487 $oTemplate->assign('composesession', $composesession);
1488 $oTemplate->assign('send_button_count', unique_widget_name('send', TRUE));
1489 if (!empty($attach_array))
1490 $oTemplate->assign('attachments', urlencode(serialize($attach_array)));
1491
1492 $aUserNotices = array();
1493
1494 // File uploads are off, so we didn't show that part of the form.
1495 // To avoid bogus bug reports, tell the user why.
a64f47e7 1496 if (!(bool) ini_get('file_uploads')) {
253ad942 1497 $aUserNotices[] = _("Because PHP file uploads are turned off, you can not attach files to this message. Please see your system administrator for details.");
a64f47e7 1498 }
1499
253ad942 1500 $oTemplate->assign('user_notices', $aUserNotices);
1501
1502 $oTemplate->display('compose_form_close.tpl');
1503
762853f4 1504 if ($compose_new_win=='1') {
1505 $oTemplate->display('compose_newwin_close.tpl');
1506 }
1638beb6 1507
762853f4 1508 $oErrorHandler->setDelayedErrors(false);
5c4ff7bf 1509 $oTemplate->display('footer.tpl');
48985d59 1510}
1511
1512
70c4fd84 1513function showComposeButtonRow() {
78a35fcd 1514 global $use_javascript_addr_book, $save_as_draft,
73ad81bf 1515 $default_use_priority, $mailprio, $default_use_mdn,
1516 $request_mdn, $request_dr,
1517 $data_dir, $username;
70c4fd84 1518
762853f4 1519 global $oTemplate, $buffer_hook;
1638beb6 1520
1521 if ($default_use_priority) {
762853f4 1522 $priorities = array('1'=>_("High"), '3'=>_("Normal"), '5'=>_("Low"));
1523 $priority = isset($mailprio) ? $mailprio : 3;
1524 } else {
1525 $priorities = array();
1526 $priority = NULL;
ae25968c 1527 }
1638beb6 1528
ae25968c 1529 $mdn_user_support=getPref($data_dir, $username, 'mdn_user_support',$default_use_mdn);
48985d59 1530
8949acd6 1531 $address_book_button_attribs = array();
1532 global $accesskey_compose_addresses;
1533 if ($accesskey_compose_addresses != 'NONE')
1534 $address_book_button_attribs['accesskey'] = $accesskey_compose_addresses;
c40a269e 1535 if ($use_javascript_addr_book && checkForJavascript()) {
8949acd6 1536 $addr_book = addButton(_("Addresses"),
1537 null,
1538 array_merge($address_book_button_attribs, array('onclick' => 'javascript:open_abook();')));
734f4ee6 1539 } else {
8949acd6 1540 $addr_book = addSubmit(_("Addresses"), 'html_addr_search', $address_book_button_attribs);
78a35fcd 1541 }
48985d59 1542
762853f4 1543 $oTemplate->assign('allow_priority', $default_use_priority==1);
1544 $oTemplate->assign('priority_list', $priorities);
1545 $oTemplate->assign('current_priority', $priority);
1638beb6 1546
762853f4 1547 $oTemplate->assign('notifications_enabled', $mdn_user_support==1);
1548 $oTemplate->assign('read_receipt', $request_mdn=='1');
1549 $oTemplate->assign('delivery_receipt', $request_dr=='1');
1638beb6 1550
762853f4 1551 $oTemplate->assign('drafts_enabled', $save_as_draft);
1552 $oTemplate->assign('address_book_button', $addr_book);
441f2d33 1553
8949acd6 1554 // access keys...
1555 //
1556 global $accesskey_compose_priority, $accesskey_compose_on_read,
1557 $accesskey_compose_on_delivery, $accesskey_compose_signature,
1558 $accesskey_compose_save_draft, $accesskey_compose_send;
1559 $oTemplate->assign('accesskey_compose_priority', $accesskey_compose_priority);
1560 $oTemplate->assign('accesskey_compose_on_read', $accesskey_compose_on_read);
1561 $oTemplate->assign('accesskey_compose_on_delivery', $accesskey_compose_on_delivery);
1562 $oTemplate->assign('accesskey_compose_signature', $accesskey_compose_signature);
1563 $oTemplate->assign('accesskey_compose_save_draft', $accesskey_compose_save_draft);
1564 $oTemplate->assign('accesskey_compose_send', $accesskey_compose_send);
1565
762853f4 1566 $oTemplate->display('compose_buttons.tpl');
78a35fcd 1567}
b278172f 1568
70c4fd84 1569function checkInput ($show) {
78a35fcd 1570 /*
1571 * I implemented the $show variable because the error messages
1572 * were getting sent before the page header. So, I check once
1573 * using $show=false, and then when i'm ready to display the error
1574 * message, show=true
1575 */
1356041d 1576 global $send_to, $send_to_cc, $send_to_bcc;
78a35fcd 1577
1356041d 1578 $send_to = trim($send_to);
1579 $send_to_cc = trim($send_to_cc);
1580 $send_to_bcc = trim($send_to_bcc);
1581 if (empty($send_to) && empty($send_to_cc) && empty($send_to_bcc)) {
78a35fcd 1582 if ($show) {
cb34dbd0 1583 plain_error_message(_("You have not filled in the \"To:\" field."));
78a35fcd 1584 }
1585 return false;
1586 }
1587 return true;
1588} /* function checkInput() */
df15de21 1589
3806fa52 1590
00793a25 1591/* True if FAILURE */
da95c4b6 1592function saveAttachedFiles($session) {
b4e7df34 1593 global $composeMessage, $username, $attachment_dir;
bfa54da7 1594
45cdd1b5 1595 /* get out of here if no file was attached at all */
1596 if (! is_uploaded_file($_FILES['attachfile']['tmp_name']) ) {
1597 return true;
1598 }
1599
1f270d3c 1600 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
628bce99 1601 $localfilename = sq_get_attach_tempfile();
1f270d3c 1602 $fullpath = $hashed_attachment_dir . '/' . $localfilename;
4c9d2242 1603
a42c236f 1604 // m_u_f works better with restricted PHP installs (safe_mode, open_basedir),
1605 // if that doesn't work, try a simple rename.
8442ecb9 1606 if (!sq_call_function_suppress_errors('move_uploaded_file', array($_FILES['attachfile']['tmp_name'], $fullpath))) {
1607 if (!sq_call_function_suppress_errors('rename', array($_FILES['attachfile']['tmp_name'], $fullpath))) {
73ad81bf 1608 return true;
1609 }
a61878d0 1610 }
0b97a708 1611 $type = strtolower($_FILES['attachfile']['type']);
1612 $name = $_FILES['attachfile']['name'];
b4e7df34 1613 $composeMessage->initAttachment($type, $name, $localfilename);
4c9d2242 1614}
1615
5fe7d683 1616/**
1617 * Parse strings such as "8M" and "2k" into their corresponding size in bytes
1618 *
1619 * NOTE: This function only recognizes the suffixes "K", "M" and "G"
1620 * and will probably break very easily if the given size is in
1621 * some completely different format.
1622 *
1623 * @param string $ini_size The input string to be converted
1624 *
1625 * @return mixed Boolean FALSE if something went wrong (the value passed in
1626 * was empty?, the suffix was not recognized?), otherwise, the
1627 * converted size in bytes (just the number (as an integer),
1628 * no unit identifier included)
1629 *
1630 */
0a2c3218 1631function getByteSize($ini_size) {
1632
4d30dc83 1633 if(!$ini_size) {
1634 return FALSE;
1635 }
da95c4b6 1636
0a2c3218 1637 $ini_size = trim($ini_size);
1638
5b9716de 1639 // if there's some kind of letter at the end of the string we need to multiply.
1640 if(!is_numeric(substr($ini_size, -1))) {
1641
1642 switch(strtoupper(substr($ini_size, -1))) {
1643 case 'G':
73ad81bf 1644 $bytesize = 1073741824;
1645 break;
5b9716de 1646 case 'M':
73ad81bf 1647 $bytesize = 1048576;
1648 break;
5b9716de 1649 case 'K':
73ad81bf 1650 $bytesize = 1024;
1651 break;
5fe7d683 1652 default:
1653 return FALSE;
5b9716de 1654 }
1655
4d30dc83 1656 return ($bytesize * (int)substr($ini_size, 0, -1));
0a2c3218 1657 }
1c044820 1658
4d30dc83 1659 return $ini_size;
0a2c3218 1660}
a43e4b90 1661
4c9d2242 1662
50706f77 1663/**
1664 * temporary function to make use of the deliver class.
a42c236f 1665 * In the future the responsible backend should be automaticly loaded
50706f77 1666 * and conf.pl should show a list of available backends.
1667 * The message also should be constructed by the message class.
b67d61ee 1668 *
10adeb76 1669 * @param object $composeMessage The message being sent. Please note
1670 * that it is passed by reference and
1671 * will be returned modified, with additional
1672 * headers, such as Message-ID, Date, In-Reply-To,
1673 * References, and so forth.
1674 *
b67d61ee 1675 * @return boolean FALSE if delivery failed, or some non-FALSE value
1676 * upon success.
1677 *
73ad81bf 1678 */
10adeb76 1679function deliverMessage(&$composeMessage, $draft=false) {
a43e4b90 1680 global $send_to, $send_to_cc, $send_to_bcc, $mailprio, $subject, $body,
10adeb76 1681 $username, $identity, $idents, $data_dir,
856e58ef 1682 $request_mdn, $request_dr, $default_charset, $useSendmail,
1683 $domain, $action, $default_move_to_sent, $move_to_sent,
1684 $imapServerAddress, $imapPort, $sent_folder, $key;
a43e4b90 1685
1686 $rfc822_header = $composeMessage->rfc822_header;
24192f77 1687
1688 $abook = addressbook_init(false, true);
310dfeb6 1689 $rfc822_header->to = $rfc822_header->parseAddress($send_to,true, array(), '', $domain, array(&$abook,'lookup'));
1690 $rfc822_header->cc = $rfc822_header->parseAddress($send_to_cc,true,array(), '',$domain, array(&$abook,'lookup'));
1691 $rfc822_header->bcc = $rfc822_header->parseAddress($send_to_bcc,true, array(), '',$domain, array(&$abook,'lookup'));
a43e4b90 1692 $rfc822_header->priority = $mailprio;
1693 $rfc822_header->subject = $subject;
310dfeb6 1694
a43e4b90 1695 $special_encoding='';
1696 if (strtolower($default_charset) == 'iso-2022-jp') {
1697 if (mb_detect_encoding($body) == 'ASCII') {
a91189d6 1698 $special_encoding = '8bit';
a43e4b90 1699 } else {
1700 $body = mb_convert_encoding($body, 'JIS');
1701 $special_encoding = '7bit';
1702 }
1703 }
1704 $composeMessage->setBody($body);
1705
a43e4b90 1706 $reply_to = '';
1e2a6ff6 1707 $reply_to = $idents[$identity]['reply_to'];
52ead32b 1708 if ($reply_to && strpos($reply_to, '@') === FALSE)
8b213268 1709 $reply_to .= '@' . $domain;
40e07136 1710
1711 $from_addr = build_from_header($identity);
1712 $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
a43e4b90 1713 if ($reply_to) {
73ad81bf 1714 $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
a43e4b90 1715 }
1716 /* Receipt: On Read */
1717 if (isset($request_mdn) && $request_mdn) {
40e07136 1718 $rfc822_header->dnt = $rfc822_header->parseAddress($from_addr,true);
762853f4 1719 } elseif (isset($rfc822_header->dnt)) {
1720 unset($rfc822_header->dnt);
a43e4b90 1721 }
1638beb6 1722
a43e4b90 1723 /* Receipt: On Delivery */
657fe1bd 1724 if (!empty($request_dr)) {
1725//FIXME: it would be better to fiddle with headers inside of the message object or possibly when delivering the message to its destination; is this possible?
cc51047f 1726 $rfc822_header->more_headers['Return-Receipt-To'] = $from_addr;
762853f4 1727 } elseif (isset($rfc822_header->more_headers['Return-Receipt-To'])) {
1728 unset($rfc822_header->more_headers['Return-Receipt-To']);
a43e4b90 1729 }
762853f4 1730
a43e4b90 1731 /* multipart messages */
1732 if (count($composeMessage->entities)) {
1733 $message_body = new Message();
a91189d6 1734 $message_body->body_part = $composeMessage->body_part;
1735 $composeMessage->body_part = '';
1736 $mime_header = new MessageHeader;
1737 $mime_header->type0 = 'text';
1738 $mime_header->type1 = 'plain';
1739 if ($special_encoding) {
1740 $mime_header->encoding = $special_encoding;
1c044820 1741 } else {
12a0ed01 1742 $mime_header->encoding = '8bit';
a91189d6 1743 }
1744 if ($default_charset) {
1745 $mime_header->parameters['charset'] = $default_charset;
1746 }
1c044820 1747 $message_body->mime_header = $mime_header;
a43e4b90 1748 array_unshift($composeMessage->entities, $message_body);
a91189d6 1749 $content_type = new ContentType('multipart/mixed');
a43e4b90 1750 } else {
1e2026df 1751 $content_type = new ContentType('text/plain');
1752 if ($special_encoding) {
1753 $rfc822_header->encoding = $special_encoding;
1c044820 1754 } else {
1e2026df 1755 $rfc822_header->encoding = '8bit';
1c044820 1756 }
426e0b72 1757 if ($default_charset) {
1758 $content_type->properties['charset']=$default_charset;
73ad81bf 1759 }
181538ac 1760 }
1c044820 1761
a43e4b90 1762 $rfc822_header->content_type = $content_type;
1763 $composeMessage->rfc822_header = $rfc822_header;
0fdb0aa1 1764 if ($action == 'reply' || $action == 'reply_all') {
1765 global $passed_id, $passed_ent_id;
1766 $reply_id = $passed_id;
1767 $reply_ent_id = $passed_ent_id;
1768 } else {
1769 $reply_id = '';
1770 $reply_ent_id = '';
1771 }
1638beb6 1772
1c044820 1773 /* Here you can modify the message structure just before we hand
6e515418 1774 it over to deliver; plugin authors note that $composeMessage
1775 is sent and modified by reference since 1.5.2 */
1776 do_hook('compose_send', $composeMessage);
a43e4b90 1777
b48d3c53 1778 if (!$useSendmail && !$draft) {
a91189d6 1779 require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
1780 $deliver = new Deliver_SMTP();
783e926e 1781 global $smtpServerAddress, $smtpPort, $pop_before_smtp, $pop_before_smtp_host;
a91189d6 1782
a91189d6 1783 $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
783e926e 1784 if (empty($pop_before_smtp_host)) $pop_before_smtp_host = $smtpServerAddress;
9bd3b1e6 1785 get_smtp_user($user, $pass);
a91189d6 1786 $stream = $deliver->initStream($composeMessage,$domain,0,
783e926e 1787 $smtpServerAddress, $smtpPort, $user, $pass, $authPop, $pop_before_smtp_host);
b48d3c53 1788 } elseif (!$draft) {
73ad81bf 1789 require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
fd7ab795 1790 global $sendmail_path, $sendmail_args;
f3dc9c62 1791 // Check for outdated configuration
1792 if (!isset($sendmail_args)) {
1793 if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
1794 $sendmail_args = '';
1795 } else {
1796 $sendmail_args = '-i -t';
1797 }
1798 }
fd7ab795 1799 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
73ad81bf 1800 $stream = $deliver->initStream($composeMessage,$sendmail_path);
b48d3c53 1801 } elseif ($draft) {
73ad81bf 1802 global $draft_folder;
906f7e9f 1803 $imap_stream = sqimap_login($username, false, $imapServerAddress,
73ad81bf 1804 $imapPort, 0);
1805 if (sqimap_mailbox_exists ($imap_stream, $draft_folder)) {
1806 require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
1807 $imap_deliver = new Deliver_IMAP();
a90d951c 1808 $success = $imap_deliver->mail($composeMessage, $imap_stream, $reply_id, $reply_ent_id, $imap_stream, $draft_folder);
73ad81bf 1809 sqimap_logout($imap_stream);
1810 unset ($imap_deliver);
c077ffeb 1811 $composeMessage->purgeAttachments();
b67d61ee 1812 return $success;
4dfb9db7 1813 } else {
fd7ab795 1814 $msg = '<br />'.sprintf(_("Error: Draft folder %s does not exist."), htmlspecialchars($draft_folder));
cb34dbd0 1815 plain_error_message($msg);
73ad81bf 1816 return false;
a91189d6 1817 }
a43e4b90 1818 }
0c59bbe1 1819 $success = false;
a43e4b90 1820 if ($stream) {
10adeb76 1821 $deliver->mail($composeMessage, $stream, $reply_id, $reply_ent_id);
0c59bbe1 1822 $success = $deliver->finalizeStream($stream);
a43e4b90 1823 }
0c59bbe1 1824 if (!$success) {
fd7ab795 1825 // $deliver->dlv_server_msg is not always server's reply
32433689 1826 $msg = _("Message not sent.")
1827 . "<br />\n"
1828 . (isset($deliver->dlv_msg) ? $deliver->dlv_msg : '');
a15f9d93 1829 if (!empty($deliver->dlv_server_msg)) {
1830 // add 'server replied' part only when it is not empty.
1831 // Delivery error can be generated by delivery class itself
32433689 1832 $msg .= '<br />'
1833 . _("Server replied:") . ' '
1834 . (isset($deliver->dlv_ret_nr) ? $deliver->dlv_ret_nr . ' ' : '')
1835 . nl2br(htmlspecialchars($deliver->dlv_server_msg));
a15f9d93 1836 }
cb34dbd0 1837 plain_error_message($msg);
a43e4b90 1838 } else {
1839 unset ($deliver);
906f7e9f 1840 $imap_stream = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
e4a1f097 1841
8780308f 1842
414303b8 1843 // mark as replied or forwarded if applicable
1844 //
e506b6e5 1845 global $what, $iAccount, $startMessage, $passed_id, $fwduid, $mailbox;
8780308f 1846
bc29bf70 1847 if ($action=='reply' || $action=='reply_all' || $action=='forward' || $action=='forward_as_attachment') {
202bcbcc 1848 require(SM_PATH . 'functions/mailbox_display.php');
8780308f 1849 $aMailbox = sqm_api_mailbox_select($imap_stream, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
bc29bf70 1850 switch($action) {
1851 case 'reply':
1852 case 'reply_all':
1853 // check if we are allowed to set the \\Answered flag
1854 if (in_array('\\answered',$aMailbox['PERMANENTFLAGS'], true)) {
1855 $aUpdatedMsgs = sqimap_toggle_flag($imap_stream, array($passed_id), '\\Answered', true, false);
1856 if (isset($aUpdatedMsgs[$passed_id]['FLAGS'])) {
1857 /**
1858 * Only update the cached headers if the header is
1859 * cached.
1860 */
1861 if (isset($aMailbox['MSG_HEADERS'][$passed_id])) {
1862 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'] = $aMsg['FLAGS'];
1863 }
1864 }
1865 }
1866 break;
1867 case 'forward':
1868 case 'forward_as_attachment':
1869 // check if we are allowed to set the $Forwarded flag (RFC 4550 paragraph 2.8)
1638beb6 1870 if (in_array('$forwarded',$aMailbox['PERMANENTFLAGS'], true) ||
bc29bf70 1871 in_array('\\*',$aMailbox['PERMANENTFLAGS'])) {
1872
e506b6e5 1873 // when forwarding as an attachment from the message
1874 // list, passed_id is not used, need to get UID(s)
1875 // from the query string
1876 //
1877 if (empty($passed_id) && !empty($fwduid))
1878 $ids = explode('_', $fwduid);
1879 else
1880 $ids = array($passed_id);
1881
1882 $aUpdatedMsgs = sqimap_toggle_flag($imap_stream, $ids, '$Forwarded', true, false);
1883
1884 foreach ($ids as $id) {
1885 if (isset($aUpdatedMsgs[$id]['FLAGS'])) {
1886 if (isset($aMailbox['MSG_HEADERS'][$id])) {
1887 $aMailbox['MSG_HEADERS'][$id]['FLAGS'] = $aMsg['FLAGS'];
1888 }
bc29bf70 1889 }
bda07b93 1890 }
8780308f 1891 }
bc29bf70 1892 break;
8780308f 1893 }
bc29bf70 1894
4d1cb59a 1895 /**
1896 * Write mailbox with updated seen flag information back to cache.
1897 */
bc29bf70 1898 if(isset($aUpdatedMsgs[$passed_id])) {
1899 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1900 sqsession_register($mailbox_cache,'mailbox_cache');
1901 }
1902
a91189d6 1903 }
414303b8 1904
1905
1906 // move to sent folder
1907 //
1908 $move_to_sent = getPref($data_dir,$username,'move_to_sent');
1909 if (isset($default_move_to_sent) && ($default_move_to_sent != 0)) {
1910 $svr_allow_sent = true;
1911 } else {
1912 $svr_allow_sent = false;
1913 }
1914
1915 if (isset($sent_folder) && (($sent_folder != '') || ($sent_folder != 'none'))
1916 && sqimap_mailbox_exists( $imap_stream, $sent_folder)) {
1917 $fld_sent = true;
1918 } else {
1919 $fld_sent = false;
1920 }
1921
1922 if ((isset($move_to_sent) && ($move_to_sent != 0)) || (!isset($move_to_sent))) {
1923 $lcl_allow_sent = true;
1924 } else {
1925 $lcl_allow_sent = false;
1926 }
1927
1928 if (($fld_sent && $svr_allow_sent && !$lcl_allow_sent) || ($fld_sent && $lcl_allow_sent)) {
1929 if ($action == 'reply' || $action == 'reply_all') {
1930 $save_reply_with_orig=getPref($data_dir,$username,'save_reply_with_orig');
1931 if ($save_reply_with_orig) {
1932 $sent_folder = $mailbox;
1933 }
1934 }
414303b8 1935 require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
1936 $imap_deliver = new Deliver_IMAP();
33f0da43 1937 $imap_deliver->mail($composeMessage, $imap_stream, $reply_id, $reply_ent_id, $imap_stream, $sent_folder);
414303b8 1938 unset ($imap_deliver);
1939 }
1940
1941
1942 // final cleanup
1943 //
1944 $composeMessage->purgeAttachments();
1945 sqimap_logout($imap_stream);
1946
a43e4b90 1947 }
0c59bbe1 1948 return $success;
a43e4b90 1949}