| program/steps/mail/compose.inc |
| |
| This file is part of the RoundCube Webmail client |
- | Copyright (C) 2005, RoundCube Dev. - Switzerland |
+ | Copyright (C) 2005-2009, RoundCube Dev. - Switzerland |
| Licensed under the GNU GPL |
| |
| PURPOSE: |
| Author: Thomas Bruederli <roundcube@gmail.com> |
+-----------------------------------------------------------------------+
- $Id: compose.inc 579 2007-05-18 13:11:22Z thomasb $
+ $Id: compose.inc 2301 2009-02-18 19:15:36Z alec $
*/
-require_once('Mail/mimeDecode.php');
-require_once('lib/html2text.inc');
-
// define constants for message compose mode
define('RCUBE_COMPOSE_REPLY', 0x0106);
define('RCUBE_COMPOSE_FORWARD', 0x0107);
define('RCUBE_COMPOSE_DRAFT', 0x0108);
-
-// remove an attachment
-if ($_action=='remove-attachment' && preg_match('/^rcmfile([0-9]+)$/', $_POST['_file'], $regs))
- {
- $id = $regs[1];
- if (is_array($_SESSION['compose']['attachments'][$id]))
- {
- @unlink($_SESSION['compose']['attachments'][$id]['path']);
- $_SESSION['compose']['attachments'][$id] = NULL;
- $OUTPUT->command('remove_from_attachment_list', "rcmfile$id");
- $OUTPUT->send();
- exit;
- }
- }
-
-// this version does not support HTML mails
-$CONFIG['htmleditor'] = false;
-
$MESSAGE_FORM = NULL;
$MESSAGE = NULL;
// compose when a "new/forward/reply/draft" is called - otherwise the old session attachments will appear
if (!is_array($_SESSION['compose']) || $_SESSION['compose']['id'] != get_input_value('_id', RCUBE_INPUT_GET))
- {
+{
rcmail_compose_cleanup();
- $_SESSION['compose'] = array('id' => uniqid(rand()));
+ $_SESSION['compose'] = array('id' => uniqid(rand()), 'param' => array_map('strip_tags', $_GET));
+
+ // process values like "mailto:foo@bar.com?subject=new+message&cc=another"
+ if ($_SESSION['compose']['param']['_to']) {
+ $mailto = explode('?', $_SESSION['compose']['param']['_to']);
+ if (count($mailto) > 1) {
+ $_SESSION['compose']['param']['_to'] = $mailto[0];
+ parse_str($mailto[1], $query);
+ foreach ($query as $f => $val)
+ $_SESSION['compose']['param']["_$f"] = $val;
+ }
}
-// add some labels to client
-rcube_add_label('nosubject', 'norecipientwarning', 'nosubjectwarning', 'nobodywarning', 'notsentwarning', 'savingmessage', 'sendingmessage', 'messagesaved', 'converting');
-
-// add config parameter to client script
-$OUTPUT->set_env('draft_autosave', !empty($CONFIG['drafts_mbox']) ? $CONFIG['draft_autosave'] : 0);
+ // redirect to a unique URL with all parameters stored in session
+ $OUTPUT->redirect(array('_action' => 'compose', '_id' => $_SESSION['compose']['id']));
+}
+// add some labels to client
+$OUTPUT->add_label('nosubject', 'nosenderwarning', 'norecipientwarning', 'nosubjectwarning',
+ 'nobodywarning', 'notsentwarning', 'savingmessage', 'sendingmessage', 'messagesaved',
+ 'converting', 'editorwarning', 'searching');
+
+// add config parameters to client script
+if (!empty($CONFIG['drafts_mbox'])) {
+ $OUTPUT->set_env('drafts_mailbox', $CONFIG['drafts_mbox']);
+ $OUTPUT->set_env('draft_autosave', $CONFIG['draft_autosave']);
+}
+// set current mailbox in client environment
+$OUTPUT->set_env('mailbox', $IMAP->get_mailbox_name());
// get reference message and set compose mode
-if ($msg_uid = get_input_value('_reply_uid', RCUBE_INPUT_GET))
+if ($msg_uid = $_SESSION['compose']['param']['_reply_uid'])
$compose_mode = RCUBE_COMPOSE_REPLY;
-else if ($msg_uid = get_input_value('_forward_uid', RCUBE_INPUT_GET))
+else if ($msg_uid = $_SESSION['compose']['param']['_forward_uid'])
$compose_mode = RCUBE_COMPOSE_FORWARD;
-else if ($msg_uid = get_input_value('_draft_uid', RCUBE_INPUT_GET))
+else if ($msg_uid = $_SESSION['compose']['param']['_draft_uid'])
$compose_mode = RCUBE_COMPOSE_DRAFT;
-
if (!empty($msg_uid))
- {
+{
// similar as in program/steps/mail/show.inc
- $MESSAGE = array('UID' => $msg_uid);
- $MESSAGE['headers'] = &$IMAP->get_headers($msg_uid);
- $MESSAGE['structure'] = &$IMAP->get_structure($msg_uid);
- $MESSAGE['subject'] = $IMAP->decode_header($MESSAGE['headers']->subject);
- $MESSAGE['parts'] = $IMAP->get_mime_numbers($MESSAGE['structure']);
+ $MESSAGE = new rcube_message($msg_uid);
+ if (!empty($MESSAGE->headers->charset))
+ $IMAP->set_charset($MESSAGE->headers->charset);
+
if ($compose_mode == RCUBE_COMPOSE_REPLY)
- {
+ {
$_SESSION['compose']['reply_uid'] = $msg_uid;
- $_SESSION['compose']['reply_msgid'] = $MESSAGE['headers']->messageID;
- $_SESSION['compose']['references'] = $MESSAGE['headers']->reference;
- $_SESSION['compose']['references'] .= !empty($MESSAGE['headers']->reference) ? ' ' : '';
- $_SESSION['compose']['references'] .= $MESSAGE['headers']->messageID;
+ $_SESSION['compose']['reply_msgid'] = $MESSAGE->headers->messageID;
+ $_SESSION['compose']['references'] = trim($MESSAGE->headers->references . " " . $MESSAGE->headers->messageID);
- if (!empty($_GET['_all']))
- $MESSAGE['reply_all'] = 1;
- }
- else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
- {
- $_SESSION['compose']['forward_uid'] = $msg_uid;
- }
+ if (!empty($_SESSION['compose']['param']['_all']))
+ $MESSAGE->reply_all = 1;
+ }
else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
+ {
+ if($MESSAGE->headers->in_reply_to)
{
- $_SESSION['compose']['draft_uid'] = $msg_uid;
+ // TODO: how to get reply_uid/forward_uid value, maybe we must set X-Reply-UID/X-Forward-UID
+ // $_SESSION['compose']['reply_uid'] = ?
+ // $_SESSION['compose']['forward_uid'] = ?
+ $_SESSION['compose']['reply_msgid'] = '<'.$MESSAGE->headers->in_reply_to.'>';
}
-
+ $_SESSION['compose']['references'] = $MESSAGE->headers->references;
+ }
+ else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
+ {
+ $_SESSION['compose']['forward_uid'] = $msg_uid;
}
+}
/****** compose mode functions ********/
function rcmail_compose_headers($attrib)
- {
+{
global $IMAP, $MESSAGE, $DB, $compose_mode;
static $sa_recipients = array();
$part = strtolower($attrib['part']);
switch ($part)
- {
+ {
case 'from':
return rcmail_compose_header_from($attrib);
$header = 'to';
// we have a set of recipients stored is session
- if (($mailto_id = get_input_value('_mailto', RCUBE_INPUT_GET)) && $_SESSION['mailto'][$mailto_id])
- $fvalue = $_SESSION['mailto'][$mailto_id];
- else if (!empty($_GET['_to']))
- $fvalue = get_input_value('_to', RCUBE_INPUT_GET);
-
+ if (($mailto_id = $_SESSION['compose']['param']['_mailto']) && $_SESSION['mailto'][$mailto_id])
+ $fvalue = urldecode($_SESSION['mailto'][$mailto_id]);
+
case 'cc':
if (!$fname)
- {
+ {
$fname = '_cc';
$header = 'cc';
- }
+ }
case 'bcc':
if (!$fname)
- {
+ {
$fname = '_bcc';
$header = 'bcc';
- }
+ }
- $allow_attrib = array('id', 'class', 'style', 'cols', 'rows', 'wrap', 'tabindex');
- $field_type = 'textarea';
+ $allow_attrib = array('id', 'class', 'style', 'cols', 'rows', 'tabindex');
+ $field_type = 'html_textarea';
break;
case 'replyto':
case 'reply-to':
$fname = '_replyto';
$allow_attrib = array('id', 'class', 'style', 'size', 'tabindex');
- $field_type = 'textfield';
+ $field_type = 'html_inputfield';
break;
-
- }
+ }
if ($fname && !empty($_POST[$fname]))
$fvalue = get_input_value($fname, RCUBE_INPUT_POST, TRUE);
+ else if ($fname && !$fvalue && !empty($_SESSION['compose']['param'][$fname]))
+ $fvalue = $_SESSION['compose']['param'][$fname];
else if ($header && $compose_mode == RCUBE_COMPOSE_REPLY)
- {
+ {
// get recipent address(es) out of the message headers
- if ($header=='to' && !empty($MESSAGE['headers']->replyto))
- $fvalue = $MESSAGE['headers']->replyto;
+ if ($header=='to' && !empty($MESSAGE->headers->replyto))
+ $fvalue = $MESSAGE->headers->replyto;
- else if ($header=='to' && !empty($MESSAGE['headers']->from))
- $fvalue = $MESSAGE['headers']->from;
+ else if ($header=='to' && !empty($MESSAGE->headers->from))
+ $fvalue = $MESSAGE->headers->from;
// add recipent of original message if reply to all
- else if ($header=='cc' && !empty($MESSAGE['reply_all']))
- {
- if ($v = $MESSAGE['headers']->to)
+ else if ($header=='cc' && !empty($MESSAGE->reply_all))
+ {
+ if ($v = $MESSAGE->headers->to)
$fvalue .= $v;
- if ($v = $MESSAGE['headers']->cc)
+ if ($v = $MESSAGE->headers->cc)
$fvalue .= (!empty($fvalue) ? ', ' : '') . $v;
- }
+ }
// split recipients and put them back together in a unique way
if (!empty($fvalue))
- {
+ {
$to_addresses = $IMAP->decode_address_list($fvalue);
$fvalue = '';
+
foreach ($to_addresses as $addr_part)
+ {
+ if (!empty($addr_part['mailto'])
+ && !in_array($addr_part['mailto'], $sa_recipients)
+ && (!$MESSAGE->compose_from
+ || !in_array_nocase($addr_part['mailto'], $MESSAGE->compose_from)
+ || (count($to_addresses)==1 && $header=='to'))) // allow reply to yourself
{
- if (!empty($addr_part['mailto']) && !in_array($addr_part['mailto'], $sa_recipients) && (!$MESSAGE['FROM'] || !in_array($addr_part['mailto'], $MESSAGE['FROM'])))
- {
$fvalue .= (strlen($fvalue) ? ', ':'').$addr_part['string'];
$sa_recipients[] = $addr_part['mailto'];
- }
}
}
}
+ }
else if ($header && $compose_mode == RCUBE_COMPOSE_DRAFT)
- {
+ {
// get drafted headers
- if ($header=='to' && !empty($MESSAGE['headers']->to))
- $fvalue = $IMAP->decode_header($MESSAGE['headers']->to);
+ if ($header=='to' && !empty($MESSAGE->headers->to))
+ $fvalue = $MESSAGE->get_header('to');
- if ($header=='cc' && !empty($MESSAGE['headers']->cc))
- $fvalue = $IMAP->decode_header($MESSAGE['headers']->cc);
+ if ($header=='cc' && !empty($MESSAGE->headers->cc))
+ $fvalue = $MESSAGE->get_header('cc');
- if ($header=='bcc' && !empty($MESSAGE['headers']->bcc))
- $fvalue = $IMAP->decode_header($MESSAGE['headers']->bcc);
- }
+ if ($header=='bcc' && !empty($MESSAGE->headers->bcc))
+ $fvalue = $MESSAGE->get_header('bcc');
+ }
if ($fname && $field_type)
- {
+ {
// pass the following attributes to the form class
- $field_attrib = array('name' => $fname);
+ $field_attrib = array('name' => $fname, 'spellcheck' => 'false');
foreach ($attrib as $attr => $value)
if (in_array($attr, $allow_attrib))
$field_attrib[$attr] = $value;
// create teaxtarea object
$input = new $field_type($field_attrib);
- $out = $input->show($fvalue);
- }
+ $out = $input->show($fvalue);
+ }
if ($form_start)
$out = $form_start.$out;
return $out;
- }
+}
function rcmail_compose_header_from($attrib)
- {
- global $IMAP, $MESSAGE, $DB, $OUTPUT, $compose_mode;
+{
+ global $IMAP, $MESSAGE, $DB, $USER, $OUTPUT, $compose_mode;
// pass the following attributes to the form class
$field_attrib = array('name' => '_from');
// extract all recipients of the reply-message
$a_recipients = array();
- if ($compose_mode == RCUBE_COMPOSE_REPLY && is_object($MESSAGE['headers']))
- {
- $MESSAGE['FROM'] = array();
+ if ($compose_mode == RCUBE_COMPOSE_REPLY && is_object($MESSAGE->headers))
+ {
+ $MESSAGE->compose_from = array();
- $a_to = $IMAP->decode_address_list($MESSAGE['headers']->to);
+ $a_to = $IMAP->decode_address_list($MESSAGE->headers->to);
foreach ($a_to as $addr)
- {
+ {
if (!empty($addr['mailto']))
- $a_recipients[] = $addr['mailto'];
- }
+ $a_recipients[] = rc_strtolower($addr['mailto']);
+ }
- if (!empty($MESSAGE['headers']->cc))
- {
- $a_cc = $IMAP->decode_address_list($MESSAGE['headers']->cc);
+ if (!empty($MESSAGE->headers->cc))
+ {
+ $a_cc = $IMAP->decode_address_list($MESSAGE->headers->cc);
foreach ($a_cc as $addr)
- {
+ {
if (!empty($addr['mailto']))
- $a_recipients[] = $addr['mailto'];
- }
+ $a_recipients[] = rc_strtolower($addr['mailto']);
}
}
+ }
// get this user's identities
- $sql_result = $DB->query("SELECT identity_id, name, email, signature, html_signature
- FROM ".get_table_name('identities')."
- WHERE user_id=?
- AND del<>1
- ORDER BY ".$DB->quoteIdentifier('standard')." DESC, name ASC",
- $_SESSION['user_id']);
+ $sql_result = $USER->list_identities();
if ($DB->num_rows($sql_result))
- {
+ {
$from_id = 0;
$a_signatures = array();
$field_attrib['onchange'] = JS_OBJECT_NAME.".change_identity(this)";
- $select_from = new select($field_attrib);
+ $select_from = new html_select($field_attrib);
while ($sql_arr = $DB->fetch_assoc($sql_result))
- {
+ {
$identity_id = $sql_arr['identity_id'];
$select_from->add(format_email_recipient($sql_arr['email'], $sql_arr['name']), $identity_id);
// add signature to array
if (!empty($sql_arr['signature']))
- {
+ {
$a_signatures[$identity_id]['text'] = $sql_arr['signature'];
$a_signatures[$identity_id]['is_html'] = ($sql_arr['html_signature'] == 1) ? true : false;
if ($a_signatures[$identity_id]['is_html'])
- {
+ {
$h2t = new html2text($a_signatures[$identity_id]['text'], false, false);
- $plainTextPart = $h2t->get_text();
- $a_signatures[$identity_id]['plain_text'] = trim($plainTextPart);
- }
+ $a_signatures[$identity_id]['plain_text'] = trim($h2t->get_text());
}
+ }
- // set identity if it's one of the reply-message recipients
- if (in_array($sql_arr['email'], $a_recipients))
- $from_id = $sql_arr['identity_id'];
-
- if ($compose_mode == RCUBE_COMPOSE_REPLY && is_array($MESSAGE['FROM']))
- $MESSAGE['FROM'][] = $sql_arr['email'];
+ if ($compose_mode == RCUBE_COMPOSE_REPLY && is_array($MESSAGE->compose_from))
+ $MESSAGE->compose_from[] = $sql_arr['email'];
- if ($compose_mode == RCUBE_COMPOSE_DRAFT && strstr($MESSAGE['headers']->from, $sql_arr['email']))
- $from_id = $sql_arr['identity_id'];
+ if (empty($_POST['_from']))
+ {
+ // set draft's identity
+ if ($compose_mode == RCUBE_COMPOSE_DRAFT && strstr($MESSAGE->headers->from, $sql_arr['email']))
+ $from_id = $sql_arr['identity_id'];
+ // set identity if it's one of the reply-message recipients (with prio for default identity)
+ else if (in_array(rc_strtolower($sql_arr['email']), $a_recipients) && (empty($from_id) || $sql_arr['standard']))
+ $from_id = $sql_arr['identity_id'];
}
+ }
// overwrite identity selection with post parameter
- if (isset($_POST['_from']))
+ if (!empty($_POST['_from']))
$from_id = get_input_value('_from', RCUBE_INPUT_POST);
$out = $select_from->show($from_id);
// add signatures to client
$OUTPUT->set_env('signatures', $a_signatures);
- }
+ }
else
- {
- $input_from = new textfield($field_attrib);
+ {
+ $input_from = new html_inputfield($field_attrib);
$out = $input_from->show($_POST['_from']);
- }
+ }
if ($form_start)
$out = $form_start.$out;
return $out;
- }
+}
-
function rcmail_compose_body($attrib)
- {
- global $CONFIG, $OUTPUT, $MESSAGE, $compose_mode;
+{
+ global $RCMAIL, $CONFIG, $OUTPUT, $MESSAGE, $compose_mode;
list($form_start, $form_end) = get_form_tags($attrib);
unset($attrib['form']);
// use posted message body
if (!empty($_POST['_message']))
+ {
+ $body = get_input_value('_message', RCUBE_INPUT_POST, true);
+ }
+ else if ($compose_mode)
+ {
+ if ($isHtml && $MESSAGE->has_html_part())
{
- $body = get_input_value('_message', RCUBE_INPUT_POST, TRUE);
- }
- // compose reply-body
- else if ($compose_mode == RCUBE_COMPOSE_REPLY)
- {
- $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
- if ($hasHtml && $CONFIG['htmleditor'])
- {
- $body = rcmail_first_html_part($MESSAGE);
+ $body = $MESSAGE->first_html_part();
$isHtml = true;
- }
- else
- {
- $body = rcmail_first_text_part($MESSAGE);
- $isHtml = false;
- }
-
- $body = rcmail_create_reply_body($body, $isHtml);
}
- // forward message body inline
- else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
- {
- $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
- if ($hasHtml && $CONFIG['htmleditor'])
- {
- $body = rcmail_first_html_part($MESSAGE);
- $isHtml = true;
- }
else
- {
- $body = rcmail_first_text_part($MESSAGE);
- $isHtml = false;
- }
-
- $body = rcmail_create_forward_body($body, $isHtml);
- }
- else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
{
- $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
- if ($hasHtml && $CONFIG['htmleditor'])
- {
- $body = rcmail_first_html_part($MESSAGE);
- $isHtml = true;
- }
- else
- {
- $body = rcmail_first_text_part($MESSAGE);
+ $body = $MESSAGE->first_text_part();
$isHtml = false;
- }
-
- $body = rcmail_create_draft_body($body, $isHtml);
}
+
+ // compose reply-body
+ if ($compose_mode == RCUBE_COMPOSE_REPLY)
+ $body = rcmail_create_reply_body($body, $isHtml);
+ // forward message body inline
+ else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
+ $body = rcmail_create_forward_body($body, $isHtml);
+ // load draft message body
+ else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
+ $body = rcmail_create_draft_body($body, $isHtml);
+ }
+ else if (!empty($_SESSION['compose']['param']['_body']))
+ {
+ $body = $_SESSION['compose']['param']['_body'];
+ }
$out = $form_start ? "$form_start\n" : '';
- $saveid = new hiddenfield(array('name' => '_draft_saveid', 'value' => $compose_mode==RCUBE_COMPOSE_DRAFT ? str_replace(array('<','>'), "", $MESSAGE['headers']->messageID) : ''));
+ $saveid = new html_hiddenfield(array('name' => '_draft_saveid', 'value' => $compose_mode==RCUBE_COMPOSE_DRAFT ? str_replace(array('<','>'), "", $MESSAGE->headers->messageID) : ''));
$out .= $saveid->show();
- $drafttoggle = new hiddenfield(array('name' => '_draft', 'value' => 'yes'));
+ $drafttoggle = new html_hiddenfield(array('name' => '_draft', 'value' => 'yes'));
$out .= $drafttoggle->show();
- $msgtype = new hiddenfield(array('name' => '_is_html', 'value' => ($isHtml?"1":"0")));
+ $msgtype = new html_hiddenfield(array('name' => '_is_html', 'value' => ($isHtml?"1":"0")));
$out .= $msgtype->show();
- // If desired, set this text area to be editable by TinyMCE
- if ($isHtml)
- $attrib['mce_editable'] = "true";
- $textarea = new textarea($attrib);
+ // If desired, set this textarea to be editable by TinyMCE
+ if ($isHtml) $attrib['class'] = 'mce_editor';
+ $textarea = new html_textarea($attrib);
$out .= $textarea->show($body);
$out .= $form_end ? "\n$form_end" : '';
+ // include HTML editor
+ rcube_html_editor();
+
// include GoogieSpell
- if (!empty($CONFIG['enable_spellcheck']) && !$isHtml)
- {
- $lang_set = '';
- if (!empty($CONFIG['spellcheck_languages']) && is_array($CONFIG['spellcheck_languages']))
- $lang_set = "googie.setLanguages(".array2js($CONFIG['spellcheck_languages']).");\n";
+ if (!empty($CONFIG['enable_spellcheck'])) {
+
+ $lang = strtolower(substr($_SESSION['language'], 0, 2));
+
+ $spellcheck_langs = (array)$RCMAIL->config->get('spellcheck_languages', array('da'=>'Dansk', 'de'=>'Deutsch', 'en' => 'English', 'es'=>'Español', 'fr'=>'Français', 'it'=>'Italiano', 'nl'=>'Nederlands', 'pl'=>'Polski', 'pt'=>'Português', 'fi'=>'Suomi', 'sv'=>'Svenska'));
+ if (!$spellcheck_langs[$lang])
+ $lang = 'en';
+
+ $editor_lang_set = array();
+ foreach ($spellcheck_langs as $key => $name) {
+ $editor_lang_set[] = ($key == $lang ? '+' : '') . JQ($name).'='.JQ($key);
+ }
$OUTPUT->include_script('googiespell.js');
$OUTPUT->add_script(sprintf(
"googie.lang_rsm_edt = \"%s\";\n".
"googie.lang_close = \"%s\";\n".
"googie.lang_revert = \"%s\";\n".
- "googie.lang_no_error_found = \"%s\";\n%s".
+ "googie.lang_no_error_found = \"%s\";\n".
+ "googie.setLanguages(%s);\n".
"googie.setCurrentLanguage('%s');\n".
"googie.decorateTextarea('%s');\n".
"%s.set_env('spellcheck', googie);",
- $GLOBALS['COMM_PATH'],
+ $RCMAIL->comm_path,
JQ(Q(rcube_label('checkspelling'))),
JQ(Q(rcube_label('resumeediting'))),
JQ(Q(rcube_label('close'))),
JQ(Q(rcube_label('revertto'))),
JQ(Q(rcube_label('nospellerrors'))),
- $lang_set,
- substr($_SESSION['user_lang'], 0, 2),
+ json_serialize($spellcheck_langs),
+ $lang,
$attrib['id'],
JS_OBJECT_NAME), 'foot');
- rcube_add_label('checking');
- }
+ $OUTPUT->add_label('checking');
+ $OUTPUT->set_env('spellcheck_langs', join(',', $editor_lang_set));
+ }
- $out .= "\n".'<iframe name="savetarget" src="program/blank.gif" style="width:0;height:0;visibility:hidden;"></iframe>';
+ $out .= "\n".'<iframe name="savetarget" src="program/blank.gif" style="width:0;height:0;border:none;visibility:hidden;"></iframe>';
return $out;
- }
+}
function rcmail_create_reply_body($body, $bodyIsHtml)
- {
- global $IMAP, $MESSAGE;
+{
+ global $IMAP, $MESSAGE, $OUTPUT;
if (! $bodyIsHtml)
{
- // soft-wrap message first
- $body = wordwrap($body, 75);
-
- // split body into single lines
- $a_lines = preg_split('/\r?\n/', $body);
-
- // add > to each line
- for($n=0; $n<sizeof($a_lines); $n++)
+ // try to remove the signature
+ if (($sp = strrpos($body, '-- ')) !== false && ($sp == 0 || $body{$sp-1} == "\n"))
{
- if (strpos($a_lines[$n], '>')===0)
- $a_lines[$n] = '>'.$a_lines[$n];
- else
- $a_lines[$n] = '> '.$a_lines[$n];
+ if ($body{$sp+3}==' ' || $body{$sp+3}=="\n" || $body{$sp+3}=="\r")
+ $body = substr($body, 0, max(0, $sp-1));
}
-
- $body = join("\n", $a_lines);
- // add title line
- $prefix = sprintf("\n\n\nOn %s, %s wrote:\n",
- $MESSAGE['headers']->date,
- $IMAP->decode_header($MESSAGE['headers']->from));
+ // soft-wrap message first
+ $body = rcmail_wrap_quoted($body, 75);
- // try to remove the signature
- if ($sp = strrstr($body, '-- '))
- {
- if ($body{$sp+3}==' ' || $body{$sp+3}=="\n" || $body{$sp+3}=="\r")
- $body = substr($body, 0, $sp-1);
+ $body = rtrim($body, "\r\n");
+
+ if ($body) {
+ // split body into single lines
+ $a_lines = preg_split('/\r?\n/', $body);
+
+ // add > to each line
+ for($n=0; $n<sizeof($a_lines); $n++) {
+ if (strpos($a_lines[$n], '>')===0)
+ $a_lines[$n] = '>'.$a_lines[$n];
+ else
+ $a_lines[$n] = '> '.$a_lines[$n];
+ }
+
+ $body = join("\n", $a_lines);
}
+
+ // add title line(s)
+ $prefix = wordwrap(sprintf("On %s, %s wrote:\n",
+ $MESSAGE->headers->date,
+ $MESSAGE->get_header('from')), 76);
+
$suffix = '';
}
else
{
- $prefix = sprintf("<br><br>On %s, %s wrote:<br><blockquote type=\"cite\" " .
- "style=\"padding-left: 5px; border-left: #1010ff 2px solid; " .
- "margin-left: 5px; width: 100%%\">",
- $MESSAGE['headers']->date,
- $IMAP->decode_header($MESSAGE['headers']->from));
-
- $suffix = "</blockquote>";
+ // save inline images to files
+ $cid_map = rcmail_write_inline_attachments($MESSAGE);
+ // set is_safe flag (we need this for html body washing)
+ rcmail_check_safe($MESSAGE);
+ // clean up html tags
+ $body = rcmail_wash_html($body, array('safe' => $MESSAGE->is_safe), $cid_map);
+
+ // build reply (quote content)
+ $prefix = sprintf("On %s, %s wrote:<br />\n",
+ $MESSAGE->headers->date,
+ htmlspecialchars(Q($MESSAGE->get_header('from'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset()));
+ $prefix .= '<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px; width:100%">';
+ $suffix = "</blockquote><p></p>";
}
return $prefix.$body.$suffix;
- }
+}
function rcmail_create_forward_body($body, $bodyIsHtml)
- {
- global $IMAP, $MESSAGE;
+{
+ global $IMAP, $MESSAGE, $OUTPUT;
- if (! $bodyIsHtml)
+ // add attachments
+ if (!isset($_SESSION['compose']['forward_attachments']) && is_array($MESSAGE->mime_parts))
+ $cid_map = rcmail_write_compose_attachments($MESSAGE, $bodyIsHtml);
+
+ if (!$bodyIsHtml)
{
- // soft-wrap message first
- $body = wordwrap($body, 80);
-
- $prefix = sprintf("\n\n\n-------- Original Message --------\nSubject: %s\nDate: %s\nFrom: %s\nTo: %s\n\n",
- $MESSAGE['subject'],
- $MESSAGE['headers']->date,
- $IMAP->decode_header($MESSAGE['headers']->from),
- $IMAP->decode_header($MESSAGE['headers']->to));
+ $prefix = "\n\n\n-------- Original Message --------\n";
+ $prefix .= 'Subject: ' . $MESSAGE->subject . "\n";
+ $prefix .= 'Date: ' . $MESSAGE->headers->date . "\n";
+ $prefix .= 'From: ' . $MESSAGE->get_header('from') . "\n";
+ $prefix .= 'To: ' . $MESSAGE->get_header('to') . "\n";
+ if ($MESSAGE->headers->replyto && $MESSAGE->headers->replyto != $MESSAGE->headers->from)
+ $prefix .= 'Reply-To: ' . $MESSAGE->get_header('replyto') . "\n";
+ $prefix .= "\n";
}
else
{
- $prefix = sprintf(
- "<br><br>-------- Original Message --------" .
+ // set is_safe flag (we need this for html body washing)
+ rcmail_check_safe($MESSAGE);
+ // clean up html tags
+ $body = rcmail_wash_html($body, array('safe' => $MESSAGE->is_safe), $cid_map);
+
+ $prefix = sprintf(
+ "<br><br>-------- Original Message --------" .
"<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tbody>" .
"<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Subject: </th><td>%s</td></tr>" .
"<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Date: </th><td>%s</td></tr>" .
"<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">From: </th><td>%s</td></tr>" .
- "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">To: </th><td>%s</td></tr>" .
- "</tbody></table><br>",
- Q($MESSAGE['subject']),
- Q($MESSAGE['headers']->date),
- Q($IMAP->decode_header($MESSAGE['headers']->from)),
- Q($IMAP->decode_header($MESSAGE['headers']->to)));
- }
+ "<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">To: </th><td>%s</td></tr>",
+ Q($MESSAGE->subject),
+ Q($MESSAGE->headers->date),
+ htmlspecialchars(Q($MESSAGE->get_header('from'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset(), true),
+ htmlspecialchars(Q($MESSAGE->get_header('to'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset(), true));
- // add attachments
- if (!isset($_SESSION['compose']['forward_attachments']) && is_array($MESSAGE['parts']))
- rcmail_write_compose_attachments($MESSAGE);
+ if ($MESSAGE->headers->replyto && $MESSAGE->headers->replyto != $MESSAGE->headers->from)
+ $prefix .= sprintf("<tr><th align=\"right\" nowrap=\"nowrap\" valign=\"baseline\">Reply-To: </th><td>%s</td></tr>",
+ htmlspecialchars(Q($MESSAGE->get_header('replyto'), 'replace'), ENT_COMPAT, $OUTPUT->get_charset(), true));
+
+ $prefix .= "</tbody></table><br>";
+ }
return $prefix.$body;
- }
+}
function rcmail_create_draft_body($body, $bodyIsHtml)
+{
+ global $MESSAGE, $OUTPUT;
+
+ /**
+ * add attachments
+ * sizeof($MESSAGE->mime_parts can be 1 - e.g. attachment, but no text!
+ */
+ if (!isset($_SESSION['compose']['forward_attachments'])
+ && is_array($MESSAGE->mime_parts)
+ && count($MESSAGE->mime_parts) > 0)
{
- global $IMAP, $MESSAGE;
-
- // add attachments
- if (!isset($_SESSION['compose']['forward_attachments']) &&
- is_array($MESSAGE['parts']) && sizeof($MESSAGE['parts'])>1)
- rcmail_write_compose_attachments($MESSAGE);
+ $cid_map = rcmail_write_compose_attachments($MESSAGE, $bodyIsHtml);
- return $body;
+ // replace cid with href in inline images links
+ if ($cid_map)
+ $body = str_replace(array_keys($cid_map), array_values($cid_map), $body);
}
+ return $body;
+}
-function rcmail_write_compose_attachments(&$message)
- {
- global $IMAP, $CONFIG;
-
- $temp_dir = unslashify($CONFIG['temp_dir']);
-
- if (!is_array($_SESSION['compose']['attachments']))
- $_SESSION['compose']['attachments'] = array();
- foreach ($message['parts'] as $pid => $part)
+function rcmail_write_compose_attachments(&$message, $bodyIsHtml)
+{
+ global $OUTPUT;
+
+ $cid_map = array();
+ $id = 0;
+
+ foreach ((array)$message->mime_parts as $pid => $part)
+ {
+ if (($part->ctype_primary != 'message' || !$bodyIsHtml) &&
+ ($part->disposition=='attachment' || $part->disposition=='inline' || $part->headers['content-id']
+ || (empty($part->disposition) && $part->filename)))
{
- if ($part->ctype_primary != 'message' && $part->ctype_primary != 'text' &&
- ($part->disposition=='attachment' || $part->disposition=='inline' || $part->headers['content-id'] ||
- (empty($part->disposition) && $part->filename)))
- {
- $tmp_path = tempnam($temp_dir, 'rcmAttmnt');
- if ($fp = fopen($tmp_path, 'w'))
- {
- fwrite($fp, $IMAP->get_message_part($message['UID'], $pid, $part->encoding));
- fclose($fp);
-
- $_SESSION['compose']['attachments'][] = array(
- 'mimetype' => $part->ctype_primary . '/' . $part->ctype_secondary,
- 'name' => $part->filename,
- 'path' => $tmp_path
- );
+ if ($attachment = rcmail_save_attachment($message, $pid)) {
+ $_SESSION['compose']['attachments'][$id] = $attachment;
+ if ($bodyIsHtml && $part->filename && $part->content_id) {
+ $cid_map['cid:'.$part->content_id] =
+ $OUTPUT->app->comm_path.'&_action=display-attachment&_file=rcmfile'.$id;
}
+ $id++;
}
}
+ }
- $_SESSION['compose']['forward_attachments'] = TRUE;
+ $_SESSION['compose']['forward_attachments'] = true;
+
+ return $cid_map;
+}
+
+
+function rcmail_write_inline_attachments(&$message)
+{
+ global $OUTPUT;
+
+ $cid_map = array();
+ $id = 0;
+
+ foreach ((array)$message->mime_parts as $pid => $part) {
+ if ($part->content_id && $part->filename) {
+ if ($attachment = rcmail_save_attachment($message, $pid)) {
+ $_SESSION['compose']['attachments'][$id] = $attachment;
+ $cid_map['cid:'.$part->content_id] =
+ $OUTPUT->app->comm_path.'&_action=display-attachment&_file=rcmfile'.$id;
+ $id++;
+ }
+ }
}
+
+ return $cid_map;
+}
+function rcmail_save_attachment(&$message, $pid)
+{
+ global $RCMAIL;
-function rcmail_compose_subject($attrib)
+ $temp_dir = unslashify($RCMAIL->config->get('temp_dir'));
+ $tmp_path = tempnam($temp_dir, 'rcmAttmnt');
+ $part = $message->mime_parts[$pid];
+
+ if ($fp = fopen($tmp_path, 'w'))
{
- global $CONFIG, $MESSAGE, $compose_mode;
+ $message->get_part_content($pid, $fp);
+ fclose($fp);
+
+ return array(
+ 'mimetype' => $part->ctype_primary . '/' . $part->ctype_secondary,
+ 'name' => $part->filename,
+ 'path' => $tmp_path,
+ 'content_id' => $part->content_id
+ );
+ }
+}
+
+
+function rcmail_compose_subject($attrib)
+{
+ global $MESSAGE, $compose_mode;
list($form_start, $form_end) = get_form_tags($attrib);
unset($attrib['form']);
$attrib['name'] = '_subject';
- $textfield = new textfield($attrib);
+ $attrib['spellcheck'] = 'true';
+ $textfield = new html_inputfield($attrib);
$subject = '';
// use subject from post
- if (isset($_POST['_subject']))
+ if (isset($_POST['_subject'])) {
$subject = get_input_value('_subject', RCUBE_INPUT_POST, TRUE);
-
+ }
// create a reply-subject
- else if ($compose_mode == RCUBE_COMPOSE_REPLY)
- {
- if (eregi('^re:', $MESSAGE['subject']))
- $subject = $MESSAGE['subject'];
+ else if ($compose_mode == RCUBE_COMPOSE_REPLY) {
+ if (eregi('^re:', $MESSAGE->subject))
+ $subject = $MESSAGE->subject;
else
- $subject = 'Re: '.$MESSAGE['subject'];
- }
-
+ $subject = 'Re: '.$MESSAGE->subject;
+ }
// create a forward-subject
- else if ($compose_mode == RCUBE_COMPOSE_FORWARD)
- {
- if (eregi('^fwd:', $MESSAGE['subject']))
- $subject = $MESSAGE['subject'];
+ else if ($compose_mode == RCUBE_COMPOSE_FORWARD) {
+ if (eregi('^fwd:', $MESSAGE->subject))
+ $subject = $MESSAGE->subject;
else
- $subject = 'Fwd: '.$MESSAGE['subject'];
- }
-
+ $subject = 'Fwd: '.$MESSAGE->subject;
+ }
// creeate a draft-subject
- else if ($compose_mode == RCUBE_COMPOSE_DRAFT)
- $subject = $MESSAGE['subject'];
+ else if ($compose_mode == RCUBE_COMPOSE_DRAFT) {
+ $subject = $MESSAGE->subject;
+ }
+ else if (!empty($_SESSION['compose']['param']['_subject'])) {
+ $subject = $_SESSION['compose']['param']['_subject'];
+ }
$out = $form_start ? "$form_start\n" : '';
$out .= $textfield->show($subject);
$out .= $form_end ? "\n$form_end" : '';
return $out;
- }
+}
function rcmail_compose_attachment_list($attrib)
- {
+{
global $OUTPUT, $CONFIG;
// add ID if not given
if (!$attrib['id'])
$attrib['id'] = 'rcmAttachmentList';
- // allow the following attributes to be added to the <ul> tag
- $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style'));
-
- $out = '<ul'. $attrib_str . ">\n";
+ $out = "\n";
if (is_array($_SESSION['compose']['attachments']))
- {
+ {
if ($attrib['deleteicon'])
- $button = sprintf('<img src="%s%s" alt="%s" border="0" style="padding-right:2px;vertical-align:middle" />',
- $CONFIG['skin_path'],
- $attrib['deleteicon'],
- rcube_label('delete'));
+ $button = html::img(array(
+ 'src' => $CONFIG['skin_path'] . $attrib['deleteicon'],
+ 'alt' => rcube_label('delete'),
+ 'style' => "padding-right:2px;vertical-align:middle"));
else
- $button = rcube_label('delete');
+ $button = Q(rcube_label('delete'));
foreach ($_SESSION['compose']['attachments'] as $id => $a_prop)
- $out .= sprintf('<li id="rcmfile%d"><a href="#delete" onclick="return %s.command(\'remove-attachment\',\'rcmfile%d\', this)" title="%s">%s</a>%s</li>',
- $id,
- JS_OBJECT_NAME,
- $id,
- Q(rcube_label('delete')),
- $button,
- Q($a_prop['name']));
+ {
+ if (empty($a_prop))
+ continue;
+
+ $out .= html::tag('li', array('id' => "rcmfile".$id),
+ html::a(array(
+ 'href' => "#delete",
+ 'title' => rcube_label('delete'),
+ 'onclick' => sprintf("return %s.command('remove-attachment','rcmfile%d', this)", JS_OBJECT_NAME, $id)),
+ $button) . Q($a_prop['name']));
}
+ }
$OUTPUT->add_gui_object('attachmentlist', $attrib['id']);
- $out .= '</ul>';
- return $out;
- }
-
+ return html::tag('ul', $attrib, $out, html::$common_attrib);
+}
function rcmail_compose_attachment_form($attrib)
- {
- global $OUTPUT, $SESS_HIDDEN_FIELD;
+{
+ global $OUTPUT;
// add ID if not given
if (!$attrib['id'])
$attrib['id'] = 'rcmUploadbox';
- // allow the following attributes to be added to the <div> tag
- $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style'));
- $input_field = rcmail_compose_attachment_field(array());
- $label_send = rcube_label('upload');
- $label_close = rcube_label('close');
- $js_instance = JS_OBJECT_NAME;
-
- $out = <<<EOF
-<div$attrib_str>
-<form action="./" method="post" enctype="multipart/form-data">
-$SESS_HIDDEN_FIELD
-$input_field<br />
-<input type="button" value="$label_close" class="button" onclick="document.getElementById('$attrib[id]').style.visibility='hidden'" />
-<input type="button" value="$label_send" class="button" onclick="$js_instance.command('send-attachment', this.form)" />
-</form>
-</div>
-EOF;
-
+ $button = new html_inputfield(array('type' => 'button', 'class' => 'button'));
+
+ $out = html::div($attrib,
+ $OUTPUT->form_tag(array('name' => 'form', 'method' => 'post', 'enctype' => 'multipart/form-data'),
+ html::div(null, rcmail_compose_attachment_field(array())) .
+ html::div('hint', rcube_label(array('name' => 'maxuploadsize', 'vars' => array('size' => show_bytes(parse_bytes(ini_get('upload_max_filesize'))))))) .
+ html::div('buttons',
+ $button->show(rcube_label('close'), array('onclick' => "document.getElementById('$attrib[id]').style.visibility='hidden'")) . ' ' .
+ $button->show(rcube_label('upload'), array('onclick' => JS_OBJECT_NAME . ".command('send-attachment', this.form)"))
+ )
+ )
+ );
$OUTPUT->add_gui_object('uploadbox', $attrib['id']);
return $out;
- }
+}
function rcmail_compose_attachment_field($attrib)
- {
- // allow the following attributes to be added to the <input> tag
- $attrib_str = create_attrib_string($attrib, array('id', 'class', 'style', 'size'));
-
- $out = '<input type="file" name="_attachments[]"'. $attrib_str . " />";
- return $out;
- }
+{
+ $attrib['type'] = 'file';
+ $attrib['name'] = '_attachments[]';
+ $field = new html_inputfield($attrib);
+ return $field->show();
+}
function rcmail_priority_selector($attrib)
- {
+{
+ global $MESSAGE;
+
list($form_start, $form_end) = get_form_tags($attrib);
unset($attrib['form']);
$attrib['name'] = '_priority';
- $selector = new select($attrib);
+ $selector = new html_select($attrib);
$selector->add(array(rcube_label('lowest'),
rcube_label('low'),
rcube_label('highest')),
array(5, 4, 0, 2, 1));
- $sel = isset($_POST['_priority']) ? $_POST['_priority'] : 0;
+ $sel = isset($_POST['_priority']) ? $_POST['_priority'] : intval($MESSAGE->headers->priority);
$out = $form_start ? "$form_start\n" : '';
$out .= $selector->show($sel);
$out .= $form_end ? "\n$form_end" : '';
return $out;
- }
+}
function rcmail_receipt_checkbox($attrib)
- {
+{
+ global $MESSAGE, $compose_mode;
+
list($form_start, $form_end) = get_form_tags($attrib);
unset($attrib['form']);
$attrib['name'] = '_receipt';
$attrib['value'] = '1';
- $checkbox = new checkbox($attrib);
+ $checkbox = new html_checkbox($attrib);
$out = $form_start ? "$form_start\n" : '';
- $out .= $checkbox->show(0);
+ $out .= $checkbox->show(
+ $compose_mode == RCUBE_COMPOSE_DRAFT && $MESSAGE->headers->mdn_to ? 1 : 0);
$out .= $form_end ? "\n$form_end" : '';
return $out;
- }
+}
function rcmail_editor_selector($attrib)
'plain' => 'plaintoggle'
);
- // determine whether HTML or plain text should be checked
- if ($CONFIG['htmleditor'])
- $useHtml = true;
- else
- $useHtml = false;
+ // determine whether HTML or plain text should be checked
+ $useHtml = $CONFIG['htmleditor'] ? true : false;
- if ($compose_mode == RCUBE_COMPOSE_REPLY ||
- $compose_mode == RCUBE_COMPOSE_FORWARD ||
- $compose_mode == RCUBE_COMPOSE_DRAFT)
- {
- $hasHtml = rcmail_has_html_part($MESSAGE['parts']);
- $useHtml = ($hasHtml && $CONFIG['htmleditor']);
- }
+ if ($compose_mode)
+ $useHtml = ($useHtml && $MESSAGE->has_html_part());
+
+ $editorid = empty($attrib['editorid']) ? 'rcmComposeMessage' : $attrib['editorid'];
$selector = '';
-
- $attrib['name'] = '_editorSelect';
- $attrib['onchange'] = 'return rcmail_toggle_editor(this)';
- foreach ($choices as $value => $text)
- {
- $checked = '';
- if ((($value == 'html') && $useHtml) ||
- (($value != 'html') && !$useHtml))
- $attrib['checked'] = 'true';
- else
- unset($attrib['checked']);
+ $chosenvalue = $useHtml ? 'html' : 'plain';
+ $radio = new html_radiobutton(array('name' => '_editorSelect',
+ 'onclick' => "return rcmail_toggle_editor(this.value=='html', '$editorid', '_is_html')"));
+ foreach ($choices as $value => $text)
+ {
$attrib['id'] = '_' . $value;
- $rb = new radiobutton($attrib);
- $selector .= sprintf("%s<label for=\"%s\">%s</label>",
- $rb->show($value),
- $attrib['id'],
- rcube_label($text));
- }
+ $attrib['value'] = $value;
+ $selector .= $radio->show($chosenvalue, $attrib) . html::label($attrib['id'], Q(rcube_label($text)));
+ }
return $selector;
}
+function rcmail_store_target_selection($attrib)
+{
+ $attrib['name'] = '_store_target';
+ $select = rcmail_mailbox_select(array_merge($attrib, array('noselection' => '- '.rcube_label('dontsave').' -')));
+ return $select->show(rcmail::get_instance()->config->get('sent_mbox'), $attrib);
+}
+
+
function get_form_tags($attrib)
- {
- global $CONFIG, $OUTPUT, $MESSAGE_FORM, $SESS_HIDDEN_FIELD;
+{
+ global $RCMAIL, $MESSAGE_FORM;
$form_start = '';
if (!strlen($MESSAGE_FORM))
- {
- $hiddenfields = new hiddenfield(array('name' => '_task', 'value' => $GLOBALS['_task']));
+ {
+ $hiddenfields = new html_hiddenfield(array('name' => '_task', 'value' => $RCMAIL->task));
$hiddenfields->add(array('name' => '_action', 'value' => 'send'));
- $form_start = empty($attrib['form']) ? '<form name="form" action="./" method="post">' : '';
- $form_start .= "\n$SESS_HIDDEN_FIELD\n";
+ $form_start = empty($attrib['form']) ? $RCMAIL->output->form_tag(array('name' => "form", 'method' => "post")) : '';
$form_start .= $hiddenfields->show();
- }
+ }
$form_end = (strlen($MESSAGE_FORM) && !strlen($attrib['form'])) ? '</form>' : '';
$form_name = !empty($attrib['form']) ? $attrib['form'] : 'form';
if (!strlen($MESSAGE_FORM))
- $OUTPUT->add_gui_object('messageform', $form_name);
+ $RCMAIL->output->add_gui_object('messageform', $form_name);
$MESSAGE_FORM = $form_name;
- return array($form_start, $form_end);
- }
+ return array($form_start, $form_end);
+}
// register UI objects
'composeattachmentform' => 'rcmail_compose_attachment_form',
'composeattachment' => 'rcmail_compose_attachment_field',
'priorityselector' => 'rcmail_priority_selector',
+ 'editorselector' => 'rcmail_editor_selector',
'receiptcheckbox' => 'rcmail_receipt_checkbox',
+ 'storetarget' => 'rcmail_store_target_selection',
));
+$OUTPUT->send('compose');
-/****** get contacts for this user and add them to client scripts ********/
-
-require_once('include/rcube_contacts.inc');
-
-$CONTACTS = new rcube_contacts($DB, $_SESSION['user_id']);
-$CONTACTS->set_pagesize(1000);
-
-if ($result = $CONTACTS->list_records())
- {
- $a_contacts = array();
- while ($sql_arr = $result->iterate())
- if ($sql_arr['email'])
- $a_contacts[] = format_email_recipient($sql_arr['email'], JQ($sql_arr['name']));
-
- $OUTPUT->set_env('contacts', $a_contacts);
- }
-
-
-parse_template('compose');
?>