thomascube
2010-12-17 db1a87cd6c506f2afbd1a37c64cb56ae11120b49
commit | author | age
4e17e6 1 <?php
T 2
3 /*
4  +-----------------------------------------------------------------------+
5  | program/steps/mail/compose.inc                                        |
6  |                                                                       |
e019f2 7  | This file is part of the Roundcube Webmail client                     |
A 8  | Copyright (C) 2005-2009, Roundcube Dev. - Switzerland                 |
30233b 9  | Licensed under the GNU GPL                                            |
4e17e6 10  |                                                                       |
T 11  | PURPOSE:                                                              |
12  |   Compose a new mail message with all headers and attachments         |
13  |                                                                       |
14  +-----------------------------------------------------------------------+
15  | Author: Thomas Bruederli <roundcube@gmail.com>                        |
16  +-----------------------------------------------------------------------+
17
18  $Id$
19
20 */
21
8d4bcd 22 // define constants for message compose mode
T 23 define('RCUBE_COMPOSE_REPLY', 0x0106);
24 define('RCUBE_COMPOSE_FORWARD', 0x0107);
25 define('RCUBE_COMPOSE_DRAFT', 0x0108);
069704 26 define('RCUBE_COMPOSE_EDIT', 0x0109);
8d4bcd 27
f0f98f 28 $MESSAGE_FORM = NULL;
8d4bcd 29 $MESSAGE = NULL;
f0f98f 30
86df15 31 // Nothing below is called during message composition, only at "new/forward/reply/draft" initialization or
T 32 // if a compose-ID is given (i.e. when the compose step is opened in a new window/tab).
33 // Since there are many ways to leave the compose page improperly, it seems necessary to clean-up an old
f0f98f 34 // compose when a "new/forward/reply/draft" is called - otherwise the old session attachments will appear
S 35
ace851 36 $MESSAGE_ID = get_input_value('_id', RCUBE_INPUT_GET);
A 37 if (!is_array($_SESSION['compose']) || $_SESSION['compose']['id'] != $MESSAGE_ID)
4315b0 38 {
86df15 39   rcmail_compose_cleanup();
ace851 40
A 41   // Infinite redirect prevention in case of broken session (#1487028)
42   if ($MESSAGE_ID)
43     raise_error(array('code' => 500, 'type' => 'php',
44       'file' => __FILE__, 'line' => __LINE__,
45       'message' => "Invalid session"), true, true);
46
48958e 47   $_SESSION['compose'] = array(
b48d9b 48     'id' => uniqid(mt_rand()),
759696 49     'param' => request2param(RCUBE_INPUT_GET),
7d8e16 50     'mailbox' => $IMAP->get_mailbox_name(),
48958e 51   );
c719f3 52   
5f314d 53   // process values like "mailto:foo@bar.com?subject=new+message&cc=another"
759696 54   if ($_SESSION['compose']['param']['to']) {
3e8898 55     // #1486037: remove "mailto:" prefix
A 56     $_SESSION['compose']['param']['to'] = preg_replace('/^mailto:/i', '', $_SESSION['compose']['param']['to']);
759696 57     $mailto = explode('?', $_SESSION['compose']['param']['to']);
5f314d 58     if (count($mailto) > 1) {
759696 59       $_SESSION['compose']['param']['to'] = $mailto[0];
5f314d 60       parse_str($mailto[1], $query);
T 61       foreach ($query as $f => $val)
759696 62         $_SESSION['compose']['param'][$f] = $val;
5f314d 63     }
T 64   }
759696 65   
814905 66   // select folder where to save the sent message
T 67   $_SESSION['compose']['param']['sent_mbox'] = $RCMAIL->config->get('sent_mbox');
68   
759696 69   // pipe compose parameters thru plugins
T 70   $plugin = $RCMAIL->plugins->exec_hook('message_compose', $_SESSION['compose']);
814905 71   $_SESSION['compose']['param'] = array_merge($_SESSION['compose']['param'], $plugin['param']);
ceeab9 72
76791c 73   // add attachments listed by message_compose hook
T 74   if (is_array($plugin['attachments'])) {
75     foreach ($plugin['attachments'] as $attach) {
76       // we have structured data
77       if (is_array($attach)) {
78         $attachment = $attach;
79       }
80       // only a file path is given
81       else {
82         $filename = basename($attach);
83         $attachment = array(
84           'name' => $filename,
85           'mimetype' => rc_mime_content_type($attach, $filename),
86           'path' => $attach
87         );
88       }
89       
90       // save attachment if valid
91       if (($attachment['data'] && $attachment['name']) || ($attachment['path'] && file_exists($attachment['path']))) {
e6ce00 92         $attachment = rcmail::get_instance()->plugins->exec_hook('attachment_save', $attachment);
76791c 93       }
T 94       
95       if ($attachment['status'] && !$attachment['abort']) {
96         unset($attachment['data'], $attachment['status'], $attachment['abort']);
97         $_SESSION['compose']['attachments'][$attachment['id']] = $attachment;
98       }
99     }
100   }
5f314d 101
90e708 102   // check if folder for saving sent messages exists and is subscribed (#1486802)
eeb85f 103   if ($sent_folder = $_SESSION['compose']['param']['sent_mbox']) {
A 104     rcmail_check_sent_folder($sent_folder, true);
90e708 105   }
T 106
c719f3 107   // redirect to a unique URL with all parameters stored in session
T 108   $OUTPUT->redirect(array('_action' => 'compose', '_id' => $_SESSION['compose']['id']));
4315b0 109 }
76791c 110
4e17e6 111
10a699 112 // add some labels to client
3f9712 113 $OUTPUT->add_label('nosubject', 'nosenderwarning', 'norecipientwarning', 'nosubjectwarning', 'cancel',
V 114     'nobodywarning', 'notsentwarning', 'notuploadedwarning', 'savingmessage', 'sendingmessage', 
c296b8 115     'messagesaved', 'converting', 'editorwarning', 'searching', 'uploading', 'fileuploaderror',
A 116     'autocompletechars');
10a699 117
272705 118 // add config parameters to client script
A 119 if (!empty($CONFIG['drafts_mbox'])) {
120   $OUTPUT->set_env('drafts_mailbox', $CONFIG['drafts_mbox']);
121   $OUTPUT->set_env('draft_autosave', $CONFIG['draft_autosave']);
122 }
cf6a83 123 // set current mailbox in client environment
A 124 $OUTPUT->set_env('mailbox', $IMAP->get_mailbox_name());
0207c4 125 $OUTPUT->set_env('sig_above', $CONFIG['sig_above']);
50f56d 126 $OUTPUT->set_env('top_posting', $CONFIG['top_posting']);
c296b8 127 $OUTPUT->set_env('autocomplete_min_length', $CONFIG['autocomplete_min_length']);
10a699 128
8d4bcd 129 // get reference message and set compose mode
759696 130 if ($msg_uid = $_SESSION['compose']['param']['reply_uid'])
8d4bcd 131   $compose_mode = RCUBE_COMPOSE_REPLY;
759696 132 else if ($msg_uid = $_SESSION['compose']['param']['forward_uid'])
8d4bcd 133   $compose_mode = RCUBE_COMPOSE_FORWARD;
759696 134 else if ($msg_uid = $_SESSION['compose']['param']['uid'])
069704 135   $compose_mode = RCUBE_COMPOSE_EDIT;
759696 136 else if ($msg_uid = $_SESSION['compose']['param']['draft_uid']) {
59ee68 137   $RCMAIL->imap->set_mailbox($CONFIG['drafts_mbox']);
8d4bcd 138   $compose_mode = RCUBE_COMPOSE_DRAFT;
0b21c8 139 }
50f56d 140
0207c4 141 $config_show_sig = $RCMAIL->config->get('show_sig', 1);
T 142 if ($config_show_sig == 1)
50f56d 143   $OUTPUT->set_env('show_sig', true);
0207c4 144 else if ($config_show_sig == 2 && (empty($compose_mode) || $compose_mode == RCUBE_COMPOSE_EDIT || $compose_mode == RCUBE_COMPOSE_DRAFT))
50f56d 145   $OUTPUT->set_env('show_sig', true);
0207c4 146 else if ($config_show_sig == 3 && ($compose_mode == RCUBE_COMPOSE_REPLY || $compose_mode == RCUBE_COMPOSE_FORWARD))
50f56d 147   $OUTPUT->set_env('show_sig', true);
0207c4 148 else
T 149   $OUTPUT->set_env('show_sig', false);
8d4bcd 150
b62049 151 // set line length for body wrapping
6b6f2e 152 $LINE_LENGTH = $RCMAIL->config->get('line_length', 72);
b62049 153
8d4bcd 154 if (!empty($msg_uid))
4315b0 155 {
4e17e6 156   // similar as in program/steps/mail/show.inc
aae0ad 157   // re-set 'prefer_html' to have possibility to use html part for compose
b62049 158   $CONFIG['prefer_html'] = $CONFIG['prefer_html'] || $CONFIG['htmleditor'] || $compose_mode == RCUBE_COMPOSE_DRAFT || $compose_mode == RCUBE_COMPOSE_EDIT;
8fa58e 159   $MESSAGE = new rcube_message($msg_uid);
17b5fb 160   
bc4960 161   // make sure message is marked as read
T 162   if ($MESSAGE && $MESSAGE->headers && !$MESSAGE->headers->seen)
163     $IMAP->set_flag($msg_uid, 'SEEN');
164
8fa58e 165   if (!empty($MESSAGE->headers->charset))
T 166     $IMAP->set_charset($MESSAGE->headers->charset);
17b5fb 167     
8d4bcd 168   if ($compose_mode == RCUBE_COMPOSE_REPLY)
4315b0 169   {
8d4bcd 170     $_SESSION['compose']['reply_uid'] = $msg_uid;
8fa58e 171     $_SESSION['compose']['reply_msgid'] = $MESSAGE->headers->messageID;
T 172     $_SESSION['compose']['references']  = trim($MESSAGE->headers->references . " " . $MESSAGE->headers->messageID);
583f1c 173
759696 174     if (!empty($_SESSION['compose']['param']['all']))
e25a35 175       $MESSAGE->reply_all = $_SESSION['compose']['param']['all'];
bc404f 176
a96183 177     $OUTPUT->set_env('compose_mode', 'reply');
eeb85f 178
A 179     // Save the sent message in the same folder of the message being replied to
180     if ($RCMAIL->config->get('reply_same_folder') && ($sent_folder = $_SESSION['compose']['mailbox'])
181       && rcmail_check_sent_folder($sent_folder, false)
182     ) {
183       $_SESSION['compose']['param']['sent_mbox'] = $sent_folder;
184     }
4e17e6 185   }
95fd38 186   else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
A 187   {
bc404f 188     if ($MESSAGE->headers->others['x-draft-info'])
95fd38 189     {
bbc856 190       // get reply_uid/forward_uid to flag the original message when sending
bc404f 191       $info = rcmail_draftinfo_decode($MESSAGE->headers->others['x-draft-info']);
T 192
193       if ($info['type'] == 'reply')
194         $_SESSION['compose']['reply_uid'] = $info['uid'];
195       else if ($info['type'] == 'forward')
196         $_SESSION['compose']['forward_uid'] = $info['uid'];
197
198       $_SESSION['compose']['mailbox'] = $info['folder'];
eeb85f 199
A 200       // Save the sent message in the same folder of the message being replied to
201       if ($RCMAIL->config->get('reply_same_folder') && ($sent_folder = $info['folder'])
202         && rcmail_check_sent_folder($sent_folder, false)
203       ) {
204         $_SESSION['compose']['param']['sent_mbox'] = $sent_folder;
205       }
95fd38 206     }
eeb85f 207
bc404f 208     if ($MESSAGE->headers->in_reply_to)
T 209       $_SESSION['compose']['reply_msgid'] = '<'.$MESSAGE->headers->in_reply_to.'>';
210
95fd38 211     $_SESSION['compose']['references']  = $MESSAGE->headers->references;
A 212   }
4315b0 213   else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
S 214   {
215     $_SESSION['compose']['forward_uid'] = $msg_uid;
a96183 216     $OUTPUT->set_env('compose_mode', 'forward');
4315b0 217   }
S 218 }
4e17e6 219
087c7d 220 // process $MESSAGE body/attachments, set $MESSAGE_BODY/$HTML_MODE vars and some session data
A 221 $MESSAGE_BODY = rcmail_prepare_message_body();
4e17e6 222
087c7d 223
A 224 /****** compose mode functions ********/
4e17e6 225
T 226 function rcmail_compose_headers($attrib)
4315b0 227 {
8d4bcd 228   global $IMAP, $MESSAGE, $DB, $compose_mode;
583f1c 229   static $sa_recipients = array();
4e17e6 230
T 231   list($form_start, $form_end) = get_form_tags($attrib);
8958d0 232
4e17e6 233   $out = '';
T 234   $part = strtolower($attrib['part']);
8958d0 235
4e17e6 236   switch ($part)
4315b0 237   {
4e17e6 238     case 'from':
8958d0 239       return $form_start . rcmail_compose_header_from($attrib);
4e17e6 240
T 241     case 'to':
242       $fname = '_to';
759696 243       $header = $param = 'to';
8958d0 244
f11541 245       // we have a set of recipients stored is session
759696 246       if (($mailto_id = $_SESSION['compose']['param']['mailto']) && $_SESSION['mailto'][$mailto_id])
fde466 247         $fvalue = urldecode($_SESSION['mailto'][$mailto_id]);
8958d0 248
4e17e6 249     case 'cc':
e99991 250       if (!$fname) {
4e17e6 251         $fname = '_cc';
759696 252         $header = $param = 'cc';
4315b0 253       }
4e17e6 254     case 'bcc':
e99991 255       if (!$fname) {
4e17e6 256         $fname = '_bcc';
759696 257         $header = $param = 'bcc';
4315b0 258       }
8958d0 259
bd4209 260       $allow_attrib = array('id', 'class', 'style', 'cols', 'rows', 'tabindex');
47124c 261       $field_type = 'html_textarea';
4e17e6 262       break;
T 263
264     case 'replyto':
265     case 'reply-to':
266       $fname = '_replyto';
759696 267       $param = 'replyto';
e25a35 268       $header = 'reply-to';
A 269
db1a87 270     case 'followupto':
T 271     case 'followup-to':
e25a35 272       if (!$fname) {
db1a87 273         $fname = '_followupto';
T 274         $param = 'followupto';
cb105a 275         $header = 'mail-followup-to';
e25a35 276       }
A 277
317219 278       $allow_attrib = array('id', 'class', 'style', 'size', 'tabindex');
47124c 279       $field_type = 'html_inputfield';
5f314d 280       break;
4315b0 281   }
e99991 282
759696 283   if ($fname && !empty($_POST[$fname])) {
01c86f 284     $fvalue = get_input_value($fname, RCUBE_INPUT_POST, TRUE);
759696 285   }
T 286   else if ($fname && !$fvalue && !empty($_SESSION['compose']['param'][$param])) {
287     $fvalue = $_SESSION['compose']['param'][$param];
288   }
289   else if ($header && $compose_mode == RCUBE_COMPOSE_REPLY) {
4e17e6 290     // get recipent address(es) out of the message headers
e25a35 291     if ($header == 'to') {
A 292       $mailfollowup = $MESSAGE->headers->others['mail-followup-to'];
293       $mailreplyto  = $MESSAGE->headers->others['mail-reply-to'];
294
295       if ($MESSAGE->reply_all == 'list' && $mailfollowup)
296         $fvalue = $mailfollowup;
297       else if ($MESSAGE->reply_all == 'list'
298         && preg_match('/<mailto:([^>]+)>/i', $MESSAGE->headers->others['list-post'], $m))
299         $fvalue = $m[1];
300       else if ($mailreplyto)
301         $fvalue = $mailreplyto;
302       else if (!empty($MESSAGE->headers->replyto))
303         $fvalue = $MESSAGE->headers->replyto;
304       else if (!empty($MESSAGE->headers->from))
305         $fvalue = $MESSAGE->headers->from;
306     }
583f1c 307     // add recipent of original message if reply to all
e25a35 308     else if ($header == 'cc' && !empty($MESSAGE->reply_all) && $MESSAGE->reply_all != 'list') {
8fa58e 309       if ($v = $MESSAGE->headers->to)
8d4bcd 310         $fvalue .= $v;
8fa58e 311       if ($v = $MESSAGE->headers->cc)
8d4bcd 312         $fvalue .= (!empty($fvalue) ? ', ' : '') . $v;
4315b0 313     }
583f1c 314
4e17e6 315     // split recipients and put them back together in a unique way
e99991 316     if (!empty($fvalue)) {
583f1c 317       $to_addresses = $IMAP->decode_address_list($fvalue);
T 318       $fvalue = '';
51f55b 319
e99991 320       foreach ($to_addresses as $addr_part) {
A 321         if (empty($addr_part['mailto']))
322           continue;
323
324         $mailto = idn_to_utf8($addr_part['mailto']);
325
326         if (!in_array($mailto, $sa_recipients)
8e98f2 327             && (!$MESSAGE->compose_from
e99991 328                 || !in_array_nocase($mailto, $MESSAGE->compose_from)
A 329                 || (count($to_addresses)==1 && $header=='to')) // allow reply to yourself
330         ) {
331           if ($addr_part['name'] && $addr_part['mailto'] != $addr_part['name'])
332             $string = format_email_recipient($mailto, $addr_part['name']);
333           else
334             $string = $mailto;
335           $fvalue .= (strlen($fvalue) ? ', ':'') . $string;
583f1c 336           $sa_recipients[] = $addr_part['mailto'];
T 337         }
338       }
4e17e6 339     }
4315b0 340   }
e99991 341   else if ($header && in_array($compose_mode, array(RCUBE_COMPOSE_DRAFT, RCUBE_COMPOSE_EDIT))) {
1966c5 342     // get drafted headers
8fa58e 343     if ($header=='to' && !empty($MESSAGE->headers->to))
T 344       $fvalue = $MESSAGE->get_header('to');
e99991 345     else if ($header=='cc' && !empty($MESSAGE->headers->cc))
8fa58e 346       $fvalue = $MESSAGE->get_header('cc');
e99991 347     else if ($header=='bcc' && !empty($MESSAGE->headers->bcc))
8fa58e 348       $fvalue = $MESSAGE->get_header('bcc');
db1a87 349     else if ($header=='reply-to' && !empty($MESSAGE->headers->others['mail-reply-to']))
T 350       $fvalue = $MESSAGE->get_header('mail-reply-to');
e25a35 351     else if ($header=='reply-to' && !empty($MESSAGE->headers->replyto))
A 352       $fvalue = $MESSAGE->get_header('reply-to');
353     else if ($header=='mail-followup-to' && !empty($MESSAGE->headers->others['mail-followup-to']))
354       $fvalue = $MESSAGE->get_header('mail-followup-to');
e99991 355
A 356     $addresses = $IMAP->decode_address_list($fvalue);
357     $fvalue = '';
358
359     foreach ($addresses as $addr_part) {
360       if (empty($addr_part['mailto']))
361         continue;
362
363       $mailto = idn_to_utf8($addr_part['mailto']);
364
365       if ($addr_part['name'] && $addr_part['mailto'] != $addr_part['name'])
366         $string = format_email_recipient($mailto, $addr_part['name']);
367       else
368         $string = $mailto;
369       $fvalue .= (strlen($fvalue) ? ', ':'') . $string;
370     }
4315b0 371   }
583f1c 372
4e17e6 373   if ($fname && $field_type)
4315b0 374   {
4e17e6 375     // pass the following attributes to the form class
491a6e 376     $field_attrib = array('name' => $fname, 'spellcheck' => 'false');
4e17e6 377     foreach ($attrib as $attr => $value)
T 378       if (in_array($attr, $allow_attrib))
379         $field_attrib[$attr] = $value;
380
381     // create teaxtarea object
382     $input = new $field_type($field_attrib);
47124c 383     $out = $input->show($fvalue);
4315b0 384   }
4e17e6 385   
T 386   if ($form_start)
387     $out = $form_start.$out;
1966c5 388
e99991 389   return $out;
4315b0 390 }
4e17e6 391
T 392
1cded8 393 function rcmail_compose_header_from($attrib)
4315b0 394 {
8fa58e 395   global $IMAP, $MESSAGE, $DB, $USER, $OUTPUT, $compose_mode;
1cded8 396     
T 397   // pass the following attributes to the form class
398   $field_attrib = array('name' => '_from');
399   foreach ($attrib as $attr => $value)
400     if (in_array($attr, array('id', 'class', 'style', 'size', 'tabindex')))
401       $field_attrib[$attr] = $value;
4e17e6 402
1cded8 403   // extract all recipients of the reply-message
T 404   $a_recipients = array();
8fa58e 405   if ($compose_mode == RCUBE_COMPOSE_REPLY && is_object($MESSAGE->headers))
4315b0 406   {
8fa58e 407     $MESSAGE->compose_from = array();
58e360 408
8fa58e 409     $a_to = $IMAP->decode_address_list($MESSAGE->headers->to);
1cded8 410     foreach ($a_to as $addr)
4315b0 411     {
1cded8 412       if (!empty($addr['mailto']))
e25a35 413         $a_recipients[] = strtolower($addr['mailto']);
4315b0 414     }
4e17e6 415
8fa58e 416     if (!empty($MESSAGE->headers->cc))
4315b0 417     {
8fa58e 418       $a_cc = $IMAP->decode_address_list($MESSAGE->headers->cc);
1cded8 419       foreach ($a_cc as $addr)
4315b0 420       {
1cded8 421         if (!empty($addr['mailto']))
e25a35 422           $a_recipients[] = strtolower($addr['mailto']);
1cded8 423       }
T 424     }
4315b0 425   }
4e17e6 426
1cded8 427   // get this user's identities
ed205f 428   $user_identities = $USER->list_identities();
a0109c 429
ed205f 430   if (count($user_identities))
4315b0 431   {
1cded8 432     $a_signatures = array();
a0109c 433
f11541 434     $field_attrib['onchange'] = JS_OBJECT_NAME.".change_identity(this)";
47124c 435     $select_from = new html_select($field_attrib);
a0109c 436
e25a35 437     // create SELECT element
ed205f 438     foreach ($user_identities as $sql_arr)
4315b0 439     {
e25a35 440       $email = mb_strtolower(idn_to_utf8($sql_arr['email']));
a0109c 441       $identity_id = $sql_arr['identity_id'];
e25a35 442       $select_from->add(format_email_recipient($email, $sql_arr['name']), $identity_id);
4e17e6 443
1cded8 444       // add signature to array
759696 445       if (!empty($sql_arr['signature']) && empty($_SESSION['compose']['param']['nosig']))
4315b0 446       {
a0109c 447         $a_signatures[$identity_id]['text'] = $sql_arr['signature'];
S 448         $a_signatures[$identity_id]['is_html'] = ($sql_arr['html_signature'] == 1) ? true : false;
dd792e 449         if ($a_signatures[$identity_id]['is_html'])
4315b0 450         {
dd792e 451             $h2t = new html2text($a_signatures[$identity_id]['text'], false, false);
300fc6 452             $a_signatures[$identity_id]['plain_text'] = trim($h2t->get_text());
a0109c 453         }
4315b0 454       }
a0109c 455
8fa58e 456       if ($compose_mode == RCUBE_COMPOSE_REPLY && is_array($MESSAGE->compose_from))
e25a35 457         $MESSAGE->compose_from[] = $email;
4315b0 458     }
e25a35 459
A 460     $from_id = 0;
4e17e6 461
1cded8 462     // overwrite identity selection with post parameter
6eb858 463     if (!empty($_POST['_from']))
8d4bcd 464       $from_id = get_input_value('_from', RCUBE_INPUT_POST);
416bff 465     else if (!empty($_SESSION['compose']['param']['from']))
A 466       $from_id = $_SESSION['compose']['param']['from'];
d2b884 467     else {
e25a35 468       $return_path = $MESSAGE->headers->others['return-path'];
A 469
470       // Set identity
471       foreach ($user_identities as $sql_arr) {
472         // set draft's identity
663534 473         if ($compose_mode == RCUBE_COMPOSE_DRAFT || $compose_mode == RCUBE_COMPOSE_EDIT) {
A 474           if ($MESSAGE->headers->from == format_email_recipient($sql_arr['email'], $sql_arr['name'])) {
e25a35 475             $from_id = $sql_arr['identity_id'];
A 476             break;
663534 477           }
e25a35 478         }
A 479         // set identity if it's one of the reply-message recipients (with prio for default identity)
480         else if (in_array($sql_arr['email'], $a_recipients) && (empty($from_id) || $sql_arr['standard']))
481           $from_id = $sql_arr['identity_id'];
482         // set identity when replying to mailing list
483         else if (strpos($return_path, str_replace('@', '=', $sql_arr['email']).'@') !== false)
484           $from_id = $sql_arr['identity_id'];
485
486         if ($from_id)
487           break;
488       }
489     }
4e17e6 490
1cded8 491     $out = $select_from->show($from_id);
4e17e6 492
1cded8 493     // add signatures to client
f11541 494     $OUTPUT->set_env('signatures', $a_signatures);
4315b0 495   }
d2b884 496   // no identities, display text input field
A 497   else {
498     $field_attrib['class'] = 'from_address';
47124c 499     $input_from = new html_inputfield($field_attrib);
cc5ae9 500     $out = $input_from->show($_POST['_from']);
4315b0 501   }
4e17e6 502
1cded8 503   return $out;
4315b0 504 }
4e17e6 505
T 506
868deb 507 function rcmail_compose_editor_mode()
A 508 {
509   global $RCMAIL, $MESSAGE, $compose_mode;
510   static $useHtml;
511
512   if ($useHtml !== null)
513     return $useHtml;
514
515   $html_editor = intval($RCMAIL->config->get('htmleditor'));
516
517   if ($compose_mode == RCUBE_COMPOSE_DRAFT || $compose_mode == RCUBE_COMPOSE_EDIT) {
518     $useHtml = $MESSAGE->has_html_part();
519   }
520   else if ($compose_mode == RCUBE_COMPOSE_REPLY) {
521     $useHtml = ($html_editor == 1 || ($html_editor == 2 && $MESSAGE->has_html_part()));
522   }
523   else { // RCUBE_COMPOSE_FORWARD or NEW
524     $useHtml = ($html_editor == 1);
525   }
526
527   return $useHtml;
528 }
529
530
087c7d 531 function rcmail_prepare_message_body()
4315b0 532 {
868deb 533   global $RCMAIL, $MESSAGE, $compose_mode, $LINE_LENGTH, $HTML_MODE;
a0109c 534
4e17e6 535   // use posted message body
868deb 536   if (!empty($_POST['_message'])) {
8fa58e 537     $body = get_input_value('_message', RCUBE_INPUT_POST, true);
868deb 538     $isHtml = (bool) get_input_value('_is_html', RCUBE_INPUT_POST);
8fa58e 539   }
868deb 540   else if ($_SESSION['compose']['param']['body']) {
759696 541     $body = $_SESSION['compose']['param']['body'];
T 542     $isHtml = false;
543   }
868deb 544   // reply/edit/draft/forward
A 545   else if ($compose_mode) {
b62049 546     $has_html_part = $MESSAGE->has_html_part();
868deb 547     $isHtml = rcmail_compose_editor_mode();
A 548
549     if ($isHtml) {
550       if ($has_html_part) {
551         $body = $MESSAGE->first_html_part();
552       }
553       else {
ba12c7 554         $body = $MESSAGE->first_text_part();
A 555         // try to remove the signature
556         if ($RCMAIL->config->get('strip_existing_sig', true))
557           $body = rcmail_remove_signature($body);
558         // add HTML formatting
559         $body = rcmail_plain_body($body);
868deb 560         if ($body)
A 561           $body = '<pre>' . $body . '</pre>';
562       }
b62049 563     }
868deb 564     else {
A 565       if ($has_html_part) {
566         // use html part if it has been used for message (pre)viewing
567         // decrease line length for quoting
568         $len = $compose_mode == RCUBE_COMPOSE_REPLY ? $LINE_LENGTH-2 : $LINE_LENGTH;
569         $txt = new html2text($MESSAGE->first_html_part(), false, true, $len);
570         $body = $txt->get_text();
571       }
572       else {
573         $body = $MESSAGE->first_text_part($part);
574         if ($body && $part && $part->ctype_secondary == 'plain'
575             && $part->ctype_parameters['format'] == 'flowed'
576         ) {
577           $body = rcube_message::unfold_flowed($body);
578         }
579       }
4e17e6 580     }
80815d 581
8fa58e 582     // compose reply-body
T 583     if ($compose_mode == RCUBE_COMPOSE_REPLY)
584       $body = rcmail_create_reply_body($body, $isHtml);
585     // forward message body inline
586     else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
587       $body = rcmail_create_forward_body($body, $isHtml);
588     // load draft message body
069704 589     else if ($compose_mode == RCUBE_COMPOSE_DRAFT || $compose_mode == RCUBE_COMPOSE_EDIT)
8fa58e 590       $body = rcmail_create_draft_body($body, $isHtml);
868deb 591   }
A 592   else { // new message
593     $isHtml = rcmail_compose_editor_mode();
8fa58e 594   }
a0109c 595
8abe54 596   $plugin = $RCMAIL->plugins->exec_hook('message_compose_body',
A 597     array('body' => $body, 'html' => $isHtml, 'mode' => $compose_mode));
b575fa 598   $body = $plugin['body'];
A 599   unset($plugin);
8abe54 600
b575fa 601   // add blocked.gif attachment (#1486516)
A 602   if ($isHtml && preg_match('#<img src="\./program/blocked\.gif"#', $body)) {
603     if ($attachment = rcmail_save_image('program/blocked.gif', 'image/gif')) {
604       $_SESSION['compose']['attachments'][$attachment['id']] = $attachment;
605       $body = preg_replace('#\./program/blocked\.gif#',
606         $RCMAIL->comm_path.'&_action=display-attachment&_file=rcmfile'.$attachment['id'],
607         $body);
608     }
609   }
610   
087c7d 611   $HTML_MODE = $isHtml;
A 612   
613   return $body;
614 }
615
616 function rcmail_compose_body($attrib)
617 {
618   global $RCMAIL, $CONFIG, $OUTPUT, $MESSAGE, $compose_mode, $LINE_LENGTH, $HTML_MODE, $MESSAGE_BODY;
619   
620   list($form_start, $form_end) = get_form_tags($attrib);
621   unset($attrib['form']);
622   
623   if (empty($attrib['id']))
624     $attrib['id'] = 'rcmComposeBody';
625
626   $attrib['name'] = '_message';
627
628   $isHtml = $HTML_MODE;
629   
4e17e6 630   $out = $form_start ? "$form_start\n" : '';
1966c5 631
8fa58e 632   $saveid = new html_hiddenfield(array('name' => '_draft_saveid', 'value' => $compose_mode==RCUBE_COMPOSE_DRAFT ? str_replace(array('<','>'), "", $MESSAGE->headers->messageID) : ''));
f0f98f 633   $out .= $saveid->show();
1966c5 634
47124c 635   $drafttoggle = new html_hiddenfield(array('name' => '_draft', 'value' => 'yes'));
1966c5 636   $out .= $drafttoggle->show();
S 637
47124c 638   $msgtype = new html_hiddenfield(array('name' => '_is_html', 'value' => ($isHtml?"1":"0")));
a0109c 639   $out .= $msgtype->show();
S 640
2f746d 641   // If desired, set this textarea to be editable by TinyMCE
6084d7 642   if ($isHtml) {
A 643     $attrib['class'] = 'mce_editor';
644     $textarea = new html_textarea($attrib);
645     $out .= $textarea->show($MESSAGE_BODY);
646   }
647   else {
648     $textarea = new html_textarea($attrib);
649     $out .= $textarea->show('');
650     // quote plain text, inject into textarea
651     $table = get_html_translation_table(HTML_SPECIALCHARS);
652     $MESSAGE_BODY = strtr($MESSAGE_BODY, $table);
653     $out = substr($out, 0, -11) . $MESSAGE_BODY . '</textarea>';
654   }
655
4e17e6 656   $out .= $form_end ? "\n$form_end" : '';
a01b3b 657
A 658   $OUTPUT->set_env('composebody', $attrib['id']);
a0109c 659
3e20c4 660   // include HTML editor
A 661   rcube_html_editor();
662   
dd53e2 663   // include GoogieSpell
4ca10b 664   if (!empty($CONFIG['enable_spellcheck'])) {
3e20c4 665
c287f3 666     $engine = $RCMAIL->config->get('spellcheck_engine','googie');
A 667     $spellcheck_langs = (array) $RCMAIL->config->get('spellcheck_languages',
668       array('da'=>'Dansk', 'de'=>'Deutsch', 'en' => 'English', 'es'=>'Español',
669             'fr'=>'Français', 'it'=>'Italiano', 'nl'=>'Nederlands', 'pl'=>'Polski',
670             'pt'=>'Português', 'fi'=>'Suomi', 'sv'=>'Svenska'));
671
672     // googie works only with two-letter codes
673     if ($engine == 'googie') {
674       $lang = strtolower(substr($_SESSION['language'], 0, 2));
675
676       $spellcheck_langs_googie = array();
677       foreach ($spellcheck_langs as $key => $name)
678         $spellcheck_langs_googie[strtolower(substr($key,0,2))] = $name;
679         $spellcheck_langs = $spellcheck_langs_googie;
680     }
681     else {
682       $lang = $_SESSION['language'];
683
684       // if not found in the list, try with two-letter code
685       if (!$spellcheck_langs[$lang])
686         $lang = strtolower(substr($lang, 0, 2));
687     }
688
326f3d 689     if (!$spellcheck_langs[$lang])
T 690       $lang = 'en';
c287f3 691
326f3d 692     $editor_lang_set = array();
T 693     foreach ($spellcheck_langs as $key => $name) {
694       $editor_lang_set[] = ($key == $lang ? '+' : '') . JQ($name).'='.JQ($key);
c287f3 695     }
996066 696     
ed5d29 697     $OUTPUT->include_script('googiespell.js');
2bca6e 698     $OUTPUT->add_script(sprintf(
677e1f 699       "var googie = new GoogieSpell('\$__skin_path/images/googiespell/','?_task=utils&_action=spell&lang=');\n".
2bca6e 700       "googie.lang_chck_spell = \"%s\";\n".
T 701       "googie.lang_rsm_edt = \"%s\";\n".
702       "googie.lang_close = \"%s\";\n".
703       "googie.lang_revert = \"%s\";\n".
326f3d 704       "googie.lang_no_error_found = \"%s\";\n".
T 705       "googie.setLanguages(%s);\n".
2bca6e 706       "googie.setCurrentLanguage('%s');\n".
309d2f 707       "googie.setSpellContainer('spellcheck-control');\n".
2bca6e 708       "googie.decorateTextarea('%s');\n".
T 709       "%s.set_env('spellcheck', googie);",
710       JQ(Q(rcube_label('checkspelling'))),
711       JQ(Q(rcube_label('resumeediting'))),
712       JQ(Q(rcube_label('close'))),
713       JQ(Q(rcube_label('revertto'))),
714       JQ(Q(rcube_label('nospellerrors'))),
2717f9 715       json_serialize($spellcheck_langs),
326f3d 716       $lang,
2bca6e 717       $attrib['id'],
f11541 718       JS_OBJECT_NAME), 'foot');
ed5d29 719
112c91 720     $OUTPUT->add_label('checking');
326f3d 721     $OUTPUT->set_env('spellcheck_langs', join(',', $editor_lang_set));
4ca10b 722   }
f0f98f 723  
027af3 724   $out .= "\n".'<iframe name="savetarget" src="program/blank.gif" style="width:0;height:0;border:none;visibility:hidden;"></iframe>';
41fa0b 725
4e17e6 726   return $out;
4315b0 727 }
4e17e6 728
T 729
a0109c 730 function rcmail_create_reply_body($body, $bodyIsHtml)
4315b0 731 {
b62049 732   global $RCMAIL, $MESSAGE, $LINE_LENGTH;
4e17e6 733
9f9664 734   // build reply prefix
A 735   $from = array_pop($RCMAIL->imap->decode_address_list($MESSAGE->get_header('from')));
736   $prefix = sprintf("On %s, %s wrote:",
db1a87 737     $MESSAGE->headers->date, $from['name'] ? $from['name'] : idn_to_utf8($from['mailto']));
9f9664 738
0207c4 739   if (!$bodyIsHtml) {
33dfdd 740     $body = preg_replace('/\r?\n/', "\n", $body);
9f9664 741
2b180b 742     // try to remove the signature
ba12c7 743     if ($RCMAIL->config->get('strip_existing_sig', true))
A 744       $body = rcmail_remove_signature($body);
2b180b 745
6b6f2e 746     // soft-wrap and quote message text
33dfdd 747     $body = rcmail_wrap_and_quote(rtrim($body, "\n"), $LINE_LENGTH);
4e17e6 748
9f9664 749     $prefix .= "\n";
a0109c 750     $suffix = '';
9f9664 751
0207c4 752     if ($RCMAIL->config->get('top_posting'))
50f56d 753       $prefix = "\n\n\n" . $prefix;
a0109c 754   }
0207c4 755   else {
ec603f 756     // save inline images to files
A 757     $cid_map = rcmail_write_inline_attachments($MESSAGE);
758     // set is_safe flag (we need this for html body washing)
759     rcmail_check_safe($MESSAGE);
760     // clean up html tags
761     $body = rcmail_wash_html($body, array('safe' => $MESSAGE->is_safe), $cid_map);
762
763     // build reply (quote content)
9f9664 764     $prefix = '<p>' . Q($prefix) . "</p>\n";
7a48e5 765     $prefix .= '<blockquote>';
ce4673 766
0207c4 767     if ($RCMAIL->config->get('top_posting')) {
ce4673 768       $prefix = '<br>' . $prefix;
A 769       $suffix = '</blockquote>';
50f56d 770     }
A 771     else {
ce4673 772       $suffix = '</blockquote><p></p>';
50f56d 773     }
a0109c 774   }
S 775
776   return $prefix.$body.$suffix;
4315b0 777 }
4e17e6 778
T 779
a0109c 780 function rcmail_create_forward_body($body, $bodyIsHtml)
4315b0 781 {
8c0b9e 782   global $IMAP, $MESSAGE, $OUTPUT;
ec603f 783
A 784   // add attachments
785   if (!isset($_SESSION['compose']['forward_attachments']) && is_array($MESSAGE->mime_parts))
786     $cid_map = rcmail_write_compose_attachments($MESSAGE, $bodyIsHtml);
4e17e6 787
8fa58e 788   if (!$bodyIsHtml)
a0109c 789   {
5758b9 790     $prefix = "\n\n\n-------- Original Message --------\n";
A 791     $prefix .= 'Subject: ' . $MESSAGE->subject . "\n";
792     $prefix .= 'Date: ' . $MESSAGE->headers->date . "\n";
793     $prefix .= 'From: ' . $MESSAGE->get_header('from') . "\n";
794     $prefix .= 'To: ' . $MESSAGE->get_header('to') . "\n";
a4cf45 795
A 796     if ($MESSAGE->headers->cc)
797       $prefix .= 'Cc: ' . $MESSAGE->get_header('cc') . "\n";
5758b9 798     if ($MESSAGE->headers->replyto && $MESSAGE->headers->replyto != $MESSAGE->headers->from)
A 799       $prefix .= 'Reply-To: ' . $MESSAGE->get_header('replyto') . "\n";
a4cf45 800
5758b9 801     $prefix .= "\n";
a0109c 802   }
S 803   else
804   {
ec603f 805     // set is_safe flag (we need this for html body washing)
A 806     rcmail_check_safe($MESSAGE);
807     // clean up html tags
808     $body = rcmail_wash_html($body, array('safe' => $MESSAGE->is_safe), $cid_map);
809
4315b0 810     $prefix = sprintf(
ce4673 811       "<br /><p>-------- Original Message --------</p>" .
a0109c 812         "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tbody>" .
S 813         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Subject: </th><td>%s</td></tr>" .
814         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Date: </th><td>%s</td></tr>" .
815         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">From: </th><td>%s</td></tr>" .
5758b9 816         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">To: </th><td>%s</td></tr>",
8fa58e 817       Q($MESSAGE->subject),
T 818       Q($MESSAGE->headers->date),
3e8d89 819       htmlspecialchars(Q($MESSAGE->get_header('from'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset()),
7d8e16 820       htmlspecialchars(Q($MESSAGE->get_header('to'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset()));
5758b9 821
a4cf45 822     if ($MESSAGE->headers->cc)
A 823       $prefix .= sprintf("<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Cc: </th><td>%s</td></tr>",
824         htmlspecialchars(Q($MESSAGE->get_header('cc'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset()));
825
5758b9 826     if ($MESSAGE->headers->replyto && $MESSAGE->headers->replyto != $MESSAGE->headers->from)
A 827       $prefix .= sprintf("<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Reply-To: </th><td>%s</td></tr>",
7d8e16 828         htmlspecialchars(Q($MESSAGE->get_header('replyto'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset()));
5758b9 829
A 830     $prefix .= "</tbody></table><br>";
a0109c 831   }
5cc4b1 832     
4e17e6 833   return $prefix.$body;
4315b0 834 }
4e17e6 835
8d4bcd 836
a0109c 837 function rcmail_create_draft_body($body, $bodyIsHtml)
4315b0 838 {
ec603f 839   global $MESSAGE, $OUTPUT;
8ecb0e 840   
T 841   /**
842    * add attachments
8fa58e 843    * sizeof($MESSAGE->mime_parts can be 1 - e.g. attachment, but no text!
8ecb0e 844    */
7d8e16 845   if (empty($_SESSION['compose']['forward_attachments'])
8fa58e 846       && is_array($MESSAGE->mime_parts)
T 847       && count($MESSAGE->mime_parts) > 0)
ec603f 848   {
A 849     $cid_map = rcmail_write_compose_attachments($MESSAGE, $bodyIsHtml);
1966c5 850
ec603f 851     // replace cid with href in inline images links
A 852     if ($cid_map)
853       $body = str_replace(array_keys($cid_map), array_values($cid_map), $body);
854   }
855   
1966c5 856   return $body;
4315b0 857 }
ba12c7 858
A 859
860 function rcmail_remove_signature($body)
861 {
862   global $RCMAIL;
863
864   $len = strlen($body);
865   $sig_max_lines = $RCMAIL->config->get('sig_max_lines', 15);
866
867   while (($sp = strrpos($body, "-- \n", $sp ? -$len+$sp-1 : 0)) !== false) {
868     if ($sp == 0 || $body[$sp-1] == "\n") {
869       // do not touch blocks with more that X lines
870       if (substr_count($body, "\n", $sp) < $sig_max_lines) {
871         $body = substr($body, 0, max(0, $sp-1));
872       }
873       break;
874     }
875   }
876
877   return $body;
878 }
879
880
1bc48e 881 function rcmail_write_compose_attachments(&$message, $bodyIsHtml)
4315b0 882 {
bde421 883   global $RCMAIL;
5503cc 884
021ef4 885   $cid_map = $messages = array();
8fa58e 886   foreach ((array)$message->mime_parts as $pid => $part)
4315b0 887   {
7d8e16 888     if (($part->ctype_primary != 'message' || !$bodyIsHtml) && $part->ctype_primary != 'multipart' && 
d311d8 889         ($part->disposition == 'attachment' || ($part->disposition == 'inline' && $bodyIsHtml) || $part->filename)
A 890         && $part->mimetype != 'application/ms-tnef'
891     ) {
021ef4 892       $skip = false;
A 893       if ($part->mimetype == 'message/rfc822') {
894         $messages[] = $part->mime_id;
895       } else if ($messages) {
896         // skip attachments included in message/rfc822 attachment (#1486487)
897         foreach ($messages as $mimeid)
898           if (strpos($part->mime_id, $mimeid.'.') === 0) {
899             $skip = true;
900             break;
901           }
902       }
903
904       if (!$skip && ($attachment = rcmail_save_attachment($message, $pid))) {
cc97ea 905         $_SESSION['compose']['attachments'][$attachment['id']] = $attachment;
8f2b46 906         if ($bodyIsHtml && ($part->content_id || $part->content_location)) {
bde421 907           $url = $RCMAIL->comm_path.'&_action=display-attachment&_file=rcmfile'.$attachment['id'];
8f2b46 908           if ($part->content_id)
A 909             $cid_map['cid:'.$part->content_id] = $url;
910           else
911             $cid_map[$part->content_location] = $url;
ec603f 912         }
A 913       }
8d4bcd 914     }
4315b0 915   }
cc97ea 916
8fa58e 917   $_SESSION['compose']['forward_attachments'] = true;
ec603f 918
A 919   return $cid_map;
4315b0 920 }
4e17e6 921
T 922
2f746d 923 function rcmail_write_inline_attachments(&$message)
A 924 {
bde421 925   global $RCMAIL;
ec603f 926
A 927   $cid_map = array();
928   foreach ((array)$message->mime_parts as $pid => $part) {
8f2b46 929     if (($part->content_id || $part->content_location) && $part->filename) {
ec603f 930       if ($attachment = rcmail_save_attachment($message, $pid)) {
cc97ea 931         $_SESSION['compose']['attachments'][$attachment['id']] = $attachment;
bde421 932         $url = $RCMAIL->comm_path.'&_action=display-attachment&_file=rcmfile'.$attachment['id'];
8f2b46 933         if ($part->content_id)
A 934           $cid_map['cid:'.$part->content_id] = $url;
935         else
936           $cid_map[$part->content_location] = $url;
ec603f 937       }
2f746d 938     }
A 939   }
8f2b46 940
ec603f 941   return $cid_map;
2f746d 942 }
A 943
944 function rcmail_save_attachment(&$message, $pid)
945 {
946   $part = $message->mime_parts[$pid];
a64064 947   $mem_limit = parse_bytes(ini_get('memory_limit'));
A 948   $curr_mem = function_exists('memory_get_usage') ? memory_get_usage() : 16*1024*1024; // safe value: 16MB
949   $data = $path = null;
950
951   // don't load too big attachments into memory
952   if ($mem_limit > 0 && $part->size > $mem_limit - $curr_mem) {
953     $rcmail = rcmail::get_instance();
954     $temp_dir = unslashify($rcmail->config->get('temp_dir'));
955     $path = tempnam($temp_dir, 'rcmAttmnt');
956     if ($fp = fopen($path, 'w')) {
957       $message->get_part_content($pid, $fp);
958       fclose($fp);
959     } else
960       return false;
961   } else {
962     $data = $message->get_part_content($pid);
963   }
964
cc97ea 965   $attachment = array(
7d8e16 966     'name' => $part->filename ? $part->filename : 'Part_'.$pid.'.'.$part->ctype_secondary,
cc97ea 967     'mimetype' => $part->ctype_primary . '/' . $part->ctype_secondary,
T 968     'content_id' => $part->content_id,
a64064 969     'data' => $data,
3b1426 970     'path' => $path,
A 971     'size' => $path ? filesize($path) : strlen($data),
cc97ea 972   );
3b1426 973
e6ce00 974   $attachment = rcmail::get_instance()->plugins->exec_hook('attachment_save', $attachment);
a64064 975
cc97ea 976   if ($attachment['status']) {
76791c 977     unset($attachment['data'], $attachment['status'], $attachment['content_id'], $attachment['abort']);
cc97ea 978     return $attachment;
a64064 979   } else if ($path) {
A 980     @unlink($path);
2f746d 981   }
a64064 982   
cc97ea 983   return false;
2f746d 984 }
A 985
b575fa 986 function rcmail_save_image($path, $mimetype='')
A 987 {
988   // handle attachments in memory
989   $data = file_get_contents($path);
990
991   $attachment = array(
992     'name' => rcmail_basename($path),
993     'mimetype' => $mimetype ? $mimetype : rc_mime_content_type($path, $name),
994     'data' => $data,
995     'size' => strlen($data),
996   );
997
e6ce00 998   $attachment = rcmail::get_instance()->plugins->exec_hook('attachment_save', $attachment);
b575fa 999
A 1000   if ($attachment['status']) {
1001     unset($attachment['data'], $attachment['status'], $attachment['content_id'], $attachment['abort']);
1002     return $attachment;
1003   }
1004   
1005   return false;
1006 }
1007
1008 function rcmail_basename($filename)
1009 {
1010   // basename() is not unicode safe and locale dependent
1011   if (stristr(PHP_OS, 'win') || stristr(PHP_OS, 'netware')) {
1012     return preg_replace('/^.*[\\\\\\/]/', '', $filename);
1013   } else {
1014     return preg_replace('/^.*[\/]/', '', $filename);
1015   }
1016 }
2f746d 1017
4e17e6 1018 function rcmail_compose_subject($attrib)
4315b0 1019 {
8fa58e 1020   global $MESSAGE, $compose_mode;
4e17e6 1021   
T 1022   list($form_start, $form_end) = get_form_tags($attrib);
1023   unset($attrib['form']);
1024   
1025   $attrib['name'] = '_subject';
491a6e 1026   $attrib['spellcheck'] = 'true';
47124c 1027   $textfield = new html_inputfield($attrib);
4e17e6 1028
T 1029   $subject = '';
1030
1031   // use subject from post
5f314d 1032   if (isset($_POST['_subject'])) {
01c86f 1033     $subject = get_input_value('_subject', RCUBE_INPUT_POST, TRUE);
5f314d 1034   }
4e17e6 1035   // create a reply-subject
5f314d 1036   else if ($compose_mode == RCUBE_COMPOSE_REPLY) {
23a2ee 1037     if (preg_match('/^re:/i', $MESSAGE->subject))
8fa58e 1038       $subject = $MESSAGE->subject;
520c36 1039     else
8fa58e 1040       $subject = 'Re: '.$MESSAGE->subject;
4315b0 1041   }
4e17e6 1042   // create a forward-subject
5f314d 1043   else if ($compose_mode == RCUBE_COMPOSE_FORWARD) {
23a2ee 1044     if (preg_match('/^fwd:/i', $MESSAGE->subject))
8fa58e 1045       $subject = $MESSAGE->subject;
09941e 1046     else
8fa58e 1047       $subject = 'Fwd: '.$MESSAGE->subject;
4315b0 1048   }
1966c5 1049   // creeate a draft-subject
069704 1050   else if ($compose_mode == RCUBE_COMPOSE_DRAFT || $compose_mode == RCUBE_COMPOSE_EDIT) {
8fa58e 1051     $subject = $MESSAGE->subject;
5f314d 1052   }
759696 1053   else if (!empty($_SESSION['compose']['param']['subject'])) {
T 1054     $subject = $_SESSION['compose']['param']['subject'];
5f314d 1055   }
4e17e6 1056   
T 1057   $out = $form_start ? "$form_start\n" : '';
1058   $out .= $textfield->show($subject);
1059   $out .= $form_end ? "\n$form_end" : '';
e99991 1060
4e17e6 1061   return $out;
4315b0 1062 }
4e17e6 1063
T 1064
1065 function rcmail_compose_attachment_list($attrib)
4315b0 1066 {
f11541 1067   global $OUTPUT, $CONFIG;
4e17e6 1068   
T 1069   // add ID if not given
1070   if (!$attrib['id'])
1071     $attrib['id'] = 'rcmAttachmentList';
1072   
8fa58e 1073   $out = "\n";
01ffe0 1074   $jslist = array();
087c7d 1075
4e17e6 1076   if (is_array($_SESSION['compose']['attachments']))
4315b0 1077   {
991a25 1078     if ($attrib['deleteicon']) {
8fa58e 1079       $button = html::img(array(
T 1080         'src' => $CONFIG['skin_path'] . $attrib['deleteicon'],
1fb587 1081         'alt' => rcube_label('delete')
991a25 1082       ));
T 1083     }
a894ba 1084     else
8fa58e 1085       $button = Q(rcube_label('delete'));
a894ba 1086
aade7b 1087     foreach ($_SESSION['compose']['attachments'] as $id => $a_prop)
6d5dba 1088     {
T 1089       if (empty($a_prop))
1090         continue;
1091       
01ffe0 1092       $out .= html::tag('li', array('id' => 'rcmfile'.$id),
8fa58e 1093         html::a(array(
T 1094             'href' => "#delete",
1095             'title' => rcube_label('delete'),
cc97ea 1096             'onclick' => sprintf("return %s.command('remove-attachment','rcmfile%s', this)", JS_OBJECT_NAME, $id)),
8fa58e 1097           $button) . Q($a_prop['name']));
01ffe0 1098         
T 1099         $jslist['rcmfile'.$id] = array('name' => $a_prop['name'], 'complete' => true, 'mimetype' => $a_prop['mimetype']);
6d5dba 1100     }
4315b0 1101   }
4e17e6 1102
21d682 1103   if ($attrib['deleteicon'])
A 1104     $_SESSION['compose']['deleteicon'] = $CONFIG['skin_path'] . $attrib['deleteicon'];
3f9712 1105   if ($attrib['cancelicon'])
V 1106     $OUTPUT->set_env('cancelicon', $CONFIG['skin_path'] . $attrib['cancelicon']);
ebf872 1107   if ($attrib['loadingicon'])
A 1108     $OUTPUT->set_env('loadingicon', $CONFIG['skin_path'] . $attrib['loadingicon']);
21d682 1109
01ffe0 1110   $OUTPUT->set_env('attachments', $jslist);
f11541 1111   $OUTPUT->add_gui_object('attachmentlist', $attrib['id']);
4e17e6 1112     
8fa58e 1113   return html::tag('ul', $attrib, $out, html::$common_attrib);
4315b0 1114 }
4e17e6 1115
T 1116
1117 function rcmail_compose_attachment_form($attrib)
4315b0 1118 {
197601 1119   global $OUTPUT;
4e17e6 1120
T 1121   // add ID if not given
1122   if (!$attrib['id'])
1123     $attrib['id'] = 'rcmUploadbox';
7df0e3 1124
A 1125   // find max filesize value
1126   $max_filesize = parse_bytes(ini_get('upload_max_filesize'));
1127   $max_postsize = parse_bytes(ini_get('post_max_size'));
1128   if ($max_postsize && $max_postsize < $max_filesize)
1129     $max_filesize = $max_postsize;
1130   $max_filesize = show_bytes($max_filesize);
4e17e6 1131   
2b77e8 1132   $button = new html_inputfield(array('type' => 'button'));
4e17e6 1133   
197601 1134   $out = html::div($attrib,
d37e1e 1135     $OUTPUT->form_tag(array('name' => 'uploadform', 'method' => 'post', 'enctype' => 'multipart/form-data'),
2b77e8 1136       html::div(null, rcmail_compose_attachment_field(array('size' => $attrib[attachmentfieldsize]))) .
7df0e3 1137       html::div('hint', rcube_label(array('name' => 'maxuploadsize', 'vars' => array('size' => $max_filesize)))) .
c17dc6 1138       html::div('buttons',
71f60c 1139         $button->show(rcube_label('close'), array('class' => 'button', 'onclick' => "$('#$attrib[id]').hide()")) . ' ' .
2b77e8 1140         $button->show(rcube_label('upload'), array('class' => 'button mainaction', 'onclick' => JS_OBJECT_NAME . ".command('send-attachment', this.form)"))
c17dc6 1141       )
A 1142     )
197601 1143   );
4e17e6 1144   
f11541 1145   $OUTPUT->add_gui_object('uploadbox', $attrib['id']);
4e17e6 1146   return $out;
4315b0 1147 }
4e17e6 1148
T 1149
1150 function rcmail_compose_attachment_field($attrib)
4315b0 1151 {
e2c610 1152   $attrib['type'] = 'file';
A 1153   $attrib['name'] = '_attachments[]';
1154   $field = new html_inputfield($attrib);
1155   return $field->show();
4315b0 1156 }
4e17e6 1157
66e2bf 1158
4e17e6 1159 function rcmail_priority_selector($attrib)
4315b0 1160 {
ff08ee 1161   global $MESSAGE;
T 1162   
4e17e6 1163   list($form_start, $form_end) = get_form_tags($attrib);
T 1164   unset($attrib['form']);
8958d0 1165
4e17e6 1166   $attrib['name'] = '_priority';
47124c 1167   $selector = new html_select($attrib);
4e17e6 1168
T 1169   $selector->add(array(rcube_label('lowest'),
1170                        rcube_label('low'),
1171                        rcube_label('normal'),
1172                        rcube_label('high'),
1173                        rcube_label('highest')),
7902df 1174                  array(5, 4, 0, 2, 1));
8958d0 1175
79eb4e 1176   if (isset($_POST['_priority']))
A 1177     $sel = $_POST['_priority'];
1178   else if (intval($MESSAGE->headers->priority) != 3)
1179     $sel = intval($MESSAGE->headers->priority);
1180   else
1181     $sel = 0;
4e17e6 1182
T 1183   $out = $form_start ? "$form_start\n" : '';
1184   $out .= $selector->show($sel);
1185   $out .= $form_end ? "\n$form_end" : '';
8958d0 1186
4e17e6 1187   return $out;
4315b0 1188 }
4e17e6 1189
T 1190
620439 1191 function rcmail_receipt_checkbox($attrib)
4315b0 1192 {
b3660b 1193   global $RCMAIL, $MESSAGE, $compose_mode;
8958d0 1194
620439 1195   list($form_start, $form_end) = get_form_tags($attrib);
T 1196   unset($attrib['form']);
8958d0 1197
66e2bf 1198   if (!isset($attrib['id']))
T 1199     $attrib['id'] = 'receipt';  
620439 1200
T 1201   $attrib['name'] = '_receipt';
66e2bf 1202   $attrib['value'] = '1';
47124c 1203   $checkbox = new html_checkbox($attrib);
620439 1204
b3660b 1205   if ($MESSAGE && in_array($compose_mode, array(RCUBE_COMPOSE_DRAFT, RCUBE_COMPOSE_EDIT)))
A 1206     $mdn_default = (bool) $MESSAGE->headers->mdn_to;
1207   else
1208     $mdn_default = $RCMAIL->config->get('mdn_default');
1209
620439 1210   $out = $form_start ? "$form_start\n" : '';
b3660b 1211   $out .= $checkbox->show($mdn_default);
620439 1212   $out .= $form_end ? "\n$form_end" : '';
T 1213
1214   return $out;
4315b0 1215 }
620439 1216
T 1217
f22ea7 1218 function rcmail_dsn_checkbox($attrib)
A 1219 {
1220   global $RCMAIL;
1221
1222   list($form_start, $form_end) = get_form_tags($attrib);
1223   unset($attrib['form']);
1224
1225   if (!isset($attrib['id']))
1226     $attrib['id'] = 'dsn';
1227
1228   $attrib['name'] = '_dsn';
1229   $attrib['value'] = '1';
1230   $checkbox = new html_checkbox($attrib);
1231
1232   $out = $form_start ? "$form_start\n" : '';
1233   $out .= $checkbox->show($RCMAIL->config->get('dsn_default'));
1234   $out .= $form_end ? "\n$form_end" : '';
1235
1236   return $out;
1237 }
1238
1239
a0109c 1240 function rcmail_editor_selector($attrib)
S 1241 {
1242   global $CONFIG, $MESSAGE, $compose_mode;
1243
8fa58e 1244   // determine whether HTML or plain text should be checked
868deb 1245   $useHtml = rcmail_compose_editor_mode();
d9344f 1246
309d2f 1247   if (empty($attrib['editorid']))
a01b3b 1248     $attrib['editorid'] = 'rcmComposeBody';
79af0b 1249
309d2f 1250   if (empty($attrib['name']))
A 1251     $attrib['name'] = 'editorSelect';
8958d0 1252
5821ff 1253   $attrib['onchange'] = "return rcmail_toggle_editor(this, '".$attrib['editorid']."', '_is_html')";
309d2f 1254
A 1255   $select = new html_select($attrib);
1256
1257   $select->add(Q(rcube_label('htmltoggle')), 'html');
1258   $select->add(Q(rcube_label('plaintoggle')), 'plain');
1259
1260   return $select->show($useHtml ? 'html' : 'plain');
79af0b 1261
868deb 1262   foreach ($choices as $value => $text) {
6b1fc0 1263     $attrib['id'] = '_' . $value;
d9344f 1264     $attrib['value'] = $value;
8fa58e 1265     $selector .= $radio->show($chosenvalue, $attrib) . html::label($attrib['id'], Q(rcube_label($text)));
4315b0 1266   }
a0109c 1267
S 1268   return $selector;
1269 }
1270
1271
faf876 1272 function rcmail_store_target_selection($attrib)
T 1273 {
1274   $attrib['name'] = '_store_target';
a81be1 1275   $select = rcmail_mailbox_select(array_merge($attrib, array('noselection' => '- '.rcube_label('dontsave').' -')));
814905 1276   return $select->show($_SESSION['compose']['param']['sent_mbox'], $attrib);
faf876 1277 }
T 1278
1279
eeb85f 1280 function rcmail_check_sent_folder($folder, $create=false)
A 1281 {
1282   global $IMAP;
1283
1284   if ($IMAP->mailbox_exists($folder, true)) {
1285     return true;
1286   }
1287
1288   // folder may exist but isn't subscribed (#1485241)
1289   if ($create) {
1290     if (!$IMAP->mailbox_exists($folder))
1291       return $IMAP->create_mailbox($folder, true);
1292     else
1293       return $IMAP->subscribe($folder);
1294   }
1295
1296   return false;
1297 }
1298
1299
4e17e6 1300 function get_form_tags($attrib)
4315b0 1301 {
197601 1302   global $RCMAIL, $MESSAGE_FORM;
4e17e6 1303
T 1304   $form_start = '';
8958d0 1305   if (!$MESSAGE_FORM)
4315b0 1306   {
197601 1307     $hiddenfields = new html_hiddenfield(array('name' => '_task', 'value' => $RCMAIL->task));
4e17e6 1308     $hiddenfields->add(array('name' => '_action', 'value' => 'send'));
1966c5 1309
197601 1310     $form_start = empty($attrib['form']) ? $RCMAIL->output->form_tag(array('name' => "form", 'method' => "post")) : '';
4e17e6 1311     $form_start .= $hiddenfields->show();
4315b0 1312   }
eeb85f 1313
8958d0 1314   $form_end = ($MESSAGE_FORM && !strlen($attrib['form'])) ? '</form>' : '';
597170 1315   $form_name = !empty($attrib['form']) ? $attrib['form'] : 'form';
eeb85f 1316
8958d0 1317   if (!$MESSAGE_FORM)
197601 1318     $RCMAIL->output->add_gui_object('messageform', $form_name);
eeb85f 1319
4e17e6 1320   $MESSAGE_FORM = $form_name;
T 1321
47124c 1322   return array($form_start, $form_end);
4315b0 1323 }
4e17e6 1324
T 1325
f11541 1326 // register UI objects
T 1327 $OUTPUT->add_handlers(array(
1328   'composeheaders' => 'rcmail_compose_headers',
1329   'composesubject' => 'rcmail_compose_subject',
1330   'composebody' => 'rcmail_compose_body',
1331   'composeattachmentlist' => 'rcmail_compose_attachment_list',
1332   'composeattachmentform' => 'rcmail_compose_attachment_form',
1333   'composeattachment' => 'rcmail_compose_attachment_field',
1334   'priorityselector' => 'rcmail_priority_selector',
1335   'editorselector' => 'rcmail_editor_selector',
1336   'receiptcheckbox' => 'rcmail_receipt_checkbox',
f22ea7 1337   'dsncheckbox' => 'rcmail_dsn_checkbox',
faf876 1338   'storetarget' => 'rcmail_store_target_selection',
f11541 1339 ));
a0530a 1340
47124c 1341 $OUTPUT->send('compose');
a0530a 1342
b25dfd 1343