program/steps/mail/compose.inc

   1 <?php
   2
   3 /*
   4  +-----------------------------------------------------------------------+
   5  | program/steps/mail/compose.inc                                        |
   6  |                                                                       |
   7  | This file is part of the RoundCube Webmail client                     |
   8  | Copyright (C) 2005-2007, RoundCube Dev. - Switzerland                 |
   9  | Licensed under the GNU GPL                                            |
  10  |                                                                       |
  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: compose.inc 1039 2008-02-11 17:39:31Z till $
  19
  20 */
  21
  22 require_once('Mail/mimeDecode.php');
  23 require_once('lib/html2text.inc');
  24
  25 // define constants for message compose mode
  26 define('RCUBE_COMPOSE_REPLY', 0x0106);
  27 define('RCUBE_COMPOSE_FORWARD', 0x0107);
  28 define('RCUBE_COMPOSE_DRAFT', 0x0108);
  29
  30
  31 // remove an attachment
  32 if ($_action=='remove-attachment' && preg_match('/^rcmfile([0-9]+)$/', $_POST['_file'], $regs))
  33 {
  34   $id = $regs[1];
  35   if (is_array($_SESSION['compose']['attachments'][$id]))
  36   {
  37     @unlink($_SESSION['compose']['attachments'][$id]['path']);
  38     $_SESSION['compose']['attachments'][$id] = NULL;
  39     $OUTPUT->command('remove_from_attachment_list', "rcmfile$id");
  40     $OUTPUT->send();
  41     exit;
  42   }
  43 }
  44
  45 if ($_action=='display-attachment' && preg_match('/^rcmfile([0-9]+)$/', $_GET['_file'], $regs))
  46 {
  47   $id = $regs[1];
  48   if (is_array($_SESSION['compose']['attachments'][$id]))
  49   {
  50     $apath = $_SESSION['compose']['attachments'][$id]['path'];
  51     header('Content-Type: ' . $_SESSION['compose']['attachments'][$id]['mimetype']);
  52     header('Content-Length: ' . filesize($apath));
  53     readfile($apath);
  54   }
  55   exit;
  56 }
  57
  58 $MESSAGE_FORM = NULL;
  59 $MESSAGE = NULL;
  60
  61 // Nothing below is called during message composition, only at "new/forward/reply/draft" initialization or
  62 // if a compose-ID is given (i.e. when the compose step is opened in a new window/tab).
  63 // Since there are many ways to leave the compose page improperly, it seems necessary to clean-up an old
  64 // compose when a "new/forward/reply/draft" is called - otherwise the old session attachments will appear
  65
  66 if (!is_array($_SESSION['compose']) || $_SESSION['compose']['id'] != get_input_value('_id', RCUBE_INPUT_GET))
  67 {
  68   rcmail_compose_cleanup();
  69   $_SESSION['compose'] = array('id' => uniqid(rand()));
  70 }
  71
  72 // add some labels to client
  73 rcube_add_label('nosubject', 'norecipientwarning', 'nosubjectwarning', 'nobodywarning', 'notsentwarning', 'savingmessage', 'sendingmessage', 'messagesaved', 'converting');
  74
  75 // add config parameter to client script
  76 $OUTPUT->set_env('draft_autosave', !empty($CONFIG['drafts_mbox']) ? $CONFIG['draft_autosave'] : 0);
  77
  78
  79 // get reference message and set compose mode
  80 if ($msg_uid = get_input_value('_reply_uid', RCUBE_INPUT_GET))
  81   $compose_mode = RCUBE_COMPOSE_REPLY;
  82 else if ($msg_uid = get_input_value('_forward_uid', RCUBE_INPUT_GET))
  83   $compose_mode = RCUBE_COMPOSE_FORWARD;
  84 else if ($msg_uid = get_input_value('_draft_uid', RCUBE_INPUT_GET))
  85   $compose_mode = RCUBE_COMPOSE_DRAFT;
  86
  87
  88 if (!empty($msg_uid))
  89 {
  90   // similar as in program/steps/mail/show.inc
  91   $MESSAGE = array('UID' => $msg_uid);
  92   $MESSAGE['headers'] = &$IMAP->get_headers($msg_uid);
  93   $MESSAGE['structure'] = &$IMAP->get_structure($msg_uid);
  94   $MESSAGE['subject'] = $IMAP->decode_header($MESSAGE['headers']->subject);
  95   $MESSAGE['parts'] = $IMAP->get_mime_numbers($MESSAGE['structure']);
  96
  97   if ($compose_mode == RCUBE_COMPOSE_REPLY)
  98   {
  99     $_SESSION['compose']['reply_uid'] = $msg_uid;
 100     $_SESSION['compose']['reply_msgid'] = $MESSAGE['headers']->messageID;
 101     $_SESSION['compose']['references']  = trim($MESSAGE['headers']->references . " " . $MESSAGE['headers']->messageID);
 102
 103     if (!empty($_GET['_all']))
 104       $MESSAGE['reply_all'] = 1;
 105   }
 106   else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
 107   {
 108     $_SESSION['compose']['forward_uid'] = $msg_uid;
 109   }
 110   else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
 111   {
 112     $_SESSION['compose']['draft_uid'] = $msg_uid;
 113   }
 114 }
 115
 116 /****** compose mode functions ********/
 117
 118
 119 function rcmail_compose_headers($attrib)
 120 {
 121   global $IMAP, $MESSAGE, $DB, $compose_mode;
 122   static $sa_recipients = array();
 123
 124   list($form_start, $form_end) = get_form_tags($attrib);
 125
 126   $out = '';
 127   $part = strtolower($attrib['part']);
 128
 129   switch ($part)
 130   {
 131     case 'from':
 132       return rcmail_compose_header_from($attrib);
 133
 134     case 'to':
 135       $fname = '_to';
 136       $header = 'to';
 137
 138       // we have a set of recipients stored is session
 139       if (($mailto_id = get_input_value('_mailto', RCUBE_INPUT_GET)) && $_SESSION['mailto'][$mailto_id])
 140         $fvalue = $_SESSION['mailto'][$mailto_id];
 141       else if (!empty($_GET['_to']))
 142         $fvalue = get_input_value('_to', RCUBE_INPUT_GET);
 143
 144     case 'cc':
 145       if (!$fname)
 146       {
 147         $fname = '_cc';
 148         $header = 'cc';
 149       }
 150     case 'bcc':
 151       if (!$fname)
 152       {
 153         $fname = '_bcc';
 154         $header = 'bcc';
 155       }
 156
 157       $allow_attrib = array('id', 'class', 'style', 'cols', 'rows', 'tabindex');
 158       $field_type = 'textarea';
 159       break;
 160
 161     case 'replyto':
 162     case 'reply-to':
 163       $fname = '_replyto';
 164       $allow_attrib = array('id', 'class', 'style', 'size', 'tabindex');
 165       $field_type = 'textfield';
 166       break;
 167   }
 168
 169   if ($fname && !empty($_POST[$fname]))
 170     $fvalue = get_input_value($fname, RCUBE_INPUT_POST, TRUE);
 171
 172   else if ($header && $compose_mode == RCUBE_COMPOSE_REPLY)
 173   {
 174     // get recipent address(es) out of the message headers
 175     if ($header=='to' && !empty($MESSAGE['headers']->replyto))
 176       $fvalue = $MESSAGE['headers']->replyto;
 177
 178     else if ($header=='to' && !empty($MESSAGE['headers']->from))
 179       $fvalue = $MESSAGE['headers']->from;
 180
 181     // add recipent of original message if reply to all
 182     else if ($header=='cc' && !empty($MESSAGE['reply_all']))
 183     {
 184       if ($v = $MESSAGE['headers']->to)
 185         $fvalue .= $v;
 186
 187       if ($v = $MESSAGE['headers']->cc)
 188         $fvalue .= (!empty($fvalue) ? ', ' : '') . $v;
 189     }
 190
 191     // split recipients and put them back together in a unique way
 192     if (!empty($fvalue))
 193     {
 194       $to_addresses = $IMAP->decode_address_list($fvalue);
 195       $fvalue = '';
 196       foreach ($to_addresses as $addr_part)
 197       {
 198         if (!empty($addr_part['mailto']) && !in_array($addr_part['mailto'], $sa_recipients) && (!$MESSAGE['FROM'] || !in_array($addr_part['mailto'], $MESSAGE['FROM'])))
 199         {
 200           $fvalue .= (strlen($fvalue) ? ', ':'').$addr_part['string'];
 201           $sa_recipients[] = $addr_part['mailto'];
 202         }
 203       }
 204     }
 205   }
 206   else if ($header && $compose_mode == RCUBE_COMPOSE_DRAFT)
 207   {
 208     // get drafted headers
 209     if ($header=='to' && !empty($MESSAGE['headers']->to))
 210       $fvalue = $IMAP->decode_header($MESSAGE['headers']->to);
 211
 212     if ($header=='cc' && !empty($MESSAGE['headers']->cc))
 213       $fvalue = $IMAP->decode_header($MESSAGE['headers']->cc);
 214
 215     if ($header=='bcc' && !empty($MESSAGE['headers']->bcc))
 216       $fvalue = $IMAP->decode_header($MESSAGE['headers']->bcc);
 217   }
 218
 219
 220   if ($fname && $field_type)
 221   {
 222     // pass the following attributes to the form class
 223     $field_attrib = array('name' => $fname);
 224     foreach ($attrib as $attr => $value)
 225       if (in_array($attr, $allow_attrib))
 226         $field_attrib[$attr] = $value;
 227
 228     // create teaxtarea object
 229     $input = new $field_type($field_attrib);
 230     $out = $input->show($fvalue);
 231   }
 232
 233   if ($form_start)
 234     $out = $form_start.$out;
 235
 236   return $out;
 237 }
 238
 239
 240
 241 function rcmail_compose_header_from($attrib)
 242 {
 243   global $IMAP, $MESSAGE, $DB, $USER, $OUTPUT, $compose_mode;
 244
 245   // pass the following attributes to the form class
 246   $field_attrib = array('name' => '_from');
 247   foreach ($attrib as $attr => $value)
 248     if (in_array($attr, array('id', 'class', 'style', 'size', 'tabindex')))
 249       $field_attrib[$attr] = $value;
 250
 251   // extract all recipients of the reply-message
 252   $a_recipients = array();
 253   if ($compose_mode == RCUBE_COMPOSE_REPLY && is_object($MESSAGE['headers']))
 254   {
 255     $MESSAGE['FROM'] = array();
 256
 257     $a_to = $IMAP->decode_address_list($MESSAGE['headers']->to);
 258     foreach ($a_to as $addr)
 259     {
 260       if (!empty($addr['mailto']))
 261         $a_recipients[] = $addr['mailto'];
 262     }
 263
 264     if (!empty($MESSAGE['headers']->cc))
 265     {
 266       $a_cc = $IMAP->decode_address_list($MESSAGE['headers']->cc);
 267       foreach ($a_cc as $addr)
 268       {
 269         if (!empty($addr['mailto']))
 270           $a_recipients[] = $addr['mailto'];
 271       }
 272     }
 273   }
 274
 275   // get this user's identities
 276   $sql_result = $USER->list_identities();
 277
 278   if ($DB->num_rows($sql_result))
 279   {
 280     $from_id = 0;
 281     $a_signatures = array();
 282
 283     $field_attrib['onchange'] = JS_OBJECT_NAME.".change_identity(this)";
 284     $select_from = new select($field_attrib);
 285
 286     while ($sql_arr = $DB->fetch_assoc($sql_result))
 287     {
 288       $identity_id = $sql_arr['identity_id'];
 289       $select_from->add(format_email_recipient($sql_arr['email'], $sql_arr['name']), $identity_id);
 290
 291       // add signature to array
 292       if (!empty($sql_arr['signature']))
 293       {
 294         $a_signatures[$identity_id]['text'] = $sql_arr['signature'];
 295         $a_signatures[$identity_id]['is_html'] = ($sql_arr['html_signature'] == 1) ? true : false;
 296         if ($a_signatures[$identity_id]['is_html'])
 297         {
 298             $h2t = new html2text($a_signatures[$identity_id]['text'], false, false);
 299             $plainTextPart = $h2t->get_text();
 300             $a_signatures[$identity_id]['plain_text'] = trim($plainTextPart);
 301         }
 302       }
 303
 304       // set identity if it's one of the reply-message recipients
 305       if (in_array($sql_arr['email'], $a_recipients))
 306         $from_id = $sql_arr['identity_id'];
 307
 308       if ($compose_mode == RCUBE_COMPOSE_REPLY && is_array($MESSAGE['FROM']))
 309         $MESSAGE['FROM'][] = $sql_arr['email'];
 310
 311       if ($compose_mode == RCUBE_COMPOSE_DRAFT && strstr($MESSAGE['headers']->from, $sql_arr['email']))
 312         $from_id = $sql_arr['identity_id'];
 313     }
 314
 315     // overwrite identity selection with post parameter
 316     if (isset($_POST['_from']))
 317       $from_id = get_input_value('_from', RCUBE_INPUT_POST);
 318
 319     $out = $select_from->show($from_id);
 320
 321     // add signatures to client
 322     $OUTPUT->set_env('signatures', $a_signatures);
 323   }
 324   else
 325   {
 326     $input_from = new textfield($field_attrib);
 327     $out = $input_from->show($_POST['_from']);
 328   }
 329
 330   if ($form_start)
 331     $out = $form_start.$out;
 332
 333   return $out;
 334 }
 335
 336
 337 function rcmail_compose_body($attrib)
 338 {
 339   global $CONFIG, $OUTPUT, $MESSAGE, $compose_mode;
 340
 341   list($form_start, $form_end) = get_form_tags($attrib);
 342   unset($attrib['form']);
 343
 344   if (empty($attrib['id']))
 345     $attrib['id'] = 'rcmComposeMessage';
 346
 347   $attrib['name'] = '_message';
 348
 349   if ($CONFIG['htmleditor'])
 350     $isHtml = true;
 351   else
 352     $isHtml = false;
 353
 354   $body = '';
 355
 356   // use posted message body
 357   if (!empty($_POST['_message']))
 358     {
 359     $body = get_input_value('_message', RCUBE_INPUT_POST, TRUE);
 360     }
 361   // compose reply-body
 362   else if ($compose_mode == RCUBE_COMPOSE_REPLY)
 363     {
 364     $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
 365     if ($hasHtml && $CONFIG['htmleditor'])
 366       {
 367       $body = rcmail_first_html_part($MESSAGE);
 368       $isHtml = true;
 369       }
 370     else
 371       {
 372       $body = rcmail_first_text_part($MESSAGE);
 373       $isHtml = false;
 374       }
 375
 376     $body = rcmail_create_reply_body($body, $isHtml);
 377     }
 378   // forward message body inline
 379   else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
 380     {
 381     $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
 382     if ($hasHtml && $CONFIG['htmleditor'])
 383       {
 384       $body = rcmail_first_html_part($MESSAGE);
 385       $isHtml = true;
 386       }
 387     else
 388       {
 389       $body = rcmail_first_text_part($MESSAGE);
 390       $isHtml = false;
 391       }
 392
 393     $body = rcmail_create_forward_body($body, $isHtml);
 394     }
 395   else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
 396     {
 397     $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
 398     if ($hasHtml && $CONFIG['htmleditor'])
 399       {
 400       $body = rcmail_first_html_part($MESSAGE);
 401       $isHtml = true;
 402       }
 403     else
 404       {
 405       $body = rcmail_first_text_part($MESSAGE);
 406       $isHtml = false;
 407       }
 408
 409     $body = rcmail_create_draft_body($body, $isHtml);
 410     }
 411
 412   $OUTPUT->include_script('tiny_mce/tiny_mce.js');
 413   $OUTPUT->include_script("editor.js");
 414   $OUTPUT->add_script('rcmail_editor_init("$__skin_path");');
 415
 416   $out = $form_start ? "$form_start\n" : '';
 417
 418   $saveid = new hiddenfield(array('name' => '_draft_saveid', 'value' => $compose_mode==RCUBE_COMPOSE_DRAFT ? str_replace(array('<','>'), "", $MESSAGE['headers']->messageID) : ''));
 419   $out .= $saveid->show();
 420
 421   $drafttoggle = new hiddenfield(array('name' => '_draft', 'value' => 'yes'));
 422   $out .= $drafttoggle->show();
 423
 424   $msgtype = new hiddenfield(array('name' => '_is_html', 'value' => ($isHtml?"1":"0")));
 425   $out .= $msgtype->show();
 426
 427   // If desired, set this text area to be editable by TinyMCE
 428   if ($isHtml)
 429     $attrib['mce_editable'] = "true";
 430   $textarea = new textarea($attrib);
 431   $out .= $textarea->show($body);
 432   $out .= $form_end ? "\n$form_end" : '';
 433
 434   // include GoogieSpell
 435   if (!empty($CONFIG['enable_spellcheck']) && !$isHtml)
 436     {
 437     $lang_set = '';
 438     if (!empty($CONFIG['spellcheck_languages']) && is_array($CONFIG['spellcheck_languages']))
 439       $lang_set = "googie.setLanguages(".array2js($CONFIG['spellcheck_languages']).");\n";
 440
 441     $OUTPUT->include_script('googiespell.js');
 442     $OUTPUT->add_script(sprintf(
 443       "var googie = new GoogieSpell('\$__skin_path/images/googiespell/','%s&_action=spell&lang=');\n".
 444       "googie.lang_chck_spell = \"%s\";\n".
 445       "googie.lang_rsm_edt = \"%s\";\n".
 446       "googie.lang_close = \"%s\";\n".
 447       "googie.lang_revert = \"%s\";\n".
 448       "googie.lang_no_error_found = \"%s\";\n%s".
 449       "googie.setCurrentLanguage('%s');\n".
 450       "googie.decorateTextarea('%s');\n".
 451       "%s.set_env('spellcheck', googie);",
 452       $GLOBALS['COMM_PATH'],
 453       JQ(Q(rcube_label('checkspelling'))),
 454       JQ(Q(rcube_label('resumeediting'))),
 455       JQ(Q(rcube_label('close'))),
 456       JQ(Q(rcube_label('revertto'))),
 457       JQ(Q(rcube_label('nospellerrors'))),
 458       $lang_set,
 459       substr($_SESSION['user_lang'], 0, 2),
 460       $attrib['id'],
 461       JS_OBJECT_NAME), 'foot');
 462
 463     rcube_add_label('checking');
 464     }
 465
 466   $out .= "\n".'<iframe name="savetarget" src="program/blank.gif" style="width:0;height:0;visibility:hidden;"></iframe>';
 467
 468   return $out;
 469 }
 470
 471
 472 function rcmail_create_reply_body($body, $bodyIsHtml)
 473 {
 474   global $IMAP, $MESSAGE;
 475
 476   if (! $bodyIsHtml)
 477   {
 478     // soft-wrap message first
 479     $body = wordwrap($body, 75);
 480
 481     // split body into single lines
 482     $a_lines = preg_split('/\r?\n/', $body);
 483
 484     // add > to each line
 485     for($n=0; $n<sizeof($a_lines); $n++)
 486     {
 487       if (strpos($a_lines[$n], '>')===0)
 488         $a_lines[$n] = '>'.$a_lines[$n];
 489       else
 490         $a_lines[$n] = '> '.$a_lines[$n];
 491     }
 492
 493     $body = join("\n", $a_lines);
 494
 495     // add title line
 496     $prefix = sprintf("\n\n\nOn %s, %s wrote:\n",
 497              $MESSAGE['headers']->date,
 498              $IMAP->decode_header($MESSAGE['headers']->from));
 499
 500     // try to remove the signature
 501     if ($sp = strrstr($body, '-- '))
 502       {
 503       if ($body{$sp+3}==' ' || $body{$sp+3}=="\n" || $body{$sp+3}=="\r")
 504         $body = substr($body, 0, $sp-1);
 505       }
 506     $suffix = '';
 507   }
 508   else
 509   {
 510     $prefix = sprintf("<br><br>On %s, %s wrote:<br><blockquote type=\"cite\" " .
 511                       "style=\"padding-left: 5px; border-left: #1010ff 2px solid; " .
 512                       "margin-left: 5px; width: 100%%\">",
 513                       $MESSAGE['headers']->date,
 514                       $IMAP->decode_header($MESSAGE['headers']->from));
 515
 516     $suffix = "</blockquote>";
 517   }
 518
 519   return $prefix.$body.$suffix;
 520 }
 521
 522
 523 function rcmail_create_forward_body($body, $bodyIsHtml)
 524 {
 525   global $IMAP, $MESSAGE;
 526
 527   if (! $bodyIsHtml)
 528   {
 529     // soft-wrap message first
 530     $body = wordwrap($body, 80);
 531
 532     $prefix = sprintf("\n\n\n-------- Original Message --------\nSubject: %s\nDate: %s\nFrom: %s\nTo: %s\n\n",
 533                      $MESSAGE['subject'],
 534                      $MESSAGE['headers']->date,
 535                      $IMAP->decode_header($MESSAGE['headers']->from),
 536                      $IMAP->decode_header($MESSAGE['headers']->to));
 537   }
 538   else
 539   {
 540     $prefix = sprintf(
 541         "<br><br>-------- Original Message --------" .
 542         "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tbody>" .
 543         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Subject: </th><td>%s</td></tr>" .
 544         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Date: </th><td>%s</td></tr>" .
 545         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">From: </th><td>%s</td></tr>" .
 546         "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">To: </th><td>%s</td></tr>" .
 547         "</tbody></table><br>",
 548                      Q($MESSAGE['subject']),
 549                      Q($MESSAGE['headers']->date),
 550                      Q($IMAP->decode_header($MESSAGE['headers']->from)),
 551                      Q($IMAP->decode_header($MESSAGE['headers']->to)));
 552   }
 553
 554   // add attachments
 555   if (!isset($_SESSION['compose']['forward_attachments']) && is_array($MESSAGE['parts']))
 556     rcmail_write_compose_attachments($MESSAGE);
 557
 558   return $prefix.$body;
 559 }
 560
 561
 562 function rcmail_create_draft_body($body, $bodyIsHtml)
 563 {
 564   global $IMAP, $MESSAGE;
 565
 566   /**
 567    * add attachments
 568    * sizeof($MESSAGE['parts'] can be 1 - e.g. attachment, but no text!
 569    */
 570   if (!isset($_SESSION['compose']['forward_attachments'])
 571       && is_array($MESSAGE['parts'])
 572       && count($MESSAGE['parts']) > 0)
 573     rcmail_write_compose_attachments($MESSAGE);
 574
 575   return $body;
 576 }
 577
 578
 579 function rcmail_write_compose_attachments(&$message)
 580 {
 581   global $IMAP, $CONFIG;
 582
 583   $temp_dir = unslashify($CONFIG['temp_dir']);
 584
 585   if (!is_array($_SESSION['compose']['attachments']))
 586     $_SESSION['compose']['attachments'] = array();
 587
 588   foreach ($message['parts'] as $pid => $part)
 589   {
 590     if ($part->ctype_primary != 'message' &&
 591         ($part->disposition=='attachment' || $part->disposition=='inline' || $part->headers['content-id'] ||
 592          (empty($part->disposition) && $part->filename)))
 593     {
 594       $tmp_path = tempnam($temp_dir, 'rcmAttmnt');
 595       if ($fp = fopen($tmp_path, 'w'))
 596       {
 597         fwrite($fp, $IMAP->get_message_part($message['UID'], $pid, $part->encoding));
 598         fclose($fp);
 599
 600         $_SESSION['compose']['attachments'][] = array(
 601           'mimetype' => $part->ctype_primary . '/' . $part->ctype_secondary,
 602           'name' => $part->filename,
 603           'path' => $tmp_path
 604           );
 605       }
 606     }
 607   }
 608
 609   $_SESSION['compose']['forward_attachments'] = TRUE;
 610 }
 611
 612
 613 function rcmail_compose_subject($attrib)
 614 {
 615   global $CONFIG, $MESSAGE, $compose_mode;
 616
 617   list($form_start, $form_end) = get_form_tags($attrib);
 618   unset($attrib['form']);
 619
 620   $attrib['name'] = '_subject';
 621   $textfield = new textfield($attrib);
 622
 623   $subject = '';
 624
 625   // use subject from post
 626   if (isset($_POST['_subject']))
 627     $subject = get_input_value('_subject', RCUBE_INPUT_POST, TRUE);
 628
 629   // create a reply-subject
 630   else if ($compose_mode == RCUBE_COMPOSE_REPLY)
 631   {
 632     if (eregi('^re:', $MESSAGE['subject']))
 633       $subject = $MESSAGE['subject'];
 634     else
 635       $subject = 'Re: '.$MESSAGE['subject'];
 636   }
 637
 638   // create a forward-subject
 639   else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
 640   {
 641     if (eregi('^fwd:', $MESSAGE['subject']))
 642       $subject = $MESSAGE['subject'];
 643     else
 644       $subject = 'Fwd: '.$MESSAGE['subject'];
 645   }
 646
 647   // creeate a draft-subject
 648   else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
 649     $subject = $MESSAGE['subject'];
 650
 651   $out = $form_start ? "$form_start\n" : '';
 652   $out .= $textfield->show($subject);
 653   $out .= $form_end ? "\n$form_end" : '';
 654
 655   return $out;
 656 }
 657
 658
 659 function rcmail_compose_attachment_list($attrib)
 660 {
 661   global $OUTPUT, $CONFIG;
 662
 663   // add ID if not given
 664   if (!$attrib['id'])
 665     $attrib['id'] = 'rcmAttachmentList';
 666
 667   // allow the following attributes to be added to the <ul> tag
 668   $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style'));
 669
 670   $out = '<ul'. $attrib_str . ">\n";
 671
 672   if (is_array($_SESSION['compose']['attachments']))
 673   {
 674     if ($attrib['deleteicon'])
 675       $button = sprintf('<img src="%s%s" alt="%s" border="0" style="padding-right:2px;vertical-align:middle" />',
 676                         $CONFIG['skin_path'],
 677                         $attrib['deleteicon'],
 678                         rcube_label('delete'));
 679     else
 680       $button = rcube_label('delete');
 681
 682     foreach ($_SESSION['compose']['attachments'] as $id => $a_prop)
 683       $out .= sprintf('<li id="rcmfile%d"><a href="#delete" onclick="return %s.command(\'remove-attachment\',\'rcmfile%d\', this)" title="%s">%s</a>%s</li>',
 684                       $id,
 685                       JS_OBJECT_NAME,
 686                       $id,
 687                       Q(rcube_label('delete')),
 688                       $button,
 689                       Q($a_prop['name']));
 690   }
 691
 692   $OUTPUT->add_gui_object('attachmentlist', $attrib['id']);
 693
 694   $out .= '</ul>';
 695   return $out;
 696 }
 697
 698
 699 function rcmail_compose_attachment_form($attrib)
 700 {
 701   global $OUTPUT, $SESS_HIDDEN_FIELD;
 702
 703   // add ID if not given
 704   if (!$attrib['id'])
 705     $attrib['id'] = 'rcmUploadbox';
 706
 707   // allow the following attributes to be added to the <div> tag
 708   $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style'));
 709   $input_field = rcmail_compose_attachment_field(array());
 710   $label_send = rcube_label('upload');
 711   $label_close = rcube_label('close');
 712   $js_instance = JS_OBJECT_NAME;
 713
 714   $out = <<<EOF
 715 <div$attrib_str>
 716 <form action="./" method="post" enctype="multipart/form-data">
 717 $SESS_HIDDEN_FIELD
 718 $input_field<br />
 719 <input type="button" value="$label_close" class="button" onclick="document.getElementById('$attrib[id]').style.visibility='hidden'" />
 720 <input type="button" value="$label_send" class="button" onclick="$js_instance.command('send-attachment', this.form)" />
 721 </form>
 722 </div>
 723 EOF;
 724
 725
 726   $OUTPUT->add_gui_object('uploadbox', $attrib['id']);
 727   return $out;
 728 }
 729
 730
 731 function rcmail_compose_attachment_field($attrib)
 732 {
 733   // allow the following attributes to be added to the <input> tag
 734   $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style', 'size'));
 735
 736   $out = '<input type="file" name="_attachments[]"'. $attrib_str . " />";
 737   return $out;
 738 }
 739
 740
 741 function rcmail_priority_selector($attrib)
 742 {
 743   global $MESSAGE;
 744
 745   list($form_start, $form_end) = get_form_tags($attrib);
 746   unset($attrib['form']);
 747
 748   $attrib['name'] = '_priority';
 749   $selector = new select($attrib);
 750
 751   $selector->add(array(rcube_label('lowest'),
 752                        rcube_label('low'),
 753                        rcube_label('normal'),
 754                        rcube_label('high'),
 755                        rcube_label('highest')),
 756                  array(5, 4, 0, 2, 1));
 757
 758   $sel = isset($_POST['_priority']) ? $_POST['_priority'] : intval($MESSAGE['headers']->priority);
 759
 760   $out = $form_start ? "$form_start\n" : '';
 761   $out .= $selector->show($sel);
 762   $out .= $form_end ? "\n$form_end" : '';
 763
 764   return $out;
 765 }
 766
 767
 768 function rcmail_receipt_checkbox($attrib)
 769 {
 770   global $MESSAGE;
 771
 772   list($form_start, $form_end) = get_form_tags($attrib);
 773   unset($attrib['form']);
 774
 775   if (!isset($attrib['id']))
 776     $attrib['id'] = 'receipt';
 777
 778   $attrib['name'] = '_receipt';
 779   $attrib['value'] = '1';
 780   $checkbox = new checkbox($attrib);
 781
 782   $out = $form_start ? "$form_start\n" : '';
 783   $out .= $checkbox->show($MESSAGE['headers']->mdn_to ? 1 : 0);
 784   $out .= $form_end ? "\n$form_end" : '';
 785
 786   return $out;
 787 }
 788
 789
 790 function rcmail_editor_selector($attrib)
 791 {
 792   global $CONFIG, $MESSAGE, $compose_mode;
 793
 794   $choices = array(
 795     'html'  => 'htmltoggle',
 796     'plain' => 'plaintoggle'
 797   );
 798
 799   // determine whether HTML or plain text should be checked
 800   if ($CONFIG['htmleditor'])
 801     $useHtml = true;
 802   else
 803     $useHtml = false;
 804
 805   if ($compose_mode == RCUBE_COMPOSE_REPLY ||
 806       $compose_mode == RCUBE_COMPOSE_FORWARD ||
 807       $compose_mode == RCUBE_COMPOSE_DRAFT)
 808   {
 809     $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
 810     $useHtml = ($hasHtml && $CONFIG['htmleditor']);
 811   }
 812
 813   $selector = '';
 814
 815   $attrib['name'] = '_editorSelect';
 816   $attrib['onchange'] = 'return rcmail_toggle_editor(this)';
 817   foreach ($choices as $value => $text)
 818   {
 819     $checked = '';
 820     if ((($value == 'html') && $useHtml) ||
 821         (($value != 'html') && !$useHtml))
 822       $attrib['checked'] = 'true';
 823     else
 824       unset($attrib['checked']);
 825
 826     $attrib['id'] = '_' . $value;
 827     $rb = new radiobutton($attrib);
 828     $selector .= sprintf("%s<label for=\"%s\">%s</label>",
 829                          $rb->show($value),
 830                          $attrib['id'],
 831                          rcube_label($text));
 832   }
 833
 834   return $selector;
 835 }
 836
 837
 838 function get_form_tags($attrib)
 839 {
 840   global $CONFIG, $OUTPUT, $MESSAGE_FORM, $SESS_HIDDEN_FIELD;
 841
 842   $form_start = '';
 843   if (!strlen($MESSAGE_FORM))
 844   {
 845     $hiddenfields = new hiddenfield(array('name' => '_task', 'value' => $GLOBALS['_task']));
 846     $hiddenfields->add(array('name' => '_action', 'value' => 'send'));
 847
 848     $form_start = empty($attrib['form']) ? '<form name="form" action="./" method="post">' : '';
 849     $form_start .= "\n$SESS_HIDDEN_FIELD\n";
 850     $form_start .= $hiddenfields->show();
 851   }
 852
 853   $form_end = (strlen($MESSAGE_FORM) && !strlen($attrib['form'])) ? '</form>' : '';
 854   $form_name = !empty($attrib['form']) ? $attrib['form'] : 'form';
 855
 856   if (!strlen($MESSAGE_FORM))
 857     $OUTPUT->add_gui_object('messageform', $form_name);
 858
 859   $MESSAGE_FORM = $form_name;
 860
 861   return array($form_start, $form_end);
 862 }
 863
 864
 865 // register UI objects
 866 $OUTPUT->add_handlers(array(
 867   'composeheaders' => 'rcmail_compose_headers',
 868   'composesubject' => 'rcmail_compose_subject',
 869   'composebody' => 'rcmail_compose_body',
 870   'composeattachmentlist' => 'rcmail_compose_attachment_list',
 871   'composeattachmentform' => 'rcmail_compose_attachment_form',
 872   'composeattachment' => 'rcmail_compose_attachment_field',
 873   'priorityselector' => 'rcmail_priority_selector',
 874   'editorselector' => 'rcmail_editor_selector',
 875   'receiptcheckbox' => 'rcmail_receipt_checkbox',
 876 ));
 877
 878 /****** get contacts for this user and add them to client scripts ********/
 879
 880 require_once('include/rcube_contacts.inc');
 881 require_once('include/rcube_ldap.inc');
 882
 883 $CONTACTS = new rcube_contacts($DB, $USER->ID);
 884 $CONTACTS->set_pagesize(1000);
 885
 886 $a_contacts = array();
 887
 888 if ($result = $CONTACTS->list_records())
 889   {
 890   while ($sql_arr = $result->iterate())
 891     if ($sql_arr['email'])
 892       $a_contacts[] = format_email_recipient($sql_arr['email'], JQ($sql_arr['name']));
 893   }
 894 if (isset($CONFIG['ldap_public']))
 895   {
 896   /* LDAP autocompletion */
 897   foreach ($CONFIG['ldap_public'] as $ldapserv_config)
 898     {
 899     if ($ldapserv_config['fuzzy_search'] != 1)
 900       {
 901       continue;
 902           }
 903
 904     $LDAP = new rcube_ldap($ldapserv_config);
 905     $LDAP->connect();
 906     $LDAP->set_pagesize(1000);
 907
 908     $results = $LDAP->search($ldapserv_config['mail_field'], "");
 909
 910     for ($i = 0; $i < $results->count; $i++)
 911           {
 912           if ($results->records[$i]['email'] != '')
 913             {
 914             $email = $results->records[$i]['email'];
 915             $name = $results->records[$i]['name'];
 916
 917             $a_contacts[] = format_email_recipient($email, JQ($name));
 918             }
 919           }
 920     $LDAP->close();
 921     }
 922   }
 923 if ($a_contacts)
 924   {
 925         $OUTPUT->set_env('contacts', $a_contacts);
 926   }
 927 parse_template('compose');
 928 ?>