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