| | |
| | | |
| | | require_once('lib/html2text.inc'); |
| | | require_once('lib/enriched.inc'); |
| | | require_once('lib/utf8.inc'); |
| | | require_once('lib/utf7.inc'); |
| | | |
| | | |
| | | $EMAIL_ADDRESS_PATTERN = '/([a-z0-9][a-z0-9\-\.\+\_]*@[a-z0-9]([a-z0-9\-][.]?)*[a-z0-9]\\.[a-z]{2,5})/i'; |
| | |
| | | static $s_added_script = FALSE; |
| | | static $a_mailboxes; |
| | | |
| | | // $mboxlist_start = rcube_timer(); |
| | | |
| | | $type = $attrib['type'] ? $attrib['type'] : 'ul'; |
| | | $add_attrib = $type=='select' ? array('style', 'class', 'id', 'name', 'onchange') : |
| | | array('style', 'class', 'id'); |
| | |
| | | $a_folders = $IMAP->list_mailboxes(); |
| | | $delimiter = $IMAP->get_hierarchy_delimiter(); |
| | | $a_mailboxes = array(); |
| | | |
| | | |
| | | // rcube_print_time($mboxlist_start, 'list_mailboxes()'); |
| | | |
| | | foreach ($a_folders as $folder) |
| | | rcmail_build_folder_tree($a_mailboxes, $folder, $delimiter); |
| | | } |
| | |
| | | $out .= rcmail_render_folder_tree_select($a_mailboxes, $special_mailboxes, $mbox, $attrib['maxlength']); |
| | | else |
| | | $out .= rcmail_render_folder_tree_html($a_mailboxes, $special_mailboxes, $mbox, $attrib['maxlength']); |
| | | |
| | | // rcube_print_time($mboxlist_start, 'render_folder_tree()'); |
| | | |
| | | |
| | | if ($type=='ul') |
| | |
| | | if (!isset($arrFolders[$currentFolder])) |
| | | { |
| | | $arrFolders[$currentFolder] = array('id' => $path, |
| | | 'name' => $currentFolder, |
| | | 'name' => rcube_charset_convert($currentFolder, 'UTF-7'), |
| | | 'folders' => array()); |
| | | } |
| | | |
| | |
| | | // return html for a structured list <ul> for the mailbox tree |
| | | function rcmail_render_folder_tree_html(&$arrFolders, &$special, &$mbox, $maxlength, $nestLevel=0) |
| | | { |
| | | global $JS_OBJECT_NAME, $IMAP, $CONFIG; |
| | | global $JS_OBJECT_NAME, $IMAP, $CONFIG, $OUTPUT; |
| | | |
| | | $idx = 0; |
| | | $out = ''; |
| | | foreach ($arrFolders as $key => $folder) |
| | | { |
| | | $zebra_class = ($nestLevel*$idx)%2 ? 'even' : 'odd'; |
| | | $title = ''; |
| | | |
| | | $folder_lc = strtolower($folder['id']); |
| | | if (in_array($folder_lc, $special)) |
| | | $foldername = rcube_label($folder_lc); |
| | | else |
| | | { |
| | | $foldername = UTF7DecodeString($folder['name']); |
| | | $foldername = $folder['name']; |
| | | |
| | | // shorten the folder name to a given length |
| | | if ($maxlength && $maxlength>1) |
| | | $foldername = abbrevate_string($foldername, $maxlength); |
| | | { |
| | | $fname = abbrevate_string($foldername, $maxlength); |
| | | if ($fname != $foldername) |
| | | $title = ' title="'.rep_specialchars_output($foldername, 'html', 'all').'"'; |
| | | $foldername = $fname; |
| | | } |
| | | } |
| | | |
| | | // add unread message count display |
| | | if ($unread_count = $IMAP->messagecount($folder['id'], 'UNSEEN', ($folder['id']==$mbox))) |
| | | if ($unread_count = $IMAP->messagecount($folder['id'], 'RECENT', ($folder['id']==$mbox))) |
| | | $foldername .= sprintf(' (%d)', $unread_count); |
| | | |
| | | // make folder name safe for ids and class names |
| | |
| | | else if ($folder['id']==$CONFIG['junk_mbox']) |
| | | $class_name = 'junk'; |
| | | |
| | | $out .= sprintf('<li id="rcmbx%s" class="mailbox %s %s%s%s"><a href="./#%s" onclick="return %s.command(\'list\',\'%s\')" onmouseup="return %s.mbox_mouse_up(\'%s\')">%s</a>', |
| | | $out .= sprintf('<li id="rcmbx%s" class="mailbox %s %s%s%s"><a href="./#%s" onclick="return %s.command(\'list\',\'%s\')" onmouseup="return %s.mbox_mouse_up(\'%s\')"%s>%s</a>', |
| | | $folder_css, |
| | | $class_name, |
| | | $zebra_class, |
| | |
| | | $folder['id'], |
| | | $JS_OBJECT_NAME, |
| | | $folder['id'], |
| | | $title, |
| | | rep_specialchars_output($foldername, 'html', 'all')); |
| | | |
| | | if (!empty($folder['folders'])) |
| | |
| | | // return html for a flat list <select> for the mailbox tree |
| | | function rcmail_render_folder_tree_select(&$arrFolders, &$special, &$mbox, $maxlength, $nestLevel=0) |
| | | { |
| | | global $IMAP; |
| | | global $IMAP, $OUTPUT; |
| | | |
| | | $idx = 0; |
| | | $out = ''; |
| | |
| | | $foldername = rcube_label($folder_lc); |
| | | else |
| | | { |
| | | $foldername = UTF7DecodeString($folder['name']); |
| | | $foldername = $folder['name']; |
| | | |
| | | // shorten the folder name to a given length |
| | | if ($maxlength && $maxlength>1) |
| | |
| | | |
| | | // make sort links |
| | | $sort = ''; |
| | | if (in_array($col, $a_sort_cols) && (!empty($attrib['sortdescbutton']) || !empty($attrib['sortascbutton']))) |
| | | if ($IMAP->get_capability('sort') && in_array($col, $a_sort_cols)) |
| | | { |
| | | $sort = ' '; |
| | | // have buttons configured |
| | | if (!empty($attrib['sortdescbutton']) || !empty($attrib['sortascbutton'])) |
| | | { |
| | | $sort = ' '; |
| | | |
| | | // asc link |
| | | if (!empty($attrib['sortascbutton'])) |
| | | { |
| | | $sort .= rcube_button(array('command' => 'sort', |
| | | 'prop' => $col.'_ASC', |
| | | 'image' => $attrib['sortascbutton'], |
| | | 'title' => 'sortasc')); |
| | | } |
| | | // asc link |
| | | if (!empty($attrib['sortascbutton'])) |
| | | { |
| | | $sort .= rcube_button(array('command' => 'sort', |
| | | 'prop' => $col.'_ASC', |
| | | 'image' => $attrib['sortascbutton'], |
| | | 'align' => 'absmiddle', |
| | | 'title' => 'sortasc')); |
| | | } |
| | | |
| | | // desc link |
| | | if (!empty($attrib['sortdescbutton'])) |
| | | // desc link |
| | | if (!empty($attrib['sortdescbutton'])) |
| | | { |
| | | $sort .= rcube_button(array('command' => 'sort', |
| | | 'prop' => $col.'_DESC', |
| | | 'image' => $attrib['sortdescbutton'], |
| | | 'align' => 'absmiddle', |
| | | 'title' => 'sortdesc')); |
| | | } |
| | | } |
| | | // just add a link tag to the header |
| | | else |
| | | { |
| | | $sort .= rcube_button(array('command' => 'sort', |
| | | 'prop' => $col.'_DESC', |
| | | 'image' => $attrib['sortdescbutton'], |
| | | 'title' => 'sortdesc')); |
| | | $col_name = sprintf('<a href="./#sort" onclick="return %s.command(\'sort\',\'%s\',this)" title="%s">%s</a>', |
| | | $JS_OBJECT_NAME, |
| | | $col, |
| | | rcube_label('sortby'), |
| | | $col_name); |
| | | } |
| | | } |
| | | |
| | |
| | | if ($attrib['attachmenticon'] && preg_match("/multipart\/m/i", $header->ctype)) |
| | | $attach_icon = $attrib['attachmenticon']; |
| | | |
| | | $out .= sprintf('<tr id="rcmrow%d" class="message'.($header->seen ? '' : ' unread').' '.$zebra_class.'">'."\n", $header->uid); |
| | | $out .= sprintf('<tr id="rcmrow%d" class="message%s%s %s">'."\n", |
| | | $header->uid, |
| | | $header->seen ? '' : ' unread', |
| | | $header->deleted ? ' deleted' : '', |
| | | $zebra_class); |
| | | |
| | | $out .= sprintf("<td class=\"icon\">%s</td>\n", $message_icon ? sprintf($image_tag, $skin_path, $message_icon, '') : ''); |
| | | |
| | | // format each col |
| | |
| | | $message_count = $IMAP->messagecount(); |
| | | |
| | | // set client env |
| | | $javascript .= sprintf("%s.gui_object('mailcontframe', '%s');\n", $JS_OBJECT_NAME, 'mailcontframe'); |
| | | $javascript .= sprintf("%s.gui_object('messagelist', '%s');\n", $JS_OBJECT_NAME, $attrib['id']); |
| | | $javascript .= sprintf("%s.set_env('messagecount', %d);\n", $JS_OBJECT_NAME, $message_count); |
| | | $javascript .= sprintf("%s.set_env('current_page', %d);\n", $JS_OBJECT_NAME, $IMAP->list_page); |
| | |
| | | |
| | | $a_msg_flags['unread'] = $header->seen ? 0 : 1; |
| | | $a_msg_flags['replied'] = $header->answered ? 1 : 0; |
| | | |
| | | if ($header->deleted) |
| | | $a_msg_flags['deleted'] = 1; |
| | | |
| | | $commands .= sprintf("this.add_message_row(%s, %s, %s, %b);\n", |
| | | $commands .= sprintf("this.add_message_row(%s, %s, %s, %b, %b);\n", |
| | | $header->uid, |
| | | array2js($a_msg_cols), |
| | | array2js($a_msg_flags), |
| | | preg_match("/multipart\/m/i", $header->ctype)); |
| | | preg_match("/multipart\/m/i", $header->ctype), |
| | | $insert_top); |
| | | } |
| | | |
| | | return $commands; |
| | |
| | | |
| | | if (isset($MESSAGE['index'])) |
| | | { |
| | | $a_msg_index = $IMAP->message_index(); |
| | | return rcube_label(array('name' => 'messagenrof', |
| | | 'vars' => array('nr' => $MESSAGE['index']+1, |
| | | 'count' => sizeof($a_msg_index)))); |
| | | 'count' => $IMAP->messagecount()))); |
| | | } |
| | | |
| | | |
| | | $start_msg = ($IMAP->list_page-1) * $IMAP->page_size + 1; |
| | | $max = $IMAP->messagecount(); |
| | | |
| | |
| | | } |
| | | |
| | | // part is file/attachment |
| | | else if ($mail_part->disposition=='attachment' || $mail_part->disposition=='inline' || $mail_part->headers['content-id']) |
| | | else if ($mail_part->disposition=='attachment' || $mail_part->disposition=='inline' || $mail_part->headers['content-id'] || |
| | | (empty($mail_part->disposition) && ($mail_part->d_parameters['filename'] || $mail_part->d_parameters['name']))) |
| | | { |
| | | if ($message_ctype_secondary=='related' && $mail_part->headers['content-id']) |
| | | $sa_inline_objects[] = array('filename' => $mail_part->d_parameters['filename'], |
| | | $sa_inline_objects[] = array('filename' => rcube_imap::decode_mime_string($mail_part->d_parameters['filename']), |
| | | 'mimetype' => strtolower("$primary_type/$secondary_type"), |
| | | 'part_id' => $mail_part->mime_id, |
| | | 'content_id' => preg_replace(array('/^</', '/>$/'), '', $mail_part->headers['content-id'])); |
| | | |
| | | else if ($mail_part->d_parameters['filename']) |
| | | $a_attachments[] = array('filename' => $mail_part->d_parameters['filename'], |
| | | $a_attachments[] = array('filename' => rcube_imap::decode_mime_string($mail_part->d_parameters['filename']), |
| | | 'encoding' => strtolower($mail_part->headers['content-transfer-encoding']), |
| | | 'mimetype' => strtolower("$primary_type/$secondary_type"), |
| | | 'part_id' => $mail_part->mime_id, |
| | |
| | | 'content' => $mail_part->body */); |
| | | |
| | | else if ($mail_part->ctype_parameters['name']) |
| | | $a_attachments[] = array('filename' => $mail_part->ctype_parameters['name'], |
| | | $a_attachments[] = array('filename' => rcube_imap::decode_mime_string($mail_part->ctype_parameters['name']), |
| | | 'encoding' => strtolower($mail_part->headers['content-transfer-encoding']), |
| | | 'mimetype' => strtolower("$primary_type/$secondary_type"), |
| | | 'part_id' => $mail_part->mime_id, |
| | |
| | | // modify a HTML message that it can be displayed inside a HTML page |
| | | function rcmail_mod_html_body($body, $container_id) |
| | | { |
| | | // remove any null-byte characters before parsing |
| | | $body = preg_replace('/\x00/', '', $body); |
| | | |
| | | $last_style_pos = 0; |
| | | $body_lc = strtolower($body); |
| | | |
| | |
| | | // get source code of a specific message and cache it |
| | | function rcmail_message_source($uid) |
| | | { |
| | | global $IMAP, $DB; |
| | | global $IMAP, $DB, $CONFIG; |
| | | |
| | | // get message ID if uid is given |
| | | $headers = $IMAP->get_headers($uid); |
| | | $message_id = $headers->messageID; |
| | | // get message ID if uid is given |
| | | $cache_key = $IMAP->mailbox.'.msg'; |
| | | $cached = $IMAP->get_cached_message($cache_key, $uid, FALSE); |
| | | |
| | | // get cached message source |
| | | $msg_source = rcube_read_cache($message_id); |
| | | // message is cached in database |
| | | if ($cached && !empty($cached->body)) |
| | | return $cached->body; |
| | | |
| | | // get message from server and cache it |
| | | if (!$msg_source) |
| | | if (!$cached) |
| | | $headers = $IMAP->get_headers($uid); |
| | | else |
| | | $headers = &$cached; |
| | | |
| | | // create unique identifier based on message_id |
| | | if (!empty($headers->messageID)) |
| | | $message_id = md5($headers->messageID); |
| | | else |
| | | $message_id = md5($headers->uid.'@'.$_SESSION['imap_host']); |
| | | |
| | | $temp_dir = $CONFIG['temp_dir'].(!eregi('\/$', $CONFIG['temp_dir']) ? '/' : ''); |
| | | $cache_dir = $temp_dir.$_SESSION['client_id']; |
| | | $cache_path = $cache_dir.'/'.$message_id; |
| | | |
| | | // message is cached in temp dir |
| | | if ($CONFIG['enable_caching'] && is_dir($cache_dir) && is_file($cache_path)) |
| | | { |
| | | $msg_source = $IMAP->get_raw_body($uid); |
| | | rcube_write_cache($message_id, $msg_source, TRUE); |
| | | if ($fp = fopen($cache_path, 'r')) |
| | | { |
| | | $msg_source = fread($fp, filesize($cache_path)); |
| | | fclose($fp); |
| | | return $msg_source; |
| | | } |
| | | } |
| | | |
| | | |
| | | // get message from server |
| | | $msg_source = $IMAP->get_raw_body($uid); |
| | | |
| | | // return message source without caching |
| | | if (!$CONFIG['enable_caching']) |
| | | return $msg_source; |
| | | |
| | | |
| | | // let's cache the message body within the database |
| | | if ($cached && ($CONFIG['db_max_length'] -300) > $headers->size) |
| | | { |
| | | $DB->query("UPDATE ".get_table_name('messages')." |
| | | SET body=? |
| | | WHERE user_id=? |
| | | AND cache_key=? |
| | | AND uid=?", |
| | | $msg_source, |
| | | $_SESSION['user_id'], |
| | | $cache_key, |
| | | $uid); |
| | | |
| | | return $msg_source; |
| | | } |
| | | |
| | | |
| | | // create dir for caching |
| | | if (!is_dir($cache_dir)) |
| | | $dir = mkdir($cache_dir); |
| | | else |
| | | $dir = true; |
| | | |
| | | // attempt to write a file with the message body |
| | | if ($dir && ($fp = fopen($cache_path, 'w'))) |
| | | { |
| | | fwrite($fp, $msg_source); |
| | | fclose($fp); |
| | | } |
| | | else |
| | | { |
| | | raise_error(array('code' => 403, 'type' => 'php', 'line' => __LINE__, 'file' => __FILE__, |
| | | 'message' => "Failed to write to temp dir"), TRUE, FALSE); |
| | | } |
| | | |
| | | return $msg_source; |
| | |
| | | // remove attachment files from temp dir |
| | | if (is_array($_SESSION['compose']['attachments'])) |
| | | foreach ($_SESSION['compose']['attachments'] as $attachment) |
| | | unlink($attachment['path']); |
| | | @unlink($attachment['path']); |
| | | |
| | | // kill temp dir |
| | | if ($_SESSION['compose']['temp_dir']) |
| | | rmdir($_SESSION['compose']['temp_dir']); |
| | | @rmdir($_SESSION['compose']['temp_dir']); |
| | | |
| | | unset($_SESSION['compose']); |
| | | } |