Don't allow TO field to be blank; adjust auto-detection of FROM for reply-all actions...
[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 *
79ba18dc 13 * @copyright 1999-2013 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 //
2cefa62a 418 sm_validate_security_token($submitted_token, -1, TRUE);
199a9ab8 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 //
2cefa62a 477 sm_validate_security_token($submitted_token, -1, TRUE);
199a9ab8 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 //
2cefa62a 604 sm_validate_security_token($submitted_token, -1, TRUE);
199a9ab8 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 //
2cefa62a 653 sm_validate_security_token($submitted_token, -1, TRUE);
199a9ab8 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 //
2cefa62a 669 sm_validate_security_token($submitted_token, -1, TRUE);
199a9ab8 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 //
2cefa62a 684 sm_validate_security_token($submitted_token, -1, TRUE);
199a9ab8 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'].'>';
a91189d6 887 $identities[] = $enc_from_name;
888 }
1e2a6ff6 889
a91189d6 890 $identity_match = $orig_header->findAddress($identities);
ea721316 891 if ($identity_match !== FALSE) {
a91189d6 892 $identity = $identity_match;
a61878d0 893 }
bdb92db3 894 }
a61878d0 895
896 switch ($action) {
73ad81bf 897 case ('draft'):
898 $use_signature = FALSE;
899 $composeMessage->rfc822_header = $orig_header;
900 $send_to = decodeHeader($orig_header->getAddr_s('to'),false,false,true);
901 $send_to_cc = decodeHeader($orig_header->getAddr_s('cc'),false,false,true);
902 $send_to_bcc = decodeHeader($orig_header->getAddr_s('bcc'),false,false,true);
903 $send_from = $orig_header->getAddr_s('from');
904 $send_from_parts = new AddressStructure();
905 $send_from_parts = $orig_header->parseAddress($send_from);
906 $send_from_add = $send_from_parts->mailbox . '@' . $send_from_parts->host;
40e07136 907 $identity = find_identity(array($send_from_add));
73ad81bf 908 $subject = decodeHeader($orig_header->subject,false,false,true);
1638beb6 909
762853f4 910 // Remember the receipt settings
911 $request_mdn = $mdn_user_support && !empty($orig_header->dnt) ? '1' : '0';
912 $request_dr = $mdn_user_support && !empty($orig_header->drnt) ? '1' : '0';
1638beb6 913
73ad81bf 914 /* remember the references and in-reply-to headers in case of an reply */
657fe1bd 915//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 916 $composeMessage->rfc822_header->more_headers['References'] = $orig_header->references;
917 $composeMessage->rfc822_header->more_headers['In-Reply-To'] = $orig_header->in_reply_to;
918 // rewrap the body to clean up quotations and line lengths
919 sqBodyWrap($body, $editor_size);
920 $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
921 break;
922 case ('edit_as_new'):
923 $send_to = decodeHeader($orig_header->getAddr_s('to'),false,false,true);
924 $send_to_cc = decodeHeader($orig_header->getAddr_s('cc'),false,false,true);
925 $send_to_bcc = decodeHeader($orig_header->getAddr_s('bcc'),false,false,true);
926 $subject = decodeHeader($orig_header->subject,false,false,true);
927 $mailprio = $orig_header->priority;
928 $orig_from = '';
929 $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
930 // rewrap the body to clean up quotations and line lengths
931 sqBodyWrap($body, $editor_size);
932 break;
933 case ('forward'):
934 $send_to = '';
935 $subject = getforwardSubject(decodeHeader($orig_header->subject,false,false,true));
936 $body = getforwardHeader($orig_header) . $body;
937 // the logic for calling sqUnWordWrap here would be to allow the browser to wrap the lines
938 // forwarded message text should be as undisturbed as possible, so commenting out this call
939 // sqUnWordWrap($body);
940 $composeMessage = getAttachments($message, $composeMessage, $passed_id, $entities, $imapConnection);
91c27aee 941
73ad81bf 942 //add a blank line after the forward headers
943 $body = "\n" . $body;
944 break;
945 case ('forward_as_attachment'):
946 $subject = getforwardSubject(decodeHeader($orig_header->subject,false,false,true));
947 $composeMessage = getMessage_RFC822_Attachment($message, $composeMessage, $passed_id, $passed_ent_id, $imapConnection);
f2ad47f1 948 $subject = decodeHeader($orig_header->subject,false,false,true);
949 $subject = str_replace('"', "'", $subject);
950 $subject = trim($subject);
951 if (substr(strtolower($subject), 0, 4) != 'fwd:') {
952 $subject = 'Fwd: ' . $subject;
953 }
73ad81bf 954 $body = '';
955 break;
956 case ('reply_all'):
957 if(isset($orig_header->mail_followup_to) && $orig_header->mail_followup_to) {
958 $send_to = $orig_header->getAddr_s('mail_followup_to');
b268e66b 959 } else {
73ad81bf 960 $send_to_cc = replyAllString($orig_header);
961 $send_to_cc = decodeHeader($send_to_cc,false,false,true);
a9b9e5d3 962 $send_to_cc = str_replace('""', '"', $send_to_cc);
b268e66b 963 }
73ad81bf 964 case ('reply'):
965 // skip this if send_to was already set right above here
966 if(!$send_to) {
967 $send_to = $orig_header->reply_to;
968 if (is_array($send_to) && count($send_to)) {
a9b9e5d3 969 $send_to = $orig_header->getAddr_s('reply_to', ',', FALSE, TRUE);
73ad81bf 970 } else if (is_object($send_to)) { /* unneccesarry, just for failsafe purpose */
a9b9e5d3 971 $send_to = $orig_header->getAddr_s('reply_to', ',', FALSE, TRUE);
73ad81bf 972 } else {
a9b9e5d3 973 $send_to = $orig_header->getAddr_s('from', ',', FALSE, TRUE);
73ad81bf 974 }
dd4a44cd 975 }
73ad81bf 976 $send_to = decodeHeader($send_to,false,false,true);
a9b9e5d3 977 $send_to = str_replace('""', '"', $send_to);
ace75dcb 978
979
980 // If user doesn't want replies to her own messages
981 // going back to herself (instead send again to the
982 // original recipient of the message being replied to),
983 // then iterate through identities, checking if the TO
984 // field is one of them (if the reply is to ourselves)
985 //
986 // Note we don't bother if the original message doesn't
987 // have anything in the TO field itself (because that's
988 // what we use if we change the recipient to be that of
989 // the previous message)
990 //
991 if ($do_not_reply_to_self && !empty($orig_header->to)) {
992
993 $orig_to = '';
994
995 foreach($idents as $id) {
996
997 if (!empty($id['email_address'])
998 && strpos($send_to, $id['email_address']) !== FALSE) {
999
1000 // if this is a reply-all, the original recipient
1001 // is already in the CC field, so we can just blank
1002 // the recipient (TO field) (as long as the CC field
a9b6e52d 1003 // isn't empty that is)... but then move the CC into
1004 // the TO, so TO isn't empty
ace75dcb 1005 //
6fac6196 1006 if ($action == 'reply_all' && !empty($send_to_cc)) {
a9b6e52d 1007 $orig_to = $send_to_cc;
1008 $send_to_cc = '';
ace75dcb 1009 break;
1010 }
1011
1012 $orig_to = $orig_header->to;
1013 if (is_array($orig_to) && count($orig_to)) {
1014 $orig_to = $orig_header->getAddr_s('to', ',', FALSE, TRUE);
1015 } else if (is_object($orig_to)) { /* unneccesarry, just for failsafe purpose */
1016 $orig_to = $orig_header->getAddr_s('to', ',', FALSE, TRUE);
1017 } else {
1018 $orig_to = '';
1019 }
1020 $orig_to = decodeHeader($orig_to,false,false,true);
1021 $orig_to = str_replace('""', '"', $orig_to);
1022
1023 break;
1024 }
1025 }
1026
1027 // if the reply was addressed back to ourselves,
5df2efa2 1028 // we will send it to the TO of the previous message
ace75dcb 1029 //
1030 if (!empty($orig_to)) {
1031
5df2efa2 1032 $send_to = $orig_to;
5777c73d 1033
1034 // in this case, we also want to reset the FROM
1035 // identity as well (it should match the original
1036 // *FROM* header instead of TO or CC)
1037 //
1038 if (count($idents) > 1) {
1039 $identity = '';
1040 foreach($idents as $i => $id) {
1041 if (!empty($id['email_address'])
1042 && strpos($orig_from, $id['email_address']) !== FALSE) {
1043 $identity = $i;
1044 break;
1045 }
1046 }
1047 }
1048
ace75dcb 1049 }
1050
1051 }
1052
1053
73ad81bf 1054 $subject = decodeHeader($orig_header->subject,false,false,true);
1055 $subject = str_replace('"', "'", $subject);
1056 $subject = trim($subject);
1057 if (substr(strtolower($subject), 0, 3) != 're:') {
1058 $subject = 'Re: ' . $subject;
1059 }
1060 /* this corrects some wrapping/quoting problems on replies */
1061 $rewrap_body = explode("\n", $body);
3aaa3214 1062 $from = (is_array($orig_header->from) && !empty($orig_header->from)) ? $orig_header->from[0] : $orig_header->from;
73ad81bf 1063 $body = '';
1064 $strip_sigs = getPref($data_dir, $username, 'strip_sigs');
1065 foreach ($rewrap_body as $line) {
3673a2de 1066 if ($strip_sigs && rtrim($line, "\r\n") == '-- ') {
73ad81bf 1067 break;
1068 }
1069 if (preg_match("/^(>+)/", $line, $matches)) {
1070 $gt = $matches[1];
1071 $body .= $body_quote . str_replace("\n", "\n$body_quote$gt ", rtrim($line)) ."\n";
1072 } else {
1073 $body .= $body_quote . (!empty($body_quote) ? ' ' : '') . str_replace("\n", "\n$body_quote" . (!empty($body_quote) ? ' ' : ''), rtrim($line)) . "\n";
1074 }
a61878d0 1075 }
c9d61baf 1076
73ad81bf 1077 //rewrap the body to clean up quotations and line lengths
1078 $body = sqBodyWrap ($body, $editor_size);
c9d61baf 1079
73ad81bf 1080 $body = getReplyCitation($from , $orig_header->date) . $body;
1081 $composeMessage->reply_rfc822_header = $orig_header;
12a0ed01 1082
73ad81bf 1083 break;
1084 default:
1085 break;
41b94d65 1086 }
b4e7df34 1087//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 1088 session_write_close();
a61878d0 1089 sqimap_logout($imapConnection);
41b94d65 1090 }
a61878d0 1091 $ret = array( 'send_to' => $send_to,
73ad81bf 1092 'send_to_cc' => $send_to_cc,
1093 'send_to_bcc' => $send_to_bcc,
1094 'subject' => $subject,
1095 'mailprio' => $mailprio,
1096 'body' => $body,
1097 'identity' => $identity );
a61878d0 1098
41b94d65 1099 return ($ret);
48985d59 1100} /* function newMail() */
1101
50706f77 1102/**
1103 * downloads attachments from original message, stores them in attachment directory and adds
1104 * them to composed message.
1105 * @param object $message
1106 * @param object $composeMessage
1107 * @param integer $passed_id
1108 * @param mixed $entities
1109 * @param mixed $imapConnection
91c27aee 1110 * @return object
50706f77 1111 */
a43e4b90 1112function getAttachments($message, &$composeMessage, $passed_id, $entities, $imapConnection) {
1f270d3c 1113 global $squirrelmail_language, $languages, $username, $attachment_dir;
628bce99 1114
1c044820 1115 if (!count($message->entities) ||
73ad81bf 1116 ($message->type0 == 'message' && $message->type1 == 'rfc822')) {
41b94d65 1117 if ( !in_array($message->entity_id, $entities) && $message->entity_id) {
73ad81bf 1118 switch ($message->type0) {
1119 case 'message':
1120 if ($message->type1 == 'rfc822') {
1121 $filename = $message->rfc822_header->subject;
1122 if ($filename == "") {
1123 $filename = "untitled-".$message->entity_id;
1124 }
6f71f6e6 1125 $filename .= '.eml';
73ad81bf 1126 } else {
1127 $filename = $message->getFilename();
181538ac 1128 }
73ad81bf 1129 break;
1130 default:
1131 if (!$message->mime_header) { /* temporary hack */
1132 $message->mime_header = $message->header;
1133 }
1134 $filename = $message->getFilename();
1135 break;
1136 }
117aa0c5 1137//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
1138 $filename = str_replace('&#32;', ' ', decodeHeader($filename, true, true, true));
73ad81bf 1139 if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
1140 function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode')) {
f4bb5d22 1141 $filename = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_encode', $filename);
73ad81bf 1142 }
1f270d3c 1143
1144 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
628bce99 1145 $localfilename = sq_get_attach_tempfile();
1146 $message->att_local_name = $localfilename;
73ad81bf 1147
1148 $composeMessage->initAttachment($message->type0.'/'.$message->type1,$filename,
628bce99 1149 $localfilename);
73ad81bf 1150
1151 /* Write Attachment to file */
1f270d3c 1152 $fp = fopen ($hashed_attachment_dir . '/' . $localfilename, 'wb');
91c27aee 1153 mime_print_body_lines ($imapConnection, $passed_id, $message->entity_id, $message->header->encoding, $fp);
73ad81bf 1154 fclose ($fp);
48985d59 1155 }
734f4ee6 1156 } else {
a43e4b90 1157 for ($i=0, $entCount=count($message->entities); $i<$entCount;$i++) {
1158 $composeMessage=getAttachments($message->entities[$i], $composeMessage, $passed_id, $entities, $imapConnection);
48985d59 1159 }
1160 }
a43e4b90 1161 return $composeMessage;
48985d59 1162}
1163
1c044820 1164function getMessage_RFC822_Attachment($message, $composeMessage, $passed_id,
73ad81bf 1165 $passed_ent_id='', $imapConnection) {
756406df 1166 if (!$passed_ent_id) {
1c044820 1167 $body_a = sqimap_run_command($imapConnection,
73ad81bf 1168 'FETCH '.$passed_id.' RFC822',
1169 TRUE, $response, $readmessage,
1170 TRUE);
756406df 1171 } else {
1c044820 1172 $body_a = sqimap_run_command($imapConnection,
73ad81bf 1173 'FETCH '.$passed_id.' BODY['.$passed_ent_id.']',
1174 TRUE, $response, $readmessage, TRUE);
a61878d0 1175 $message = $message->parent;
756406df 1176 }
d0519c03 1177 if ($response == 'OK') {
a61878d0 1178 $subject = encodeHeader($message->rfc822_header->subject);
1179 array_shift($body_a);
1c044820 1180 array_pop($body_a);
a61878d0 1181 $body = implode('', $body_a) . "\r\n";
1c044820 1182
1f270d3c 1183 global $username, $attachment_dir;
1184 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
628bce99 1185 $localfilename = sq_get_attach_tempfile();
1f270d3c 1186 $fp = fopen($hashed_attachment_dir . '/' . $localfilename, 'wb');
a61878d0 1187 fwrite ($fp, $body);
1188 fclose($fp);
6f71f6e6 1189 $composeMessage->initAttachment('message/rfc822',$subject.'.eml',
628bce99 1190 $localfilename);
a43e4b90 1191 }
1192 return $composeMessage;
a6ec592e 1193}
1194
41b94d65 1195function showInputForm ($session, $values=false) {
856e58ef 1196 global $send_to, $send_to_cc, $send_to_bcc,
f8eb968d 1197 $body, $startMessage, $action, $attachments,
b2b614bb 1198 $use_signature, $signature, $prefix_sig, $session_expired,
8d8da447 1199 $editor_size, $editor_height, $subject, $newmail,
e506b6e5 1200 $use_javascript_addr_book, $passed_id, $mailbox, $fwduid,
73ad81bf 1201 $from_htmladdr_search, $location_of_buttons, $attachment_dir,
ce68b76b 1202 $username, $data_dir, $identity, $idents, $delete_draft,
1203 $mailprio, $compose_new_win, $saved_draft, $mail_sent, $sig_first,
b4e7df34 1204 $composeMessage, $composesession, $default_charset,
762853f4 1205 $compose_onsubmit, $oTemplate, $oErrorHandler;
a43e4b90 1206
87745b9c 1207 if (checkForJavascript()) {
1208 $onfocus = ' onfocus="alreadyFocused=true;"';
1209 $onfocus_array = array('onfocus' => 'alreadyFocused=true;');
1210 }
1211 else {
1212 $onfocus = '';
1213 $onfocus_array = array();
1214 }
1215
41b94d65 1216 if ($values) {
73ad81bf 1217 $send_to = $values['send_to'];
1218 $send_to_cc = $values['send_to_cc'];
1219 $send_to_bcc = $values['send_to_bcc'];
1220 $subject = $values['subject'];
1221 $mailprio = $values['mailprio'];
1222 $body = $values['body'];
1223 $identity = (int) $values['identity'];
676bb189 1224 } else {
73ad81bf 1225 $send_to = decodeHeader($send_to, true, false);
1226 $send_to_cc = decodeHeader($send_to_cc, true, false);
1227 $send_to_bcc = decodeHeader($send_to_bcc, true, false);
41b94d65 1228 }
1c044820 1229
48985d59 1230 if ($use_javascript_addr_book) {
c8dc86c9 1231//FIXME: NO HTML IN CORE!
2c92ea9d 1232 echo "\n". '<script type="text/javascript">'."\n<!--\n" .
73ad81bf 1233 'function open_abook() { ' . "\n" .
1234 ' var nwin = window.open("addrbook_popup.php","abookpopup",' .
1235 '"width=670,height=300,resizable=yes,scrollbars=yes");' . "\n" .
1236 ' if((!nwin.opener) && (document.windows != null))' . "\n" .
1237 ' nwin.opener = document.windows;' . "\n" .
1238 "}\n" .
1239 "// -->\n</script>\n\n";
48985d59 1240 }
1241
c8dc86c9 1242//FIXME: NO HTML IN CORE!
4a1788b3 1243 echo "\n" . '<form name="compose" action="compose.php" method="post" ' .
73ad81bf 1244 'enctype="multipart/form-data"';
a34b07a5 1245
1246 $compose_onsubmit = array();
6e515418 1247 global $null;
1248 do_hook('compose_form', $null);
1c044820 1249
a34b07a5 1250 // Plugins that use compose_form hook can add an array entry
1251 // to the globally scoped $compose_onsubmit; we add them up
5c4ff7bf 1252 // here and format the form tag's full onsubmit handler.
1253 // Each plugin should use "return false" if they need to
a34b07a5 1254 // stop form submission but otherwise should NOT use "return
1255 // true" to give other plugins the chance to do what they need
1256 // to do; SquirrelMail itself will add the final "return true".
1257 // Onsubmit text is enclosed inside of double quotes, so plugins
1258 // need to quote accordingly.
395c3216 1259 //
1260 // Also, plugin authors should try to retain compatibility with
1261 // the Compose Extras plugin by resetting its compose submit
1262 // counter when preventing form submit. Use this code:
1263 // if (your-code-here) { submit_count = 0; return false; }
1264 //
a34b07a5 1265 if (checkForJavascript()) {
5c4ff7bf 1266 if (empty($compose_onsubmit))
a34b07a5 1267 $compose_onsubmit = array();
5c4ff7bf 1268 else if (!is_array($compose_onsubmit))
a34b07a5 1269 $compose_onsubmit = array($compose_onsubmit);
1270
82dcbb1e 1271 $onsubmit_text = '';
a34b07a5 1272 foreach ($compose_onsubmit as $text) {
1273 $text = trim($text);
82dcbb1e 1274 if (!empty($text)) {
1275 if (substr($text, -1) != ';' && substr($text, -1) != '}')
1276 $text .= '; ';
1277 $onsubmit_text .= $text;
1278 }
a34b07a5 1279 }
1280
82dcbb1e 1281 if (!empty($onsubmit_text))
c8dc86c9 1282//FIXME: DON'T ECHO HTML FROM CORE!
82dcbb1e 1283 echo ' onsubmit="' . $onsubmit_text . ' return true;"';
a34b07a5 1284 }
5c4ff7bf 1285
a34b07a5 1286
c8dc86c9 1287//FIXME: NO HTML IN CORE!
48985d59 1288 echo ">\n";
1289
c8dc86c9 1290//FIXME: DON'T ECHO HTML FROM CORE!
199a9ab8 1291 echo addHidden('smtoken', sm_generate_security_token());
1292
1293//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1294 echo addHidden('startMessage', $startMessage);
4a1788b3 1295
41b94d65 1296 if ($action == 'draft') {
c8dc86c9 1297//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1298 echo addHidden('delete_draft', $passed_id);
48985d59 1299 }
1300 if (isset($delete_draft)) {
c8dc86c9 1301//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1302 echo addHidden('delete_draft', $delete_draft);
48985d59 1303 }
da95c4b6 1304 if (isset($session)) {
c8dc86c9 1305//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1306 echo addHidden('session', $session);
da95c4b6 1307 }
1c044820 1308
08bad2b1 1309 if (isset($passed_id)) {
c8dc86c9 1310//FIXME: DON'T ECHO HTML FROM CORE!
df96b37a 1311 echo addHidden('passed_id', $passed_id);
08bad2b1 1312 }
44560457 1313
e506b6e5 1314 if (isset($fwduid)) {
1315//FIXME: DON'T ECHO HTML FROM CORE!
1316 echo addHidden('fwduid', $fwduid);
1317 }
1318
9c3e6cd4 1319 if ($saved_draft == 'yes') {
774d79cc 1320 $oTemplate->assign('note', _("Your draft has been saved."));
762853f4 1321 $oTemplate->display('note.tpl');
9c3e6cd4 1322 }
1323 if ($mail_sent == 'yes') {
774d79cc 1324 $oTemplate->assign('note', _("Your mail has been sent."));
762853f4 1325 $oTemplate->display('note.tpl');
9c3e6cd4 1326 }
9c3e6cd4 1327 if ($compose_new_win == '1') {
762853f4 1328 $oTemplate->display('compose_newwin_close.tpl');
9c3e6cd4 1329 }
1638beb6 1330
78a35fcd 1331 if ($location_of_buttons == 'top') {
c8dc86c9 1332//FIXME: DON'T ECHO HTML FROM CORE!
78a35fcd 1333 showComposeButtonRow();
1334 }
48985d59 1335
762853f4 1336 $identities = array();
1e2a6ff6 1337 if (count($idents) > 1) {
762853f4 1338 reset($idents);
73ad81bf 1339 foreach($idents as $id => $data) {
762853f4 1340 $identities[$id] = $data['full_name'].' &lt;'.$data['email_address'].'&gt;';
73ad81bf 1341 }
762853f4 1342 }
1638beb6 1343
762853f4 1344 $oTemplate->assign('identities', $identities);
1345 $oTemplate->assign('identity_def', $identity);
1346 $oTemplate->assign('input_onfocus', 'onfocus="'.join(' ', $onfocus_array).'"');
1638beb6 1347
3047e291 1348 $oTemplate->assign('to', sm_encode_html_special_chars($send_to));
1349 $oTemplate->assign('cc', sm_encode_html_special_chars($send_to_cc));
1350 $oTemplate->assign('bcc', sm_encode_html_special_chars($send_to_bcc));
1351 $oTemplate->assign('subject', sm_encode_html_special_chars($subject));
1638beb6 1352
8949acd6 1353 // access keys...
1354 //
1355 global $accesskey_compose_to, $accesskey_compose_cc,
5f20677e 1356 $accesskey_compose_identity, $accesskey_compose_bcc,
1357 $accesskey_compose_subject;
1358 $oTemplate->assign('accesskey_compose_identity', $accesskey_compose_identity);
8949acd6 1359 $oTemplate->assign('accesskey_compose_to', $accesskey_compose_to);
1360 $oTemplate->assign('accesskey_compose_cc', $accesskey_compose_cc);
1361 $oTemplate->assign('accesskey_compose_bcc', $accesskey_compose_bcc);
1362 $oTemplate->assign('accesskey_compose_subject', $accesskey_compose_subject);
1363
762853f4 1364 $oTemplate->display('compose_header.tpl');
48985d59 1365
78a35fcd 1366 if ($location_of_buttons == 'between') {
c8dc86c9 1367//FIXME: DON'T ECHO HTML FROM CORE!
78a35fcd 1368 showComposeButtonRow();
1369 }
4dfb9db7 1370
762853f4 1371 $body_str = '';
48985d59 1372 if ($use_signature == true && $newmail == true && !isset($from_htmladdr_search)) {
1e2a6ff6 1373 $signature = $idents[$identity]['signature'];
d3c13a51 1374
3b17e952 1375 if ($sig_first == '1') {
50706f77 1376 /*
1377 * FIXME: test is specific to ja_JP translation implementation.
1378 * This test might apply incorrect conversion to other translations, but
91c27aee 1379 * use of 7bit iso-2022-jp charset in other translations might have other
50706f77 1380 * issues too.
1381 */
ab4700c3 1382 if ($default_charset == 'iso-2022-jp') {
762853f4 1383 $body_str = "\n\n".($prefix_sig==true? "-- \n":'').mb_convert_encoding($signature, 'EUC-JP');
83be314a 1384 } else {
762853f4 1385 $body_str = "\n\n".($prefix_sig==true? "-- \n":'').decodeHeader($signature,false,false);
83be314a 1386 }
3047e291 1387 $body_str .= "\n\n".sm_encode_html_special_chars(decodeHeader($body,false,false));
762853f4 1388 } else {
3047e291 1389 $body_str = "\n\n".sm_encode_html_special_chars(decodeHeader($body,false,false));
50706f77 1390 // FIXME: test is specific to ja_JP translation implementation. See above comments.
ab4700c3 1391 if ($default_charset == 'iso-2022-jp') {
762853f4 1392 $body_str .= "\n\n".($prefix_sig==true? "-- \n":'').mb_convert_encoding($signature, 'EUC-JP');
1393 } else {
1394 $body_str .= "\n\n".($prefix_sig==true? "-- \n":'').decodeHeader($signature,false,false);
73ad81bf 1395 }
3b17e952 1396 }
73ad81bf 1397 } else {
3047e291 1398 $body_str = sm_encode_html_special_chars(decodeHeader($body,false,false));
48985d59 1399 }
12a0ed01 1400
762853f4 1401 $oTemplate->assign('editor_width', (int)$editor_size);
1402 $oTemplate->assign('editor_height', (int)$editor_height);
1403 $oTemplate->assign('input_onfocus', 'onfocus="'.join(' ', $onfocus_array).'"');
1404 $oTemplate->assign('body', $body_str);
1405 $oTemplate->assign('show_bottom_send', $location_of_buttons!='bottom');
1638beb6 1406
8949acd6 1407 // access keys...
1408 //
1409 global $accesskey_compose_body, $accesskey_compose_send;
1410 $oTemplate->assign('accesskey_compose_body', $accesskey_compose_body);
1411 $oTemplate->assign('accesskey_compose_send', $accesskey_compose_send);
1412
762853f4 1413 $oTemplate->display ('compose_body.tpl');
1638beb6 1414
48985d59 1415 if ($location_of_buttons == 'bottom') {
c8dc86c9 1416//FIXME: DON'T ECHO HTML FROM CORE!
48985d59 1417 showComposeButtonRow();
48985d59 1418 }
46bb8da8 1419
f8eb968d 1420 // composeMessage can be empty when coming from a restored session
1421 if (is_object($composeMessage) && $composeMessage->entities)
1422 $attach_array = $composeMessage->entities;
1423 if ($session_expired && !empty($attachments) && is_array($attachments))
1424 $attach_array = $attachments;
1425
48985d59 1426 /* This code is for attachments */
73ad81bf 1427 if ((bool) ini_get('file_uploads')) {
1428
1429 /* Calculate the max size for an uploaded file.
1430 * This is advisory for the user because we can't actually prevent
1431 * people to upload too large files. */
1432 $sizes = array();
1433 /* php.ini vars which influence the max for uploads */
1434 $configvars = array('post_max_size', 'memory_limit', 'upload_max_filesize');
1435 foreach($configvars as $var) {
4f21ba00 1436 /* skip 0 or empty values, and -1 which means 'unlimited' */
73ad81bf 1437 if( $size = getByteSize(ini_get($var)) ) {
4f21ba00 1438 if ( $size != '-1' ) {
1439 $sizes[] = $size;
1440 }
73ad81bf 1441 }
0a2c3218 1442 }
0a2c3218 1443
762853f4 1444 $attach = array();
1f270d3c 1445 global $username, $attachment_dir;
1446 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
f8eb968d 1447 if (!empty($attach_array)) {
1448 foreach ($attach_array as $key => $attachment) {
73ad81bf 1449 $attached_file = $attachment->att_local_name;
1450 if ($attachment->att_local_name || $attachment->body_part) {
1451 $attached_filename = decodeHeader($attachment->mime_header->getParameter('name'));
1452 $type = $attachment->mime_header->type0.'/'.
a91189d6 1453 $attachment->mime_header->type1;
1638beb6 1454
762853f4 1455 $a = array();
1456 $a['Key'] = $key;
1457 $a['FileName'] = $attached_filename;
1458 $a['ContentType'] = $type;
1f270d3c 1459 $a['Size'] = filesize($hashed_attachment_dir . '/' . $attached_file);
762853f4 1460 $attach[$key] = $a;
73ad81bf 1461 }
1462 }
4dfb9db7 1463 }
1638beb6 1464
762853f4 1465 $max = min($sizes);
1466 $oTemplate->assign('max_file_size', empty($max) ? -1 : $max);
1467 $oTemplate->assign('attachments', $attach);
1638beb6 1468
8949acd6 1469 // access keys...
1470 //
1471 global $accesskey_compose_attach_browse, $accesskey_compose_attach,
1472 $accesskey_compose_delete_attach;
1473 $oTemplate->assign('accesskey_compose_attach_browse', $accesskey_compose_attach_browse);
1474 $oTemplate->assign('accesskey_compose_attach', $accesskey_compose_attach);
1475 $oTemplate->assign('accesskey_compose_delete_attach', $accesskey_compose_delete_attach);
1476
762853f4 1477 $oTemplate->display('compose_attachments.tpl');
73ad81bf 1478 } // End of file_uploads if-block
41b94d65 1479 /* End of attachment code */
762853f4 1480
253ad942 1481 $oTemplate->assign('username', $username);
1482 $oTemplate->assign('smaction', $action);
1483 $oTemplate->assign('mailbox', $mailbox);
953fa718 1484 sqgetGlobalVar('QUERY_STRING', $queryString, SQ_SERVER);
253ad942 1485 $oTemplate->assign('querystring', $queryString);
1486 $oTemplate->assign('composesession', $composesession);
1487 $oTemplate->assign('send_button_count', unique_widget_name('send', TRUE));
1488 if (!empty($attach_array))
1489 $oTemplate->assign('attachments', urlencode(serialize($attach_array)));
1490
1491 $aUserNotices = array();
1492
1493 // File uploads are off, so we didn't show that part of the form.
1494 // To avoid bogus bug reports, tell the user why.
a64f47e7 1495 if (!(bool) ini_get('file_uploads')) {
253ad942 1496 $aUserNotices[] = _("Because PHP file uploads are turned off, you can not attach files to this message. Please see your system administrator for details.");
a64f47e7 1497 }
1498
253ad942 1499 $oTemplate->assign('user_notices', $aUserNotices);
1500
1501 $oTemplate->display('compose_form_close.tpl');
1502
762853f4 1503 if ($compose_new_win=='1') {
1504 $oTemplate->display('compose_newwin_close.tpl');
1505 }
1638beb6 1506
762853f4 1507 $oErrorHandler->setDelayedErrors(false);
5c4ff7bf 1508 $oTemplate->display('footer.tpl');
48985d59 1509}
1510
1511
70c4fd84 1512function showComposeButtonRow() {
78a35fcd 1513 global $use_javascript_addr_book, $save_as_draft,
73ad81bf 1514 $default_use_priority, $mailprio, $default_use_mdn,
1515 $request_mdn, $request_dr,
1516 $data_dir, $username;
70c4fd84 1517
762853f4 1518 global $oTemplate, $buffer_hook;
1638beb6 1519
1520 if ($default_use_priority) {
762853f4 1521 $priorities = array('1'=>_("High"), '3'=>_("Normal"), '5'=>_("Low"));
1522 $priority = isset($mailprio) ? $mailprio : 3;
1523 } else {
1524 $priorities = array();
1525 $priority = NULL;
ae25968c 1526 }
1638beb6 1527
ae25968c 1528 $mdn_user_support=getPref($data_dir, $username, 'mdn_user_support',$default_use_mdn);
48985d59 1529
8949acd6 1530 $address_book_button_attribs = array();
1531 global $accesskey_compose_addresses;
1532 if ($accesskey_compose_addresses != 'NONE')
1533 $address_book_button_attribs['accesskey'] = $accesskey_compose_addresses;
c40a269e 1534 if ($use_javascript_addr_book && checkForJavascript()) {
8949acd6 1535 $addr_book = addButton(_("Addresses"),
1536 null,
1537 array_merge($address_book_button_attribs, array('onclick' => 'javascript:open_abook();')));
734f4ee6 1538 } else {
8949acd6 1539 $addr_book = addSubmit(_("Addresses"), 'html_addr_search', $address_book_button_attribs);
78a35fcd 1540 }
48985d59 1541
762853f4 1542 $oTemplate->assign('allow_priority', $default_use_priority==1);
1543 $oTemplate->assign('priority_list', $priorities);
1544 $oTemplate->assign('current_priority', $priority);
1638beb6 1545
762853f4 1546 $oTemplate->assign('notifications_enabled', $mdn_user_support==1);
1547 $oTemplate->assign('read_receipt', $request_mdn=='1');
1548 $oTemplate->assign('delivery_receipt', $request_dr=='1');
1638beb6 1549
762853f4 1550 $oTemplate->assign('drafts_enabled', $save_as_draft);
1551 $oTemplate->assign('address_book_button', $addr_book);
441f2d33 1552
8949acd6 1553 // access keys...
1554 //
1555 global $accesskey_compose_priority, $accesskey_compose_on_read,
1556 $accesskey_compose_on_delivery, $accesskey_compose_signature,
1557 $accesskey_compose_save_draft, $accesskey_compose_send;
1558 $oTemplate->assign('accesskey_compose_priority', $accesskey_compose_priority);
1559 $oTemplate->assign('accesskey_compose_on_read', $accesskey_compose_on_read);
1560 $oTemplate->assign('accesskey_compose_on_delivery', $accesskey_compose_on_delivery);
1561 $oTemplate->assign('accesskey_compose_signature', $accesskey_compose_signature);
1562 $oTemplate->assign('accesskey_compose_save_draft', $accesskey_compose_save_draft);
1563 $oTemplate->assign('accesskey_compose_send', $accesskey_compose_send);
1564
762853f4 1565 $oTemplate->display('compose_buttons.tpl');
78a35fcd 1566}
b278172f 1567
70c4fd84 1568function checkInput ($show) {
78a35fcd 1569 /*
1570 * I implemented the $show variable because the error messages
1571 * were getting sent before the page header. So, I check once
1572 * using $show=false, and then when i'm ready to display the error
1573 * message, show=true
1574 */
1356041d 1575 global $send_to, $send_to_cc, $send_to_bcc;
78a35fcd 1576
1356041d 1577 $send_to = trim($send_to);
1578 $send_to_cc = trim($send_to_cc);
1579 $send_to_bcc = trim($send_to_bcc);
1580 if (empty($send_to) && empty($send_to_cc) && empty($send_to_bcc)) {
78a35fcd 1581 if ($show) {
cb34dbd0 1582 plain_error_message(_("You have not filled in the \"To:\" field."));
78a35fcd 1583 }
1584 return false;
1585 }
1586 return true;
1587} /* function checkInput() */
df15de21 1588
3806fa52 1589
00793a25 1590/* True if FAILURE */
da95c4b6 1591function saveAttachedFiles($session) {
b4e7df34 1592 global $composeMessage, $username, $attachment_dir;
bfa54da7 1593
45cdd1b5 1594 /* get out of here if no file was attached at all */
1595 if (! is_uploaded_file($_FILES['attachfile']['tmp_name']) ) {
1596 return true;
1597 }
1598
1f270d3c 1599 $hashed_attachment_dir = getHashedDir($username, $attachment_dir);
628bce99 1600 $localfilename = sq_get_attach_tempfile();
1f270d3c 1601 $fullpath = $hashed_attachment_dir . '/' . $localfilename;
4c9d2242 1602
a42c236f 1603 // m_u_f works better with restricted PHP installs (safe_mode, open_basedir),
1604 // if that doesn't work, try a simple rename.
8442ecb9 1605 if (!sq_call_function_suppress_errors('move_uploaded_file', array($_FILES['attachfile']['tmp_name'], $fullpath))) {
1606 if (!sq_call_function_suppress_errors('rename', array($_FILES['attachfile']['tmp_name'], $fullpath))) {
73ad81bf 1607 return true;
1608 }
a61878d0 1609 }
0b97a708 1610 $type = strtolower($_FILES['attachfile']['type']);
1611 $name = $_FILES['attachfile']['name'];
b4e7df34 1612 $composeMessage->initAttachment($type, $name, $localfilename);
4c9d2242 1613}
1614
5fe7d683 1615/**
1616 * Parse strings such as "8M" and "2k" into their corresponding size in bytes
1617 *
1618 * NOTE: This function only recognizes the suffixes "K", "M" and "G"
1619 * and will probably break very easily if the given size is in
1620 * some completely different format.
1621 *
1622 * @param string $ini_size The input string to be converted
1623 *
1624 * @return mixed Boolean FALSE if something went wrong (the value passed in
1625 * was empty?, the suffix was not recognized?), otherwise, the
1626 * converted size in bytes (just the number (as an integer),
1627 * no unit identifier included)
1628 *
1629 */
0a2c3218 1630function getByteSize($ini_size) {
1631
4d30dc83 1632 if(!$ini_size) {
1633 return FALSE;
1634 }
da95c4b6 1635
0a2c3218 1636 $ini_size = trim($ini_size);
1637
5b9716de 1638 // if there's some kind of letter at the end of the string we need to multiply.
1639 if(!is_numeric(substr($ini_size, -1))) {
1640
1641 switch(strtoupper(substr($ini_size, -1))) {
1642 case 'G':
73ad81bf 1643 $bytesize = 1073741824;
1644 break;
5b9716de 1645 case 'M':
73ad81bf 1646 $bytesize = 1048576;
1647 break;
5b9716de 1648 case 'K':
73ad81bf 1649 $bytesize = 1024;
1650 break;
5fe7d683 1651 default:
1652 return FALSE;
5b9716de 1653 }
1654
4d30dc83 1655 return ($bytesize * (int)substr($ini_size, 0, -1));
0a2c3218 1656 }
1c044820 1657
4d30dc83 1658 return $ini_size;
0a2c3218 1659}
a43e4b90 1660
4c9d2242 1661
50706f77 1662/**
1663 * temporary function to make use of the deliver class.
a42c236f 1664 * In the future the responsible backend should be automaticly loaded
50706f77 1665 * and conf.pl should show a list of available backends.
1666 * The message also should be constructed by the message class.
b67d61ee 1667 *
10adeb76 1668 * @param object $composeMessage The message being sent. Please note
1669 * that it is passed by reference and
1670 * will be returned modified, with additional
1671 * headers, such as Message-ID, Date, In-Reply-To,
1672 * References, and so forth.
1673 *
b67d61ee 1674 * @return boolean FALSE if delivery failed, or some non-FALSE value
1675 * upon success.
1676 *
73ad81bf 1677 */
10adeb76 1678function deliverMessage(&$composeMessage, $draft=false) {
a43e4b90 1679 global $send_to, $send_to_cc, $send_to_bcc, $mailprio, $subject, $body,
10adeb76 1680 $username, $identity, $idents, $data_dir,
856e58ef 1681 $request_mdn, $request_dr, $default_charset, $useSendmail,
1682 $domain, $action, $default_move_to_sent, $move_to_sent,
1683 $imapServerAddress, $imapPort, $sent_folder, $key;
a43e4b90 1684
1685 $rfc822_header = $composeMessage->rfc822_header;
24192f77 1686
1687 $abook = addressbook_init(false, true);
310dfeb6 1688 $rfc822_header->to = $rfc822_header->parseAddress($send_to,true, array(), '', $domain, array(&$abook,'lookup'));
1689 $rfc822_header->cc = $rfc822_header->parseAddress($send_to_cc,true,array(), '',$domain, array(&$abook,'lookup'));
1690 $rfc822_header->bcc = $rfc822_header->parseAddress($send_to_bcc,true, array(), '',$domain, array(&$abook,'lookup'));
a43e4b90 1691 $rfc822_header->priority = $mailprio;
1692 $rfc822_header->subject = $subject;
310dfeb6 1693
a43e4b90 1694 $special_encoding='';
1695 if (strtolower($default_charset) == 'iso-2022-jp') {
1696 if (mb_detect_encoding($body) == 'ASCII') {
a91189d6 1697 $special_encoding = '8bit';
a43e4b90 1698 } else {
1699 $body = mb_convert_encoding($body, 'JIS');
1700 $special_encoding = '7bit';
1701 }
1702 }
1703 $composeMessage->setBody($body);
1704
a43e4b90 1705 $reply_to = '';
1e2a6ff6 1706 $reply_to = $idents[$identity]['reply_to'];
52ead32b 1707 if ($reply_to && strpos($reply_to, '@') === FALSE)
8b213268 1708 $reply_to .= '@' . $domain;
40e07136 1709
1710 $from_addr = build_from_header($identity);
1711 $rfc822_header->from = $rfc822_header->parseAddress($from_addr,true);
a43e4b90 1712 if ($reply_to) {
73ad81bf 1713 $rfc822_header->reply_to = $rfc822_header->parseAddress($reply_to,true);
a43e4b90 1714 }
1715 /* Receipt: On Read */
1716 if (isset($request_mdn) && $request_mdn) {
40e07136 1717 $rfc822_header->dnt = $rfc822_header->parseAddress($from_addr,true);
762853f4 1718 } elseif (isset($rfc822_header->dnt)) {
1719 unset($rfc822_header->dnt);
a43e4b90 1720 }
1638beb6 1721
a43e4b90 1722 /* Receipt: On Delivery */
657fe1bd 1723 if (!empty($request_dr)) {
1724//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 1725 $rfc822_header->more_headers['Return-Receipt-To'] = $from_addr;
762853f4 1726 } elseif (isset($rfc822_header->more_headers['Return-Receipt-To'])) {
1727 unset($rfc822_header->more_headers['Return-Receipt-To']);
a43e4b90 1728 }
762853f4 1729
a43e4b90 1730 /* multipart messages */
1731 if (count($composeMessage->entities)) {
1732 $message_body = new Message();
a91189d6 1733 $message_body->body_part = $composeMessage->body_part;
1734 $composeMessage->body_part = '';
1735 $mime_header = new MessageHeader;
1736 $mime_header->type0 = 'text';
1737 $mime_header->type1 = 'plain';
1738 if ($special_encoding) {
1739 $mime_header->encoding = $special_encoding;
1c044820 1740 } else {
12a0ed01 1741 $mime_header->encoding = '8bit';
a91189d6 1742 }
1743 if ($default_charset) {
1744 $mime_header->parameters['charset'] = $default_charset;
1745 }
1c044820 1746 $message_body->mime_header = $mime_header;
a43e4b90 1747 array_unshift($composeMessage->entities, $message_body);
a91189d6 1748 $content_type = new ContentType('multipart/mixed');
a43e4b90 1749 } else {
1e2026df 1750 $content_type = new ContentType('text/plain');
1751 if ($special_encoding) {
1752 $rfc822_header->encoding = $special_encoding;
1c044820 1753 } else {
1e2026df 1754 $rfc822_header->encoding = '8bit';
1c044820 1755 }
426e0b72 1756 if ($default_charset) {
1757 $content_type->properties['charset']=$default_charset;
73ad81bf 1758 }
181538ac 1759 }
1c044820 1760
a43e4b90 1761 $rfc822_header->content_type = $content_type;
1762 $composeMessage->rfc822_header = $rfc822_header;
0fdb0aa1 1763 if ($action == 'reply' || $action == 'reply_all') {
1764 global $passed_id, $passed_ent_id;
1765 $reply_id = $passed_id;
1766 $reply_ent_id = $passed_ent_id;
1767 } else {
1768 $reply_id = '';
1769 $reply_ent_id = '';
1770 }
1638beb6 1771
1c044820 1772 /* Here you can modify the message structure just before we hand
6e515418 1773 it over to deliver; plugin authors note that $composeMessage
1774 is sent and modified by reference since 1.5.2 */
1775 do_hook('compose_send', $composeMessage);
a43e4b90 1776
b48d3c53 1777 if (!$useSendmail && !$draft) {
a91189d6 1778 require_once(SM_PATH . 'class/deliver/Deliver_SMTP.class.php');
1779 $deliver = new Deliver_SMTP();
783e926e 1780 global $smtpServerAddress, $smtpPort, $pop_before_smtp, $pop_before_smtp_host;
a91189d6 1781
a91189d6 1782 $authPop = (isset($pop_before_smtp) && $pop_before_smtp) ? true : false;
783e926e 1783 if (empty($pop_before_smtp_host)) $pop_before_smtp_host = $smtpServerAddress;
9bd3b1e6 1784 get_smtp_user($user, $pass);
a91189d6 1785 $stream = $deliver->initStream($composeMessage,$domain,0,
783e926e 1786 $smtpServerAddress, $smtpPort, $user, $pass, $authPop, $pop_before_smtp_host);
b48d3c53 1787 } elseif (!$draft) {
73ad81bf 1788 require_once(SM_PATH . 'class/deliver/Deliver_SendMail.class.php');
fd7ab795 1789 global $sendmail_path, $sendmail_args;
f3dc9c62 1790 // Check for outdated configuration
1791 if (!isset($sendmail_args)) {
1792 if ($sendmail_path=='/var/qmail/bin/qmail-inject') {
1793 $sendmail_args = '';
1794 } else {
1795 $sendmail_args = '-i -t';
1796 }
1797 }
fd7ab795 1798 $deliver = new Deliver_SendMail(array('sendmail_args'=>$sendmail_args));
73ad81bf 1799 $stream = $deliver->initStream($composeMessage,$sendmail_path);
b48d3c53 1800 } elseif ($draft) {
73ad81bf 1801 global $draft_folder;
906f7e9f 1802 $imap_stream = sqimap_login($username, false, $imapServerAddress,
73ad81bf 1803 $imapPort, 0);
1804 if (sqimap_mailbox_exists ($imap_stream, $draft_folder)) {
1805 require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
1806 $imap_deliver = new Deliver_IMAP();
a90d951c 1807 $success = $imap_deliver->mail($composeMessage, $imap_stream, $reply_id, $reply_ent_id, $imap_stream, $draft_folder);
73ad81bf 1808 sqimap_logout($imap_stream);
1809 unset ($imap_deliver);
c077ffeb 1810 $composeMessage->purgeAttachments();
b67d61ee 1811 return $success;
4dfb9db7 1812 } else {
3047e291 1813 $msg = '<br />'.sprintf(_("Error: Draft folder %s does not exist."), sm_encode_html_special_chars($draft_folder));
cb34dbd0 1814 plain_error_message($msg);
73ad81bf 1815 return false;
a91189d6 1816 }
a43e4b90 1817 }
0c59bbe1 1818 $success = false;
a43e4b90 1819 if ($stream) {
10adeb76 1820 $deliver->mail($composeMessage, $stream, $reply_id, $reply_ent_id);
0c59bbe1 1821 $success = $deliver->finalizeStream($stream);
a43e4b90 1822 }
0c59bbe1 1823 if (!$success) {
fd7ab795 1824 // $deliver->dlv_server_msg is not always server's reply
32433689 1825 $msg = _("Message not sent.")
1826 . "<br />\n"
1827 . (isset($deliver->dlv_msg) ? $deliver->dlv_msg : '');
a15f9d93 1828 if (!empty($deliver->dlv_server_msg)) {
1829 // add 'server replied' part only when it is not empty.
1830 // Delivery error can be generated by delivery class itself
32433689 1831 $msg .= '<br />'
1832 . _("Server replied:") . ' '
1833 . (isset($deliver->dlv_ret_nr) ? $deliver->dlv_ret_nr . ' ' : '')
3047e291 1834 . nl2br(sm_encode_html_special_chars($deliver->dlv_server_msg));
a15f9d93 1835 }
cb34dbd0 1836 plain_error_message($msg);
a43e4b90 1837 } else {
1838 unset ($deliver);
906f7e9f 1839 $imap_stream = sqimap_login($username, false, $imapServerAddress, $imapPort, 0);
e4a1f097 1840
8780308f 1841
414303b8 1842 // mark as replied or forwarded if applicable
1843 //
e506b6e5 1844 global $what, $iAccount, $startMessage, $passed_id, $fwduid, $mailbox;
8780308f 1845
bc29bf70 1846 if ($action=='reply' || $action=='reply_all' || $action=='forward' || $action=='forward_as_attachment') {
202bcbcc 1847 require(SM_PATH . 'functions/mailbox_display.php');
8780308f 1848 $aMailbox = sqm_api_mailbox_select($imap_stream, $iAccount, $mailbox,array('setindex' => $what, 'offset' => $startMessage),array());
bc29bf70 1849 switch($action) {
1850 case 'reply':
1851 case 'reply_all':
1852 // check if we are allowed to set the \\Answered flag
1853 if (in_array('\\answered',$aMailbox['PERMANENTFLAGS'], true)) {
1854 $aUpdatedMsgs = sqimap_toggle_flag($imap_stream, array($passed_id), '\\Answered', true, false);
1855 if (isset($aUpdatedMsgs[$passed_id]['FLAGS'])) {
1856 /**
1857 * Only update the cached headers if the header is
1858 * cached.
1859 */
1860 if (isset($aMailbox['MSG_HEADERS'][$passed_id])) {
1861 $aMailbox['MSG_HEADERS'][$passed_id]['FLAGS'] = $aMsg['FLAGS'];
1862 }
1863 }
1864 }
1865 break;
1866 case 'forward':
1867 case 'forward_as_attachment':
1868 // check if we are allowed to set the $Forwarded flag (RFC 4550 paragraph 2.8)
1638beb6 1869 if (in_array('$forwarded',$aMailbox['PERMANENTFLAGS'], true) ||
bc29bf70 1870 in_array('\\*',$aMailbox['PERMANENTFLAGS'])) {
1871
e506b6e5 1872 // when forwarding as an attachment from the message
1873 // list, passed_id is not used, need to get UID(s)
1874 // from the query string
1875 //
1876 if (empty($passed_id) && !empty($fwduid))
1877 $ids = explode('_', $fwduid);
1878 else
1879 $ids = array($passed_id);
1880
1881 $aUpdatedMsgs = sqimap_toggle_flag($imap_stream, $ids, '$Forwarded', true, false);
1882
1883 foreach ($ids as $id) {
1884 if (isset($aUpdatedMsgs[$id]['FLAGS'])) {
1885 if (isset($aMailbox['MSG_HEADERS'][$id])) {
1886 $aMailbox['MSG_HEADERS'][$id]['FLAGS'] = $aMsg['FLAGS'];
1887 }
bc29bf70 1888 }
bda07b93 1889 }
8780308f 1890 }
bc29bf70 1891 break;
8780308f 1892 }
bc29bf70 1893
4d1cb59a 1894 /**
1895 * Write mailbox with updated seen flag information back to cache.
1896 */
bc29bf70 1897 if(isset($aUpdatedMsgs[$passed_id])) {
1898 $mailbox_cache[$iAccount.'_'.$aMailbox['NAME']] = $aMailbox;
1899 sqsession_register($mailbox_cache,'mailbox_cache');
1900 }
1901
a91189d6 1902 }
414303b8 1903
1904
1905 // move to sent folder
1906 //
1907 $move_to_sent = getPref($data_dir,$username,'move_to_sent');
1908 if (isset($default_move_to_sent) && ($default_move_to_sent != 0)) {
1909 $svr_allow_sent = true;
1910 } else {
1911 $svr_allow_sent = false;
1912 }
1913
1914 if (isset($sent_folder) && (($sent_folder != '') || ($sent_folder != 'none'))
1915 && sqimap_mailbox_exists( $imap_stream, $sent_folder)) {
1916 $fld_sent = true;
1917 } else {
1918 $fld_sent = false;
1919 }
1920
1921 if ((isset($move_to_sent) && ($move_to_sent != 0)) || (!isset($move_to_sent))) {
1922 $lcl_allow_sent = true;
1923 } else {
1924 $lcl_allow_sent = false;
1925 }
1926
1927 if (($fld_sent && $svr_allow_sent && !$lcl_allow_sent) || ($fld_sent && $lcl_allow_sent)) {
1928 if ($action == 'reply' || $action == 'reply_all') {
1929 $save_reply_with_orig=getPref($data_dir,$username,'save_reply_with_orig');
1930 if ($save_reply_with_orig) {
1931 $sent_folder = $mailbox;
1932 }
1933 }
414303b8 1934 require_once(SM_PATH . 'class/deliver/Deliver_IMAP.class.php');
1935 $imap_deliver = new Deliver_IMAP();
33f0da43 1936 $imap_deliver->mail($composeMessage, $imap_stream, $reply_id, $reply_ent_id, $imap_stream, $sent_folder);
414303b8 1937 unset ($imap_deliver);
1938 }
1939
1940
1941 // final cleanup
1942 //
1943 $composeMessage->purgeAttachments();
1944 sqimap_logout($imap_stream);
1945
a43e4b90 1946 }
0c59bbe1 1947 return $success;
a43e4b90 1948}