./0000755000175000017500000000000011702026734011067 5ustar mathieumathieu./README0000644000175000017500000000470511702026733011754 0ustar mathieumathieuWhat is IMP? ============ :Last update: $Date: 2007/12/20 13:59:19 $ :Revision: $Revision: 2.21.10.2 $ :Contact: imp@lists.horde.org .. contents:: Contents .. section-numbering:: IMP is the Internet Messaging Program, a PHP-based webmail system and a component of the Horde project. IMP, once installed, accesses mail over IMAP thus requiring little to no special preparations on the server on which mail is stored. IMP offers most of the features users have come to expect from their conventional mail programs, including attachments, spell-check, address books, multiple folders, and multiple-language support. This software is OSI Certified Open Source Software. OSI Certified is a certification mark of the `Open Source Initiative`_. .. _`Open Source Initiative`: http://www.opensource.org/ Obtaining IMP ------------- Further information on IMP and the latest version can be obtained at: http://www.horde.org/imp/ Documentation ------------- The following documentation is available in the IMP distribution: :README_: This file :COPYING_: Copyright and license information :`docs/CHANGES`_: Changes by release :`docs/CREDITS`_: Project developers :`docs/INSTALL`_: Installation instructions and notes :`docs/TODO`_: Development TODO list :`docs/UPGRADING`_: Pointers on upgrading from previous IMP versions Installation ------------ Instructions for installing IMP can be found in the file INSTALL_ in the ``docs/`` directory of the IMP distribution. Assistance ---------- If you encounter problems with IMP, help is available! The Horde Frequently Asked Questions List (FAQ), available on the Web at http://www.horde.org/faq/ The Horde Project runs a number of mailing lists, for individual applications and for issues relating to the project as a whole. Information, archives, and subscription information can be found at http://www.horde.org/mail/ Lastly, Horde developers, contributors and users also make occasional appearances on IRC, on the channel #horde on the freenode Network (irc.freenode.net). Licensing --------- For licensing and copyright information, please see the file COPYING_ in the IMP distribution. Thanks, The IMP team .. _README: ?f=README.html .. _COPYING: http://www.horde.org/licenses/gpl.php .. _docs/CHANGES: ?f=CHANGES.html .. _docs/CREDITS: ?f=CREDITS.html .. _INSTALL: .. _docs/INSTALL: ?f=INSTALL.html .. _docs/TODO: ?f=TODO.html .. _docs/UPGRADING: ?f=UPGRADING.html ./rss.php0000644000175000017500000000764011702026734012416 0ustar mathieumathieu * @since IMP 4.2 */ $authentication = 'none'; @define('AUTH_HANDLER', true); @define('IMP_BASE', dirname(__FILE__)); require_once IMP_BASE . '/lib/base.php'; require_once IMP_BASE . '/lib/Mailbox.php'; require_once IMP_BASE . '/lib/Template.php'; $auth = &Auth::singleton($conf['auth']['driver']); if ((!Auth::getAuth() || !IMP::checkAuthentication(true)) && (!isset($_SERVER['PHP_AUTH_USER']) || !$auth->authenticate($_SERVER['PHP_AUTH_USER'], array('password' => isset($_SERVER['PHP_AUTH_PW']) ? $_SERVER['PHP_AUTH_PW'] : null)))) { header('WWW-Authenticate: Basic realm="IMP RSS Interface"'); header('HTTP/1.0 401 Unauthorized'); echo '401 Unauthorized'; exit; } $items = array(); $mailbox = 'INBOX'; $new_mail = $request = $searchid = false; $unseen_num = 0; /* Determine the mailbox that was requested and if only new mail should be * displayed. Default to new mail in INBOX. */ $request = IMP::getPathInfo(); if (!empty($request)) { $request_parts = explode('/-/', $request); if (!empty($request_parts[0])) { $ns_info = IMP::getNamespace(); $mailbox = IMP::appendNamespace(preg_replace('/\//', $ns_info['delimiter'], trim($request_parts[0], '/'))); /* Make sure mailbox exists or else exit immediately. */ require_once IMP_BASE . '/lib/Folder.php'; $imp_folder = &IMP_Folder::singleton(); if (!$imp_folder->exists($mailbox)) { exit; } } $new_mail = (isset($request_parts[1]) && ($request_parts[1] === 'new')); } /* Obtain some information describing the mailbox state. */ $imp_mailbox = &IMP_Mailbox::singleton($mailbox); $total_num = $imp_mailbox->getMessageCount(); $unseen_num = ($imp_search->isVINBOXFolder($mailbox)) ? $imp_mailbox->getMessageCount() : $imp_mailbox->unseenMessages(true); require_once IMP_BASE . '/lib/IMAP/Search.php'; $query = new IMP_IMAP_Search_Query(); if ($new_mail) { $query->seen(false); } $ids = $imp_search->runSearchQuery($query, IMP::serverString($mailbox), SORTDATE, 1); if (!empty($ids)) { require_once IMP_BASE . '/lib/IMAP/MessageCache.php'; $msg_cache = &IMP_MessageCache::singleton(); $overview = $msg_cache->retrieve($mailbox, array_slice($ids, 0, 20), 1 | 64); foreach ($overview as $ob) { $items[] = array_map('htmlspecialchars', array( 'title' => isset($ob->subject) ? MIME::decode($ob->subject) : _("[No Subject]"), 'pubDate' => isset($ob->date) ? date('r', strtotime($ob->date)) : 0, 'description' => isset($ob->preview) ? $ob->preview : '', 'url' => Horde::applicationURL(IMP::generateIMPUrl('message.php', $mailbox, $ob->uid, $mailbox), true, -1), 'fromAddr' => isset($ob->from) ? $ob->from : '', 'toAddr' => isset($ob->to) ? $ob->to : '', )); } } $description = ($total_num == 0) ? _("No Messages") : sprintf(_("%u of %u messages in %s unread."), $unseen_num, $total_num, IMP::getLabel($mailbox)); $t = new IMP_Template(); $t->set('charset', NLS::getCharset()); $t->set('xsl', $registry->get('themesuri') . '/feed-rss.xsl'); $t->set('pubDate', htmlspecialchars(date('r'))); $t->set('desc', htmlspecialchars($description)); $t->set('title', htmlspecialchars($registry->get('name') . ' - ' . IMP::getLabel($mailbox))); $t->set('items', $items, true); $t->set('url', htmlspecialchars(Horde::applicationURL(IMP::generateIMPUrl('message.php', $mailbox), true, -1))); $t->set('rss_url', htmlspecialchars(Horde::applicationUrl('rss.php', true, -1))); $browser->downloadHeaders('mailbox.rss', 'text/xml', true); echo $t->fetch(IMP_TEMPLATES . '/rss/mailbox.rss'); ./folders.php0000644000175000017500000004671411702026733013251 0ustar mathieumathieu * @author Chuck Hagenbuch * @author Michael Slusarz */ /** * Utility function to return a url for the various images. */ function _image($name, $alt, $type) { static $cache = array(); $val = ($type == 'folder') ? $name['value'] : $name; if (!empty($cache[$type][$val])) { return $cache[$type][$val]; } if ($type == 'folder') { $cache[$type][$val] = Horde::img($name['icon'], $name['alt'], 'style="vertical-align:middle"', $name['icondir']); } else { $cache[$type][$val] = Horde::img('tree/' . $name, $alt, 'style="vertical-align:middle"', $GLOBALS['registry']->getImageDir('horde')); } return $cache[$type][$val]; } require_once dirname(__FILE__) . '/lib/base.php'; require_once IMP_BASE . '/lib/Folder.php'; require_once IMP_BASE . '/lib/IMAP/Tree.php'; require_once IMP_BASE . '/lib/Template.php'; require_once 'Horde/Help.php'; Horde::addScriptFile('prototype.js', 'imp', true); Horde::addScriptFile('folders.js', 'imp', true); /* Redirect back to the mailbox if folder use is not allowed. */ if (!$conf['user']['allow_folders']) { $notification->push(_("Folder use is not enabled."), 'horde.error'); header('Location: ' . Horde::applicationUrl('mailbox.php', true)); exit; } /* Decide whether or not to show all the unsubscribed folders */ $subscribe = $prefs->getValue('subscribe'); $showAll = (!$subscribe || $_SESSION['imp']['showunsub']); /* Get the base URL for this page. */ $folders_url = Horde::selfUrl(); /* Initialize the IMP_Folder object. */ $imp_folder = &IMP_Folder::singleton(); /* Initialize the IMP_Tree object. */ $imptree = &IMP_Tree::singleton(); $folder_list = Util::getFormData('folder_list', array()); /* Set the URL to refresh the page to in the META tag */ $refresh_url = Horde::applicationUrl('folders.php', true); $refresh_time = $prefs->getValue('refresh_time'); /* Run through the action handlers. */ $actionID = Util::getFormData('actionID'); if ($actionID) { $result = IMP::checkRequestToken('imp.folders', Util::getFormData('folders_token')); if (is_a($result, 'PEAR_Error')) { $notification->push($result); $actionID = null; } } switch ($actionID) { case 'collapse_folder': case 'expand_folder': $folder = Util::getFormData('folder'); if (!empty($folder)) { ($actionID == 'expand_folder') ? $imptree->expand($folder) : $imptree->collapse($folder); } break; case 'expand_all_folders': $imptree->expandAll(); break; case 'collapse_all_folders': $imptree->collapseAll(); break; case 'rebuild_tree': $imp_folder->clearFlistCache(); $imptree->init(); break; case 'expunge_folder': if (!empty($folder_list)) { require_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); $imp_message->expungeMailbox(array_flip($folder_list)); } break; case 'delete_folder': if (!empty($folder_list)) { $imp_folder->delete($folder_list); } break; case 'delete_search_query': $queryid = Util::getFormData('queryid'); if (!empty($queryid)) { $imp_search->deleteSearchQuery($queryid); } break; case 'download_folder': case 'download_folder_zip': if (!empty($folder_list)) { $mbox = $imp_folder->generateMbox($folder_list, false); if ($actionID == 'download_folder') { $browser->downloadHeaders($folder_list[0] . '.mbox', null, false, strlen($mbox)); } else { require_once 'Horde/Compress.php'; $horde_compress = &Horde_Compress::singleton('zip'); $mbox = $horde_compress->compress(array(array('data' => $mbox, 'name' => $folder_list[0] . '.mbox'))); $browser->downloadHeaders($folder_list[0] . '.zip', 'application/zip', false, strlen($mbox)); } echo $mbox; exit; } break; case 'import_mbox': $import_folder = Util::getFormData('import_folder'); if (!empty($import_folder)) { $res = Browser::wasFileUploaded('mbox_upload', _("mailbox file")); if (!is_a($res, 'PEAR_Error')) { $res = $imp_folder->importMbox($import_folder, $_FILES['mbox_upload']['tmp_name']); $mbox_name = basename(Util::dispelMagicQuotes($_FILES['mbox_upload']['name'])); if ($res === false) { $notification->push(sprintf(_("There was an error importing %s."), $mbox_name), 'horde.error'); } else { $notification->push(sprintf(_("Imported %d messages from %s."), $res, $mbox_name), 'horde.success'); } } else { $notification->push($res); } $actionID = null; } else { $refresh_time = null; } break; case 'create_folder': $new_mailbox = Util::getFormData('new_mailbox'); if (!empty($new_mailbox)) { $new_mailbox = String::convertCharset($new_mailbox, NLS::getCharset(), 'UTF7-IMAP'); $new_mailbox = $imptree->createMailboxName(array_shift($folder_list), $new_mailbox); if (is_a($new_mailbox, 'PEAR_Error')) { $notification->push($new_mailbox); } else { $imp_folder->create($new_mailbox, $subscribe); } } break; case 'rename_folder': // $old_names already in UTF7-IMAP $old_names = array_map('trim', explode("\n", Util::getFormData('old_names'))); $new_names = array_map('trim', explode("\n", Util::getFormData('new_names'))); $iMax = count($new_names); if (!empty($new_names) && !empty($old_names) && ($iMax == count($old_names))) { for ($i = 0; $i < $iMax; ++$i) { $old_ns = IMP::getNamespace($old_names[$i]); $new = trim($new_names[$i], $old_ns['delimiter']); /* If this is a personal namespace, then anything goes as far as * the input. Just append the personal namespace to it. For * others, add the */ if (($old_ns['type'] == 'personal') || ($old_ns['name'] && (stripos($new_names[$i], $old_ns['name']) !== 0))) { $new = $old_ns['name'] . $new; } $imp_folder->rename($old_names[$i], String::convertCharset($new, NLS::getCharset(), 'UTF7-IMAP')); } } break; case 'subscribe_folder': case 'unsubscribe_folder': if (!empty($folder_list)) { if ($actionID == 'subscribe_folder') { $imp_folder->subscribe($folder_list); } else { $imp_folder->unsubscribe($folder_list); } } else { $notification->push(_("No folders were specified"), 'horde.message'); } break; case 'toggle_subscribed_view': if ($subscribe) { $showAll = !$showAll; $_SESSION['imp']['showunsub'] = $showAll; $imptree->showUnsubscribed($showAll); } break; case 'poll_folder': case 'nopoll_folder': if (!empty($folder_list)) { ($actionID == 'poll_folder') ? $imptree->addPollList($folder_list) : $imptree->removePollList($folder_list); $imp_search->createVINBOXFolder(); } break; case 'folders_empty_mailbox': if (!empty($folder_list)) { include_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); $imp_message->emptyMailbox($folder_list); } break; case 'mark_folder_seen': case 'mark_folder_unseen': if (!empty($folder_list)) { include_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); $imp_message->flagAllInMailbox(array('seen'), $folder_list, ($actionID == 'mark_folder_seen')); } break; case 'login_compose': $open_compose_window = IMP::openComposeWin(); break; case 'delete_folder_confirm': case 'folders_empty_mailbox_confirm': if (!empty($folder_list)) { $loop = array(); $rowct = 0; foreach ($folder_list as $val) { if (!empty($conf['server']['fixed_folders']) && in_array(IMP::folderPref($val, false), $conf['server']['fixed_folders'])) { $notification->push(sprintf(_("The folder \"%s\" may not be deleted."), IMP::displayFolder($val)), 'horde.error'); continue; } $data = array( 'class' => (++$rowct % 2) ? 'item0' : 'item1', 'name' => htmlspecialchars(IMP::displayFolder($val)), 'val' => htmlspecialchars($val) ); $loop[] = $data; } if (!count($loop)) { break; } $title = _("Folder Actions - Confirmation"); require IMP_TEMPLATES . '/common-header.inc'; IMP::menu(); $template = new IMP_Template(); $template->setOption('gettext', true); $template->set('delete', ($actionID == 'delete_folder_confirm')); $template->set('empty', ($actionID == 'folders_empty_mailbox_confirm')); $template->set('folders', $loop); $template->set('folders_url', $folders_url); $template->set('folders_token', IMP::getRequestToken('imp.folders')); echo $template->fetch(IMP_TEMPLATES . '/folders/folders_confirm.html'); require $registry->get('templates', 'horde') . '/common-footer.inc'; exit; } break; case 'mbox_size': if (!empty($folder_list)) { $title = _("Folder Sizes"); Horde::addScriptFile('tables.js', 'imp', true); require IMP_TEMPLATES . '/common-header.inc'; IMP::menu(); IMP::status(); IMP::quota(); $loop = array(); $rowct = $sum = 0; require_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); foreach ($folder_list as $val) { $size = $imp_message->sizeMailbox($val, false); $data = array( 'class' => (++$rowct % 2) ? 'item0' : 'item1', 'name' => htmlspecialchars(IMP::displayFolder($val)), 'size' => sprintf(_("%.2fMB"), $size / (1024 * 1024)), 'sort' => $size ); $sum += $size; $loop[] = $data; } $template = new IMP_Template(); $template->setOption('gettext', true); $template->set('folders', $loop); $template->set('folders_url', $folders_url); $template->set('folders_sum', sprintf(_("%.2fMB"), $sum / (1024 * 1024))); echo $template->fetch(IMP_TEMPLATES . '/folders/folders_size.html'); require $registry->get('templates', 'horde') . '/common-footer.inc'; exit; } break; } /* Token to use in requests */ $folders_token = IMP::getRequestToken('imp.folders'); $folders_url = Util::addParameter($folders_url, 'folders_token', $folders_token); $title = _("Folder Navigator"); require IMP_TEMPLATES . '/common-header.inc'; IMP::menu(); IMP::status(); IMP::quota(); if ($_SESSION['imp']['file_upload'] && ($actionID == 'import_mbox')) { /* Prepare import template. */ $i_template = new IMP_Template(); $i_template->setOption('gettext', true); $i_template->set('folders_url', $folders_url); $i_template->set('import_folder', $folder_list[0]); $i_template->set('folder_name', htmlspecialchars(String::convertCharset($folder_list[0], 'UTF7-IMAP'), ENT_COMPAT, NLS::getCharset())); $i_template->set('folders_token', $folders_token); echo $i_template->fetch(IMP_TEMPLATES . '/folders/import.html'); require $registry->get('templates', 'horde') . '/common-footer.inc'; exit; } /* Build the folder tree. */ list($raw_rows, $newmsgs, $displayNames) = $imptree->build(); $fullNames = array(); foreach ($raw_rows as $key => $val) { $tmp = IMP::displayFolder($val['value'], true); if ($tmp != $displayNames[$key]) { $fullNames[$key] = $tmp; } } require_once IMP_BASE . '/lib/JSON.php'; IMP::addInlineScript(array( 'var displayNames = ' . IMP_Serialize_JSON::encode(String::convertCharset($displayNames, NLS::getCharset()), 'utf-8'), 'var fullNames = ' . IMP_Serialize_JSON::encode(String::convertCharset($fullNames, NLS::getCharset()), 'utf-8'), )); /* Prepare the header template. */ $refresh_title = _("Reload View"); $head_template = new IMP_Template(); $head_template->setOption('gettext', true); $head_template->set('title', $refresh_title); $head_template->set('folders_url', $folders_url); $refresh_ak = Horde::getAccessKey($refresh_title); $refresh_title = Horde::stripAccessKey($refresh_title); if (!empty($refresh_ak)) { $refresh_title .= sprintf(_(" (Accesskey %s)"), $refresh_ak); } $head_template->set('refresh', Horde::link($folders_url, $refresh_title, '', '', '', $refresh_title, $refresh_ak) . Horde::img('reload.png', _("Refresh"), null, $registry->getImageDir('horde')) . ''); $head_template->set('folders_token', $folders_token); echo $head_template->fetch(IMP_TEMPLATES . '/folders/head.html'); /* Prepare the actions template. */ $a_template = new IMP_Template(); $a_template->setOption('gettext', true); $a_template->set('id', 0); $a_template->set('javascript', $browser->hasFeature('javascript')); if ($a_template->get('javascript')) { $a_template->set('check_ak', Horde::getAccessKeyAndTitle(_("Check _All/None"))); } else { $a_template->set('go', _("Go")); } $a_template->set('create_folder', !empty($GLOBALS['conf']['hooks']['permsdenied']) || (IMP::hasPermission('create_folders') && IMP::hasPermission('max_folders'))); if ($prefs->getValue('subscribe')) { $a_template->set('subscribe', true); $subToggleText = ($showAll) ? _("Hide Unsubscribed") : _("Show Unsubscribed"); $a_template->set('toggle_subscribe', Horde::widget(Util::addParameter($folders_url, array('actionID' => 'toggle_subscribed_view', 'folders_token' => $folders_token)), $subToggleText, 'widget', '', '', $subToggleText, true)); } $a_template->set('nav_poll', !$prefs->isLocked('nav_poll') && !$prefs->getValue('nav_poll_all')); $a_template->set('notrash', !$prefs->getValue('use_trash')); $a_template->set('file_upload', $_SESSION['imp']['file_upload']); $a_template->set('help', Help::link('imp', 'folder-options')); $a_template->set('expand_all', Horde::widget(Util::addParameter($folders_url, array('actionID' => 'expand_all_folders', 'folders_token' => $folders_token)), _("Expand All Folders"), 'widget', '', '', _("Expand All"), true)); $a_template->set('collapse_all', Horde::widget(Util::addParameter($folders_url, array('actionID' => 'collapse_all_folders', 'folders_token' => $folders_token)), _("Collapse All Folders"), 'widget', '', '', _("Collapse All"), true)); echo $a_template->fetch(IMP_TEMPLATES . '/folders/actions.html'); /* Check to see if user wants new mail notification */ if (!empty($newmsgs)) { /* Reopen the mailbox R/W so we ensure the 'recent' flags are cleared from * the current mailbox. */ $imp_imap = &IMP_IMAP::singleton(); foreach ($newmsgs as $mbox => $nm) { $imp_imap->changeMbox($mbox); } if ($prefs->getValue('nav_popup')) { $notification->push(IMP::getNewMessagePopup($newmsgs), 'javascript'); } if (class_exists('Notification_Listener_audio') && ($sound = $prefs->getValue('nav_audio'))) { $notification->push($registry->getImageDir() . '/audio/' . $sound, 'audio'); } } /* Add some further information to the $raw_rows array. */ $name_url = Util::addParameter(Horde::applicationUrl('mailbox.php'), 'no_newmail_popup', 1); $rowct = 0; $morembox = $rows = array(); foreach ($raw_rows as $val) { $val['nocheckbox'] = !empty($val['vfolder']); if (!empty($val['vfolder']) && ($val['value'] != IMPTREE_VFOLDER_KEY)) { $val['delvfolder'] = Horde::link($imp_search->deleteURL($val['value']), _("Delete Virtual Folder")) . _("Delete") . ''; $val['editvfolder'] = Horde::link($imp_search->editURL($val['value']), _("Edit Virtual Folder")) . _("Edit") . ''; } $val['class'] = (++$rowct % 2) ? 'item0' : 'item1'; /* Highlight line differently if folder/mailbox is unsubscribed. */ if ($showAll && $subscribe && !$val['container'] && !$imptree->isSubscribed($val['base_elt'])) { $val['class'] .= ' folderunsub'; } if (!$val['container']) { if (!empty($val['unseen'])) { $val['name'] = '' . $val['name'] . ''; } $val['name'] = Horde::link(Util::addParameter($name_url, 'mailbox', $val['value']), sprintf(_("View messages in %s"), ($val['vfolder']) ? $val['base_elt']['l'] : $val['display'])) . $val['name'] . ''; } $dir2 = _image($val, null, 'folder'); if ($val['children']) { $dir = Util::addParameter($folders_url, 'folder', $val['value']); if ($imptree->isOpen($val['base_elt'])) { $dir = Util::addParameter($dir, 'actionID', 'collapse_folder'); if ($val['value'] == 'INBOX') { $minus_img = 'minustop.png'; } else { $minus_img = ($val['peek']) ? 'minus.png' : 'minusbottom.png'; } if (!empty($GLOBALS['nls']['rtl'][$GLOBALS['language']])) { $minus_img = 'rev-' . $minus_img; } $dir = Horde::link($dir, _("Collapse Folder")) . _image($minus_img, _("Collapse"), 'tree') . "$dir2"; } else { $dir = Util::addParameter($dir, 'actionID', 'expand_folder'); if ($val['value'] == 'INBOX') { $plus_img = 'plustop.png'; } else { $plus_img = ($val['peek']) ? 'plus.png' : 'plusbottom.png'; } if (!empty($GLOBALS['nls']['rtl'][$GLOBALS['language']])) { $plus_img = 'rev-' . $plus_img; } $dir = Horde::link($dir, _("Expand Folder")) . _image($plus_img, _("Expand"), 'tree') . "$dir2"; } } else { if ($val['value'] == 'INBOX') { $join_img = ($val['peek']) ? 'joinbottom-down.png' : 'blank.png'; } else { $join_img = ($val['peek']) ? 'join.png' : 'joinbottom.png'; } if (!empty($GLOBALS['nls']['rtl'][$GLOBALS['language']])) { $join_img = 'rev-' . $join_img; } $dir = _image($join_img, '', 'tree') . $dir2; } $line = ''; $morembox[$val['level']] = $val['peek']; for ($i = 0; $i < $val['level']; $i++) { $line .= _image(($morembox[$i]) ? (empty($GLOBALS['nls']['rtl'][$GLOBALS['language']]) ? 'line.png' : 'rev-line.png') : 'blank.png', '', 'tree'); } $val['line'] = $line . $dir; $rows[] = $val; } /* Render the rows now. */ $template = new IMP_Template(); $template->setOption('gettext', true); $template->set('rows', $rows); echo $template->fetch(IMP_TEMPLATES . '/folders/folders.html'); if (count($rows) > 10) { $a_template->set('id', 1); echo $a_template->fetch(IMP_TEMPLATES . '/folders/actions.html'); } /* No need for extra template - close out the tags here. */ echo ''; if (!empty($open_compose_window)) { if (!isset($options)) { $options = array(); } Horde::addScriptFile('popup.js', 'imp', true); IMP::addInlineScript(IMP::popupIMPString('compose.php', array_merge(array('popup' => 1), $options, IMP::getComposeArgs()))); } /* BC check. */ if (class_exists('Notification_Listener_audio')) { $notification->notify(array('listeners' => 'audio')); } require $registry->get('templates', 'horde') . '/common-footer.inc'; ./mailbox.php0000644000175000017500000011163611702026734013243 0ustar mathieumathieu */ function _outputSummaries($msgs) { static $template; if (!isset($template)) { $template = new IMP_Template(); $template->setOption('gettext', true); // Some browsers have trouble with hidden overflow in table cells // but not in divs. if ($GLOBALS['browser']->hasQuirk('no_hidden_overflow_tables')) { $template->set('overflow_begin', '
'); $template->set('overflow_end', '
'); } } $template->set('messages', $msgs, true); echo $template->fetch(IMP_TEMPLATES . '/mailbox/mailbox.html'); } require_once dirname(__FILE__) . '/lib/base.php'; require_once IMP_BASE . '/lib/Mailbox.php'; require_once IMP_BASE . '/lib/Template.php'; /* Call the mailbox redirection hook, if requested. */ if (!empty($conf['hooks']['mbox_redirect'])) { $redirect = Horde::callHook('_imp_hook_mbox_redirect', array($imp_mbox['mailbox']), 'imp'); if (!empty($redirect) && !is_a($redirect, 'PEAR_Error')) { $redirect = Horde::applicationUrl($redirect, true); header('Location: ' . $redirect); exit; } } /* There is a chance that this page is loaded directly via message.php. If so, * don't re-include config files, and the following variables will already be * set: $actionID, $start. */ $mailbox_url = Horde::applicationUrl('mailbox.php'); $mailbox_imp_url = IMP::generateIMPUrl('mailbox.php', $imp_mbox['mailbox']); if (!isset($from_message_page)) { $actionID = Util::getFormData('actionID'); $start = Util::getFormData('start'); } /* Get form data and make sure it's the type that we're expecting. */ $targetMbox = Util::getFormData('targetMbox'); $newMbox = Util::getFormData('newMbox'); if (!is_array(($indices = Util::getFormData('indices')))) { $indices = array($indices); } /* Is this a search mailbox? */ $search_mbox = $imp_search->isSearchMbox(); $vfolder = $imp_search->isVFolder(); /* Set the current time zone. */ NLS::setTimeZone(); /* Cache the charset. */ $charset = NLS::getCharset(); /* Initialize the user's identities. */ require_once 'Horde/Identity.php'; $identity = &Identity::singleton(array('imp', 'imp')); $do_filter = $open_compose_window = false; /* Run through the action handlers */ if ($actionID && $actionID != 'message_missing') { $result = IMP::checkRequestToken('imp.mailbox', Util::getFormData('mailbox_token')); if (is_a($result, 'PEAR_Error')) { $notification->push($result); $actionID = null; } } switch ($actionID) { case 'change_sort': IMP::setSort(Util::getFormData('sortby'), Util::getFormData('sortdir')); break; case 'blacklist': case 'whitelist': require_once IMP_BASE . '/lib/Filter.php'; $imp_filter = new IMP_Filter(); ($actionID == 'blacklist') ? $imp_filter->blacklistMessage($indices) : $imp_filter->whitelistMessage($indices); break; case 'spam_report': case 'notspam_report': $action = str_replace('_report', '', $actionID); require_once IMP_BASE . '/lib/Spam.php'; $imp_spam = new IMP_Spam(); $imp_spam->reportSpam($indices, $action); break; case 'message_missing': $notification->push(_("Requested message not found."), 'horde.error'); break; case 'fwd_digest': if (!empty($indices)) { $options = array('fwddigest' => serialize($indices), 'actionID' => 'fwd_digest'); $open_compose_window = IMP::openComposeWin($options); } break; case 'delete_messages': case 'undelete_messages': if (!empty($indices)) { require_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); ($actionID == 'delete_messages') ? $imp_message->delete($indices) : $imp_message->undelete($indices); } break; case 'move_messages': case 'copy_messages': if (!empty($indices) && !empty($targetMbox)) { require_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); $action = ($actionID == 'move_messages') ? IMP_MESSAGE_MOVE : IMP_MESSAGE_COPY; if (!empty($newMbox) && ($newMbox == 1)) { $targetMbox = String::convertCharset(IMP::folderPref($targetMbox, true), $charset, 'UTF7-IMAP'); $newMbox = true; } else { $newMbox = false; } $imp_message->copy($targetMbox, $action, $indices, $newMbox); } break; case 'flag_messages': $flag = Util::getPost('flag'); if ($flag && !empty($indices)) { $set = true; if ($flag[0] == '0') { $flag = substr($flag, 1); $set = false; } require_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); $imp_message->flag(array($flag), $indices, $set); } break; case 'hide_deleted': $prefs->setValue('delhide', !$prefs->getValue('delhide')); IMP::hideDeletedMsgs(true); $imp_mailbox = &IMP_Mailbox::singleton($imp_mbox['mailbox']); $imp_mailbox->updateMailbox(IMP_MAILBOX_UPDATE); break; case 'expunge_mailbox': require_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); $imp_message->expungeMailbox(array($imp_mbox['mailbox'] => 1)); break; case 'filter': $do_filter = true; break; case 'empty_mailbox': require_once IMP_BASE . '/lib/Message.php'; $imp_message = &IMP_Message::singleton(); $imp_message->emptyMailbox(array($imp_mbox['mailbox'])); break; case 'view_messages': require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); $redirect = Util::addParameter(IMP::generateIMPUrl('thread.php', $imp_mbox['mailbox'], null, null, false), array('mode' => 'msgview', 'msglist' => $cacheSess->storeOid($indices)), null, false); header('Location: ' . $redirect); exit; case 'login_compose': $open_compose_window = IMP::openComposeWin(); break; } /* Token to use in requests */ $mailbox_token = IMP::getRequestToken('imp.mailbox'); /* Deal with filter options. */ if ($_SESSION['imp']['filteravail']) { /* Only allow filter on display for INBOX. */ if (($imp_mbox['mailbox'] == 'INBOX') && $prefs->getValue('filter_on_display')) { $do_filter = true; } elseif (($imp_mbox['mailbox'] == 'INBOX') || ($prefs->getValue('filter_any_mailbox') && !$search_mbox)) { $filter_url = Util::addParameter($mailbox_imp_url, array('actionID' => 'filter', 'mailbox_token' => $mailbox_token)); } } /* Run filters now. */ if ($do_filter) { require_once IMP_BASE . '/lib/Filter.php'; $imp_filter = new IMP_Filter(); $imp_filter->filter($imp_mbox['mailbox']); } /* Generate folder options list. */ if ($conf['user']['allow_folders']) { $folder_options = IMP::flistSelect(_("Messages to"), true, array(), null, true, true, false, true); } /* Build the list of messages in the mailbox. */ $imp_mailbox = &IMP_Mailbox::singleton($imp_mbox['mailbox']); $pageOb = $imp_mailbox->buildMailboxPage(Util::getFormData('page'), $start); $show_preview = ($conf['mailbox']['show_preview'] && $prefs->getValue('preview_enabled')); $mailboxOverview = $imp_mailbox->getMailboxArray(range($pageOb->begin, $pageOb->end), $show_preview); /* Determine sorting preferences. */ $sortpref = IMP::getSort(); /* If search results are empty, return to the search page if this is * not a virtual folder. */ if ($search_mbox && ($pageOb->msgcount == 0) && !$vfolder) { $notification->push(_("No messages matched your search."), 'horde.warning'); header('Location: ' . Util::addParameter(Horde::applicationUrl('search.php', true), array('no_match' => 1, 'mailbox' => $imp_mbox['mailbox']), null, false)); exit; } /* Cache this value since we use it alot on this page. */ $graphicsdir = $registry->getImageDir('horde'); /* Determine if we are going to show the Hide/Purge Deleted Message links. */ if (!$prefs->getValue('use_trash') && !$GLOBALS['imp_search']->isVINBOXFolder()) { $showdelete = array('hide' => ($sortpref['by'] != SORTTHREAD), 'purge' => true); } else { $showdelete = array('hide' => false, 'purge' => false); } if ($showdelete['hide'] && !$prefs->isLocked('delhide')) { if ($prefs->getValue('delhide')) { $deleted_prompt = _("Show Deleted"); } else { $deleted_prompt = _("Hide Deleted"); } } /* Generate mailbox summary string. */ if (!empty($pageOb->end)) { $msg_count = sprintf(_("%d to %d of %d Messages"), $pageOb->begin, $pageOb->end, $pageOb->msgcount); } else { $msg_count = sprintf(_("No Messages")); } /* Generate paging links. */ if ($pageOb->pagecount) { $rtl = !empty($nls['rtl'][$language]); if ($pageOb->page == 1) { $pages_first = Horde::img($rtl ? 'nav/last-grey.png' : 'nav/first-grey.png', null, null, $graphicsdir); $pages_prev = Horde::img($rtl ? 'nav/right-grey.png' : 'nav/left-grey.png', null, null, $graphicsdir); } else { $first_url = Util::addParameter($mailbox_imp_url, 'page', 1); $pages_first = Horde::link($first_url, _("First Page")) . Horde::img($rtl ? 'nav/last.png' : 'nav/first.png', $rtl ? '>>' : '<<', null, $graphicsdir) . ''; $prev_url = Util::addParameter($mailbox_imp_url, 'page', $pageOb->page - 1); $pages_prev = Horde::link($prev_url, _("Previous Page")) . Horde::img($rtl ? 'nav/right.png' : 'nav/left.png', $rtl ? '>' : '<', null, $graphicsdir) . ''; } if ($pageOb->page == $pageOb->pagecount) { $pages_last = Horde::img($rtl ? 'nav/first-grey.png' : 'nav/last-grey.png', null, null, $graphicsdir); $pages_next = Horde::img($rtl ? 'nav/left-grey.png' : 'nav/right-grey.png', null, null, $graphicsdir); } else { $next_url = Util::addParameter($mailbox_imp_url, 'page', $pageOb->page + 1); $pages_next = Horde::link($next_url, _("Next Page")) . Horde::img($rtl ? 'nav/left.png' : 'nav/right.png', $rtl ? '<' : '>', null, $graphicsdir) . ''; $last_url = Util::addParameter($mailbox_imp_url, 'page', $pageOb->pagecount); $pages_last = Horde::link($last_url, _("Last Page")) . Horde::img($rtl ? 'nav/first.png' : 'nav/last.png', $rtl ? '<<' : '>>', null, $graphicsdir) . ''; } } /* Generate RSS link. */ if ($imp_mbox['mailbox'] == 'INBOX') { $rss_box = ''; } else { $rss_box = $imp_mbox['mailbox']; $ns_info = IMP::getNamespace($imp_mbox['mailbox']); if ($ns_info !== null) { if (!empty($ns_info['name']) && $ns_info['type'] == 'personal' && substr($imp_mbox['mailbox'], 0, strlen($ns_info['name'])) == $ns_info['name']) { $rss_box = substr($imp_mbox['mailbox'], strlen($ns_info['name'])); } $rss_box = str_replace(rawurlencode($ns_info['delimiter']), '/', rawurlencode($ns_info['delimiter'] . $rss_box)); } else { $rss_box = null; } } if (!is_null($rss_box)) { $alternate_url = Horde::applicationUrl('rss.php') . $rss_box; } /* If user wants the mailbox to be refreshed, set time here. */ $refresh_time = $prefs->getValue('refresh_time'); $refresh_url = Util::addParameter($mailbox_imp_url, 'page', $pageOb->page); if (isset($filter_url)) { $filter_url = Util::addParameter($filter_url, 'page', $pageOb->page); } /* Set the folder for the sort links. */ $sort_url = Util::addParameter($mailbox_imp_url, 'sortdir', ($sortpref['dir']) ? 0 : 1); /* Determine if we are showing previews. */ $preview_tooltip = ($show_preview) ? $prefs->getValue('preview_show_tooltip') : false; if ($preview_tooltip) { Horde::addScriptFile('tooltip.js', 'horde', true); } else { $strip_preview = $prefs->getValue('preview_strip_nl'); } $vtrash = null; if ($search_mbox) { $unread = 0; if ($imp_search->isVINBOXFolder()) { $unread = $imp_mailbox->getMessageCount(); } elseif ($imp_search->isVTrashFolder()) { $vtrash = $imp_search->createSearchID($search_mbox); } } else { $unread = $imp_mailbox->unseenMessages(true); } /* Get the recent message count. */ $newmsgs = 0; if ($prefs->getValue('nav_popup') || $prefs->getValue('nav_audio')) { $newmsgs = $imp_mailbox->newMessages(true); } $pagetitle = $rawtitle = $title = IMP::getLabel($imp_mbox['mailbox']); $refresh_title = sprintf(_("_Refresh %s"), $title); $refresh_ak = Horde::getAccessKey($refresh_title); $refresh_title = Horde::stripAccessKey($refresh_title); if (!empty($refresh_ak)) { $refresh_title .= sprintf(_(" (Accesskey %s)"), $refresh_ak); } if ($unread) { $pagetitle = $title .= ' (' . $unread . ')'; } if ($vfolder || $search_mbox) { $query_text = htmlspecialchars(wordwrap($imp_search->searchQueryText($imp_search->searchMboxID()))); if ($vfolder) { $pagetitle .= ' [' . Horde::linkTooltip('#', $query_text, '', '', '', $query_text) . _("Virtual Folder") . ']'; $title .= ' [' . _("Virtual Folder") . ']'; } else { $pagetitle = Horde::linkTooltip('#', $query_text, '', '', '', $query_text) . $pagetitle . ''; } } else { $pagetitle = $title = htmlspecialchars($title); } Horde::addScriptFile('prototype.js', 'imp', true); Horde::addScriptFile('effects.js', 'imp', true); Horde::addScriptFile('redbox.js', 'imp', true); Horde::addScriptFile('mailbox.js', 'imp', true); /* Handle compose_popup. */ if (!empty($open_compose_window)) { if (!isset($options)) { $options = array(); } Horde::addScriptFile('popup.js', 'imp', true); $notification->push(IMP::popupIMPString('compose.php', array_merge(array('popup' => 1), $options, IMP::getComposeArgs())), 'javascript'); } if (!empty($newmsgs)) { /* Reopen the mailbox R/W so we ensure the 'recent' flags are cleared * from the current mailbox. */ $imp_imap = &IMP_IMAP::singleton(); $imp_imap->changeMbox($imp_mbox['mailbox']); if (!Util::getFormData('no_newmail_popup')) { /* Newmail audio. */ if (class_exists('Notification_Listener_audio') && ($sound = $prefs->getValue('nav_audio'))) { $notification->push($registry->getImageDir() . '/audio/' . $sound, 'audio'); } /* Newmail alert. */ if ($prefs->getValue('nav_popup')) { $notification->push(IMP::getNewMessagePopup($newmsgs), 'javascript'); } } } require IMP_TEMPLATES . '/common-header.inc'; IMP::menu(); IMP::status(); IMP::quota(); /* Prepare the header template. */ $hdr_template = new IMP_Template(); $hdr_template->set('title', $title); $hdr_template->set('pagetitle', $pagetitle); $hdr_template->set('refresh', Horde::link($refresh_url, $refresh_title, '', '', '', '', $refresh_ak) . Horde::img('reload.png', _("Reload"), '', $graphicsdir) . ''); if (isset($filter_url)) { $hdr_template->set('filter', Horde::link($filter_url, sprintf(_("Apply Filters to %s"), $rawtitle)) . Horde::img('filters.png', _("Apply Filters")) . ''); } $hdr_template->set('search', false); if (!$search_mbox) { $hdr_template->set('search', Horde::link(Util::addParameter(Horde::applicationUrl('search.php'), 'search_mailbox', $imp_mbox['mailbox']), sprintf(_("Search %s"), $rawtitle)) . Horde::img('search.png', _("Search"), '', $graphicsdir) . ''); $hdr_template->set('empty', Horde::link(Util::addParameter($mailbox_imp_url, array('actionID' => 'empty_mailbox', 'mailbox' => $imp_mbox['mailbox'], 'mailbox_token' => $mailbox_token)), _("Empty folder"), '', '', "imp_confirm(this.href, '" . addslashes(_("Are you sure you wish to delete all mail in this folder?")) . "'); return false;") . Horde::img('empty_spam.png', _("Empty folder")) . ''); } else { if ($imp_search->isEditableVFolder()) { $edit_search = sprintf(_("Edit Virtual Folder Definition for %s"), htmlspecialchars($rawtitle)); $hdr_template->set('delete_vfolder', Horde::link($imp_search->deleteURL(), sprintf(_("Delete Virtual Folder Definition for %s"), htmlspecialchars($rawtitle)), null, null, "if (confirm('" . addslashes(_("Are you sure you want to delete this Virtual Folder Definition?")) . "')) { return true; } else { return false; }") . Horde::img('delete.png', sprintf(_("Delete Virtual Folder Definition for %s"), $rawtitle), '', $graphicsdir) . ''); } else { if (!$vfolder) { $edit_search = _("Edit Search Query"); } } if (isset($edit_search)) { $hdr_template->set('search', Horde::link($imp_search->editURL(), $edit_search) . Horde::img('edit.png', $edit_search, '', $graphicsdir) . ''); } } $hdr_template->set('msgcount', $msg_count); if ($pageOb->pagecount > 1) { $hdr_template->set('page', sprintf(_("Page %d of %d"), $pageOb->page, $pageOb->pagecount)); } // TODO: Remove for Horde 4.0 $hdr_template->set('ie6_or_less', $GLOBALS['browser']->isBrowser('msie') && $GLOBALS['browser']->getMajor() < 7); echo $hdr_template->fetch(IMP_TEMPLATES . '/mailbox/header.html'); /* If no messages, exit immediately. */ if (empty($pageOb->end)) { if ($pageOb->anymsg && isset($deleted_prompt)) { /* Show 'Show Deleted' prompt if mailbox has no viewable message but has hidden, deleted messages. */ $del_template = new IMP_Template(); $del_template->set('hide', Horde::widget(Util::addParameter($refresh_url, array('actionID' => 'hide_deleted', 'mailbox_token' => $mailbox_token)), $deleted_prompt, 'widget', '', '', $deleted_prompt)); $del_template->set('purge', Horde::widget(Util::addParameter($refresh_url, array('actionID' => 'expunge_mailbox', 'mailbox_token' => $mailbox_token)), _("Purge Deleted"), 'widget', '', '', _("Pur_ge Deleted"))); echo $del_template->fetch(IMP_TEMPLATES . '/mailbox/actions_deleted.html'); } $empty_template = new IMP_Template(); $empty_template->setOption('gettext', true); echo $empty_template->fetch(IMP_TEMPLATES . '/mailbox/empty_mailbox.html'); require $registry->get('templates', 'horde') . '/common-footer.inc'; exit; } /* Display the navbar and actions if there is at least 1 message in mailbox. */ if ($pageOb->msgcount != 0) { $use_trash = $prefs->getValue('use_trash'); /* Prepare the navbar template. */ $n_template = new IMP_Template(); $n_template->setOption('gettext', true); $n_template->set('id', 1); $n_template->set('sessiontag', Util::formInput()); $n_template->set('use_folders', $conf['user']['allow_folders']); $n_template->set('use_pop', $_SESSION['imp']['base_protocol'] == 'pop3'); $n_template->set('use_trash', $use_trash); $n_template->set('imp_all', IMP_ALL); $n_template->set('imp_unseen', IMP_UNSEEN); $n_template->set('imp_flagged', IMP_FLAGGED); $n_template->set('imp_answered', IMP_ANSWERED); $n_template->set('imp_deleted', IMP_DELETED); $n_template->set('imp_draft', IMP_DRAFT); $n_template->set('imp_personal', IMP_PERSONAL); if ($n_template->get('use_folders')) { $n_template->set('move', Horde::widget('#', _("Move to folder"), 'widget', '', "transfer('move_messages', 1); return false;", _("Move"), true)); $n_template->set('copy', Horde::widget('#', _("Copy to folder"), 'widget', '', "transfer('copy_messages', 1); return false;", _("Copy"), true)); $n_template->set('folder_options', $folder_options); } $n_template->set('mailbox_url', $mailbox_url); $n_template->set('mailbox', htmlspecialchars($imp_mbox['mailbox'])); if ($pageOb->pagecount > 1) { $n_template->set('multiple_page', true); $n_template->set('pages_first', $pages_first); $n_template->set('pages_prev', $pages_prev); $n_template->set('pages_next', $pages_next); $n_template->set('pages_last', $pages_last); $n_template->set('page_val', htmlspecialchars($pageOb->page)); $n_template->set('page_size', String::length($pageOb->pagecount)); } echo $n_template->fetch(IMP_TEMPLATES . '/mailbox/navbar.html'); /* Prepare the actions template. */ $a_template = new IMP_Template(); if ($use_trash && (($imp_mbox['mailbox'] == (IMP::folderPref($prefs->getValue('trash_folder'), true))) || ($vtrash !== null))) { $a_template->set('delete', Horde::widget('#', _("Delete"), 'widget', '', "if (confirm('" . addslashes(_("Are you sure you wish to permanently delete these messages?")) . "')) { messages_submit('delete_messages'); } return false;", _("_Delete"))); } else { $a_template->set('delete', Horde::widget('#', _("Delete"), 'widget', '', "messages_submit('delete_messages'); return false;", _("_Delete"))); } if ($showdelete['purge'] || ($vtrash !== null)) { $a_template->set('undelete', Horde::widget('#', _("Undelete"), 'widget', '', "messages_submit('undelete_messages'); return false;", _("_Undelete"))); } if ($showdelete['purge']) { $mailbox_link = Util::addParameter($mailbox_imp_url, 'page', $pageOb->page); if (isset($deleted_prompt)) { $a_template->set('hide_deleted', Horde::widget(Util::addParameter($mailbox_link, array('actionID' => 'hide_deleted', 'mailbox_token' => $mailbox_token)), $deleted_prompt, 'widget', '', '', $deleted_prompt)); } $a_template->set('purge_deleted', Horde::widget(Util::addParameter($mailbox_link, array('actionID' => 'expunge_mailbox', 'mailbox_token' => $mailbox_token)), _("Purge Deleted"), 'widget', '', '', _("Pur_ge Deleted"))); } if ($registry->hasMethod('mail/blacklistFrom')) { $a_template->set('blacklist', Horde::widget('#', _("Blacklist"), 'widget', '', "messages_submit('blacklist'); return false;", _("_Blacklist"))); } if ($registry->hasMethod('mail/whitelistFrom')) { $a_template->set('whitelist', Horde::widget('#', _("Whitelist"), 'widget', '', "messages_submit('whitelist'); return false;", _("_Whitelist"))); } $a_template->set('forward', Horde::widget('#', _("Forward"), 'widget', '', "messages_submit('fwd_digest'); return false;", _("Fo_rward"))); if ($conf['spam']['reporting'] && ($conf['spam']['spamfolder'] || ($imp_mbox['mailbox'] != IMP::folderPref($prefs->getValue('spam_folder'), true)))) { $a_template->set('spam', Horde::widget('#', _("Report as Spam"), 'widget', '', "messages_submit('spam_report'); return false;", _("Report as Spam"))); } if ($conf['notspam']['reporting'] && (!$conf['notspam']['spamfolder'] || ($imp_mbox['mailbox'] == IMP::folderPref($prefs->getValue('spam_folder'), true)))) { $a_template->set('notspam', Horde::widget('#', _("Report as Innocent"), 'widget', '', "messages_submit('notspam_report'); return false;", _("Report as Innocent"))); } $a_template->set('view_messages', Horde::widget('#', _("View Messages"), 'widget', '', "messages_submit('view_messages'); return false;", _("View Messages"))); echo $a_template->fetch(IMP_TEMPLATES . '/mailbox/actions.html'); } /* Define some variables now so we don't have to keep redefining in the foreach () loop or the templates. */ $lastMbox = ''; $messages = array(); $threadlevel = array(); /* Get thread object, if necessary. */ if ($sortpref['by'] == SORTTHREAD) { $threadob = $imp_mailbox->getThreadOb(); $uid_list = array(); foreach ($mailboxOverview as $val) { $uid_list[] = $val->uid; } $threadtree = $threadob->getThreadImageTree($uid_list, $sortpref['dir']); } /* Don't show header row if this is a search mailbox or if no messages in the current mailbox. */ $mh_count = 0; if ($pageOb->msgcount != 0) { $sortImg = ($sortpref['dir']) ? 'za.png' : 'az.png'; $sortText = ($sortpref['dir']) ? '\/' : '/\\'; $headers = array( SORTARRIVAL => array( 'stext' => _("Sort by Arrival"), 'text' => _("#"), 'width' => '4%' ), SORTDATE => array( 'stext' => _("Sort by Date"), 'text' => _("Dat_e"), 'width' => '10%' ), SORTTO => array( 'stext' => _("Sort by To Address"), 'text' => _("To"), 'width' => '20%' ), SORTFROM => array( 'stext' => _("Sort by From Address"), 'text' => _("Fro_m"), 'width' => '20%' ), SORTTHREAD => array( 'stext' => _("Sort by Thread"), 'text' => _("_Thread"), 'width' => '52%' ), SORTSUBJECT => array( 'stext' => _("Sort by Subject"), 'text' => _("Sub_ject"), 'width' => '52%' ), SORTSIZE => array( 'stext' => _("Sort by Message Size"), 'text' => _("Si_ze"), 'width' => '6%' ) ); /* If this is the Drafts or Sent-Mail Folder, sort by To instead of * From. */ if (IMP::isSpecialFolder($imp_mbox['mailbox'])) { unset($headers[SORTFROM]); } else { unset($headers[SORTTO]); } /* Determine which of Subject/Thread to emphasize. */ if (!IMP::threadSortAvailable($imp_mbox['mailbox'])) { unset($headers[SORTTHREAD]); } else { $extra = SORTTHREAD; $standard = SORTSUBJECT; if ($sortpref['by'] == SORTTHREAD) { $extra = SORTSUBJECT; $standard = SORTTHREAD; } $headers[$standard]['extra'] = ' [' . Horde::widget(Util::addParameter($mailbox_imp_url, array('sortby' => $extra, 'actionID' => 'change_sort', 'mailbox_token' => $mailbox_token)), $headers[$extra]['stext'], 'widget" style="font-size:95%; font-weight:normal;', null, 'if (window.event) window.event.cancelBubble = true; else if (event) event.stopPropagation();', $headers[$extra]['text']) . ']'; unset($headers[$extra]); } foreach ($headers as $key => $val) { $ptr = &$headers[$key]; $ptr['class'] = ($sortpref['by'] == $key) ? 'selected' : 'item'; if ($sortpref['by'] == $key) { $ptr['change_sort_link'] = Horde::link(Util::addParameter($sort_url, array('sortby' => $key, 'actionID' => 'change_sort', 'mailbox_token' => $mailbox_token)), $val['stext'], null, null, null, $val['stext']) . Horde::img($sortImg, $sortText, '', $graphicsdir) . ''; } else { $ptr['change_sort_link'] = null; } if ($sortpref['limit']) { $ptr['sortlimit_text'] = Horde::stripAccessKey($val['text']); } else { $ptr['change_sort'] = addslashes(Util::addParameter(($sortpref['by'] == $key) ? $sort_url : $mailbox_imp_url, array('sortby' => $key, 'actionID' => 'change_sort', 'mailbox_token' => $mailbox_token))); $ptr['change_sort_widget'] = Horde::widget(Util::addParameter(($sortpref['by'] == $key) ? $sort_url : $mailbox_imp_url, array('sortby' => $key, 'actionID' => 'change_sort', 'mailbox_token' => $mailbox_token)), $val['stext'], 'widget', null, null, $val['text']); if (!isset($val['extra'])) { $ptr['extra'] = null; } } } /* Prepare the message headers template. */ $mh_template = new IMP_Template(); $mh_template->setOption('gettext', true); $mh_template->set('check_all', Horde::getAccessKeyAndTitle(_("Check _All/None"))); $mh_template->set('form_tag', true); $mh_template->set('mailbox_url', $mailbox_url); $mh_template->set('mailbox', htmlspecialchars($imp_mbox['mailbox'])); $mh_template->set('mailbox_token', $mailbox_token); $mh_template->set('sessiontag', Util::formInput()); $mh_template->set('sortlimit', $sortpref['limit']); $mh_template->set('headers', $headers); if (!$search_mbox) { $mh_template->set('mh_count', $mh_count++); echo $mh_template->fetch(IMP_TEMPLATES . '/mailbox/message_headers.html'); } } /* Cache some repetitively used variables. */ $fromlinkstyle = $prefs->getValue('from_link'); require_once IMP_BASE . '/lib/UI/Mailbox.php'; $imp_ui = new IMP_UI_Mailbox($imp_mbox['mailbox'], $charset, $identity); if (!empty($conf['fetchmail']['show_account_colors'])) { require_once IMP_BASE . '/lib/IMAP/MessageCache.php'; $msg_cache = &IMP_MessageCache::singleton(); } /* Display message information. */ require_once 'Horde/MIME.php'; require_once 'Horde/Text.php'; $ids = $msgs = array(); $search_template = null; foreach ($mailboxOverview as $ob) { if ($search_mbox) { if (empty($lastMbox) || ($ob->mailbox != $lastMbox)) { if (!empty($lastMbox)) { _outputSummaries($msgs); $msgs = array(); } $folder_link = Horde::url(Util::addParameter('mailbox.php', 'mailbox', $ob->mailbox)); $folder_link = Horde::link($folder_link, sprintf(_("View messages in %s"), IMP::displayFolder($ob->mailbox)), 'smallheader') . IMP::displayFolder($ob->mailbox) . ''; if ($search_template === null) { $search_template = new IMP_Template(); } $search_template->set('lastMbox', $lastMbox); $search_template->set('folder_link', $folder_link); echo $search_template->fetch(IMP_TEMPLATES . '/mailbox/searchfolder.html'); if ($mh_count) { $mh_template->set('form_tag', false); } $mh_template->set('mh_count', $mh_count++); echo $mh_template->fetch(IMP_TEMPLATES . '/mailbox/message_headers.html'); } $lastMbox = $ob->mailbox; } /* Initialize the header fields. */ $msg = array( 'bg' => '', 'color' => '', 'preview' => '', 'size' => '?', 'status' => '', 'subject' => _("[No Subject]"), 'uid' => htmlspecialchars($ob->uid . IMP_IDX_SEP . $ob->mailbox), ); /* Since this value will be used for an ID element, it cannot contain * certain characters. Replace those unavailable chars with '_', and * double existing underscores to ensure we don't have a duplicate ID. */ $msg['id'] = preg_replace('/[^0-9a-z\-_:\.]/i', '_', str_replace('_', '__', rawurlencode($ob->uid . $ob->mailbox))); /* Formats the header date string nicely. */ $msg['date'] = $imp_ui->getDate((isset($ob->date)) ? $ob->date : null); /* Format the from header. */ $msg['from'] = $ob->getfrom['from']; $msg['fullfrom'] = $ob->getfrom['fullfrom']; if (!empty($ob->subject)) { $msg['subject'] = $imp_ui->getSubject($ob->subject); } if (isset($ob->size)) { $msg['size'] = $imp_ui->getSize($ob->size); } /* Generate the target link. */ $target = IMP::generateIMPUrl('message.php', $imp_mbox['mailbox'], $ob->uid, $ob->mailbox); /* Get all the flag information. */ $bg = array(); $flagbits = 0; if ($_SESSION['imp']['base_protocol'] != 'pop3') { if (!empty($ob->to) && $identity->hasAddress(IMP::bareAddress($ob->to))) { $msg['status'] .= Horde::img('mail_personal.png', _("Personal"), array('title' => _("Personal"))); $flagbits |= IMP_PERSONAL; } if (!$ob->seen) { $flagbits |= IMP_UNSEEN; $msg['status'] .= Horde::img('mail_unseen.png', _("Unseen"), array('title' => _("Unseen"))); $bg[] = 'unseen'; } else { $bg[] = 'seen'; } if ($ob->answered) { $flagbits |= IMP_ANSWERED; $msg['status'] .= Horde::img('mail_answered.png', _("Answered"), array('title' => _("Answered"))); $bg[] = 'answered'; } if ($ob->draft) { $flagbits |= IMP_DRAFT; $msg['status'] .= Horde::img('mail_draft.png', _("Draft"), array('title' => _("Draft"))); $target = IMP::composeLink(array(), array('actionID' => 'draft', 'thismailbox' => $ob->mailbox, 'index' => $ob->uid)); } if ($ob->flagged) { $flagbits |= IMP_FLAGGED; $msg['status'] .= Horde::img('mail_flagged.png', _("Flagged For Followup"), array('title' => _("Flagged For Followup"))); $bg[] = 'flagged'; } if ($ob->deleted) { $flagbits |= IMP_DELETED; $msg['status'] .= Horde::img('mail_deleted.png', _("Deleted"), array('title' => _("Deleted"))); $bg[] = 'deleted'; } } if (!empty($conf['hooks']['msglist_format'])) { $ob_f = Horde::callHook('_imp_hook_msglist_format', array($ob->mailbox, $ob->uid), 'imp'); if (is_array($ob_f)) { if (!empty($ob_f['class'])) { $bg = array_merge($bg, $ob_f['class']); } if (!empty($ob_f['flagbits'])) { $flagbits |= $ob_f['flagbits']; } if (!empty($ob_f['status'])) { $msg['status'] .= $ob_f['status']; } } } $ids[$msg['id']] = $flagbits; $msg['bg'] = implode(' ', $bg); /* Show colors for fetchmail messages? */ if (!empty($conf['fetchmail']['show_account_colors'])) { $cache_entry = $msg_cache->retrieve($ob->mailbox, array($ob->uid), 32); $entry_ob = reset($cache_entry); $color = $entry_ob->header->getValue('x-color'); if (!empty($color)) { $msg['color'] = htmlspecialchars($color); } } /* Show message preview? */ if ($show_preview && isset($ob->preview)) { if (empty($ob->preview)) { $ptext = '[[' . _("No Preview Text") . ']]'; } else { if (!empty($strip_preview)) { $ptext = str_replace("\r", "\n", $ob->preview); $ptext = preg_replace('/\n/', ' ', $ptext); $ptext = preg_replace('/(\s)+/', '$1', $ptext); } else { $ptext = str_replace("\r", '', $ob->preview); } if (!$preview_tooltip) { require_once 'Horde/Text/Filter.php'; $ptext = Text_Filter::filter($ptext, 'text2html', array('parselevel' => TEXT_HTML_NOHTML, 'charset' => '', 'class' => '')); } $maxlen = $prefs->getValue('preview_maxlen'); if (String::length($ptext) > $maxlen) { $ptext = String::substr($ptext, 0, $maxlen) . ' ...'; } elseif (empty($ob->preview_cut)) { $ptext .= '[[' . _("END") . ']]'; } } $msg['preview'] = $ptext; } /* Set the message number. */ $msg['number'] = $ob->msgno; /* Format the Date: Header. */ $msg['date'] = htmlspecialchars($msg['date']); /* Format message size. */ $msg['size'] = htmlspecialchars($msg['size']); /* Format the From: Header. */ $msg['from'] = htmlspecialchars($msg['from']); switch ($fromlinkstyle) { case 0: if (empty($ob->getfrom['error'])) { $msg['from'] = Horde::link(IMP::composeLink(array(), array('actionID' => 'mailto', 'thismailbox' => $ob->mailbox, 'index' => $ob->uid, 'mailto' => $ob->getfrom['to'])), sprintf(_("New Message to %s"), $msg['fullfrom'])) . $msg['from'] . ''; } break; case 1: $from_uri = IMP::generateIMPUrl('message.php', $imp_mbox['mailbox'], $ob->uid, $ob->mailbox); $msg['from'] = Horde::link($from_uri, $msg['fullfrom']) . $msg['from'] . ''; break; } /* Format the Subject: Header. */ $msg['subject'] = Text::htmlSpaces($msg['subject']); if ($preview_tooltip) { $msg['subject'] = substr(Horde::linkTooltip($target, $msg['preview'], '', '', '', $msg['preview']), 0, -1) . ' id="subject' . $msg['id'] . '">' . $msg['subject'] . ''; } else { $msg['subject'] = substr(Horde::link($target, $msg['preview']), 0, -1) . ' id="subject' . $msg['id'] . '">' . $msg['subject'] . '' . (!empty($msg['preview']) ? '
' . $msg['preview'] . '' : ''); } /* Set up threading tree now. */ if ($sortpref['by'] == SORTTHREAD) { if (!empty($threadtree[$ob->uid])) { $msg['subject'] = $threadtree[$ob->uid] . ' ' . $msg['subject']; } } $msgs[] = $msg; } _outputSummaries($msgs); /* Prepare the message footers template. */ $mf_template = new IMP_Template(); $mf_template->set('page', $pageOb->page); echo $mf_template->fetch(IMP_TEMPLATES . '/mailbox/message_footers.html'); /* If there are 20 messages or less, don't show the actions/navbar again. */ if (($pageOb->end - $pageOb->begin) >= 20) { $a_template->set('isbottom', true); echo $a_template->fetch(IMP_TEMPLATES . '/mailbox/actions.html'); if ($n_template->get('use_folders')) { $n_template->set('move', Horde::widget('#', _("Move to folder"), 'widget', '', "transfer('move_messages', 2); return false;", _("Move"), true)); $n_template->set('copy', Horde::widget('#', _("Copy to folder"), 'widget', '', "transfer('copy_messages', 2); return false;", _("Copy"), true)); } $n_template->set('id', 2); $n_template->set('isbottom', true); echo $n_template->fetch(IMP_TEMPLATES . '/mailbox/navbar.html'); } require_once IMP_BASE . '/lib/JSON.php'; IMP::addInlineScript('var messagelist = ' . IMP_Serialize_JSON::encode(String::convertCharset($ids, NLS::getCharset()), 'utf-8') . ';'); require $registry->get('templates', 'horde') . '/common-footer.inc'; ./login.php0000644000175000017500000004206411702026734012716 0ustar mathieumathieu */ function _getFormData($val, $recompose_data = null) { static $fd; if (!isset($fd)) { $fd = @unserialize($recompose_data); } if (!empty($fd['post'][$val])) { return $fd['post'][$val]; } elseif (!empty($fd['get'][$val])) { return $fd['get'][$val]; } else { return ''; } } @define('AUTH_HANDLER', true); $authentication = 'none'; require_once dirname(__FILE__) . '/lib/base.php'; require_once IMP_BASE . '/lib/Template.php'; /* Get an Auth object. */ $imp_auth = (Auth::getProvider() == 'imp'); $auth = &Auth::singleton($conf['auth']['driver']); $logout_reason = $auth->getLogoutReason(); $actionID = (Util::getFormData('action') == 'compose') ? 'login_compose' : Util::getFormData('actionID'); $recompose_data = Util::getPost('recompose', Util::nonInputVar('RECOMPOSE') ? serialize(array('get' => $_GET, 'post' => $_POST)) : null); $url_param = Util::getFormData('url'); // RECOMPOSE: If we somehow get to this page with a valid session, go // immediately to compose.php. No need to do other validity checks if the // session already exists. if (!empty($recompose_data) && Auth::getAuth() && IMP::checkAuthentication(true)) { $_SESSION['recompose_formData'] = serialize(array('get' => $_GET, 'post' => $_POST)); header('Location: ' . Util::addParameter(Horde::applicationUrl('compose.php', true), 'actionID', 'recompose', false)); exit; } /* Handle cases where we already have a session. */ if (!empty($_SESSION['imp']) && is_array($_SESSION['imp'])) { if ($logout_reason) { /* Log logout requests now. */ if ($logout_reason == AUTH_REASON_LOGOUT) { $entry = IMP::loginLogMessage('logout'); } else { $entry = $_SERVER['REMOTE_ADDR'] . ' ' . $auth->getLogoutReasonString(); } Horde::logMessage($entry, __FILE__, __LINE__, PEAR_LOG_NOTICE); $language = (isset($prefs)) ? $prefs->getValue('language') : NLS::select(); unset($_SESSION['imp']); /* Cleanup preferences. */ if (isset($prefs)) { $prefs->cleanup($imp_auth); } if ($imp_auth) { Auth::clearAuth(); @session_destroy(); Horde::setupSessionHandler(); @session_start(); } NLS::setLang($language); /* Hook to preselect the correct language in the widget. */ $_GET['new_lang'] = $language; $registry->loadPrefs('horde'); $registry->loadPrefs(); } else { require_once IMP_BASE . '/lib/Session.php'; header('Location: ' . IMP_Session::getInitialUrl($actionID, false)); exit; } } /* Log session timeouts. */ if ($logout_reason == AUTH_REASON_SESSION) { $entry = sprintf('Session timeout for client [%s]', $_SERVER['REMOTE_ADDR']); Horde::logMessage($entry, __FILE__, __LINE__, PEAR_LOG_NOTICE); /* Make sure everything is really cleared. */ Auth::clearAuth(); unset($_SESSION['imp']); } /* Redirect the user on logout if redirection is enabled. */ if ($logout_reason == AUTH_REASON_LOGOUT && ($conf['user']['redirect_on_logout'] || !empty($conf['auth']['redirect_on_logout']))) { if (!empty($conf['auth']['redirect_on_logout'])) { $url = Auth::addLogoutParameters($conf['auth']['redirect_on_logout'], AUTH_REASON_LOGOUT); } else { $url = Auth::addLogoutParameters($conf['user']['redirect_on_logout'], AUTH_REASON_LOGOUT); } if (!isset($_COOKIE[session_name()])) { $url = Util::addParameter($url, session_name(), session_id()); } header('Location: ' . $url); exit; } /* Redirect the user if an alternate login page has been specified. */ if (!Util::nonInputVar('RECOMPOSE')) { if (!empty($conf['auth']['alternate_login'])) { $url = Auth::addLogoutParameters($conf['auth']['alternate_login']); if (!isset($_COOKIE[session_name()])) { $url = Util::addParameter($url, session_name(), session_id(), false); } if ($url_param) { $url = Util::addParameter($url, 'url', $url_param, false); } header('Location: ' . $url); exit; } elseif ($conf['user']['alternate_login']) { $url = Auth::addLogoutParameters($conf['user']['alternate_login']); if (!isset($_COOKIE[session_name()])) { $url = Util::addParameter($url, session_name(), session_id(), false); } header('Location: ' . $url); exit; } } /* Initialize the password key(s). If we are doing Horde auth as well, * make sure that the Horde auth key gets set. */ Secret::setKey('imp'); if ($imp_auth) { Secret::setKey('auth'); } $autologin = Util::getFormData('autologin', false); $credentials = @unserialize($prefs->getValue('credentials')); $server_key = Util::getFormData('server_key', IMP::getAutoLoginServer(true)); if (is_callable(array('Horde', 'loadConfiguration'))) { $result = Horde::loadConfiguration('servers.php', array('servers')); if (!is_a($result, 'PEAR_Error')) { extract($result); } } else { require IMP_BASE . '/config/servers.php'; } $used_servers = $servers; if ($conf['server']['server_list'] != 'shown') { $used_servers = array($server_key => $servers[$server_key]); } if (!$logout_reason && ((empty($GLOBALS['conf']['server']['change_server']) && IMP::canAutoLogin($server_key, $autologin)) || (!empty($GLOBALS['conf']['server']['change_server']) && isset($credentials['imp'])))) { $url = Horde::applicationUrl('redirect.php', true); $params = array('actionID' => 'login', 'autologin' => true); if (count($used_servers) == 1) { $params['server_key'] = key($used_servers); } $url = Util::addParameter($url, $params, null, false); header('Location: ' . $url); exit; } if ($logout_reason && $imp_auth && $conf['menu']['always']) { $notification->push('setFocus();if (window.parent.frames.horde_menu) window.parent.frames.horde_menu.location.reload();', 'javascript'); } else { $notification->push('setFocus()', 'javascript'); } if (Util::nonInputVar('RECOMPOSE')) { $reason = _("Please log in again to resume composing your message. If you are NOT using cookies AND you are composing messages in popup windows, you will have to log in again in your main window as well. This is to keep attackers from hijacking your session ID. We apologize for any inconvenience."); $title = _("Resume your session"); } else { $reason = $auth->getLogoutReasonString(); $title = sprintf(_("Welcome to %s"), $registry->get('name', ($imp_auth) ? 'horde' : null)); } if ($reason) { $notification->push(str_replace('
', ' ', $reason), 'horde.message'); } /* Build the widget for the servers list. */ if ($show_list) { $server_select = new Horde_Mobile_select('server', 'popup', _("Server:")); foreach ($servers_list as $val) { $server_select->add($val['name'], $val['val'], $val['sel']); } } /* Build the widget containing the available languages. */ if ($choose_language) { // Language names are already encoded. $lang_select = new Horde_Mobile_select('new_lang', 'popup', _("Language:")); $lang_select->set('htmlchars', true); foreach ($langs as $val) { $lang_select->add($val['name'], $val['val'], $val['sel']); } } /* Build the '; switch ($this->_method) { case 'PUBLISH': if ($registry->hasMethod('calendar/import_vfreebusy')) { $html .= ''; } else { $html .= ''; } break; case 'REQUEST': if ($registry->hasMethod('calendar/getFreeBusy')) { $html .= '' . ''; } else { $html .= ''; } $html .= ''; break; case 'REPLY': if ($registry->hasMethod('calendar/import_vfreebusy')) { $html .= ''; } else { $html .= ''; } break; } return $html . ' '; } /** * Return the html for a vEvent. */ function _vEvent($vevent, $id) { global $registry, $prefs; $html = ''; $desc = ''; $sender = $vevent->organizerName(); $options = array(); $attendees = $vevent->getAttribute('ATTENDEE'); if (!is_a($attendees, 'PEAR_Error') && !empty($attendees) && !is_array($attendees)) { $attendees = array($attendees); } $attendee_params = $vevent->getAttribute('ATTENDEE', true); switch ($this->_method) { case 'PUBLISH': $desc = _("%s wishes to make you aware of \"%s\"."); if ($registry->hasMethod('calendar/import')) { $options[] = ''; } break; case 'REQUEST': // Check if this is an update. if ($registry->hasMethod('calendar/export') && !is_a($registry->call('calendar/export', array($vevent->getAttribute('UID'), 'text/calendar')), 'PEAR_Error')) { $is_update = true; $desc = _("%s wants to notify you about changes of \"%s\"."); } else { $is_update = false; // Check that you are one of the attendees here. $is_attendee = false; if (!is_a($attendees, 'PEAR_Error') && !empty($attendees)) { require_once 'Horde/Identity.php'; $identity = &Identity::singleton(array('imp', 'imp')); for ($i = 0, $c = count($attendees); $i < $c; ++$i) { $attendee = parse_url($attendees[$i]); if (!empty($attendee['path']) && $identity->hasAddress($attendee['path'])) { $is_attendee = true; break; } } } $desc = $is_attendee ? _("%s requests your presence at \"%s\".") : _("%s wishes to make you aware of \"%s\"."); } if ($is_update && $registry->hasMethod('calendar/replace')) { $options[] = ''; $options[] = ''; } elseif ($registry->hasMethod('calendar/import')) { $options[] = ''; $options[] = ''; } $options[] = ''; $options[] = ''; $options[] = ''; // $options[] = ''; break; case 'ADD': $desc = _("%s wishes to ammend \"%s\"."); if ($registry->hasMethod('calendar/import')) { $options[] = ''; } break; case 'REFRESH': $desc = _("%s wishes to receive the latest information about \"%s\"."); $options[] = ''; break; case 'REPLY': $desc = _("%s has replied to the invitation to \"%s\"."); $sender = $this->_headers->getValue('From'); if ($registry->hasMethod('calendar/updateAttendee')) { $options[] = ''; } break; case 'CANCEL': if (is_a($instance = $vevent->getAttribute('RECURRENCE-ID'), 'PEAR_Error')) { $desc = _("%s has cancelled \"%s\"."); if ($registry->hasMethod('calendar/delete')) { $options[] = ''; } } else { $desc = _("%s has cancelled an instance of the recurring \"%s\"."); if ($registry->hasMethod('calendar/replace')) { $options[] = ''; } } break; } $summary = $vevent->getAttribute('SUMMARY'); if (is_a($summary, 'PEAR_Error')) { $desc = sprintf($desc, htmlspecialchars($sender), _("Unknown Meeting")); } else { $desc = sprintf($desc, htmlspecialchars($sender), htmlspecialchars($summary)); } $html .= '

' . $desc . '

'; if ($this->_msgs) { foreach ($this->_msgs[$id] as $msg) { $html .= '

' . Horde::img('alerts/' . $msg[0] . '.png', '', null, $registry->getImageDir('horde')) . $msg[1] . '

'; } } $start = $vevent->getAttribute('DTSTART'); if (!is_a($start, 'PEAR_Error')) { if (is_array($start)) { $html .= '

' . _("Start:") . ' ' . strftime($prefs->getValue('date_format'), mktime(0, 0, 0, $start['month'], $start['mday'], $start['year'])) . '

'; } else { $html .= '

' . _("Start:") . ' ' . strftime($prefs->getValue('date_format'), $start) . ' ' . date($prefs->getValue('twentyFour') ? ' G:i' : ' g:i a', $start) . '

'; } } $end = $vevent->getAttribute('DTEND'); if (!is_a($end, 'PEAR_Error')) { if (is_array($end)) { $html .= '

' . _("End:") . ' ' . strftime($prefs->getValue('date_format'), mktime(0, 0, 0, $end['month'], $end['mday'], $end['year'])) . '

'; } else { $html .= '

' . _("End:") . ' ' . strftime($prefs->getValue('date_format'), $end) . ' ' . date($prefs->getValue('twentyFour') ? ' G:i' : ' g:i a', $end) . '

'; } } $sum = $vevent->getAttribute('SUMMARY'); if (!is_a($sum, 'PEAR_Error')) { $html .= '

' . _("Summary") . ': ' . htmlspecialchars($sum) . '

'; } else { $html .= '

' . _("Summary") . ': ' . _("None") . '

'; } $desc = $vevent->getAttribute('DESCRIPTION'); if (!is_a($desc, 'PEAR_Error')) { $html .= '

' . _("Description") . ': ' . nl2br(htmlspecialchars($desc)) . '

'; } $loc = $vevent->getAttribute('LOCATION'); if (!is_a($loc, 'PEAR_Error')) { $html .= '

' . _("Location") . ': ' . htmlspecialchars($loc) . '

'; } if (!is_a($attendees, 'PEAR_Error') && !empty($attendees)) { $html .= '

' . _("Attendees") . '

'; $html .= ''; foreach ($attendees as $key => $attendee) { $attendee = parse_url($attendee); $attendee = empty($attendee['path']) ? _("Unknown") : $attendee['path']; if (!empty($attendee_params[$key]['CN'])) { $attendee = $attendee_params[$key]['CN']; } $role = _("Required Participant"); if (isset($attendee_params[$key]['ROLE'])) { switch ($attendee_params[$key]['ROLE']) { case 'CHAIR': $role = _("Chair Person"); break; case 'OPT-PARTICIPANT': $role = _("Optional Participant"); break; case 'NON-PARTICIPANT': $role = _("Non Participant"); break; case 'REQ-PARTICIPANT': default: // Already set above. break; } } $status = _("Awaiting Response"); if (isset($attendee_params[$key]['PARTSTAT'])) { $status = $this->_partstatToString($attendee_params[$key]['PARTSTAT'], $status); } $html .= ''; } $html .= '
' . _("Name") . '' . _("Role") . '' . _("Status") . '
' . htmlspecialchars($attendee) . '' . htmlspecialchars($role) . '' . htmlspecialchars($status) . '
'; } if ($_SESSION['imp']['viewmode'] != 'imp') { return $html; } if ($options) { $html .= '

' . _("Actions") . '

' . '' . ' '; } return $html; } /** * Returns the html for a vEvent. * * @todo IMP 5: move organizerName() from Horde_iCalendar_vevent to * Horde_iCalendar */ function _vTodo($vtodo, $id) { global $registry, $prefs; $html = ''; $desc = ''; $options = array(); $organizer = $vtodo->getAttribute('ORGANIZER', true); if (is_a($organizer, 'PEAR_Error')) { $sender = _("An unknown person"); } else { if (isset($organizer[0]['CN'])) { $sender = $organizer[0]['CN']; } else { $organizer = parse_url($vtodo->getAttribute('ORGANIZER')); $sender = $organizer['path']; } } switch ($this->_method) { case 'PUBLISH': $desc = _("%s wishes to make you aware of \"%s\"."); if ($registry->hasMethod('tasks/import')) { $options[] = ''; } break; } $summary = $vtodo->getAttribute('SUMMARY'); if (is_a($summary, 'PEAR_Error')) { $desc = sprintf($desc, htmlspecialchars($sender), _("Unknown Task")); } else { $desc = sprintf($desc, htmlspecialchars($sender), htmlspecialchars($summary)); } $html .= '

' . $desc . '

'; if ($this->_msgs) { foreach ($this->_msgs[$id] as $msg) { $html .= '

' . Horde::img('alerts/' . $msg[0] . '.png', '', null, $registry->getImageDir('horde')) . $msg[1] . '

'; } } $priority = $vtodo->getAttribute('PRIORITY'); if (!is_a($priority, 'PEAR_Error')) { $html .= '

' . _("Priority") . ': ' . (int)$priority . '

'; } $sum = $vtodo->getAttribute('SUMMARY'); if (!is_a($sum, 'PEAR_Error')) { $html .= '

' . _("Summary") . ': ' . htmlspecialchars($sum) . '

'; } else { $html .= '

' . _("Summary") . ': ' . _("None") . '

'; } $desc = $vtodo->getAttribute('DESCRIPTION'); if (!is_a($desc, 'PEAR_Error')) { $html .= '

' . _("Description") . ': ' . nl2br(htmlspecialchars($desc)) . '

'; } $attendees = $vtodo->getAttribute('ATTENDEE'); $params = $vtodo->getAttribute('ATTENDEE', true); if (!is_a($attendees, 'PEAR_Error') && !empty($attendees)) { $html .= '

' . _("Attendees") . '

'; if (!is_array($attendees)) { $attendees = array($attendees); } $html .= ''; foreach ($attendees as $key => $attendee) { $attendee = parse_url($attendee); $attendee = $attendee['path']; if (isset($params[$key]['CN'])) { $attendee = $params[$key]['CN']; } $role = _("Required Participant"); if (isset($params[$key]['ROLE'])) { switch ($params[$key]['ROLE']) { case 'CHAIR': $role = _("Chair Person"); break; case 'OPT-PARTICIPANT': $role = _("Optional Participant"); break; case 'NON-PARTICIPANT': $role = _("Non Participant"); break; case 'REQ-PARTICIPANT': default: // Already set above. break; } } $status = _("Awaiting Response"); if (isset($params[$key]['PARTSTAT'])) { $status = $this->_partstatToString($params[$key]['PARTSTAT'], $status); } $html .= ''; } $html .= '
' . _("Name") . '' . _("Role") . '' . _("Status") . '
' . htmlspecialchars($attendee) . '' . htmlspecialchars($role) . '' . htmlspecialchars($status) . '
'; } if ($_SESSION['imp']['viewmode'] != 'imp') { return $html; } if ($options) { $html .= '

' . _("Actions") . '

' . ' '; } return $html; } /** * Translate the Participation status to string. * * @param string $value The value of PARTSTAT. * @param string $default The value to return as default. * * @return string The translated string. */ function _partstatToString($value, $default = null) { switch ($value) { case 'ACCEPTED': return _("Accepted"); break; case 'DECLINED': return _("Declined"); break; case 'TENTATIVE': return _("Tentatively Accepted"); break; case 'DELEGATED': return _("Delegated"); break; case 'COMPLETED': return _("Completed"); break; case 'IN-PROCESS': return _("In Process"); break; case 'NEEDS-ACTION': default: return is_null($default) ? _("Needs Action") : $default; } } } ./lib/MIME/Viewer/appledouble.php0000644000175000017500000000502611702026733016634 0ustar mathieumathieu * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_appledouble extends MIME_Viewer { /** * Force viewing of a part inline, regardless of the Content-Disposition * of the MIME Part. * * @var boolean */ var $_forceinline = true; /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { $contents = &$params[0]; $text = ''; /* RFC 1740 [4]: There are two parts to an appledouble message: (1) application/applefile (2) Data embedded in the Mac file */ /* Display the macintosh download link. */ $part = $contents->getDecodedMIMEPart($this->mime_part->getRelativeMIMEId(1)); if ($part) { $status = array( _("This message contains a Macintosh file."), sprintf(_("The Macintosh resource fork can be downloaded %s."), $contents->linkViewJS($part, 'download_attach', _("HERE"), _("The Macintosh resource fork"))), _("The contents of the Macintosh file are below.") ); $text .= $contents->formatStatusMsg($status, Horde::img('apple.png', _("Macintosh File")), false); } /* Display the content of the file. */ $part = $contents->getDecodedMIMEPart($this->mime_part->getRelativeMIMEId(2)); if ($part) { $mime_message = &MIME_Message::convertMIMEPart($part); $mc = new MIME_Contents($mime_message, array('download' => 'download_attach', 'view' => 'view_attach'), array(&$contents)); $mc->buildMessage(); $text .= '' . $mc->getMessage(true) . '
'; } return $text; } /** * Return the content-type. * * @return string The content-type of the message. */ function getType() { return 'text/html; charset=' . NLS::getCharset(); } } ./lib/MIME/Viewer/pkcs7.php0000644000175000017500000004654311702026733015400 0ustar mathieumathieu * @author Michael Slusarz * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_pkcs7 extends MIME_Viewer { /** * IMP_SMIME object. * * @var IMP_SMIME */ var $_impSmime; /** * Classwide cache for icons for status messages. * * @var string */ var $_icon = null; /** * Pointer to the MIME_Contents item. * * @var MIME_Contents */ var $_contents = null; /** * Classwide cache for status messages. * * @var array */ var $_status = array(); /** * The IMP_Headers object for the message data. * * @var IMP_Headers */ var $_headers; /** * Some mailers set S/MIME messages to always be attachments. However, * most of the time S/MIME is used to secure the contents of the message, * so displaying as an attachment makes no sense. Therefore, force * viewing inline (or at least let MIME_Viewer/MIME_Contents make the * determination on whether the data can be viewed inline or not). * * @var boolean */ var $_forceinline = true; /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { /* Set the MIME_Contents class variable. */ $this->_contents = &$params[0]; $msg = ''; if (empty($this->_impSmime)) { $this->_impSmime = new IMP_SMIME(); } /* Check to see if S/MIME support is available. */ $openssl_check = $this->_impSmime->checkForOpenSSL(); if ($GLOBALS['prefs']->getValue('use_smime') && !is_a($openssl_check, 'PEAR_Error')) { /* We need to insert JavaScript code now if S/MIME support is active. */ $msg = Util::bufferOutput(array('Horde', 'addScriptFile'), 'prototype.js', 'imp', true); $msg .= Util::bufferOutput(array('Horde', 'addScriptFile'), 'popup.js', 'imp', true); } /* Get the type of message now. */ $type = $this->_getSMIMEType(); switch ($type) { case 'signed': $msg .= $this->_outputSMIMESigned(); break; case 'encrypted': $msg .= $this->_outputSMIMEEncrypted(); break; } return $msg; } /** * Generates HTML output for the S/MIME key in * 'application/pkcs7-signature' MIME_Parts. * * @access private * * @return string The HTML output. */ function _outputSMIMEKey() { if (!$GLOBALS['prefs']->getValue('use_smime')) { return _("S/MIME support is not enabled."); } else { $mime = &$this->mime_part; $signenc = $mime->getInformation('smime_signenc'); $raw_text = $this->_getRawSMIMEText(); if ($signenc && $mime->getInformation('smime_from')) { $smime_from = $mime->getInformation('smime_from'); $raw_text = "From: $smime_from\n" . $raw_text; } $sig_result = $this->_impSmime->verifySignature($raw_text); return $this->_impSmime->certToHTML($sig_result->cert); } } /** * Generates HTML output for 'multipart/signed', * 'application/pkcs7-signature' and * 'application/x-pkcs7-signature' MIME_Parts. * * @access private * * @return string The HTML output. */ function _outputSMIMESigned() { if (Util::getFormData('viewkey')) { return $this->_outputSMIMEKey(); } $cert = $text = ''; $mime = &$this->mime_part; $mimetype = $mime->getType(); $active = $GLOBALS['prefs']->getValue('use_smime'); $signenc = $mime->getInformation('smime_signenc'); if ($signenc) { $this->_status[] = _("This message has been encrypted via S/MIME."); } $this->_initStatus($this->getIcon($mimetype), _("S/MIME")); $this->_status[] = _("This message has been digitally signed via S/MIME."); if (!$active) { $this->_status[] = _("S/MIME support is not enabled so the digital signature is unable to be verified."); } /* Store S/MIME results in $sig_result. */ $sig_result = null; if ($mimetype == 'multipart/signed') { if (!$signenc) { if (($mimeID = $mime->getMIMEId())) { $mime->setContents($this->_contents->getBodyPart($mimeID)); } else { $mime->setContents($this->_contents->getBody()); } $mime->splitContents(); } /* Data that is signed appears in the first MIME subpart. */ $signed_part = $mime->getPart($mime->getRelativeMIMEId(1)); $signed_data = rtrim($signed_part->getCanonicalContents(), "\r"); $mime_message = &MIME_Structure::parseTextMIMEMessage($signed_data); /* The S/MIME signature appears in the second MIME subpart. */ $subpart = $mime->getPart($mime->getRelativeMIMEId(2)); if (!$subpart || !in_array($subpart->getType(), array('application/pkcs7-signature', 'application/x-pkcs7-signature'))) { $this->_status[] = _("This message does not appear to be in the correct S/MIME format."); } } elseif (!$active) { $this->_status[] = _("S/MIME support is not enabled so the contents of this signed message cannot be displayed."); } if ($active) { $raw_text = $this->_getRawSMIMEText(); if ($signenc && $mime->getInformation('smime_from')) { $smime_from = $mime->getInformation('smime_from'); $raw_text = "From: $smime_from\n" . $raw_text; } if ($GLOBALS['prefs']->getValue('smime_verify') || Util::getFormData('smime_verify_msg')) { $sig_result = $this->_impSmime->verifySignature($raw_text); } elseif (isset($_SESSION['imp']['viewmode']) && ($_SESSION['imp']['viewmode'] == 'imp')) { // TODO: Fix to work with DIMP $this->_status[] = Horde::link(Util::addParameter(Horde::selfUrl(true), 'smime_verify_msg', 1)) . _("Click HERE to verify the message.") . ''; } if (!isset($subpart)) { $msg_data = $this->_impSmime->extractSignedContents($raw_text); if (is_a($msg_data, 'PEAR_Error')) { $this->_status[] = $msg_data->getMessage(); } else { $mime_message = &MIME_Structure::parseTextMIMEMessage($msg_data); } } $text = $this->_outputStatus(); if ($sig_result !== null) { $text .= $this->_outputSMIMESignatureTest($sig_result->result, $sig_result->email); if (!empty($sig_result->cert)) { $cert_details = $this->_impSmime->parseCert($sig_result->cert); if (isset($cert_details['certificate']['subject']['CommonName'])) { $subject = $cert_details['certificate']['subject']['CommonName']; } elseif (isset($cert_details['certificate']['subject']['Email'])) { $subject = $cert_details['certificate']['subject']['Email']; } elseif (isset($sig_result->email)) { $subject = $sig_result->email; } elseif (isset($smime_from)) { $subject = $smime_from; } elseif (isset($this->_headers['from'])) { $subject = $this->_headers['from']; } else { $subject = null; } if (isset($subpart) && !empty($subject) && $GLOBALS['registry']->hasMethod('contacts/addField') && $GLOBALS['prefs']->getValue('add_source')) { $this->_status[] = sprintf(_("The S/MIME certificate of %s: "), @htmlspecialchars($subject, ENT_COMPAT, NLS::getCharset())) . $this->_contents->linkViewJS($subpart, 'view_attach', _("View"), '', null, array('viewkey' => 1)) . '/' . Horde::link('#', '', null, null, $this->_impSmime->savePublicKeyURL($sig_result->cert) . ' return false;') . _("Save in your Address Book") . ''; $text .= $this->_outputStatus(); } } } } if (isset($mime_message)) { /* We need to stick the output into a MIME_Contents object. */ $mc = new MIME_Contents($mime_message, array('download' => 'download_attach', 'view' => 'view_attach'), array(&$this->_contents)); $mc->buildMessage(); return $text . 'getConfigParam('highlight') ? ' class="' . ($sig_result && $sig_result->result === true ? 'signedvalid' : 'signedinvalid') . '"' : '') . '>' . $mc->getMessage(true) . '
'; $text .= '' . $mc->getMessage(true) . '
'; } return $text . $this->_outputStatus(); } /** * Generates HTML output for 'multipart/encrypted', * 'application/pkcs7-mime' and * 'application/x-pkcs7-mime' MIME_Parts. * * @access private * * @return string The HTML output. */ function _outputSMIMEEncrypted() { $active = $GLOBALS['prefs']->getValue('use_smime'); $mime = &$this->mime_part; $mimetype = $mime->getType(); $msg = ''; $this->_initStatus($this->getIcon($mime->getType()), _("S/MIME")); $this->_status[] = _("This message has been encrypted via S/MIME."); if (!$active) { $this->_status[] = _("S/MIME support is not currently enabled so the message is unable to be decrypted."); return $this->_outputStatus(); } if (!$this->_impSmime->getPersonalPrivateKey()) { $this->_status[] = _("No personal private key exists so the message is unable to be decrypted."); return $this->_outputStatus(); } /* Make sure we have a passphrase. */ $passphrase = $this->_impSmime->getPassphrase(); if ($passphrase === false) { if (isset($_SESSION['imp']['viewmode']) && ($_SESSION['imp']['viewmode'] == 'imp')) { // TODO: Fix to work with DIMP $url = $this->_impSmime->getJSOpenWinCode('open_passphrase_dialog'); $this->_status[] = Horde::link('#', _("You must enter the passphrase for your S/MIME private key to view this message"), null, null, $url . ' return false;') . '' . _("You must enter the passphrase for your S/MIME private key to view this message") . '.'; $msg .= $this->_outputStatus() . ''; } return $msg; } $raw_text = $this->_getRawSMIMEText(); $decrypted_data = $this->_impSmime->decryptMessage($raw_text); if (is_a($decrypted_data, 'PEAR_Error')) { $this->_status[] = $decrypted_data->getMessage(); return $this->_outputStatus(); } /* We need to check if this is a signed/encrypted message. */ $mime_message = &MIME_Structure::parseTextMIMEMessage($decrypted_data); if ($mime_message) { /* Check for signed and encoded data. */ if (in_array($mime_message->getType(), array('multipart/signed', 'application/pkcs7-mime', 'application/x-pkcs7-mime'))) { $mime_message->setContents($decrypted_data); $mime_message->splitContents(); $mime_message->setInformation('smime_signenc', true); if (isset($this->_headers['from'])) { $mime_message->setInformation('smime_from', $this->_headers['from']); } } else { $msg .= $this->_outputStatus(); } /* We need to stick the output into a MIME_Contents object. */ $mc = new MIME_Contents($mime_message, array('download' => 'download_attach', 'view' => 'view_attach'), array(&$this->_contents)); $mc->buildMessage(); $msg .= '' . $mc->getMessage(true) . '
'; } else { require_once 'Horde/Text/Filter.php'; $msg .= $this->_outputStatus() . '' . Text_Filter::filter($decrypted_data, 'text2html', array('parselevel' => TEXT_HTML_SYNTAX)) . ''; } return $msg; } /** * Return text/html as the content-type. * * @return string "text/html" constant. */ function getType() { return 'text/html; charset=' . NLS::getCharset(); } /** * Get the headers of the S/MIME message. * * @access private */ function _getRawSMIMEText($include_headers = true) { $mime = &$this->mime_part; $mime->setContents($this->_contents->getBody()); if (is_a($this->_contents, 'IMP_Contents') && (($mime->getMIMEId() == 0) || ($mime->splitContents() == false))) { $imp_headers = &$this->_contents->getHeaderOb(); $this->_headers = MIME_Structure::parseMIMEHeaders($imp_headers->getHeaderText(), true, true); return $this->_contents->fullMessageText(); } if (!$include_headers) { return $mime->toCanonicalString(); } require_once IMP_BASE . '/lib/MIME/Headers.php'; $header_text = $mime->getCanonicalContents(); $header_text = substr($header_text, 0, strpos($header_text, "\r\n\r\n")); $this->_headers = MIME_Structure::parseMIMEHeaders($header_text, true, true); $imp_headers = new IMP_Headers(); if (isset($this->_headers['content-type'])) { $imp_headers->addHeader('Content-Type', $this->_headers['content-type']); } if (isset($this->_headers['from'])) { $imp_headers->addHeader('From', $this->_headers['from']); } if (isset($this->_headers['to'])) { $imp_headers->addHeader('To', $this->_headers['to']); } return $imp_headers->toString() . $mime->toCanonicalString(); } /* Various formatting helper functions. */ function _initStatus($src, $alt = '') { if ($this->_icon === null) { $this->_icon = Horde::img($src, $alt, 'height="16" width="16"', ''); } } function _outputStatus() { $output = ''; if (!empty($this->_status)) { $output = $this->_contents->formatStatusMsg($this->_status, $this->_icon); } $this->_icon = null; $this->_status = array(); return $output; } /** * Generates HTML output for the S/MIME signature test. * * @access private * * @param string $result Result string of the S/MIME output concerning * the signature test. * @param string $email The email of the sender. * * @return string The HTML output. */ function _outputSMIMESignatureTest($result, $email) { $text = ''; if (is_a($result, 'PEAR_Error')) { if ($result->getCode() == 'horde.warning') { $this->_initStatus($GLOBALS['registry']->getImageDir('horde') . '/alerts/warning.png', _("Warning")); } else { $this->_initStatus($GLOBALS['registry']->getImageDir('horde') . '/alerts/error.png', _("Error")); } $result = $result->getMessage(); } else { $this->_initStatus($GLOBALS['registry']->getImageDir('horde') . '/alerts/success.png', _("Success")); /* This message has been verified but there was no output from the PGP program. */ if (empty($result) || ($result === true)) { $email = (is_array($email)) ? implode(', ', $email): $email; $result = sprintf(_("The message has been verified. Sender: %s."), htmlspecialchars($email)); } } require_once 'Horde/Text/Filter.php'; $this->_status[] = Text_Filter::filter($result, 'text2html', array('parselevel' => TEXT_HTML_NOHTML)); return $this->_outputStatus(); } /** * Render out attachment information. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function renderAttachmentInfo($params) { $this->_contents = &$params[0]; $type = $this->_getSMIMEType(); switch ($type) { case 'signed': $this->_status[] = _("This message contains an attachment that has been digitally signed via S/MIME."); break; case 'encrypted': $this->_status[] = _("This message contains an attachment that has been encrypted via S/MIME."); break; } $this->_status[] = sprintf(_("Click %s to view the attachment in a separate window."), $this->_contents->linkViewJS($this->mime_part, 'view_attach', _("HERE"), _("View attachment in a separate window"))); $this->_initStatus($this->getIcon($this->mime_part->getType()), _("S/MIME")); return $this->_outputStatus(); } /** * Deterimne the S/MIME type of the message. * * @access private * * @return string Either 'encrypted' or 'signed'. */ function _getSMIMEType() { $type = $this->mime_part->getType(); if (in_array($type, array('application/pkcs7-mime', 'application/x-pkcs7-mime'))) { $smime_type = $this->mime_part->getContentTypeParameter('smime-type'); if ($smime_type == 'signed-data') { return 'signed'; } elseif (!$smime_type || ($smime_type == 'enveloped-data')) { return 'encrypted'; } } switch ($type) { case 'multipart/signed': case 'application/pkcs7-signature': case 'application/x-pkcs7-signature': return 'signed'; } } } ./lib/MIME/Viewer/html.php0000644000175000017500000002513211702026733015304 0ustar mathieumathieu * @author Jon Parise * @author Michael Slusarz * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_html extends MIME_Viewer_html { /** * The regular expression to catch any tags and attributes that load * external images. * * @var string */ var $_img_regex = '/ # match 1 ( # tags ]+?src= # tags |]+?src= # "background" attributes |]+?background=|]*background=|]*background= # "style" attributes; match 2; quotes: match 3 |(style=\s*("|\')?[^>]*?background(?:-image)?:(?(3)[^"\']|[^>])*?url\s*\() ) # whitespace \s* # opening quotes, parenthesis; match 4 ("|\')? # the image url; match 5 ((?(2) # matched a "style" attribute (?(4)[^"\')>]*|[^\s)>]*) # did not match a "style" attribute |(?(4)[^"\'>]*|[^\s>]*) )) # closing quotes (?(4)\\4) # matched a "style" attribute? (?(2) # closing parenthesis \s*\) # remainder of the "style" attribute; match 6 ((?(3)[^"\'>]*|[^\s>]*)) ) /isx'; /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { $contents = &$params[0]; $attachment = $contents->viewAsAttachment(); $data = $this->mime_part->getContents(); $msg_charset = $this->mime_part->getCharset(); /* Run tidy on the HTML. */ if ($this->getConfigParam('tidy') && ($tidy_config = IMP::getTidyConfig(String::length($data)))) { if ($msg_charset == 'us-ascii') { $tidy = tidy_parse_string($data, $tidy_config, 'ascii'); $tidy->cleanRepair(); $data = tidy_get_output($tidy); } else { $tidy = tidy_parse_string(String::convertCharset($data, $msg_charset, 'UTF-8'), $tidy_config, 'utf8'); $tidy->cleanRepair(); $data = String::convertCharset(tidy_get_output($tidy), 'UTF-8', $msg_charset); } } /* Sanitize the HTML. */ $data = $this->_cleanHTML($data); /* Reset absolutely positioned elements. */ if (!$attachment) { $data = preg_replace('/(style\s*=\s*)(["\'])?([^>"\']*)position\s*:\s*absolute([^>"\']*)\2/i', '$1"$3$4"', $data); } /* Search for inlined images that we can display. */ $related = $this->mime_part->getInformation('related_part'); if ($related !== false) { $relatedPart = $contents->getMIMEPart($related); foreach ($relatedPart->getCIDList() as $ref => $id) { $id = trim($id, '<>'); $cid_part = $contents->getDecodedMIMEPart($ref); $data = str_replace("cid:$id", $contents->urlView($cid_part, 'view_attach'), $data); } } /* Convert links to open in new windows. */ $data = $this->_openLinksInNewWindow($data); /* Turn mailto: links into our own compose links. */ if (!$attachment && $GLOBALS['registry']->hasMethod('mail/compose')) { $data = preg_replace_callback('/href\s*=\s*(["\'])?mailto:((?(1)[^\1]*?|[^\s>]+))(?(1)\1|)/i', array($this, '_mailtoCallback'), $data); } /* Filter bad language. */ $data = IMP::filterText($data); if ($attachment) { $charset = $this->mime_part->getCharset(); } else { $charset = NLS::getCharset(); /* Put div around message. */ $data = '
' . $data . '
'; } /* Only display images if specifically allowed by user. */ $msg = ''; $script = ''; if (!IMP::printMode() && $GLOBALS['prefs']->getValue('html_image_replacement')) { /* Check to see if images exist. */ if (preg_match($this->_img_regex, $data)) { /* Make sure the URL parameters are correct for the current * message. */ $url = Util::removeParameter(Horde::selfUrl(true), array('index')); if (!$attachment) { $url = Util::removeParameter($url, array('actionID')); } $base_ob = &$contents->getBaseObjectPtr(); $url = Util::addParameter($url, 'index', $base_ob->getMessageIndex()); $view_img = Util::getFormData('view_html_images'); $addr_check = ($GLOBALS['prefs']->getValue('html_image_addrbook') && $this->_inAddressBook($contents)); if (!$view_img && !$addr_check) { $script = Util::bufferOutput(array('Horde', 'addScriptFile'), 'prototype.js', 'imp', true); $script .= Util::bufferOutput(array('Horde', 'addScriptFile'), 'unblockImages.js', 'imp', true); $url = Util::addParameter($url, 'view_html_images', 1); $attributes = $attachment ? array('style' => 'color:blue') : array(); $msg = Horde::img('mime/image.png') . ' ' . String::convertCharset(_("Images have been blocked to protect your privacy."), NLS::getCharset(), $charset) . ' ' . Horde::link($url, '', '', '', 'return IMP.unblockImages(' . ($attachment ? 'document.body' : '$(\'html-message\')') . ', \'block-images\');', '', '', $attributes) . String::convertCharset(_("Show Images?"), NLS::getCharset(), $charset) . ''; $data = preg_replace_callback($this->_img_regex, array($this, '_blockImages'), $data); if ($attachment) { $msg = '' . nl2br($msg) . '
'; } $msg = '' . $msg . ''; } } } /* If we are viewing inline, give option to view in separate window. */ if (!$attachment && $this->getConfigParam('external')) { if ($msg) { $msg = str_replace('', ' | ', $msg); } $msg .= $contents->linkViewJS($this->mime_part, 'view_attach', _("Show this HTML in a new window?")); } $msg = $contents->formatStatusMsg($msg, null, false); if (stristr($data, ')/is', '$1' . $script . $msg, $data); } } /** */ function _mailtoCallback($m) { // TODO: Move charset conversion into html_entity_decode() once we // require PHP 5.0.0.+ return 'href="' . $GLOBALS['registry']->call('mail/compose', array(String::convertCharset(html_entity_decode($m[2]), 'iso-8859-1', NLS::getCharset()))) . '"'; } /** * Called from the image-blocking regexp to construct the new * image tags. * * @param array $matches * * @return string The new image tag. */ function _blockImages($matches) { static $blockimg; if (!isset($blockimg)) { $blockimg = Horde::url($GLOBALS['registry']->getImageDir('imp') . '/spacer_red.png', false, -1); } return empty($matches[2]) ? $matches[1] . '"' . $blockimg . '" blocked="' . rawurlencode(str_replace('&', '&', trim($matches[5], '\'" '))) . '"' : $matches[1] . "'" . $blockimg . '\')' . $matches[6] . '" blocked="' . rawurlencode(str_replace('&', '&', trim($matches[5], '\'" '))); } /** * Determine whether the sender appears in an available addressbook. * * @access private * * @param MIME_Contents &$contents The MIME_Contents object. * * @return boolean Does the sender appear in an addressbook? */ function _inAddressBook(&$contents) { global $registry, $prefs; /* If we don't have access to the sender information, return false. */ $base_ob = &$contents->getBaseObjectPtr(); /* If we don't have a contacts provider available, give up. */ if (!$registry->hasMethod('contacts/getField')) { return false; } $sources = explode("\t", $prefs->getValue('search_sources')); if ((count($sources) == 1) && empty($sources[0])) { $sources = array(); } /* Try to get back a result from the search. */ $result = $registry->call('contacts/getField', array($base_ob->getFromAddress(), '__key', $sources, false, true)); if (is_a($result, 'PEAR_Error')) { return false; } else { return (count($result) > 0); } } /** * Convert links to open in a new window. * * @param string $data Text to convert. */ function _openLinksInNewWindow($data) { /* Convert links to open in new windows. First we hide all * mailto: links, links that have an "#xyz" anchor and ignore * all links that already have a target. */ return preg_replace( array('/]*\bhref=["\']?(#|mailto:))/i', '/]*)\btarget=["\']?[^>"\'\s]*["\']?/i', '/]*\bhref=["\']?(#|mailto:))/i', '/]*)\btarget=["\']?[^>"\'\s]*["\']?/i', '/ * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_pgp extends MIME_Viewer { /** * IMP_PGP object. * * @var IMP_PGP */ var $_imp_pgp; /** * The address of the sender. * * @var string */ var $_address; /** * Pointer to the MIME_Contents item. * * @var MIME_Contents */ var $_contents = null; /** * Classwide cache for icons for status messages. * * @var string */ var $_icon = null; /** * Classwide cache for status messages. * * @var array */ var $_status = array(); /** * The MIME content-type of this part. * * @var string */ var $_type = 'text/html'; /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { global $conf, $prefs; /* Set the MIME_Contents class variable. */ $this->_contents = &$params[0]; $msg = ''; if (empty($this->_imp_pgp) && !empty($conf['utils']['gnupg'])) { $this->_imp_pgp = new IMP_PGP(); } /* Determine the address of the sender. */ if (empty($this->_address)) { $base_ob = &$this->_contents->getBaseObjectPtr(); $this->_address = $base_ob->getFromAddress(); } /* We need to insert JavaScript code now if PGP support is active. */ if (!empty($conf['utils']['gnupg']) && $prefs->getValue('use_pgp') && !Util::getFormData('rawpgpkey')) { $msg = Util::bufferOutput(array('Horde', 'addScriptFile'), 'prototype.js', 'imp', true); $msg .= Util::bufferOutput(array('Horde', 'addScriptFile'), 'popup.js', 'imp', true); } /* For RFC 2015/3156, there are 3 types of messages: + multipart/encrypted + multipart/signed + application/pgp-keys */ switch ($this->mime_part->getType()) { case 'application/pgp-keys': $msg .= $this->_outputPGPKey(); break; case 'multipart/signed': case 'application/pgp-signature': $msg .= $this->_outputPGPSigned(); break; case 'multipart/encrypted': case 'application/pgp-encrypted': $msg .= $this->_outputPGPEncrypted(); break; } return $msg; } /** * Return the content-type of the output. * * @return string The MIME content type of the output. */ function getType() { return $this->_type; } /** * Generates HTML output for 'application/pgp-keys' MIME_Parts.. * * @access private * * @return string The HTML output. */ function _outputPGPKey() { global $conf, $prefs; $mime = &$this->mime_part; $part = $this->_contents->getDecodedMIMEPart($mime->getMIMEId()); if ($this->_contents->viewAsAttachment() || empty($conf['utils']['gnupg'])) { $text = '
' . $part->getContents() . '
'; } elseif (Util::getFormData('rawpgpkey')) { $text = $part->getContents(); $this->_type = 'text/plain'; } else { require_once 'Horde/Text.php'; $pgp_key = $mime->getContents(); /* Initialize status message. */ $this->_initStatus($this->getIcon($mime->getType()), _("PGP")); $msg = _("This PGP Public Key was attached to the message."); if ($prefs->getValue('use_pgp') && $GLOBALS['registry']->hasMethod('contacts/addField') && $prefs->getValue('add_source')) { $msg .= ' ' . Horde::link('#', '', '', '', $this->_imp_pgp->savePublicKeyURL($mime) . ' return false;') . _("[Save the key to your Address book]") . ''; } $this->_status[] = $msg . ' ' . $this->_contents->linkViewJS($part, 'view_attach', _("[View the raw key]"), '', null, array('rawpgpkey' => 1)); $text = $this->_outputStatus(false) . '' . nl2br(str_replace(' ', ' ', $this->_imp_pgp->pgpPrettyKey($pgp_key))) . ''; } return $text; } /** * Generates HTML output for 'multipart/signed' and * 'application/pgp-signature' MIME_Parts. * * @access private * * @return string The HTML output. */ function _outputPGPSigned() { global $conf, $prefs; $active = ($prefs->getValue('use_pgp') && !empty($conf['utils']['gnupg'])); $mime = &$this->mime_part; $mimetype = $mime->getType(); $text = ''; $signenc = $mime->getInformation('pgp_signenc'); if (!$active) { if ($signenc) { $this->_status[] = _("The message below has been digitally signed and encrypted with PGP, but the signature cannot be verified."); } else { $this->_status[] = _("The message below has been digitally signed with PGP, but the signature cannot be verified."); } } else { if ($signenc) { $this->_status[] = _("The message below has been digitally signed and encrypted with PGP."); } else { $this->_status[] = _("The message below has been digitally signed with PGP."); } } $this->_initStatus($this->getIcon($mimetype), _("PGP")); /* Store PGP results in $sig_result; store text in $data. */ $sig_result = null; if ($mimetype == 'multipart/signed') { /* If the MIME ID is 0, we need to store the body of the message in the MIME_Part object. */ if (!$signenc) { if (($mimeID = $mime->getMIMEId())) { $mime->setContents($this->_contents->getBodyPart($mimeID)); } else { $mime->setContents($this->_contents->getBody()); } $mime->splitContents(); } /* Data that is signed appears in the first MIME subpart. */ $subpart = $mime->getPart($mime->getRelativeMIMEId(1)); $signature_data = rtrim($subpart->getCanonicalContents(), "\r"); require_once 'Horde/MIME/Structure.php'; $mime_message = &MIME_Structure::parseTextMIMEMessage($signature_data); /* The PGP signature appears in the second MIME subpart. */ $subpart = $mime->getPart($mime->getRelativeMIMEId(2)); if ($subpart && $subpart->getType() == 'application/pgp-signature') { if ($active) { if ($GLOBALS['prefs']->getValue('pgp_verify') || Util::getFormData('pgp_verify_msg')) { $subpart->transferDecodeContents(); $sig_result = $this->_imp_pgp->verifySignature($signature_data, $this->_address, $subpart->getContents()); } elseif (isset($_SESSION['imp']['viewmode']) && ($_SESSION['imp']['viewmode'] == 'imp')) { // TODO: Fix to work with DIMP $base_ob = &$this->_contents->getBaseObjectPtr(); $this->_status[] = Horde::link(Util::addParameter(IMP::generateIMPUrl(Horde::selfUrl(), $GLOBALS['imp_mbox']['mailbox'], $GLOBALS['imp_mbox']['index'], $GLOBALS['imp_mbox']['thismailbox']), 'pgp_verify_msg', 1)) . _("Click HERE to verify the message.") . ''; } } } else { $sig_result = PEAR::raiseError(_("The message below does not appear to be in the correct PGP format (according to RFC 2015).")); } } elseif ($mimetype == 'application/pgp-signature') { /* Get the signed message to output. */ require_once 'Horde/MIME/Message.php'; $mime_message = new MIME_Message(); $mime_message->setType('text/plain'); $mime->transferDecodeContents(); if (empty($this->_imp_pgp)) { $mime_message->setContents($mime->getContents()); } else { $mime_message->setContents($this->_imp_pgp->getSignedMessage($mime)); } /* Pass the signed text straight through to PGP program */ if ($active) { if ($GLOBALS['prefs']->getValue('pgp_verify') || Util::getFormData('pgp_verify_msg')) { $sig_result = $this->_imp_pgp->verifySignature($mime->getContents(), $this->_address); } elseif (isset($_SESSION['imp']['viewmode']) && ($_SESSION['imp']['viewmode'] == 'imp')) { // TODO: Fix to work with DIMP $this->_status[] = Horde::link(Util::addParameter(Horde::selfUrl(true), 'pgp_verify_msg', 1)) . _("Click HERE to verify the message.") . ''; } } } $text = $this->_outputStatus(); $class = ''; if ($sig_result !== null) { $text .= $this->_outputPGPSignatureTest($sig_result); if ($this->getConfigParam('highlight')) { $class = ' class="' . (is_a($sig_result, 'PEAR_Error') ? 'signedinvalid' : 'signedvalid') . '"'; } } /* We need to stick the output into a MIME_Contents object. */ $mc = new MIME_Contents($mime_message, array('download' => 'download_attach', 'view' => 'view_attach'), array(&$this->_contents)); $mc->buildMessage(); return $text . '' . $mc->getMessage(true) . '
'; } /** * Generates HTML output for 'multipart/encrypted' and * 'application/pgp-encrypted' MIME_Parts. * * @access private * * @return string The HTML output. */ function _outputPGPEncrypted() { global $conf, $prefs; $mime = &$this->mime_part; $mimetype = $mime->getType(); $text = ''; $this->_initStatus($this->getIcon($mimetype), _("PGP")); /* Print out message now if PGP is not active. */ if (empty($conf['utils']['gnupg']) || !$prefs->getValue('use_pgp')) { $this->_status[] = _("The message below has been encrypted with PGP, however, PGP support is disabled so the message cannot be decrypted."); return $this->_outputStatus(); } if ($mimetype == 'multipart/encrypted') { /* PGP control information appears in the first MIME subpart. We don't currently need to do anything with this information. The encrypted data appears in the second MIME subpart. */ $subpart = $mime->getPart($mime->getRelativeMIMEId(2)); if (!$subpart) { return $text; } $encrypted_data = $this->_contents->getBodyPart($subpart->getMIMEId()); } elseif ($mimetype == 'application/pgp-encrypted') { $encrypted_data = $mime->getContents(); } else { return $text; } /* Check if this is a literal compressed message. */ $info = $this->_imp_pgp->pgpPacketInformation($encrypted_data); $literal = !empty($info['literal']); /* Check if this a symmetrically encrypted message. */ $symmetric = is_callable(array($this->_imp_pgp, 'encryptedSymmetrically')) ? $this->_imp_pgp->encryptedSymmetrically($encrypted_data) : false; if ($symmetric && !$this->_imp_pgp->getSymmetricPassphrase()) { if (isset($_SESSION['imp']['viewmode']) && ($_SESSION['imp']['viewmode'] == 'imp')) { // TODO: Fix to work with DIMP /* Ask for the correct passphrase if this is encrypted * symmetrically. */ $url = $this->_imp_pgp->getJSOpenWinCode('open_symmetric_passphrase_dialog'); $this->_status[] = Horde::link('#', _("The message below has been encrypted with PGP. You must enter the passphrase that was used to encrypt this message."), null, null, $url . ' return false;') . _("You must enter the passphrase that was used to encrypt this message.") . ''; $text .= $this->_outputStatus() . Util::bufferOutput(array('IMP', 'addInlineScript'), $url); } } elseif (!$literal && !$symmetric && !$this->_imp_pgp->getPersonalPrivateKey()) { /* Output if there is no personal private key to decrypt with. */ $this->_status[] = _("The message below has been encrypted with PGP, however, no personal private key exists so the message cannot be decrypted."); return $this->_outputStatus(); } elseif (!$literal && !$symmetric && !$this->_imp_pgp->getPassphrase()) { if (isset($_SESSION['imp']['viewmode']) && ($_SESSION['imp']['viewmode'] == 'imp')) { // TODO: Fix to work with DIMP /* Ask for the private key's passphrase if this is encrypted * asymmetrically. */ $url = $this->_imp_pgp->getJSOpenWinCode('open_passphrase_dialog'); $this->_status[] = Horde::link('#', _("The message below has been encrypted with PGP. You must enter the passphrase for your PGP private key before it can be decrypted."), null, null, $url . ' return false;') . _("You must enter the passphrase for your PGP private key to view this message.") . ''; $text .= $this->_outputStatus() . Util::bufferOutput(array('IMP', 'addInlineScript'), $url); } } else { /* Decrypt this message. */ $this->_status[] = $literal ? _("The message below has been compressed with PGP.") : _("The message below has been encrypted with PGP."); if ($mimetype == 'multipart/encrypted') { if ($subpart->getType() == 'application/octet-stream') { $decrypted_data = $this->_imp_pgp->decryptMessage($encrypted_data, $symmetric, !$literal); if (is_a($decrypted_data, 'PEAR_Error')) { $this->_status[] = _("The message below does not appear to be a valid PGP encrypted message. Error: ") . $decrypted_data->getMessage(); $text .= $this->_outputStatus(); } else { /* We need to check if this is a signed/encrypted message. */ require_once 'Horde/MIME/Structure.php'; $mime_message = &MIME_Structure::parseTextMIMEMessage($decrypted_data->message); if (!$mime_message) { require_once 'Horde/Text/Filter.php'; $text .= $this->_signedOutput($decrypted_data->sig_result); $decrypted_message = String::convertCharset($decrypted_data->message, $subpart->getCharset()); $text .= '' . Text_Filter::filter($decrypted_message, 'text2html', array('parselevel' => TEXT_HTML_SYNTAX)) . ''; } else { $mimetype = $mime_message->getType(); if (($mimetype == 'multipart/signed') || ($mimetype == 'application/pgp-signature')) { $mime_message->setInformation('pgp_signenc', true); $mime_message->setContents($decrypted_data->message); $mime_message->splitContents(); } else { $text .= $this->_signedOutput($decrypted_data->sig_result); } /* We need to stick the output into a MIME_Contents object. */ $mc = new MIME_Contents($mime_message, array('download' => 'download_attach', 'view' => 'view_attach'), array(&$this->_contents)); $mc->buildMessage(); if ($mime_message->getInformation('pgp_signenc')) { $text .= $mc->getMessage(true); } else { $text .= '' . $mc->getMessage(true) . '
'; } } } } else { $this->_status[] = _("The message below does not appear to be in the correct PGP format (according to RFC 2015)."); $text .= $this->_outputStatus(); } } elseif ($mimetype == 'application/pgp-encrypted') { $decrypted_data = $this->_imp_pgp->decryptMessage($encrypted_data, $symmetric, !$literal); if (is_a($decrypted_data, 'PEAR_Error')) { $decrypted_message = $decrypted_data->getMessage(); $text .= $this->_outputStatus(); } else { $text .= $this->_signedOutput($decrypted_data->sig_result); $decrypted_message = String::convertCharset($decrypted_data->message, $mime->getCharset()); } require_once 'Horde/Text/Filter.php'; $text .= '' . Text_Filter::filter($decrypted_message, 'text2html', array('parselevel' => TEXT_HTML_SYNTAX)) . ''; } } $this->_imp_pgp->unsetSymmetricPassphrase(); return $text; } /** * Generates HTML output for the PGP signature test. * * @access private * * @param string $result Result string of the PGP output concerning the * signature test. * * @return string The HTML output. */ function _outputPGPSignatureTest($result) { $text = ''; if (is_a($result, 'PEAR_Error')) { $this->_initStatus($GLOBALS['registry']->getImageDir('horde') . '/alerts/error.png', _("Error")); $result = $result->getMessage(); } else { $this->_initStatus($GLOBALS['registry']->getImageDir('horde') . '/alerts/success.png', _("Success")); /* This message has been verified but there was no output from the PGP program. */ if (empty($result)) { $result = _("The message below has been verified."); } } require_once 'Horde/Text/Filter.php'; $this->_status[] = Text_Filter::filter($result, 'text2html', array('parselevel' => TEXT_HTML_NOHTML)); return $this->_outputStatus(); } /** * Output signed message status. * * @access private * * @param string $result The signature result. * * @return string HTML output. */ function _signedOutput($result) { if (!empty($result)) { return $this->_outputPGPSignatureTest($result); } else { return $this->_outputStatus(); } } /* Various formatting helper functions */ function _initStatus($src, $alt = '') { if ($this->_icon === null) { $this->_icon = Horde::img($src, $alt, 'height="16" width="16"', ''); } } function _outputStatus($printable = true) { $output = ''; if (!empty($this->_status)) { $output = $this->_contents->formatStatusMsg($this->_status, $this->_icon, $printable); } $this->_icon = null; $this->_status = array(); return $output; } } ./lib/MIME/Viewer/zip.php0000644000175000017500000000776111702026733015152 0ustar mathieumathieu * @author Michael Slusarz * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_zip extends MIME_Viewer_zip { /** * The IMP_Contents object, needed for the _callback() function. * * @var IMP_Contents */ var $_contents; /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string Either the list of zip files or the data of an * individual zip file. */ function render($params) { $contents = &$params[0]; $data = $this->mime_part->getContents(); $text = ''; /* Send the requested file. Its position in the zip archive is located * in 'zip_attachment'. */ if (Util::getFormData('zip_attachment')) { require_once 'Horde/Compress.php'; $zip = &Horde_Compress::singleton('zip'); $fileKey = Util::getFormData('zip_attachment') - 1; $zipInfo = $zip->decompress( $data, array('action' => HORDE_COMPRESS_ZIP_LIST)); /* Verify that the requested file exists. */ if (isset($zipInfo[$fileKey])) { $text = $zip->decompress( $data, array('action' => HORDE_COMPRESS_ZIP_DATA, 'info' => &$zipInfo, 'key' => $fileKey)); if (empty($text)) { $text = '
' . _("Could not extract the requested file from the Zip archive.") . '
'; } else { $this->mime_part->setType('application/octet-stream'); $this->mime_part->setName(basename($zipInfo[$fileKey]['name'])); } } else { $text = '
' . _("The requested file does not exist in the Zip attachment.") . '
'; } } else { $this->_contents = $contents; $text = parent::_render($data, array($this, '_callback')); } return $text; } /** * The function to use as a callback to parent::_render(). * * @access private * * @param integer $key The position of the file in the zip archive. * @param array $val The information array for the archived file. * * @return string The content-type of the output. */ function _callback($key, $val) { $name = preg_replace('/( )+$/', '', $val['name']); if (!empty($val['size']) && (strstr($val['attr'], 'D') === false) && ((($val['method'] == 0x8) && Util::extensionExists('zlib')) || ($val['method'] == 0x0))) { $old_name = $this->mime_part->getName(); $this->mime_part->setName(basename($name)); $val['name'] = str_replace( $name, $this->_contents->linkView( $this->mime_part, 'download_render', $name, array('jstext' => sprintf(_("View %s"), str_replace(' ', ' ', $name)), 'class' => 'fixed', 'viewparams' => array( 'ctype' => 'application/zip', 'zip_attachment' => (urlencode($key) + 1)))), $val['name']); $this->mime_part->setName($old_name); } return $val; } } ./lib/MIME/Viewer/partial.php0000644000175000017500000000653311702026733016000 0ustar mathieumathieu * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_partial extends MIME_Viewer { /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { $contents = &$params[0]; $base_ob = &$contents->getBaseObjectPtr(); $curr_index = $base_ob->getMessageIndex(); $id = $this->mime_part->getContentTypeParameter('id'); $parts = array(); require_once IMP_BASE . '/lib/IMAP/Search.php'; require_once 'Horde/MIME/Contents.php'; require_once 'Horde/MIME/Structure.php'; /* Perform the search to find the other parts of the message. */ $imap_search = &IMP_IMAP_Search::singleton(array('pop3' => ($_SESSION['imp']['base_protocol'] == 'pop3'))); $query = new IMP_IMAP_Search_Query(); $query->header('Content-Type', $id); $indices = $imap_search->searchMailbox($query, null, $GLOBALS['imp_mbox']['thismailbox']); /* If not able to find the other parts of the message, print error. */ if (count($indices) != $this->mime_part->getContentTypeParameter('total')) { return $contents->formatStatusMsg(sprintf(_("Cannot display - found only %s of %s parts of this message in the current mailbox."), count($indices), $this->mime_part->getContentTypeParameter('total'))); } /* Get the contents of each of the parts. */ foreach ($indices as $val) { /* No need to fetch the current part again. */ if ($val == $curr_index) { $parts[$this->mime_part->getContentTypeParameter('number')] = $this->mime_part->getContents(); } else { require_once IMP_BASE . '/lib/MIME/Contents.php'; require_once IMP_BASE . '/lib/MIME/Headers.php'; $imp_contents = &IMP_Contents::singleton($val . IMP_IDX_SEP . $GLOBALS['imp_mbox']['thismailbox']); $part = &$imp_contents->getMIMEPart(0); $parts[$part->getContentTypeParameter('number')] = $imp_contents->getBody(); } } /* Sort the parts in numerical order. */ ksort($parts, SORT_NUMERIC); /* Combine the parts and render the underlying data. */ $mime_message = &MIME_Structure::parseTextMIMEMessage(implode('', $parts)); $mc = new MIME_Contents($mime_message, array('download' => 'download_attach', 'view' => 'view_attach'), array(&$contents)); $mc->buildMessage(); return '' . $mc->getMessage(true) . '
'; } /** * Return the content-type of the rendered output. * * @return string The content-type of the output. */ function getType() { return 'text/html; charset=' . NLS::getCharset(); } } ./lib/MIME/Viewer/status.php0000644000175000017500000001552611702026733015671 0ustar mathieumathieu * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_status extends MIME_Viewer { /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { $contents = &$params[0]; /* If this is a straight message/delivery-status part, just output the text. */ if ($this->mime_part->getType() == 'message/delivery-status') { $part = new MIME_Part('text/plain'); $part->setContents($this->mime_part->getContents()); return '
' . $contents->renderMIMEPart($part) . '
'; } global $registry; /* RFC 3464 [2]: There are three parts to a delivery status multipart/report message: (1) Human readable message (2) Machine parsable body part (message/delivery-status) (3) Returned message (optional) Information on the message status is found in the 'Action' field located in part #2 (RFC 2464 [2.3.3]). It can be either 'failed', 'delayed', 'delivered', 'relayed', or 'expanded'. */ $action = null; $part2 = $contents->getDecodedMIMEPart($this->mime_part->getRelativeMIMEId(2)); if (empty($part2)) { return $this->_errorMsg($contents); } foreach (explode("\n", $part2->getContents()) as $line) { if (strstr($line, 'Action:') !== false) { $pos = strpos($line, ':') + 1; $action = strtolower(trim(substr($line, $pos))); break; } } if (strpos($action, ' ') !== false) { $action = substr($action, 0, strpos($action, ' ')); } /* Get the correct text strings for the action type. */ switch ($action) { case 'failed': case 'delayed': $graphic = 'alerts/error.png'; $alt = _("Error"); $msg = array( _("ERROR: Your message could not be delivered."), _("The mail server generated the following error message:") ); $detail_msg = _("Additional message error details can be viewed %s."); $detail_msg_status = _("Additional message error details"); $msg_link = _("The text of the returned message can be viewed %s."); $msg_link_status = _("The text of the returned message"); break; case 'delivered': case 'expanded': case 'relayed': $graphic = 'alerts/success.png'; $alt = _("Success"); $msg = array( _("Your message was successfully delivered."), _("The mail server generated the following message:") ); $detail_msg = _("Additional message details can be viewed %s."); $detail_msg_status = _("Additional message details"); $msg_link = _("The text of the message can be viewed %s."); $msg_link_status = _("The text of the message"); break; default: $graphic = ''; $alt = ''; $msg = ''; $detail_msg = ''; $detail_msg_status = ''; $msg_link = ''; $msg_link_status = ''; } /* Print the human readable message. */ $part = $contents->getDecodedMIMEPart($this->mime_part->getRelativeMIMEId(1)); if (empty($part)) { return $this->_errorMsg($contents); } $statusimg = Horde::img($graphic, $alt, 'height="16" width="16"', $registry->getImageDir('horde')); $text = $contents->formatStatusMsg($msg, $statusimg); $text .= '
' . $contents->renderMIMEPart($part) . '
' . "\n"; /* Display a link to more detailed error message. */ $detailed_msg = array( sprintf($detail_msg, $contents->linkViewJS($part2, 'view_attach', _("HERE"), $detail_msg_status)) ); /* Display a link to the returned message. Try to download the text of the message/rfc822 part first, if it exists. TODO: Retrieving by part ID 3.0 is deprecated. Remove this once Horde 4.0 is released. */ if (($part = $contents->getDecodedMIMEPart($this->mime_part->getRelativeMIMEId(3))) || ($part = $contents->getDecodedMIMEPart($this->mime_part->getRelativeMIMEId('3.0')))) { $detailed_msg[] = sprintf($msg_link, $contents->linkViewJS($part, 'view_attach', _("HERE"), $msg_link_status, null, array('ctype' => 'message/rfc822'))); } $infoimg = Horde::img('info_icon.png', _("Info"), 'height="16" width="16"', $registry->getImageDir('horde')); $text .= $contents->formatStatusMsg($detailed_msg, $infoimg, false); return $text; } /** * Return the content-type. * * @return string The content-type of the message. */ function getType() { return 'text/html; charset=' . NLS::getCharset(); } /** * Returns an error string for a malformed RFC 3464 message. * * @param MIME_Contents &$contents The MIME_Contents object for this * message. * * @return string The error message string. */ function _errorMsg(&$contents) { $err_msg = array( _("This message contains mail delivery status information, but the format of this message is unknown."), _("Below is the raw text of the status information message.") ); $img = Horde::img('alerts/error.png', _("Error"), 'height="16" width="16"', $GLOBALS['registry']->getImageDir('horde')); $text = $contents->formatStatusMsg($err_msg, $img); /* There is currently no BC way to obtain all parts from a message * and display the summary of each part. So instead, display the * entire raw contents of the message. See Bug 3757. */ $text .= '
';
        if (is_a($contents, 'IMP_Contents')) {
            $contents->rebuildMessage();
            $message = $contents->getMIMEMessage();
            $text .= $contents->toString($message, true);
        } else {
            $text .= htmlspecialchars($this->mime_part->getContents());
        }

        return $text . '
'; } } ./lib/MIME/Viewer/related.php0000644000175000017500000000647211702026733015766 0ustar mathieumathieu * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_related extends MIME_Viewer { /** * The character set of the rendered HTML part. * * @var string */ var $_charset = null; /** * The mime type of the message part that has been chosen to be displayed. * * @var string */ var $_viewerType = 'text/html'; /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { $contents = &$params[0]; /* Look at the 'start' parameter to determine which part to start with. If no 'start' parameter, use the first part. RFC 2387 [3.1] */ if ($this->mime_part->getContentTypeParameter('start') && ($key = array_search($this->mime_part->getContentTypeParameter('start'), $this->mime_part->getCIDList()))) { if (($pos = strrpos($key, '.'))) { $id = substr($key, $pos + 1); } else { $id = $key; } } else { $id = 1; } $start = $this->mime_part->getPart($this->mime_part->getRelativeMimeID($id)); /* Only display if the start part (normally text/html) can be displayed inline -OR- we are viewing this part as an attachment. */ if ($contents->canDisplayInline($start) || $contents->viewAsAttachment()) { $text = $contents->renderMIMEPart($start); $this->_viewerType = $contents->getMIMEViewerType($start); $this->_charset = $start->getCharset(); } else { $text = ''; } return $text; } /** * Render out attachment information. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function renderAttachmentInfo($params) { $contents = &$params[0]; $msg = sprintf(_("Click %s to view this multipart/related part in a separate window."), $contents->linkViewJS($this->mime_part, 'view_attach', _("HERE"), _("View content in a separate window"))); return $contents->formatStatusMsg($msg, Horde::img('mime/html.png', _("HTML")), false); } /** * Return the content-type. * * @return string The content-type of the message. */ function getType() { return $this->_viewerType . '; charset=' . $this->getCharset(); } /** * Returns the character set used for the Viewer. * * @return string The character set used by this Viewer. */ function getCharset() { return ($this->_charset === null) ? NLS::getCharset() : $this->_charset; } } ./lib/MIME/Viewer/enriched.php0000644000175000017500000000454211702026733016123 0ustar mathieumathieu * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_enriched extends MIME_Viewer_enriched { /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function render($params) { $contents = &$params[0]; global $prefs; if (($text = $this->mime_part->getContents()) === false) { return $contents->formatPartError(_("There was an error displaying this message part")); } if (trim($text) == '') { return $text; } $text = parent::render(); // Highlight quoted parts of an email. if ($prefs->getValue('highlight_text')) { $text = implode("\n", preg_replace('|^(\s*>.+)$|', '\1', explode("\n", $text))); $indent = 1; while (preg_match('|>(\s?>){' . $indent . '}|', $text)) { $text = implode("\n", preg_replace('|^(\s*>(\s?>){' . $indent . '}.+)$|', '\1', explode("\n", $text))); $indent++; } } // Dim signatures. if ($prefs->getValue('dim_signature')) { $parts = preg_split('|(\n--\s*\n)|', $text, 2, PREG_SPLIT_DELIM_CAPTURE); $text = array_shift($parts); if (count($parts)) { $text .= '' . $parts[0] . preg_replace('|class="[^"]+"|', 'class="signature-fixed"', $parts[1]) . ''; } } // Filter bad language. $text = IMP::filterText($text); return $text; } } ./lib/MIME/Viewer/tnef.php0000644000175000017500000001161711702026733015277 0ustar mathieumathieu * @package Horde_MIME_Viewer */ class IMP_MIME_Viewer_tnef extends MIME_Viewer_tnef { /** * The contentType of the attachment. * * @var string */ var $_contentType = 'application/octet-stream'; /** * Render out the currently set contents. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string Either the list of tnef files or the data of an * individual tnef file. */ function render($params) { $contents = &$params[0]; $text = ''; /* Get the data from the attachment. */ $tnefData = $this->_getSubparts(); /* Display the requested file. Its position in the $tnefData array can be found in 'tnef_attachment'. */ if (Util::getFormData('tnef_attachment')) { $tnefKey = Util::getFormData('tnef_attachment') - 1; /* Verify that the requested file exists. */ if (isset($tnefData[$tnefKey])) { $text = $tnefData[$tnefKey]['stream']; if (empty($text)) { $text = $contents->formatStatusMsg(_("Could not extract the requested file from the MS-TNEF attachment.")); } else { $this->mime_part->setName($tnefData[$tnefKey]['name']); $this->mime_part->setType($tnefData[$tnefKey]['type'] . '/' . $tnefData[$tnefKey]['subtype']); } } else { $text = $contents->formatStatusMsg(_("The requested file does not exist in the MS-TNEF attachment.")); } } else { $text = $this->renderAttachmentInfo(array($params[0])); } return $text; } /** * Render out TNEF attachment information. * * @param array $params An array with a reference to a MIME_Contents * object. * * @return string The rendered text in HTML. */ function renderAttachmentInfo($params) { $contents = &$params[0]; $text = ''; /* Make sure the contents are in the MIME_Part object. */ if (!$this->mime_part->getContents()) { $this->mime_part->setContents($contents->getBodyPart($this->mime_part->getMIMEId())); } /* Get the data from the attachment. */ $tnefData = $this->_getSubparts(); if (!count($tnefData)) { $text = $contents->formatStatusMsg(_("No attachments found.")); } else { $text = $contents->formatStatusMsg(_("The following files were attached to this part:")) . '
'; foreach ($tnefData as $key => $data) { $temp_part = $this->mime_part; $temp_part->setName($data['name']); $temp_part->setDescription($data['name']); /* Short-circuit MIME-type guessing for winmail.dat parts; we're showing enough entries for them already. */ require_once 'Horde/MIME/Magic.php'; $type = $data['type'] . '/' . $data['subtype']; if (($type == 'application/octet-stream') || ($type == 'application/base64')) { $type = MIME_Magic::filenameToMIME($data['name']); } $temp_part->setType($type); $link = $contents->linkView($temp_part, 'view_attach', htmlspecialchars($data['name']), array('jstext' => sprintf(_("View %s"), $data['name']), 'viewparams' => array('tnef_attachment' => ($key + 1)))); $text .= _("Attached File:") . '  ' . $link . '  (' . $data['type'] . '/' . $data['subtype'] . ")
\n"; } } return $text; } /** * List any embedded attachments in the TNEF part. * * @access private * * @return array An array of any embedded attachments. */ function _getSubparts() { require_once 'Horde/Compress.php'; $tnef = &Horde_Compress::singleton('tnef'); return $tnef->decompress($this->mime_part->transferDecode()); } /** * Return the content-type. * * @return string The content-type of the output. */ function getType() { if (Util::getFormData('tnef_attachment')) { return $this->_contentType; } else { return 'text/html; charset=' . NLS::getCharset(); } } } ./lib/Sentmail.php0000644000175000017500000001123111702026733014117 0ustar mathieumathieu * @since IMP 4.2 * @package IMP */ class IMP_Sentmail { /** * Logs an attempt to send a message. * * @param string $action Why the message was sent, i.e. "new", * "reply", "forward", etc. * @param string $message_id The Message-ID. * @param string|array $recipients The list of message recipients. * @param boolean $success Whether the attempt was successful. */ function log($action, $message_id, $recipients, $success = true) { if (!is_array($recipients)) { $recipients = array($recipients); } foreach ($recipients as $addresses) { $addresses = IMP::bareAddress($addresses, true); foreach ($addresses as $recipient) { $this->_log($action, $message_id, $recipient, $success); } } $this->gc(); } /** * Logs an attempt to send a message per recipient. * * @param string $action Why the message was sent, i.e. "new", * "reply", "forward", etc. * @param string $message_id The Message-ID. * @param string $recipients A message recipient. * @param boolean $success Whether the attempt was successful. */ function _log($action, $message_id, $recipient, $success) { } /** * Returns the most favourite recipients. * * @param integer $limit Return this number of recipients. * @param array $filter A list of messages types that should be returned. * A value of null returns all message types. * * @return array A list with the $limit most favourite recipients. */ function favouriteRecipients($limit, $filter = array('new', 'forward', 'reply', 'redirect')) { return array(); } /** * Returns the number of recipients within a certain time period. * * @param integer $hours Time period in hours. * @param boolean $user Return the number of recipients for the current * user? * * @return integer The number of recipients in the given time period. */ function numberOfRecipients($hours, $user = false) { return 0; } /** * Garbage collect log entries with a probability of 1%. */ function gc() { /* A 1% chance we will run garbage collection during a call. */ if (rand(0, 99) == 0) { $this->_deleteOldEntries(time() - $this->_params['threshold'] * 86400); } } /** * Deletes all log entries older than a certain date. * * @param integer $before Unix timestamp before that all log entries * should be deleted. */ function _deleteOldEntries($before) { } /** * Attempts to return a concrete IMP_Sentmail instance based on $driver. * * @param string $driver The type of the concrete IMP_Sentmail subclass * to return. The class name is based on the * storage driver ($driver). The code is * dynamically included. * * @param array $params A hash containing any additional configuration * or connection parameters a subclass might need. * * @return mixed The newly created concrete IMP_Sentmail instance, or * false on an error. */ function factory($driver = null, $params = null) { if ($driver === null) { $driver = $GLOBALS['conf']['sentmail']['driver']; } if ($params === null) { $params = Horde::getDriverConfig('sentmail', $driver); } $driver = basename($driver); $class = 'IMP_Sentmail_' . $driver; if (!class_exists($class)) { @include dirname(__FILE__) . '/Sentmail/' . $driver . '.php'; } if (class_exists($class)) { $sentmail = new $class($params); $result = $sentmail->initialize(); if (!is_a($result, 'PEAR_Error')) { return $sentmail; } } return new IMP_Sentmail(); } } ./lib/version.php0000644000175000017500000000005611702026733014033 0ustar mathieumathieu ./lib/Session.php0000644000175000017500000004131111702026733013770 0ustar mathieumathieu * @author Jon Parise * @package IMP */ class IMP_Session { /** * Take information posted from a login attempt and try setting up * an initial IMP session. Handle Horde authentication, if * required, and only do enough work to see if the user can log * in. This function should only be called once, when the user * first logs in. On success, logs a message to the Horde log. * * Creates the $imp session variable with the following entries: * '_logintasks' -- Have the login tasks been completed? * 'acl' -- See config/servers.php. * 'admin' -- See config/servers.php. * 'base_protocol' -- Either 'imap' or 'pop3'. * 'cache' -- Various IMP libraries can use this variable to cache * data. * 'default_view' -- The default view (dimp, imp, or mimp). * 'file_upload' -- If file uploads are allowed, the max size. * 'filteravail' -- Can we apply filters manually? * 'imap_server' -- IMAP server capabilities. * 'maildomain' -- See config/servers.php. * 'mboxcache' -- Used by the IMP_MailboxCache library. * 'namespace' -- See config/servers.php. * 'notepadavail' -- Is listing of notepads available? * 'pass' -- The encrypted password. * 'port' -- See config/servers.php. * 'protocol' -- See config/servers.php. * 'quota' -- See config/servers.php. * 'search' -- Settings used by the IMP_Search library. * 'server' -- The name of the server entry in config/servers.php. * 'smime' -- Settings related to the S/MIME viewer. * 'smtphost' -- The SMTP host to use instead of the Horde default. * 'smtpport' -- The SMTP port to use instead of the Horde default. * 'showunsub' -- Show unsusubscribed mailboxes on the folders screen. * 'tasklistavail' -- Is listing of tasklists available? * 'uniquser' -- The unique user name. * 'user' -- The IMAP username. * 'viewmode' -- The imp view mode (currently dimp, imp, or mimp) * * @param string $imapuser The username of the user. * @param string $password The password of the user. * @param string $server The server to use (see config/servers.php). * @param array $args The necessary server information. * * @return boolean True on success, false on failure. */ function createSession($imapuser, $password, $server, $args = array()) { global $conf, $registry; /* We need both a username and password. */ if (!strlen($imapuser) || !strlen($password)) { return false; } /* Make sure all necessary parameters are set. */ $default_args = array( 'realm' => '', 'port' => '', 'protocol' => '', 'maildomain' => '', 'imap_server' => array(), ); /* Merge with the passed-in parameters. */ $args = array_merge($default_args, $args); /* Create the $imp session variable. */ $_SESSION['imp'] = array(); $_SESSION['imp']['cache'] = array(); $_SESSION['imp']['pass'] = Secret::write(Secret::getKey('imp'), $password); /* Set the logintasks flag. */ IMP::loginTasksFlag(1); /* Run the username through virtualhost expansion functions if * necessary. */ $_SESSION['imp']['user'] = $imapuser; if (!empty($conf['hooks']['vinfo'])) { $hook_user = Horde::callHook('_imp_hook_vinfo', array(), 'imp'); if (!is_a($hook_user, 'PEAR_Error')) { $_SESSION['imp']['user'] = $hook_user; } } /* We might need to override some of the defaults with * environment-wide settings. Do NOT use the global $servers variable * as it may not exist. */ if (is_callable(array('Horde', 'loadConfiguration'))) { $result = Horde::loadConfiguration('servers.php', array('servers')); if (!is_a($result, 'PEAR_Error')) { extract($result); } } else { require IMP_BASE . '/config/servers.php'; } /* Determine the unique user name. */ if (Auth::isAuthenticated()) { $_SESSION['imp']['uniquser'] = Auth::removeHook(Auth::getAuth()); } else { $_SESSION['imp']['uniquser'] = $_SESSION['imp']['user']; if (($conf['server']['server_list'] != 'none') && !empty($servers[$server]['realm'])) { $_SESSION['imp']['uniquser'] .= '@' . $servers[$server]['realm']; } elseif (!empty($args['realm'])) { $_SESSION['imp']['uniquser'] .= '@' . $args['realm']; } } if (($conf['server']['server_list'] != 'none') && !empty($servers[$server]) && is_array($servers[$server])) { $fields = array('server', 'protocol', 'port', 'maildomain', 'quota', 'acl'); $fields_array = array('admin'); $ptr = &$servers[$server]; foreach ($fields as $val) { $_SESSION['imp'][$val] = isset($ptr[$val]) ? $ptr[$val] : null; /* 'admin' and 'quota' have password entries - encrypt these * entries in the session if they exist. */ if (isset($ptr[$val]['params']['password'])) { $_SESSION['imp'][$val]['params']['password'] = Secret::write(Secret::getKey('imp'), $ptr[$val]['params']['password']); } } foreach ($fields_array as $val) { $_SESSION['imp'][$val] = isset($ptr[$val]) ? $ptr[$val] : array(); /* 'admin' and 'quota' have password entries - encrypt these * entries in the session if they exist. */ if (isset($ptr[$val]['params']['password'])) { $_SESSION['imp'][$val]['params']['password'] = Secret::write(Secret::getKey('imp'), $ptr[$val]['params']['password']); } } if ($conf['mailer']['type'] == 'smtp') { if (!empty($ptr['smtphost'])) { $_SESSION['imp']['smtphost'] = $ptr['smtphost']; } if (!empty($ptr['smtpport'])) { $_SESSION['imp']['smtpport'] = $ptr['smtpport']; } } } else { $server_key = IMP::getAutoLoginServer(true); $ptr = &$servers[$server_key]; if (!empty($conf['server']['change_server'])) { $_SESSION['imp']['server'] = $server; } else { $_SESSION['imp']['server'] = $ptr['server']; foreach (array('acl', 'admin', 'quota') as $val) { if (isset($ptr[$val])) { $_SESSION['imp'][$val] = $ptr[$val]; /* 'admin' and 'quota' have password entries - encrypt * these entries in the session if they exist. */ if (isset($ptr[$val]['params']['password'])) { $_SESSION['imp'][$val]['params']['password'] = Secret::write(Secret::getKey('imp'), $ptr[$val]['params']['password']); } } else { $_SESSION['imp'][$val] = false; } } } foreach (array('port', 'protocol', 'smtphost', 'smtpport') as $param) { if (!empty($conf['server']['change_' . $param])) { $_SESSION['imp'][$param] = isset($args[$param]) ? $args[$param] : null; } else { $_SESSION['imp'][$param] = isset($ptr[$param]) ? $ptr[$param] : null; } } $_SESSION['imp']['maildomain'] = $args['maildomain']; } /* Determine the base protocol. */ if (($pos = strpos($_SESSION['imp']['protocol'], '/'))) { $_SESSION['imp']['base_protocol'] = strtolower(substr($_SESSION['imp']['protocol'], 0, $pos)); } else { $_SESSION['imp']['base_protocol'] = strtolower($_SESSION['imp']['protocol']); } /* Determine max login attempts. */ if (empty($ptr['login_tries']) || ($ptr['login_tries'] < 1)) { $_SESSION['imp']['login_tries'] = 3; } else { $_SESSION['imp']['login_tries'] = $ptr['login_tries']; } /* Try to authenticate with the given information. */ $auth_imp = &Auth::singleton(array('imp', 'imp')); if ($auth_imp->authenticate($_SESSION['imp']['uniquser'], array('password' => $password), true) !== true) { unset($_SESSION['imp']); return false; } /* Does the server allow file uploads? If yes, store the * value, in bytes, of the maximum file size. */ $_SESSION['imp']['file_upload'] = Browser::allowFileUploads(); /* Is the 'mail/canApplyFilters' API call available? */ if ($registry->hasMethod('mail/canApplyFilters')) { $_SESSION['imp']['filteravail'] = $registry->call('mail/canApplyFilters'); } else { $_SESSION['imp']['filteravail'] = false; } /* Is the 'tasks/listTasklists' call available? */ $_SESSION['imp']['tasklistavail'] = ($conf['tasklist']['use_tasklist'] && $registry->hasMethod('tasks/listTasklists')); /* Is the 'notes/listNotepads' call available? */ $_SESSION['imp']['notepadavail'] = ($conf['notepad']['use_notepad'] && $registry->hasMethod('notes/listNotepads')); /* IMAP specific variables. */ if ($_SESSION['imp']['base_protocol'] != 'pop3') { /* Check for timeouts. */ if (!empty($ptr['timeout'])) { $_SESSION['imp']['imap_server']['timeout'] = $ptr['timeout']; } /* Initialize the 'showunsub' value. */ $_SESSION['imp']['showunsub'] = false; /* Check for manual configuration. */ if (!empty($ptr['imap_config'])) { $_SESSION['imp']['namespace'] = $ptr['imap_config']['namespace']; $_SESSION['imp']['imap_server']['search_charset'] = $ptr['imap_config']['search_charset']; } else { require_once IMP_BASE . '/lib/IMAP/Client.php'; $imapclient = new IMP_IMAPClient($_SESSION['imp']['server'], $_SESSION['imp']['port'], $_SESSION['imp']['protocol']); $_SESSION['imp']['namespace'] = array(); $use_tls = $imapclient->useTLS(); $user_namespace = (isset($ptr['namespace']) && is_array($ptr['namespace'])) ? $ptr['namespace'] : array(); if (is_a($use_tls, 'PEAR_Error')) { if (!empty($user_namespace)) { $imp_imap = &IMP_IMAP::singleton(); $stream = $imp_imap->stream(); foreach ($ptr as $val) { /* This is a correct TLS configuration - we only * need to determine the delimiters for each * namespace. Get the default delimiter value * (per RFC 3501 [6.3.8]). */ $box = @imap_getmailboxes($stream, IMP::serverString(), $val); if (!empty($box[0]->delimiter)) { $_SESSION['imp']['namespace'][$val] = array('name' => $val, 'delimiter' => $box[0]->delimiter); } } } else { $auth_imp->IMPsetAuthErrorMsg($use_tls->getMessage()); $auth_imp->clearAuth(); unset($_SESSION['imp']); return false; } } else { /* Auto-detect namespace parameters from IMAP server. */ $res = $imapclient->login($_SESSION['imp']['user'], $password); if (is_a($res, 'PEAR_Error')) { $auth_imp->IMPsetAuthErrorMsg($res->getMessage()); unset($_SESSION['imp']); return false; } $_SESSION['imp']['namespace'] = $imapclient->getNamespace($user_namespace); if (is_a($_SESSION['imp']['namespace'], 'PEAR_Error')) { $auth_imp->IMPsetAuthErrorMsg(_("Could not retrieve namespace information from IMAP server.")); unset($_SESSION['imp']); return false; } /* Determine if the search command supports the current * browser's charset. */ $charset = NLS::getCharset(); $_SESSION['imp']['imap_server']['search_charset'] = array($charset => $imapclient->searchCharset($charset)); } } } else { $_SESSION['imp']['namespace'] = null; } /* Set the maildomain. */ if ($maildomain = $GLOBALS['prefs']->getValue('mail_domain')) { $_SESSION['imp']['maildomain'] = $maildomain; } /* Set up search information for the session. */ $GLOBALS['imp_search']->sessionSetup(); Horde::logMessage(IMP::loginLogMessage('login'), __FILE__, __LINE__, PEAR_LOG_NOTICE); return true; } /** * Perform IMP login tasks. */ function loginTasks() { if (!IMP::loginTasksFlag()) { return; } IMP::loginTasksFlag(2); $imp_imap = &IMP_IMAP::singleton(); if (!$imp_imap->stream()) { IMP::checkAuthentication(true); } /* Do maintenance operations. */ if ($GLOBALS['prefs']->getValue('do_maintenance')) { require_once 'Horde/Maintenance.php'; $maint = &Maintenance::factory('imp', array('last_maintenance' => $GLOBALS['prefs']->getValue('last_maintenance'))); if (!$maint) { $GLOBALS['notification']->push(_("Could not execute maintenance operations."), 'horde.warning'); } else { $maint->runMaintenance(); } } /* If the user wants to run filters on login, make sure they get run. */ if ($GLOBALS['prefs']->getValue('filter_on_login')) { /* Open the INBOX read-write. */ $imp_imap->changeMbox('INBOX'); /* Run filters. */ require_once IMP_BASE . '/lib/Filter.php'; $imp_filter = new IMP_Filter(); $imp_filter->filter('INBOX'); } IMP::loginTasksFlag(0); } /** * Returns the initial URL. * * @param string $actionID The action ID to perform on the initial page. * @param boolean $encode If true the argument separator gets encoded. * * @return string The initial URL. */ function getInitialUrl($actionID = null, $encode = true) { $init_url = ($_SESSION['imp']['base_protocol'] == 'pop3') ? 'INBOX' : $GLOBALS['prefs']->getValue('initial_page'); require_once IMP_BASE . '/lib/Search.php'; $imp_search = new IMP_Search(); if (!$GLOBALS['prefs']->getValue('use_vinbox') && $imp_search->isVINBOXFolder($init_url)) { $init_url = 'folders.php'; } elseif (($imp_search->createSearchID($init_url) == $init_url) && !$imp_search->isVFolder($init_url)) { $init_url = 'INBOX'; if (!$GLOBALS['prefs']->isLocked('initial_page')) { $GLOBALS['prefs']->setValue('initial_page', $init_url); } } if ($init_url == 'folders.php') { $url = Util::addParameter(Horde::applicationUrl($init_url, !$encode), array_merge(array('folders_token' => IMP::getRequestToken('imp.folders')), IMP::getComposeArgs()), null, $encode); } else { $url = Util::addParameter(Horde::applicationUrl('mailbox.php', !$encode), array_merge(array('mailbox' => $init_url, 'mailbox_token' => IMP::getRequestToken('imp.mailbox')), IMP::getComposeArgs()), null, $encode); } if (!empty($actionID)) { $url = Util::addParameter($url, 'actionID', $actionID, $encode); } return $url; } } ./lib/Auth/0000755000175000017500000000000011702026733012535 5ustar mathieumathieu./lib/Auth/imp.php0000644000175000017500000001260111702026733014033 0ustar mathieumathieu * None. * * Optional parameters:
 *   None.
* * $Horde: imp/lib/Auth/imp.php,v 1.16.6.21 2009/01/06 15:24:05 jan Exp $ * * Copyright 2003-2009 The Horde Project (http://www.horde.org/) * * See the enclosed file COPYING for license information (LGPL). If you * did not receive this file, see http://www.fsf.org/copyleft/lgpl.html. * * @author Michael Slusarz * @since Horde 3.0 * @package Horde_Auth */ class Auth_imp extends Auth { /** * Constructs a new IMP authentication object. * * @param array $params A hash containing connection parameters. */ function Auth_imp($params = array()) { if (!Util::extensionExists('imap')) { Horde::fatal(PEAR::raiseError(_("Auth_imp: Required IMAP extension not found.")), __FILE__, __LINE__); } } /** * Find out if a set of login credentials are valid, and if * requested, mark the user as logged in in the current session. * * @param string $userID The userID to check. * @param array $credentials The credentials to check. * @param boolean $login Whether to log the user in. If false, we'll * only test the credentials and won't modify * the current session. * * @return boolean Whether or not the credentials are valid. */ function authenticate($userID = null, $credentials = array(), $login = false) { // Check for for hordeauth. if (empty($_SESSION['imp']['uniquser']) && IMP::canAutoLogin()) { $server_key = IMP::getAutoLoginServer(); if (is_callable(array('Horde', 'loadConfiguration'))) { $result = Horde::loadConfiguration('servers.php', array('servers')); if (!is_a($result, 'PEAR_Error')) { extract($result); } } else { require IMP_BASE . '/config/servers.php'; } $ptr = &$servers[$server_key]; if (isset($ptr['hordeauth'])) { $imapuser = (strcasecmp($ptr['hordeauth'], 'full') == 0) ? Auth::getAuth() : Auth::getBareAuth(); $pass = Auth::getCredential('password'); // Need to make sure we are in the IMP scope if trying to do // hordeauth (we can reach this method from MIMP or DIMP). if ($GLOBALS['registry']->call('mail/authenticate', array($imapuser, array('password' => $pass), $ptr))) { return true; } } } if (empty($userID)) { if (empty($_SESSION['imp']['uniquser'])) { return false; } $userID = $_SESSION['imp']['uniquser']; } if (empty($credentials)) { if (empty($_SESSION['imp']['pass'])) { return false; } $credentials = array('password' => Secret::read(Secret::getKey('imp'), $_SESSION['imp']['pass'])); } $login = ($login && (($this->getProvider() == 'imp') || IMP::recomposeLogin())); return parent::authenticate($userID, $credentials, $login); } /** * Find out if a set of login credentials are valid. * * @access private * * @param string $userID The userID to check. * @param array $credentials An array of login credentials. * * @return boolean Whether or not the credentials are valid. */ function _authenticate($userID, $credentials) { global $prefs; if (!(isset($_SESSION['imp']) && is_array($_SESSION['imp']))) { if (isset($prefs)) { $prefs->cleanup(true); } $this->_setAuthError(AUTH_REASON_SESSION); return false; } switch ($_SESSION['imp']['base_protocol']) { case 'pop3': /* Turn some options off if we are working with POP3. */ $GLOBALS['conf']['user']['allow_folders'] = false; $prefs->setValue('save_sent_mail', false); $prefs->setLocked('save_sent_mail', true); $prefs->setLocked('sent_mail_folder', true); $prefs->setLocked('drafts_folder', true); $prefs->setLocked('trash_folder', true); break; } /* Open an IMAP stream. */ require_once IMP_BASE . '/lib/IMAP.php'; $imp_imap = &IMP_IMAP::singleton($_SESSION['imp']['user'], $credentials['password']); if (!$imp_imap->changeMbox(null, IMP_IMAP_PEEK)) { Horde::logMessage(IMP::loginLogMessage('failed'), __FILE__, __LINE__, PEAR_LOG_ERR); unset($_SESSION['imp']); if (isset($prefs)) { $prefs->cleanup(true); } $this->_setAuthError(AUTH_REASON_BADLOGIN); return false; } return true; } /** * Somewhat of a hack to allow IMP to set an authentication error message * that may occur outside of this file. * * @param string $msg The error message to set. */ function IMPsetAuthErrorMsg($msg) { $this->_setAuthError(AUTH_REASON_MESSAGE, $msg); } } ./lib/Crypt/0000755000175000017500000000000011702026733012735 5ustar mathieumathieu./lib/Crypt/PGP.php0000644000175000017500000006720211702026733014103 0ustar mathieumathieu * @package IMP */ class IMP_PGP extends Horde_Crypt_pgp { /** * The list of available sources to search for keys. * * @var array */ var $_sources = null; /** * Constructor */ function IMP_PGP() { parent::Horde_Crypt_pgp(array('program' => $GLOBALS['conf']['utils']['gnupg'], 'temp' => Horde::getTempDir())); } /** * Generate the personal Public/Private keypair and store in prefs. * * @param string $realname See Horde_Crypt_pgp:: * @param string $email See Horde_Crypt_pgp:: * @param string $passphrase See Horde_Crypt_pgp:: * @param string $comment See Horde_Crypt_pgp:: * @param string $keylength See Horde_Crypt_pgp:: * * @return PEAR_Error Returns PEAR_Error object on error. */ function generatePersonalKeys($name, $email, $passphrase, $comment = '', $keylength = 1024) { $keys = $this->generateKey($name, $email, $passphrase, $comment, $keylength); if (is_a($keys, 'PEAR_Error')) { return $keys; } /* Store the keys in the user's preferences. */ $this->addPersonalPublicKey($keys['public']); $this->addPersonalPrivateKey($keys['private']); } /** * Add the personal public key to the prefs. * * @param mixed $public_key The public key to add (either string or * array). */ function addPersonalPublicKey($public_key) { $GLOBALS['prefs']->setValue('pgp_public_key', (is_array($public_key)) ? implode('', $public_key) : $public_key); } /** * Add the personal private key to the prefs. * * @param mixed $private_key The private key to add (either string or * array). */ function addPersonalPrivateKey($private_key) { $GLOBALS['prefs']->setValue('pgp_private_key', (is_array($private_key)) ? implode('', $private_key) : $private_key); } /** * Get the personal public key from the prefs. * * @return string The personal PGP public key. */ function getPersonalPublicKey() { return $GLOBALS['prefs']->getValue('pgp_public_key'); } /** * Get the personal private key from the prefs. * * @return string The personal PGP private key. */ function getPersonalPrivateKey() { return $GLOBALS['prefs']->getValue('pgp_private_key'); } /** * Deletes the specified personal keys from the prefs. */ function deletePersonalKeys() { $GLOBALS['prefs']->setValue('pgp_public_key', ''); $GLOBALS['prefs']->setValue('pgp_private_key', ''); $this->unsetPassphrase(); } /** * Add a public key to an address book. * * @param string $public_key An PGP public key. * * @return array See Horde_Crypt_pgp::pgpPacketInformation() * Returns PEAR_Error or error. */ function addPublicKey($public_key) { /* Make sure the key is valid. */ $key_info = $this->pgpPacketInformation($public_key); if (!isset($key_info['signature'])) { return PEAR::raiseError(_("Not a valid public key."), 'horde.error'); } /* Remove the '_SIGNATURE' entry. */ unset($key_info['signature']['_SIGNATURE']); /* Store all signatures that appear in the key. */ foreach ($key_info['signature'] as $id => $sig) { /* Check to make sure the key does not already exist in ANY * address book and remove the id from the key_info for a correct * output. */ $result = $this->getPublicKey($sig['email'], null, false); if (!is_a($result, 'PEAR_Error') && !empty($result)) { unset($key_info['signature'][$id]); continue; } /* Add key to the user's address book. */ $result = $GLOBALS['registry']->call('contacts/addField', array($sig['email'], $sig['name'], IMP_PGP_PUBKEY_FIELD, $public_key, $GLOBALS['prefs']->getValue('add_source'))); if (is_a($result, 'PEAR_Error')) { return $result; } } return $key_info; } /** * Retrieves a public key by e-mail. * * First, the key is attempted to be retrieved through a hook. * Second, the key is attempted to be retrieved from the user's address * book(s). * Third, the key is attempted to be retrieved via a public PGP keyserver. * * @param string $address The e-mail address to search by. * @param string $fingerprint The fingerprint of the user's key. * @param boolean $server Whether to check the publick key servers for * the key. * * @return string The PGP public key requested. Returns PEAR_Error object * on error. */ function getPublicKey($address, $fingerprint = null, $server = true) { $result = false; /* If there is a cache driver configured, try to get the public key * from the cache. */ if (!empty($GLOBALS['conf']['cache']['driver'])) { $cache = &Horde_Cache::singleton($GLOBALS['conf']['cache']['driver'], Horde::getDriverConfig('cache', $GLOBALS['conf']['cache']['driver'])); if (is_a($cache, 'PEAR_Error')) { Horde::fatal($cache, __FILE__, __LINE__); } else { $result = $cache->get("PGPpublicKey_" . $address . $fingerprint, 3600); } } $key = Horde::callHook('_imp_hook_pgp_key', array($address, $fingerprint), 'imp'); if ($key && !is_a($key, 'PEAR_Error')) { return $key; } /* Try retrieving by e-mail only first. */ $this->_getPublicKeySources(); $result = $GLOBALS['registry']->call('contacts/getField', array($address, IMP_PGP_PUBKEY_FIELD, $this->_sources, true, true)); /* TODO: Retrieve by ID. */ /* See if the address points to the user's public key. */ if (is_a($result, 'PEAR_Error')) { require_once 'Horde/Identity.php'; $identity = &Identity::singleton(array('imp', 'imp')); $personal_pubkey = $this->getPersonalPublicKey(); if (!empty($personal_pubkey) && $identity->hasAddress($address)) { $result = $personal_pubkey; } } /* Try retrieving via a PGP public keyserver. */ if ($server && is_a($result, 'PEAR_Error')) { $result = $this->getFromPublicKeyserver($fingerprint, $address); /* If there is a cache driver configured and a cache object exists, * store the public key in the cache. */ if (is_object($cache) && !is_a($result, 'PEAR_Error')) { $cache->set("PGPpublicKey_" . $address . $fingerprint, $result, 3600); } } /* Return now, if no public key found at all. */ if (is_a($result, 'PEAR_Error')) { return $result; } /* If more than one public key is returned, just return the first in * the array. There is no way of knowing which is the "preferred" key, * if the keys are different. */ if (is_array($result)) { reset($result); } return $result; } /** * Retrieves all public keys from a user's address book(s). * * @return array All PGP public keys available. Returns PEAR_Error object * on error. */ function listPublicKeys() { $this->_getPublicKeySources(); return (empty($this->_sources)) ? array() : $GLOBALS['registry']->call('contacts/getAllAttributeValues', array(IMP_PGP_PUBKEY_FIELD, $this->_sources)); } /** * Deletes a public key from a user's address book(s) by e-mail. * * @param string $email The e-mail address to delete. * * @return PEAR_Error Returns PEAR_Error object on error. */ function deletePublicKey($email) { $this->_getPublicKeySources(); return $GLOBALS['registry']->call('contacts/deleteField', array($email, IMP_PGP_PUBKEY_FIELD, $this->_sources)); } /** * Obtains a list of sources for public keys. * * @access private */ function _getPublicKeySources() { /* Get the listing of all sources we search for public keys. */ if ($this->_sources === null) { $this->_sources = array(); if (($sources = $GLOBALS['prefs']->getValue('search_sources'))) { $this->_sources = explode("\t", $sources); if ((count($this->_sources) == 1) && empty($this->_sources[0])) { $this->_sources = array(); } } } } /** * Parse a message into its PGP components. * * @param string $text See Horde_Crypt_pgp::parsePGPData() * * @return array Returns an array of MIME_Part objects. * If there was no PGP data, returns false. */ function &parseMessage($text) { $result = $this->parsePGPData($text); if (empty($result) || ((count($result) == 1) && ($result[0]['type'] == PGP_ARMOR_TEXT))) { $result = false; return $result; } include_once 'Horde/MIME/Part.php'; $return_array = array(); reset($result); do { $block = current($result); $temp_part = new MIME_Part(); $temp_part->setContents(implode("\n", $block['data'])); /* Since private keys should NEVER be sent across email (in fact, there is no MIME type to handle them) we will render them, if someone is foolish enough to send one, in simple text. */ if (($block['type'] == PGP_ARMOR_TEXT) || ($block['type'] == PGP_ARMOR_PRIVATE_KEY)) { $temp_part->setType('text/plain'); } elseif ($block['type'] == PGP_ARMOR_PUBLIC_KEY) { $temp_part->setType('application/pgp-keys'); } elseif ($block['type'] == PGP_ARMOR_MESSAGE) { $temp_part->setType('application/pgp-encrypted'); } elseif ($block['type'] == PGP_ARMOR_SIGNED_MESSAGE) { $temp_part->setType('application/pgp-signature'); if (($block = next($result))) { if (!empty($block) && ($block['type'] == PGP_ARMOR_SIGNATURE)) { $temp_part->appendContents("\n" . implode("\n", $block['data'])); } } } elseif ($block['type'] == PGP_ARMOR_SIGNATURE) { continue; } $return_array[] = $temp_part; } while (next($result)); return $return_array; } /** * Renders a text message with PGP components. * * @param MIME_Part &$part The MIME_Part containing the data to * render. * @param MIME_Contents &$contents The MIME_Contents:: module to use to * output the text. * * @return string Returns the rendered text. * If there was no PGP data, returns false. */ function parseMessageOutput(&$part, &$contents) { if (!($parts = &$this->parseMessage($part->getContents()))) { return false; } $text = ''; $charset = $part->getCharset(); require_once 'Horde/MIME/Message.php'; $base_ob = &$contents->getBaseObjectPtr(); $addr = $base_ob->getFromAddress(); $message = new MIME_Message(); foreach ($parts as $val) { $val->setCharset($charset); $message->addPart($val); } $mc = new MIME_Contents($message, array('download' => 'download_attach', 'view' => 'view_attach'), array(&$contents)); $message->buildMessage(); foreach ($message->getParts() as $val) { /* If the part appears to be nothing but empty space, don't display it. */ if (($val->getBytes() < 5) && !(rtrim($val->getContents()))) { continue; } $v = &$mc->getMIMEViewer($val); if (!is_a($v, 'IMP_MIME_Viewer_pgp')) { $text .= $mc->formatStatusMsg(_("The message below has not been digitally signed or encrypted with PGP."), Horde::img('alerts/warning.png', _("Warning"), '', $GLOBALS['registry']->getImageDir('horde'))); } $text .= $mc->renderMIMEPart($val); } return $text; } /** * Returns the signed data only for a plaintext signed MIME_Part. * * @param MIME_Part $mime_part The MIME_Part object with a plaintext PGP * signed message in the contents. * * @return string The contents of the signed message. */ function getSignedMessage(&$mime_part) { $msg = ''; /* Just output signed data - remove all PGP headers. */ $result = $this->parsePGPData($mime_part->getContents()); foreach ($result as $block) { if ($block['type'] == PGP_ARMOR_SIGNED_MESSAGE) { $headerSeen = false; $headerDone = false; foreach ($block['data'] as $line) { if ($headerDone) { $msg .= $line . "\n"; } elseif (strpos($line, "-----") === 0) { $headerSeen = true; continue; } elseif ($headerSeen) { /* There are some versions of GnuPG (like Version: GnuPG v1.2.1 (MingW32)) which separate headers from content with a line containing a blank, but this isn't RFC conforming, so this isn't handled. It results in a good signature with an empty message. The wrong code would be: elseif (empty($line) || (strcmp($line, ' ') == 0)) */ $line = trim($line); if (empty($line)) { $headerDone = true; } } } } } return rtrim($msg); } /** * Get a public key via a public PGP keyserver. * * @param string $fingerprint The fingerprint of the requested key. * @param string $address The email address of the requested key. * * @return string See Horde_Crypt_pgp::getPublicKeyserver() */ function getFromPublicKeyserver($fingerprint, $address = null) { return $this->_keyserverConnect($fingerprint, 'get', $address); } /** * Send a public key to a public PGP keyserver. * * @param string $pubkey The PGP public key. * * @return string See Horde_Crypt_pgp::putPublicKeyserver() */ function sendToPublicKeyserver($pubkey) { return $this->_keyserverConnect($pubkey, 'put'); } /** * Connect to the keyservers * * @access private * * @param string $data The data to send to the keyserver. * @param string $method The method to use - either 'get' or 'put'. * @param string $additional Any additional data. * * @return string See Horde_Crypt_pgp::getPublicKeyserver() -or- * Horde_Crypt_pgp::putPublicKeyserver(). */ function _keyserverConnect($data, $method, $additional = null) { global $conf; if (!empty($conf['utils']['gnupg_keyserver'])) { $timeout = (empty($conf['utils']['gnupg_timeout'])) ? PGP_KEYSERVER_TIMEOUT : $conf['utils']['gnupg_timeout']; if ($method == 'get') { foreach ($conf['utils']['gnupg_keyserver'] as $server) { $result = $this->getPublicKeyserver($data, $server, $timeout, $additional); if (!is_a($result, 'PEAR_Error')) { return $result; } } return $result; } else { return $this->putPublicKeyserver($data, $conf['utils']['gnupg_keyserver'][0], $timeout); } } else { return PEAR::raiseError(_("Public PGP keyserver support has been disabled."), 'horde.warning'); } } /** * Verifies a signed message with a given public key. * * @param string $text The text to verify. * @param string $address E-mail address of public key. * @param string $signature A PGP signature block. * * @return string See Horde_Crypt_pgp::decryptSignature() -or- * Horde_Crypt_pgp::decryptDetachedSignature(). */ function verifySignature($text, $address, $signature = '') { $fingerprint = null; /* Get fingerprint of key. */ if (!empty($signature)) { $packet_info = $this->pgpPacketInformation($signature); if (isset($packet_info['fingerprint'])) { $fingerprint = $packet_info['fingerprint']; } } else { $fingerprint = $this->getSignersFingerprint($text); } $public_key = $this->getPublicKey($address, $fingerprint); if (is_a($public_key, 'PEAR_Error')) { return $public_key; } if (!empty($signature)) { $options = array('type' => 'detached-signature', 'signature' => $signature); } else { $options = array('type' => 'signature'); } $options['pubkey'] = $public_key; /* decrypt() returns a PEAR_Error object on error. */ return $this->decrypt($text, $options); } /** * Decrypt a message with user's public/private keypair or a passphrase. * * @param string $text The text to decrypt. * @param boolean $symmetric_hint Whether the text has been encrypted * symmetrically. If null, we try to find * out. * @param boolean $passphrase Whether a passphrase has to be used. * * @return string The decrypted message. Returns PEAR_Error object on * error. */ function decryptMessage($text, $symmetric_hint = null, $passphrase = true) { if (is_null($symmetric_hint) && is_callable(array('Horde_Crypt_pgp', 'encryptedSymmetrically'))) { $symmetric_hint = $this->encryptedSymmetrically($text); } /* decrypt() returns a PEAR_Error object on error. */ if (!$passphrase) { return $this->decrypt($text, array('type' => 'message', 'no_passphrase' => true)); } elseif ($symmetric_hint) { return $this->decrypt($text, array('type' => 'message', 'passphrase' => $this->getSymmetricPassphrase())); } else { return $this->decrypt($text, array('type' => 'message', 'pubkey' => $this->getPersonalPublicKey(), 'privkey' => $this->getPersonalPrivateKey(), 'passphrase' => $this->getPassphrase())); } } /** * Gets the user's passphrase from the session cache. * * @return string The passphrase, if set. */ function getPassphrase() { if (isset($_SESSION['imp']['pgp_passphrase'])) { return Secret::read(Secret::getKey('imp'), $_SESSION['imp']['pgp_passphrase']); } } /** * Gets the user's passphrase for symmetric encryption from the session * cache. * * @return string The passphrase, if set. */ function getSymmetricPassphrase() { if (isset($_SESSION['imp']['pgp_sym_passphrase'])) { return Secret::read(Secret::getKey('imp'), $_SESSION['imp']['pgp_sym_passphrase']); } } /** * Store's the user's passphrase in the session cache. * * @param string $passphrase The user's passphrase. * * @return boolean Returns true if correct passphrase, false if incorrect. */ function storePassphrase($passphrase) { if ($this->verifyPassphrase($this->getPersonalPublicKey(), $this->getPersonalPrivateKey(), $passphrase) === false) { return false; } $_SESSION['imp']['pgp_passphrase'] = Secret::write(Secret::getKey('imp'), $passphrase); return true; } /** * Store's the user's passphrase for symmetric encryption in the session * cache. * * @param string $passphrase The user's passphrase. * * @return boolean True */ function storeSymmetricPassphrase($passphrase) { $_SESSION['imp']['pgp_sym_passphrase'] = Secret::write(Secret::getKey('imp'), $passphrase); return true; } /** * Clear the passphrase from the session cache. */ function unsetPassphrase() { unset($_SESSION['imp']['pgp_passphrase']); } /** * Clear the passphrase for symmetric encryption from the session cache. */ function unsetSymmetricPassphrase() { unset($_SESSION['imp']['pgp_sym_passphrase']); } /** * Generates the javascript code for saving public keys. * * @param MIME_Part &$mime_part The MIME_Part containing the public key. * @param string $cache The MIME_Part identifier. * * @return string The URL for saving public keys. */ function savePublicKeyURL(&$mime_part, $cache = null) { if (empty($cache)) { require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); $oid = $cacheSess->storeOid($mime_part); } return $this->getJSOpenWinCode('save_attachment_public_key', false, array('mimecache' => $oid)); } /** * Print out the link for the javascript PGP popup. * * @param string $actionid The ActionID to perform. * @param mixed $reload If true, reload base window on close. If text, * run this JS on close. If false, don't do * anything on close. * @param array $params Additional parameters needed for the reload * page. * * @return string The javascript link. */ function getJSOpenWinCode($actionid, $reload = true, $params = array()) { $params['actionID'] = $actionid; if (!empty($reload)) { require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); if (is_bool($reload)) { $params['reload'] = $cacheSess->storeOid(html_entity_decode(Util::removeParameter(Horde::selfUrl(true), array('actionID'))), false); } else { $params['passphrase_action'] = $cacheSess->storeOid($reload, false); } } return IMP::popupIMPString('pgp.php', $params, 450, 200); } /** * Provide the list of parameters needed for signing a message. * * @access private * * @return array The list of parameters needed by encrypt(). */ function _signParameters() { return array('pubkey' => $this->getPersonalPublicKey(), 'privkey' => $this->getPersonalPrivateKey(), 'passphrase' => $this->getPassphrase()); } /** * Provide the list of parameters needed for encrypting a message. * * @access private * * @param array $addresses The e-mail address of the keys to use for * encryption. * @param boolean $symmetric Whether to encrypt symmetrically. * * @return array The list of parameters needed by encrypt(). * Returns PEAR_Error on error. */ function _encryptParameters($addresses, $symmetric = false) { if ($symmetric) { return array('symmetric' => true, 'passphrase' => $this->getSymmetricPassphrase()); } $addr_list = array(); foreach ($addresses as $val) { $addrOb = IMP::bareAddress($val, true); $key_addr = array_pop($addrOb); /* Get the public key for the address. */ $public_key = $this->getPublicKey($key_addr); if (is_a($public_key, 'PEAR_Error')) { return $public_key; } $addr_list[$key_addr] = $public_key; } if (!empty($this->multipleRecipientEncryption)) { return array('recips' => $addr_list); } else { return array('pubkey' => $public_key, 'email' => $key_addr); } } /** * Sign a MIME_Part using PGP using IMP default parameters. * * @param MIME_Part $mime_part The MIME_Part object to sign. * * @return MIME_Part See Horde_Crypt_pgp::signMIMEPart(). Returns * PEAR_Error object on error. */ function IMPsignMIMEPart($mime_part) { return $this->signMIMEPart($mime_part, $this->_signParameters()); } /** * Encrypt a MIME_Part using PGP using IMP default parameters. * * @param MIME_Part $mime_part The MIME_Part object to encrypt. * @param array $addresses The e-mail address of the keys to use for * encryption. * @param boolean $symmetric Whether to encrypt symmetrically. * * @return MIME_Part See Horde_Crypt_pgp::encryptMIMEPart(). Returns * PEAR_Error object on error. */ function IMPencryptMIMEPart($mime_part, $addresses, $symmetric = false) { $params = $this->_encryptParameters($addresses, $symmetric); if (is_a($params, 'PEAR_Error')) { return $params; } return $this->encryptMIMEPart($mime_part, $params); } /** * Sign and Encrypt a MIME_Part using PGP using IMP default parameters. * * @param MIME_Part $mime_part The MIME_Part object to sign and encrypt. * @param array $addresses The e-mail address of the keys to use for * encryption. * @param boolean $symmetric Whether to encrypt symmetrically. * * @return MIME_Part See Horde_Crypt_pgp::signAndencryptMIMEPart(). * Returns PEAR_Error object on error. */ function IMPsignAndEncryptMIMEPart($mime_part, $addresses, $symmetric = false) { $encrypt_params = $this->_encryptParameters($addresses, $symmetric); if (is_a($encrypt_params, 'PEAR_Error')) { return $encrypt_params; } return $this->signAndEncryptMIMEPart($mime_part, $this->_signParameters(), $encrypt_params); } /** * Generate a MIME_Part object, in accordance with RFC 2015/3156, that * contains the user's public key. * * @return MIME_Part See Horde_Crypt_pgp::publicKeyMIMEPart(). */ function publicKeyMIMEPart() { return parent::publicKeyMIMEPart($this->getPersonalPublicKey()); } } ./lib/Crypt/SMIME.php0000644000175000017500000004071011702026733014322 0ustar mathieumathieu * @package IMP */ class IMP_SMIME extends Horde_Crypt_smime { /** * The list of available sources to search for keys. * * @var array */ var $_sources = null; /** * Constructor. */ function IMP_SMIME() { parent::Horde_Crypt_smime(array('temp' => Horde::getTempDir())); } /** * Add the personal public key to the prefs. * * @param mixed $key The public key to add (either string or array). */ function addPersonalPublicKey($key) { $GLOBALS['prefs']->setValue('smime_public_key', (is_array($key)) ? implode('', $key) : $key); } /** * Add the personal private key to the prefs. * * @param mixed $key The private key to add (either string or array). */ function addPersonalPrivateKey($key) { $GLOBALS['prefs']->setValue('smime_private_key', (is_array($key)) ? implode('', $key) : $key); } /** * Add the list of additional certs to the prefs. * * @param mixed $key The private key to add (either string or array). */ function addAdditionalCert($key) { $GLOBALS['prefs']->setValue('smime_additional_cert', (is_array($key)) ? implode('', $key) : $key); } /** * Get the personal public key from the prefs. * * @return string The personal S/MIME public key. */ function getPersonalPublicKey() { return $GLOBALS['prefs']->getValue('smime_public_key'); } /** * Get the personal private key from the prefs. * * @return string The personal S/MIME private key. */ function getPersonalPrivateKey() { return $GLOBALS['prefs']->getValue('smime_private_key'); } /** * Get any additional certificates from the prefs. * * @return string Additional signing certs for inclusion. */ function getAdditionalCert() { return $GLOBALS['prefs']->getValue('smime_additional_cert'); } /** * Deletes the specified personal keys from the prefs. */ function deletePersonalKeys() { $GLOBALS['prefs']->setValue('smime_public_key', ''); $GLOBALS['prefs']->setValue('smime_private_key', ''); $GLOBALS['prefs']->setValue('smime_additional_cert', ''); $this->unsetPassphrase(); } /** * Add a public key to an address book. * * @param string $cert A public certificate to add. * * @return boolean True on successful add. * Returns PEAR_Error or error. */ function addPublicKey($cert) { /* Make sure the certificate is valid. */ $key_info = openssl_x509_parse($cert); if (!is_array($key_info) || !isset($key_info['subject'])) { return PEAR::raiseError(_("Not a valid public key."), 'horde.error'); } /* Add key to the user's address book. */ $email = $this->getEmailFromKey($cert); if ($email === null) { return PEAR::raiseError(_("No email information located in the public key."), 'horde.error'); } /* Get the name corresponding to this key. */ if (isset($key_info['subject']['CN'])) { $name = $key_info['subject']['CN']; } elseif (isset($key_info['subject']['OU'])) { $name = $key_info['subject']['OU']; } else { return PEAR::raiseError(_("Not a valid public key."), 'horde.error'); } $res = $GLOBALS['registry']->call('contacts/addField', array($email, $name, IMP_SMIME_PUBKEY_FIELD, $cert, $GLOBALS['prefs']->getValue('add_source'))); if (is_a($res, 'PEAR_Error')) { return $res; } return $key_info; } /** * Returns the params needed to encrypt a message being sent to the * specified email address. * * @param string $address The e-mail address of the recipient. * * @return array The list of parameters needed by encrypt(). * Returns PEAR_Error object on error. */ function _encryptParameters($address) { /* We can only encrypt if we are sending to a single person. */ $addrOb = IMP::bareAddress($address, true); $key_addr = array_pop($addrOb); $public_key = $this->getPublicKey($key_addr); if (is_a($public_key, 'PEAR_Error')) { return $public_key; } return array('type' => 'message', 'pubkey' => $public_key, 'email' => $address); } /** * Retrieves a public key by e-mail. * * The key will be retrieved through a hook or from the user's address * book(s). * * @param string $address The e-mail address to search for. * * @return string The requested public S/MIME key or PEAR_Error on failure. */ function getPublicKey($address) { $key = Horde::callHook('_imp_hook_smime_key', array($address), 'imp'); if ($key && !is_a($key, 'PEAR_Error')) { return $key; } $this->_getPublicKeySources(); $key = $GLOBALS['registry']->call('contacts/getField', array($address, IMP_SMIME_PUBKEY_FIELD, $this->_sources, true, true)); /* See if the address points to the user's public key. */ if (is_a($key, 'PEAR_Error')) { require_once 'Horde/Identity.php'; $identity = &Identity::singleton(array('imp', 'imp')); $personal_pubkey = $this->getPersonalPublicKey(); if (!empty($personal_pubkey) && $identity->hasAddress($address)) { return $personal_pubkey; } } /* If more than one public key is returned, just return the first in * the array. There is no way of knowing which is the "preferred" key, * if the keys are different. */ if (is_array($key)) { return reset($key); } return $key; } /** * Retrieves all public keys from a user's address book(s). * * @return array All PGP public keys available. * Returns PEAR_Error object on error. */ function listPublicKeys() { $this->_getPublicKeySources(); return (empty($this->_sources)) ? array() : $GLOBALS['registry']->call('contacts/getAllAttributeValues', array(IMP_SMIME_PUBKEY_FIELD, $this->_sources)); } /** * Deletes a public key from a user's address book(s) by e-mail. * * @param string $email The e-mail address to delete. * * @return PEAR_Error Returns PEAR_Error object on error. */ function deletePublicKey($email) { $this->_getPublicKeySources(); return $GLOBALS['registry']->call('contacts/deleteField', array($email, IMP_SMIME_PUBKEY_FIELD, $this->_sources)); } /** * Obtains a list of sources for public keys. * * @access private */ function _getPublicKeySources() { /* Get the listing of all sources we search for public keys. */ if ($this->_sources === null) { $this->_sources = array(); if (($sources = $GLOBALS['prefs']->getValue('search_sources'))) { $this->_sources = explode("\t", $sources); if ((count($this->_sources) == 1) && empty($this->_sources[0])) { $this->_sources = array(); } } } } /** * Returns the parameters needed for signing a message. * * @access private * * @return array The list of parameters needed by encrypt(). */ function _signParameters() { return array( 'type' => 'signature', 'pubkey' => $this->getPersonalPublicKey(), 'privkey' => $this->getPersonalPrivateKey(), 'passphrase' => $this->getPassphrase(), 'sigtype' => 'detach', 'certs' => $this->getAdditionalCert() ); } /** * Verifies a signed message with a given public key. * * @param string $text The text to verify. * * @return stdClass See Horde_Crypt_smime::verify(). */ function verifySignature($text) { return $this->verify($text, empty($GLOBALS['conf']['utils']['openssl_cafile']) ? array() : $GLOBALS['conf']['utils']['openssl_cafile']); } /** * Decrypt a message with user's public/private keypair. * * @param string $text The text to decrypt. * * @return string See Horde_Crypt_smime::decrypt(). * Returns PEAR_Error object on error. */ function decryptMessage($text) { /* decrypt() returns a PEAR_Error object on error. */ return $this->decrypt($text, array('type' => 'message', 'pubkey' => $this->getPersonalPublicKey(), 'privkey' => $this->getPersonalPrivateKey(), 'passphrase' => $this->getPassphrase())); } /** * Gets the user's passphrase from the session cache. * * @return mixed The passphrase, if set. Returns false if the passphrase * has not been loaded yet. Returns null if no passphrase * is needed. */ function getPassphrase() { $private_key = $GLOBALS['prefs']->getValue('smime_private_key'); if (empty($private_key)) { return false; } if (isset($_SESSION['imp']['smime']['passphrase'])) { return Secret::read(Secret::getKey('imp'), $_SESSION['imp']['smime']['passphrase']); } elseif (isset($_SESSION['imp']['smime']['null_passphrase'])) { return ($_SESSION['imp']['smime']['null_passphrase']) ? null : false; } else { $res = $this->verifyPassphrase($private_key, null); if (!isset($_SESSION['imp']['smime'])) { $_SESSION['imp']['smime'] = array(); } $_SESSION['imp']['smime']['null_passphrase'] = ($res) ? null : false; return $_SESSION['imp']['smime']['null_passphrase']; } } /** * Store's the user's passphrase in the session cache. * * @param string $passphrase The user's passphrase. * * @return boolean Returns true if correct passphrase, false if incorrect. */ function storePassphrase($passphrase) { if ($this->verifyPassphrase($this->getPersonalPrivateKey(), $passphrase) === false) { return false; } if (!isset($_SESSION['imp']['smime'])) { $_SESSION['imp']['smime'] = array(); } $_SESSION['imp']['smime']['passphrase'] = Secret::write(Secret::getKey('imp'), $passphrase); return true; } /** * Clear the passphrase from the session cache. */ function unsetPassphrase() { unset($_SESSION['imp']['smime']['null_passphrase']); unset($_SESSION['imp']['smime']['passphrase']); } /** * Generates the javascript code for saving public keys. * * @param MIME_Part $mime_part The MIME_Part containing the public key. * * @return string The URL for saving public keys. */ function savePublicKeyURL($mime_part) { if (empty($cache)) { require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); $oid = $cacheSess->storeOid($mime_part); } return $this->getJSOpenWinCode('save_attachment_public_key', false, array('cert' => $oid)); } /** * Print out the link for the javascript S/MIME popup. * * @param integer $actionid The actionID to perform. * @param mixed $reload If true, reload base window on close. If text, * run this JS on close. If false, don't do * anything on close. * @param array $params Additional parameters needed for the reload * page. * * @return string The javascript link. */ function getJSOpenWinCode($actionid, $reload = true, $params = array()) { $params['actionID'] = $actionid; if (!empty($reload)) { require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); if (is_bool($reload)) { $params['reload'] = $cacheSess->storeOid(html_entity_decode(Util::removeParameter(Horde::selfUrl(true), array('actionID'))), false); } else { $params['passphrase_action'] = $cacheSess->storeOid($reload, false); } } return IMP::popupIMPString('smime.php', $params, 450, 200); } /** * Encrypt a MIME_Part using S/MIME using IMP defaults. * * @param MIME_Part $mime_part The MIME_Part object to encrypt. * @param mixed $to_address The e-mail address of the key to use for * encryption. * * @return MIME_Part See Horde_Crypt_smime::encryptMIMEPart(). Returns * PEAR_Error on error. */ function IMPencryptMIMEPart($mime_part, $to_address) { $params = $this->_encryptParameters($to_address); if (is_a($params, 'PEAR_Error')) { return $params; } return $this->encryptMIMEPart($mime_part, $params); } /** * Sign a MIME_Part using S/MIME using IMP defaults. * * @param MIME_Part $mime_part The MIME_Part object to sign. * * @return MIME_Part See Horde_Crypt_smime::signMIMEPart(). Returns * PEAR_Error on error. */ function IMPsignMIMEPart($mime_part) { return $this->signMIMEPart($mime_part, $this->_signParameters()); } /** * Sign and encrypt a MIME_Part using S/MIME using IMP defaults. * * @param MIME_Part $mime_part The MIME_Part object to sign and encrypt. * @param string $to_address The e-mail address of the key to use for * encryption. * * @return MIME_Part See Horde_Crypt_smime::signAndencryptMIMEPart(). * Returns PEAR_Error on error. */ function IMPsignAndEncryptMIMEPart($mime_part, $to_address) { $encrypt_params = $this->_encryptParameters($to_address); if (is_a($encrypt_params, 'PEAR_Error')) { return $encrypt_params; } return $this->signAndEncryptMIMEPart($mime_part, $this->_signParameters(), $encrypt_params); } /** * Store the public/private/additional certificates in the preferences * from a given PKCS 12 file. * * @param string $pkcs12 The PKCS 12 data. * @param string $password The password of the PKCS 12 file. * @param string $pkpass The password to use to encrypt the private key. * * @return boolean True on success, PEAR_Error on error. */ function addFromPKCS12($pkcs12, $password, $pkpass = null) { $openssl = IMP_SMIME::checkForOpenSSL(); if (is_a($openssl, 'PEAR_Error')) { return $openssl; } $sslpath = (empty($GLOBALS['conf']['utils']['openssl_binary'])) ? null : $GLOBALS['conf']['utils']['openssl_binary']; $params = array('sslpath' => $sslpath, 'password' => $password); if (!empty($pkpass)) { $params['newpassword'] = $pkpass; } $res = $this->parsePKCS12Data($pkcs12, $params); if (is_a($res, 'PEAR_Error')) { return $res; } $this->addPersonalPrivateKey($res->private); $this->addPersonalPublicKey($res->public); $this->addAdditionalCert($res->certs); return true; } /** * Extract the contents from signed S/MIME data. * * @param string $data The signed S/MIME data. * * @return string The contents embedded in the signed data. * Returns PEAR_Error on error. */ function extractSignedContents($data) { $sslpath = (empty($GLOBALS['conf']['utils']['openssl_binary'])) ? null : $GLOBALS['conf']['utils']['openssl_binary']; return parent::extractSignedContents($data, $sslpath); } } ./lib/SpellChecker/0000755000175000017500000000000011702026733014200 5ustar mathieumathieu./lib/SpellChecker/aspell.php0000644000175000017500000001020511702026733016167 0ustar mathieumathieu * @package IMP_SpellChecker */ class IMP_SpellChecker_aspell extends IMP_SpellChecker { var $_path = 'aspell'; /** * */ function spellCheck($text) { if ($this->_html) { $input = strtr($text, "\n", ' '); } else { $words = $this->_getWords($text); if (!count($words)) { return array('bad' => array(), 'suggestions' => array()); } $input = implode(' ', $words); } $charset = NLS::getCharset(); // Descriptor array. $descspec = array( 0 => array('pipe', 'r'), 1 => array('pipe', 'w'), 2 => array('pipe', 'w') ); $process = proc_open($this->_cmd(), $descspec, $pipes); if (!is_resource($process)) { require_once 'PEAR.php'; return PEAR::raiseError('spellcheck failed', null, null, null, $this->_cmd()); } // Write to stdin. if ($this->_encoding) { $input = String::convertCharset($input, $charset, $this->_encoding); } // The '^' character tells aspell to spell check the entire line. fwrite($pipes[0], '^' . $input); fclose($pipes[0]); // Read stdout. $out = ''; while (!feof($pipes[1])) { $out .= fread($pipes[1], 8192); } fclose($pipes[1]); // Read stderr. $err = ''; while (!feof($pipes[2])) { $err .= fread($pipes[2], 8192); } fclose($pipes[2]); // We can't rely on the return value of proc_close: // http://bugs.php.net/bug.php?id=29123 proc_close($process); if (strlen($out) === 0) { require_once 'PEAR.php'; if ($this->_encoding) { $err = String::convertCharset($err, $this->_encoding, $charset); } return PEAR::raiseError('spellcheck failed: ' . $err); } if ($this->_encoding) { $out = String::convertCharset($out, $this->_encoding, $charset); } // Parse output. $bad = array(); $suggestions = array(); $lines = explode("\n", $out); foreach ($lines as $line) { $line = trim($line); if (empty($line)) { continue; } @list(,$word,) = explode(' ', $line, 3); if ($this->_inLocalDictionary($word) || in_array($word, $bad)) { continue; } switch ($line[0]) { case '#': // Misspelling with no suggestions. $bad[] = $word; $suggestions[] = array(); break; case '&': // Suggestions. $bad[] = $word; $suggestions[] = array_slice(explode(', ', substr($line, strpos($line, ':') + 2)), 0, $this->_maxSuggestions); break; } } return array('bad' => $bad, 'suggestions' => $suggestions); } function _cmd() { $args = ''; switch ($this->_suggestMode) { case SPELLCHECKER_SUGGEST_FAST: $args .= ' --sug-mode=fast'; break; case SPELLCHECKER_SUGGEST_SLOW: $args .= ' --sug-mode=bad-spellers'; break; default: $args .= ' --sug-mode=normal'; } if ($this->_encoding) { $args .= ' --encoding=' . escapeshellarg($this->_encoding); } $args .= ' --lang=' . escapeshellarg($this->_locale); if ($this->_html) { $args .= ' -H'; } return sprintf('%s -a %s', $this->_path, $args); } } ./lib/Folder.php0000644000175000017500000005334711702026733013574 0ustar mathieumathieu * @author Jon Parise * @package IMP */ class IMP_Folder { /** * Keep around identical lists so that we don't hit the server more that * once in the same page for the same thing. * * @var array */ var $_listCache = array(); /** * Returns a reference to the global IMP_Folder object, only creating it * if it doesn't already exist. This ensures that only one IMP_Folder * instance is instantiated for any given session. * * This method must be invoked as: * $imp_folder = &IMP_Folder::singleton(); * * * @return IMP_Folder The IMP_Folder instance. */ function &singleton() { static $folder; if (!isset($folder)) { $folder = new IMP_Folder(); } return $folder; } /** * Lists folders. * * @param boolean $sub Should we list only subscribed folders? * @param array $filter An list of mailboxes that should be left out of * the list. * * @return array An array of folders, where each array alement is an * associative array containing three values: 'val', with * entire folder name after the server specification; * 'label', with the full-length folder name meant for * display and 'abbrev', containing a shortened (26 * characters max) label for display in situations where * space is short. */ function flist($sub = false, $filter = array()) { global $conf, $notification; $inbox_entry = array('INBOX' => array('val' => 'INBOX', 'label' => _("Inbox"), 'abbrev' => _("Inbox"))); if ($_SESSION['imp']['base_protocol'] == 'pop3') { return $inbox_entry; } $list = array(); $subidx = intval($sub); /* Compute values that will uniquely identify this list. */ $full_signature = md5(serialize(array($subidx, $filter))); /* Either get the list from the cache, or go to the IMAP server to obtain it. */ if ($conf['server']['cache_folders']) { require_once 'Horde/SessionObjects.php'; $sessionOb = &Horde_SessionObjects::singleton(); if (!isset($_SESSION['imp']['cache']['folder_cache'])) { $_SESSION['imp']['cache']['folder_cache'] = array(); } $folder_cache = &$_SESSION['imp']['cache']['folder_cache']; if (isset($folder_cache[$full_signature])) { $data = $sessionOb->query($folder_cache[$full_signature]); if ($data) { return $data; } } } require_once IMP_BASE . '/lib/IMAP/Tree.php'; $imaptree = &IMP_Tree::singleton(); if (!isset($this->_listCache[$subidx])) { $list_mask = IMPTREE_FLIST_CONTAINER | IMPTREE_FLIST_OB; if (!$sub) { $list_mask |= IMPTREE_FLIST_UNSUB; } $this->_listCache[$subidx] = $imaptree->folderList($list_mask); } foreach ($this->_listCache[$subidx] as $ob) { if (in_array($ob['v'], $filter)) { continue; } $abbrev = $label = str_repeat(' ', 4 * $ob['c']) . $ob['l']; if (strlen($abbrev) > 26) { $abbrev = String::substr($abbrev, 0, 10) . '...' . String::substr($abbrev, -13, 13); } $list[$ob['v']] = array('val' => $imaptree->isContainer($ob) ? '' : $ob['v'], 'label' => $label, 'abbrev' => $abbrev); } /* Add the INBOX on top of list if not in the filter list. */ if (!in_array('INBOX', $filter)) { $list = $inbox_entry + $list; } /* Save in cache, if needed. */ if ($conf['server']['cache_folders']) { $folder_cache[$full_signature] = $sessionOb->storeOid($list, false); } return $list; } /** * Returns an array of folders. This is a wrapper around the flist() * function which reduces the number of arguments needed if we can assume * that IMP's full environment is present. * * @param array $filter An array of mailboxes to ignore. * @param boolean $sub If set, will be used to determine if we should * list only subscribed folders. * * @return array The array of mailboxes returned by flist(). */ function flist_IMP($filter = array(), $sub = null) { return $this->flist(($sub === null) ? $GLOBALS['prefs']->getValue('subscribe') : $sub, $filter); } /** * Clears the flist folder cache. * * @since IMP 4.2 */ function clearFlistCache() { if (!empty($_SESSION['imp']['cache']['folder_cache'])) { require_once 'Horde/SessionObjects.php'; $sessionOb = &Horde_SessionObjects::singleton(); foreach ($_SESSION['imp']['cache']['folder_cache'] as $val) { $sessionOb->setPruneFlag($val, true); } $_SESSION['imp']['cache']['folder_cache'] = array(); } $this->_listCache = array(); } /** * Deletes one or more folders. * * @param array $folder_array An array of full utf encoded folder names * to be deleted. * @param boolean $force Delete folders even if they are fixed. * * @return boolean Whether or not the folders were successfully deleted. */ function delete($folder_array, $force = false) { global $conf, $notification; $server = IMP::serverString(); $return_value = true; $deleted = array(); $imp_imap = &IMP_IMAP::singleton(); foreach ($folder_array as $folder) { if (!$force && !empty($conf['server']['fixed_folders']) && in_array(IMP::folderPref($folder, false), $conf['server']['fixed_folders'])) { $notification->push(sprintf(_("The folder \"%s\" may not be deleted."), IMP::displayFolder($folder)), 'horde.error'); continue; } if (!imap_deletemailbox($imp_imap->stream(), $server . $folder)) { $notification->push(sprintf(_("The folder \"%s\" was not deleted. This is what the server said"), IMP::displayFolder($folder)) . ': ' . imap_last_error(), 'horde.error'); $return_value = false; } else { imap_unsubscribe($imp_imap->stream(), $server . $folder); $notification->push(sprintf(_("The folder \"%s\" was successfully deleted."), IMP::displayFolder($folder)), 'horde.success'); $deleted[] = $folder; } } if (!empty($deleted)) { /* Update the IMAP_Tree cache. */ require_once IMP_BASE . '/lib/IMAP/Tree.php'; $imaptree = &IMP_Tree::singleton(); $imaptree->delete($deleted); $this->_onDelete($deleted); } return $return_value; } /** * Do the necessary cleanup/cache updates when deleting folders. * * @access private * * @param array $deleted The list of deleted folders. */ function _onDelete($deleted) { /* Update the mailbox cache. */ require_once IMP_BASE . '/lib/IMAP/MessageCache.php'; $msg_cache = &IMP_MessageCache::singleton(); $msg_cache->deleteMboxes($deleted); /* Update the IMAP caches. */ require_once IMP_BASE . '/lib/IMAP/Cache.php'; $imap_cache = &IMP_IMAP_Cache::singleton(); foreach ($deleted as $val) { $imap_cache->expireCache($val, 1 | 2 | 4); } /* Reset the folder cache. */ unset($_SESSION['imp']['cache']['folder_cache']); /* Recreate Virtual Folders. */ $GLOBALS['imp_search']->sessionSetup(true); /* Clear the folder from the sort prefs. */ foreach ($deleted as $val) { IMP::setSort(null, null, $val, true); } } /** * Create a new IMAP folder if it does not already exist, and subcribe to * it as well if requested. * * @param string $folder The full utf encoded folder to be created. * @param boolean $subscribe A boolean describing whether or not to use * folder subscriptions. * * @return boolean Whether or not the folder was successfully created. */ function create($folder, $subscribe) { global $conf, $notification; /* Check permissions. */ if (!IMP::hasPermission('create_folders')) { $message = @htmlspecialchars(_("You are not allowed to create folders."), ENT_COMPAT, NLS::getCharset()); if (!empty($conf['hooks']['permsdenied'])) { $message = Horde::callHook('_perms_hook_denied', array('imp:create_folders'), 'horde', $message); } $notification->push($message, 'horde.error', array('content.raw')); return false; } elseif (!IMP::hasPermission('max_folders')) { $message = @htmlspecialchars(sprintf(_("You are not allowed to create more than %d folders."), IMP::hasPermission('max_folders', true)), ENT_COMPAT, NLS::getCharset()); if (!empty($conf['hooks']['permsdenied'])) { $message = Horde::callHook('_perms_hook_denied', array('imp:max_folders'), 'horde', $message); } $notification->push($message, 'horde.error', array('content.raw')); return false; } $display_folder = IMP::displayFolder($folder); /* Make sure we are not trying to create a duplicate folder */ if ($this->exists($folder)) { $notification->push(sprintf(_("The folder \"%s\" already exists"), $display_folder), 'horde.warning'); return false; } $imp_imap = &IMP_IMAP::singleton(); $server_folder = IMP::serverString($folder); /* Attempt to create the mailbox */ if (!imap_createmailbox($imp_imap->stream(), $server_folder)) { $notification->push(sprintf(_("The folder \"%s\" was not created. This is what the server said"), $display_folder) . ': ' . imap_last_error(), 'horde.error'); return false; } /* Reset the folder cache. */ if ($conf['server']['cache_folders']) { unset($_SESSION['imp']['cache']['folder_cache']); } /* Subscribe to the folder. */ $res = imap_subscribe($imp_imap->stream(), $server_folder); if ($subscribe && !$res) { $notification->push(sprintf(_("The folder \"%s\" was created but you were not subscribed to it."), $display_folder), 'horde.warning'); } else { /* The folder creation has been successful */ $notification->push(sprintf(_("The folder \"%s\" was successfully created."), $display_folder), 'horde.success'); } /* Update the IMAP_Tree object. */ require_once IMP_BASE . '/lib/IMAP/Tree.php'; $imaptree = &IMP_Tree::singleton(); $imaptree->insert($folder); /* Recreate Virtual Folders. */ $GLOBALS['imp_search']->sessionSetup(true); return true; } /** * Finds out if a specific folder exists or not. * * @param string $folder The full utf encoded folder name to be checked. * * @return boolean Whether or not the folder exists. */ function exists($folder) { require_once IMP_BASE . '/lib/IMAP/Tree.php'; $imaptree = &IMP_Tree::singleton(); $elt = $imaptree->get($folder); if ($elt && !$imaptree->isContainer($elt)) { return true; } $imp_imap = &IMP_IMAP::singleton(); $ret = @imap_getmailboxes($imp_imap->stream(), IMP::serverString(), $folder); return !empty($ret); } /** * Renames an IMAP folder. The subscription status remains the same. All * subfolders will also be renamed. * * @param string $old The old utf encoded folder name. * @param string $new The new utf encoded folder name. * @param boolean $force Rename folders even if they are fixed. * * @return boolean Whether or not all folder(s) were successfully renamed. */ function rename($old, $new, $force = false) { /* Don't try to rename from or to an empty string. */ if (strlen($old) == 0 || strlen($new) == 0) { return false; } if (!$force && !empty($GLOBALS['conf']['server']['fixed_folders']) && in_array(IMP::folderPref($old, false), $GLOBALS['conf']['server']['fixed_folders'])) { $GLOBALS['notification']->push(sprintf(_("The folder \"%s\" may not be renamed."), IMP::displayFolder($old)), 'horde.error'); return false; } $server = IMP::serverString(); $deleted = array($old); $inserted = array($new); require_once IMP_BASE . '/lib/IMAP/Tree.php'; $imaptree = &IMP_Tree::singleton(); $imp_imap = &IMP_IMAP::singleton(); /* Get list of any folders that are underneath this one. */ $all_folders = array_merge(array($old), $imaptree->folderList(IMPTREE_FLIST_UNSUB, $old)); $sub_folders = $imaptree->folderList(); if (!imap_renamemailbox($imp_imap->stream(), $server . $old, $server . $new)) { $GLOBALS['notification']->push(sprintf(_("Renaming \"%s\" to \"%s\" failed. This is what the server said"), IMP::displayFolder($old), IMP::displayFolder($new)) . ': ' . imap_last_error(), 'horde.error'); return false; } $GLOBALS['notification']->push(sprintf(_("The folder \"%s\" was successfully renamed to \"%s\"."), IMP::displayFolder($old), IMP::displayFolder($new)), 'horde.success'); foreach ($all_folders as $folder_old) { $deleted[] = $folder_old; /* Get the new folder name. */ $inserted[] = $folder_new = substr_replace($folder_old, $new, 0, strlen($old)); /* Correctly set subscriptions on renamed folder. */ if (in_array($folder_old, $sub_folders)) { imap_unsubscribe($imp_imap->stream(), $server . $folder_old); imap_subscribe($imp_imap->stream(), $server . $folder_new); } } if (!empty($deleted)) { $imaptree->rename($deleted, $inserted); $this->_onDelete($deleted); } return true; } /** * Subscribes to one or more IMAP folders. * * @param array $folder_array An array of full utf encoded folder names * to be subscribed. * * @return boolean Whether or not the folders were successfully * subscribed to. */ function subscribe($folder_array) { global $notification; $return_value = true; $subscribed = array(); if (!is_array($folder_array)) { $notification->push(_("No folders were specified"), 'horde.warning'); return false; } $imp_imap = &IMP_IMAP::singleton(); foreach ($folder_array as $folder) { if ($folder != ' ') { if (!imap_subscribe($imp_imap->stream(), IMP::serverString($folder))) { $notification->push(sprintf(_("You were not subscribed to \"%s\". Here is what the server said"), IMP::displayFolder($folder)) . ': ' . imap_last_error(), 'horde.error'); $return_value = false; } else { $notification->push(sprintf(_("You were successfully subscribed to \"%s\""), IMP::displayFolder($folder)), 'horde.success'); $subscribed[] = $folder; } } } if (!empty($subscribed)) { /* Initialize the IMAP_Tree object. */ require_once IMP_BASE . '/lib/IMAP/Tree.php'; $imaptree = &IMP_Tree::singleton(); $imaptree->subscribe($subscribed); /* Reset the folder cache. */ unset($_SESSION['imp']['cache']['folder_cache']); } return $return_value; } /** * Unsubscribes from one or more IMAP folders. * * @param array $folder_array An array of full utf encoded folder names * to be unsubscribed. * * @return boolean Whether or not the folders were successfully * unsubscribed from. */ function unsubscribe($folder_array) { global $notification; $return_value = true; $unsubscribed = array(); if (!is_array($folder_array)) { $notification->push(_("No folders were specified"), 'horde.message'); return false; } $imp_imap = &IMP_IMAP::singleton(); foreach ($folder_array as $folder) { if ($folder != ' ') { if (strcasecmp($folder, 'INBOX') == 0) { $notification->push(sprintf(_("You cannot unsubscribe from \"%s\"."), IMP::displayFolder($folder)), 'horde.error'); } elseif (!imap_unsubscribe($imp_imap->stream(), IMP::serverString($folder))) { $notification->push(sprintf(_("You were not unsubscribed from \"%s\". Here is what the server said"), IMP::displayFolder($folder)) . ': ' . imap_last_error(), 'horde.error'); $return_value = false; } else { $notification->push(sprintf(_("You were successfully unsubscribed from \"%s\""), IMP::displayFolder($folder)), 'horde.success'); $unsubscribed[] = $folder; } } } if (!empty($unsubscribed)) { /* Initialize the IMAP_Tree object. */ require_once IMP_BASE . '/lib/IMAP/Tree.php'; $imaptree = &IMP_Tree::singleton(); $imaptree->unsubscribe($unsubscribed); /* Reset the folder cache. */ unset($_SESSION['imp']['cache']['folder_cache']); } return $return_value; } /** * Generates a string that can be saved out to an mbox format mailbox file * for a folder or set of folders, optionally including all subfolders of * the selected folders as well. All folders will be put into the same * string. * * @author Didi Rieder * * @param array $folder_list A list of full utf encoded folder names to * generate an mbox file for. * @param boolean $recursive Include subfolders? * * @return string An mbox format mailbox file. */ function &generateMbox($folder_list, $recursive = false) { $body = ''; if (is_array($folder_list)) { $imp_imap = &IMP_IMAP::singleton(); $stream = $imp_imap->stream(); foreach ($folder_list as $folder) { $imp_imap->changeMbox($folder, IMP_IMAP_AUTO); $count = imap_num_msg($stream); for ($i = 1; $i <= $count; $i++) { $h = imap_header($stream, $i); $from = '<>'; if (isset($h->from[0])) { if (isset($h->from[0]->mailbox) && isset($h->from[0]->host)) { $from = $h->from[0]->mailbox . '@' . $h->from[0]->host; } } /* We need this long command since some MUAs (e.g. pine) require a space in front of single digit days. */ $date = sprintf('%s %2s %s', date('D M', $h->udate), date('j', $h->udate), date('H:i:s Y', $h->udate)); $body .= 'From ' . $from . ' ' . $date . "\n"; $body .= str_replace("\r\n", "\n", imap_fetchheader($stream, $i, FT_PREFETCHTEXT)); $body .= str_replace("\r\n", "\n", imap_body($stream, $i, FT_PEEK)) . "\n"; } } } return $body; } /** * Imports messages into a given folder from a mbox format mailbox file. * * @param string $folder The folder to put the messages into. * @param string $mbox String containing the mbox filename. * * @return mixed False (boolean) on fail or the number of messages * imported (integer) on success. */ function importMbox($folder, $mbox) { $message = ''; $msgcount = 0; $target = IMP::serverString($folder); $imp_imap = &IMP_IMAP::singleton(); $stream = $imp_imap->stream(); $fd = fopen($mbox, "r"); while (!feof($fd)) { $line = fgets($fd, 4096); if (preg_match('/From (.+@.+|- )/A', $line)) { if (!empty($message)) { if (@imap_append($stream, $target, IMP::removeBareNewlines($message))) { $msgcount++; } } $message = ''; } else { $message .= $line; } } fclose($fd); if (!empty($message)) { if (@imap_append($stream, $target, IMP::removeBareNewlines($message))) { $msgcount++; } } return ($msgcount > 0) ? $msgcount : false; } } ./lib/tests/0000755000175000017500000000000011702026733012776 5ustar mathieumathieu./lib/tests/mime_viewer_html.phpt0000644000175000017500000001010311702026733017222 0ustar mathieumathieu--TEST-- tests. --FILE-- _openLinksInNewWindow('foo') . "\n"; echo $v->_openLinksInNewWindow('example@example.com') . "\n"; echo $v->_openLinksInNewWindow('foo Anchor') . "\n"; echo $v->_openLinksInNewWindow('foo example') . "\n"; echo $v->_openLinksInNewWindow('foo example') . "\n"; echo $v->_openLinksInNewWindow('foo example') . "\n"; echo $v->_openLinksInNewWindow('foo Example Email') . "\n"; echo $v->_openLinksInNewWindow('') . "\n"; echo $v->_openLinksInNewWindow('') . "\n"; echo "\n"; // Test regex for hiding images. echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), '') . "\n"; echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), '') . "\n"; echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), '') . "\n"; echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), "Best flight deals") . "\n"; echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), '') . "\n"; echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), '') . "\n"; echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), '') . "\n"; echo preg_replace_callback($v->_img_regex, array($v, '_blockImages'), ' ') . "\n"; ?> --EXPECT-- foo example@example.com foo Anchor foo example foo example foo example foo Example Email Best flight deals ./lib/tests/quota_maildir.phpt0000644000175000017500000000054411702026733016530 0ustar mathieumathieu--TEST-- IMP_Quota_maildir test. --FILE-- dirname(__FILE__) . '/fixtures')); var_export($quota->getQuota()); ?> --EXPECT-- array ( 'usage' => 550839239, 'limit' => 1000000000, ) ./lib/tests/fixtures/0000755000175000017500000000000011702026733014647 5ustar mathieumathieu./lib/tests/fixtures/maildirsize0000644000175000017500000000160011702026733017103 0ustar mathieumathieu1000000000S 543336696 6335 3163 1 11524 1 4030 1 218569 1 2393 1 6594810 1 8013 1 -13894 -4 1501 1 1687 1 7495 1 64581 1 4918 1 21673 1 202775 1 5133 1 1863 1 8003 1 25389 1 4034 1 14878 1 -8003 -1 2371 1 1947 1 1916 1 1913 1 2064 1 2293 1 203262 1 63545 1 35037 1 1740 1 1920 1 ./lib/Maillog.php0000644000175000017500000001427311702026733013740 0ustar mathieumathieu * @package IMP */ class IMP_Maillog { /** * Create a log entry. * * @param string $type Either 'forward', 'redirect', 'reply', or 'mdn'. * @param mixed $msg_ids Either a single Message-ID or an array of * Message-IDs to log. * @param string $data Any additional data to store. For 'forward' and * 'redirect' this is the list of recipients the * message was sent to. For 'mdn' this is the * MDN-type of the message that was sent. */ function log($type, $msg_ids, $data = null) { $history = &Horde_History::singleton(); if (!is_array($msg_ids)) { $msg_ids = array($msg_ids); } foreach ($msg_ids as $val) { switch ($type) { case 'forward': $params = array('recipients' => $data, 'action' => 'forward'); break; case 'mdn': $params = array('type' => $data, 'action' => 'mdn'); break; case 'redirect': $params = array('recipients' => $data, 'action' => 'redirect'); break; case 'reply': $params = array('action' => 'reply'); break; } $r = $history->log(IMP_Maillog::_getUniqueHistoryId($val), $params); /* On error, log the error message only since informing the user * is just a waste of time and a potential point of confusion, * especially since they most likely don't even know the message * is being logged. */ if (is_a($r, 'PEAR_Error')) { $entry = sprintf('Could not log message details to Horde_History. Error returned: %s', $r->getMessage()); Horde::logMessage($entry, __FILE__, __LINE__, PEAR_LOG_ERR); } } } /** * Retrieve any history for the given Message-ID. * * @param string $msg_id The Message-ID of the message. * * @return DataTreeObject The DataTreeObject object containing the log * information, or PEAR_Error on error. */ function &getLog($msg_id) { $history = &Horde_History::singleton(); $log = &$history->getHistory(IMP_Maillog::_getUniqueHistoryId($msg_id)); return $log; } /** * Determines if an MDN notification of a certain type has been sent * previously for this message-ID. * * @param string $msg_id The Message-ID of the message. * @param string $type The type of MDN. * * @return boolean True if a MDN has been sent for this message with * the given type. */ function sentMDN($msg_id, $type) { $msg_history = IMP_Maillog::getLog($msg_id); if ($msg_history && !is_a($msg_history, 'PEAR_Error')) { foreach ($msg_history->getData() as $entry) { if (($entry['action'] == 'mdn') && ($entry['type'] == $type)) { return true; } } } return false; } /** * Retrieve any history for the given Message-ID and display via the * Horde notification system. * * @param string $msg_id The Message-ID of the message. */ function displayLog($msg_id) { global $notification, $prefs; $msg_history = IMP_Maillog::getLog($msg_id); if ($msg_history && !is_a($msg_history, 'PEAR_Error')) { foreach ($msg_history->getData() as $entry) { $msg = null; if (isset($entry['desc'])) { $msg = $entry['desc']; } else { switch ($entry['action']) { case 'forward': $msg = sprintf(_("You forwarded this message on %%s to the following recipients: %s."), $entry['recipients']); break; case 'mdn': /* We don't display 'mdn' log entries. */ break; case 'redirect': $msg = sprintf(_("You redirected this message to %s on %%s."), $entry['recipients']); break; case 'reply': $msg = _("You replied to this message on %s."); break; } } if ($msg) { $notification->push(htmlspecialchars(@sprintf($msg, strftime($prefs->getValue('date_format') . ' ' . $prefs->getValue('time_format'), $entry['ts']))), 'imp.' . $entry['action']); } } } } /** * Delete the log entries for a given list of Message-IDs. * * @param mixed $msg_ids Either a single Message-ID or an array * of Message-IDs to delete. */ function deleteLog($msg_ids) { if (!is_array($msg_ids)) { $msg_ids = array($msg_ids); } $msg_ids = array_map(array('IMP_Maillog', '_getUniqueHistoryId'), $msg_ids); $history = &Horde_History::singleton(); return $history->removeByNames($msg_ids); } /** * Generate the unique log ID for a forward/reply/redirect event. * * @access private * * @param string $msgid The Message-ID of the original message. * * @return string The unique log ID to use with Horde_History::. */ function _getUniqueHistoryId($msgid) { if (is_array($msgid)) { return ''; } return implode('.', array('imp', str_replace('.', '*', Auth::getAuth()), $msgid)); } } ./attachment.php0000644000175000017500000001470111702026733013732 0ustar mathieumathieu * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. * * This file should be the basis for serving hosted attachments. It * should fetch the file from the VFS and funnel it to the client * wishing to download the attachment. This will allow for the * exchange of massive attachments without causing mail server havoc. */ // Set up initial includes. // This does *not* include IMP's base.php because we do not need to be // authenticated to get the file. Most users won't send linked // attachments just to other IMP users. if (!defined('HORDE_BASE')) { @define('HORDE_BASE', dirname(__FILE__) . '/..'); } @define('IMP_BASE', dirname(__FILE__)); require_once HORDE_BASE . '/lib/core.php'; require_once IMP_BASE . '/lib/Compose.php'; require_once 'Horde/MIME/Magic.php'; require_once 'VFS.php'; $registry = &Registry::singleton(); $registry->importConfig('imp'); $_self_url = Horde::selfUrl(false, true, true); // Lets see if we are even able to send the user an attachment. if (!$conf['compose']['link_attachments']) { Horde::fatal(_("Linked attachments are forbidden."), $_self_url, __LINE__); } // Gather required form variables. $mail_user = Util::getFormData('u'); $time_stamp = Util::getFormData('t'); $file_name = Util::getFormData('f'); if (!isset($mail_user) || !isset($time_stamp) || !isset($file_name) || $mail_user == '' || $time_stamp == '' || $file_name == '') { Horde::fatal(_("The attachment was not found."), $_self_url, __LINE__); } // Initialize the VFS. $vfsroot = &VFS::singleton($conf['vfs']['type'], Horde::getDriverConfig('vfs', $conf['vfs']['type'])); if (is_a($vfsroot, 'PEAR_Error')) { Horde::fatal(sprintf(_("Could not create the VFS backend: %s"), $vfsroot->getMessage()), $_self_url, __LINE__); } // Check if the file exists. $mail_user = basename($mail_user); $time_stamp = basename($time_stamp); $file_name = escapeshellcmd(basename($file_name)); $full_path = sprintf(IMP_VFS_LINK_ATTACH_PATH . '/%s/%d', $mail_user, $time_stamp); if (!$vfsroot->exists($full_path, $file_name)) { Horde::fatal(_("The specified attachment does not exist. It may have been deleted by the original sender."), $_self_url, __LINE__); } // Check to see if we need to send a verification message. if ($conf['compose']['link_attachments_notify']) { if ($vfsroot->exists($full_path, $file_name . '.notify')) { $delete_id = Util::getFormData('d'); $read_id = $vfsroot->read($full_path, $file_name . '.notify'); if (is_a($read_id, 'PEAR_Error')) { Horde::logMessage($read_id, __FILE__, __LINE__, PEAR_LOG_ERR); } elseif ($delete_id == $read_id) { $vfsroot->deleteFile($full_path, $file_name); $vfsroot->deleteFile($full_path, $file_name . '.notify'); printf(_("Attachment %s deleted."), $file_name); exit; } } else { /* Create a random identifier for this file. */ $id = base_convert($file_name . mt_rand(), 10, 36); $res = $vfsroot->writeData($full_path, $file_name . '.notify' , $id, true); if (is_a($res, 'PEAR_Error')) { Horde::logMessage($res, __FILE__, __LINE__, PEAR_LOG_ERR); } else { /* Load $mail_user's preferences so that we can use their * locale information for the notification message. */ include_once 'Horde/Prefs.php'; $prefs = &Prefs::singleton($conf['prefs']['driver'], 'horde', $mail_user); $prefs->retrieve(); include_once 'Horde/Identity.php'; $mail_identity = &Identity::singleton('none', $mail_user); $mail_address = $mail_identity->getDefaultFromAddress(); /* Ignore missing addresses, which are returned as <>. */ if (strlen($mail_address) > 2) { $mail_address_full = $mail_identity->getDefaultFromAddress(true); NLS::setTimeZone(); NLS::setLang($prefs->getValue('language')); NLS::setTextdomain('imp', IMP_BASE . '/locale', NLS::getCharset()); String::setDefaultCharset(NLS::getCharset()); /* Set up the mail headers and read the log file. */ include_once 'Horde/MIME/Headers.php'; $msg_headers = new MIME_Headers(); $msg_headers->addReceivedHeader(); $msg_headers->addMessageIdHeader(); $msg_headers->addAgentHeader(); $msg_headers->addHeader('Date', date('r')); $msg_headers->addHeader('From', $mail_address_full); $msg_headers->addHeader('To', $mail_address_full); $msg_headers->addHeader('Subject', _("Notification: Linked attachment downloaded")); include_once 'Horde/MIME/Message.php'; $msg = new MIME_Message(); $msg->setType('text/plain'); $msg->setCharset(NLS::getCharset()); $msg->setContents(String::wrap(sprintf(_("Your linked attachment has been downloaded by at least one user.\n\nAttachment name: %s\nAttachment date: %s\n\nClick on the following link to permanently delete the attachment:\n%s"), $file_name, date('r', $time_stamp), Util::addParameter(Horde::selfUrl(true, false, true), 'd', $id)))); $msg_headers->addMIMEHeaders($msg); $msg->send($mail_address, $msg_headers); } } } } // Find the file's mime-type. $file_data = $vfsroot->read($full_path, $file_name); if (is_a($file_data, 'PEAR_Error')) { Horde::logMessage($file_data, __FILE__, __LINE__, PEAR_LOG_ERR); Horde::fatal(_("The specified file cannot be read."), $_self_url, __LINE__); } $mime_type = MIME_Magic::analyzeData($file_data, isset($conf['mime']['magic_db']) ? $conf['mime']['magic_db'] : null); if ($mime_type === false) { $mime_type = MIME_Magic::filenameToMIME($file_name, false); } // Prevent 'jar:' attacks on Firefox. See Ticket #5892. if ($browser->isBrowser('mozilla')) { if (in_array(String::lower($mime_type), array('application/java-archive', 'application/x-jar'))) { $mime_type = 'application/octet-stream'; } } // Send the client the file. $browser->downloadHeaders($file_name, $mime_type, false, strlen($file_data)); echo $file_data; ./compose.php0000644000175000017500000014336211702026733013255 0ustar mathieumathieu * @author Michael Slusarz */ function _mailboxReturnURL($encode, $url = null) { if (empty($url)) { $url = Horde::applicationUrl('mailbox.php'); } foreach (array('start', 'page', 'mailbox', 'thismailbox') as $key) { if (($param = Util::getFormData($key))) { $url = Util::addParameter($url, $key, $param, $encode); } } return $url; } function _popupSuccess() { require_once 'Horde/Menu.php'; $menu = new Menu(HORDE_MENU_MASK_NONE); $menu->add(Horde::applicationUrl('compose.php'), _("New Message"), 'compose.png'); $menu->add('', _("Close this window"), 'close.png', $GLOBALS['registry']->getImageDir('horde'), '', 'window.close();'); require IMP_TEMPLATES . '/common-header.inc'; $success_template = new IMP_Template(); $success_template->set('menu', $menu->render()); echo $success_template->fetch(IMP_TEMPLATES . '/compose/success.html'); IMP::status(); require $GLOBALS['registry']->get('templates', 'horde') . '/common-footer.inc'; } function &_getIMPContents($index, $mailbox) { $res = false; if (empty($index)) { return $res; } require_once IMP_BASE . '/lib/MIME/Contents.php'; $imp_contents = &IMP_Contents::singleton($index . IMP_IDX_SEP . $mailbox); if (is_a($imp_contents, 'PEAR_Error')) { $GLOBALS['notification']->push(_("Could not retrieve the message from the mail server."), 'horde.error'); return $res; } return $imp_contents; } @define('IMP_BASE', dirname(__FILE__)); $session_control = 'netscape'; require_once IMP_BASE . '/lib/base.php'; require_once IMP_BASE . '/lib/Compose.php'; require_once IMP_BASE . '/lib/Template.php'; require_once 'Horde/Help.php'; require_once 'Horde/Identity.php'; require_once 'Horde/MIME/Part.php'; require_once 'Horde/Text/Filter.php'; /* The message text. */ $msg = ''; /* The headers of the message. */ $header = array( 'in_reply_to' => Util::getFormData('in_reply_to'), 'references' => Util::getFormData('references') ); $get_sig = true; $pgp_passphrase_dialog = $pgp_symmetric_passphrase_dialog = $showmenu = $smime_passphrase_dialog = false; $cursor_pos = $oldrtemode = $rtemode = $siglocation = null; /* Set the current identity. */ $identity = &Identity::singleton(array('imp', 'imp')); if (!$prefs->isLocked('default_identity')) { $identity_id = Util::getFormData('identity'); if (!is_null($identity_id)) { $identity->setDefault($identity_id); } } /* Catch submits if javascript is not present. */ if (!($actionID = Util::getFormData('actionID'))) { foreach (array('send_message', 'save_draft', 'cancel_compose', 'add_attachment', 'compose_expand_addr') as $val) { if (Util::getFormData('btn_' . $val)) { $actionID = $val; break; } } } if ($actionID) { switch ($actionID) { case 'mailto': case 'mailto_link': case 'draft': case 'reply': case 'reply_all': case 'reply_list': case 'forward_all': case 'forward_body': case 'forward_attachments': case 'redirect_compose': case 'fwd_digest': case 'recompose': // These are all safe actions that might be invoked without a token. break; default: $result = IMP::checkRequestToken('imp.compose', Util::getFormData('compose_requestToken')); if (is_a($result, 'PEAR_Error')) { $notification->push($result); $actionID = null; } } } $sent_mail_folder = $identity->getValue('sent_mail_folder'); $index = Util::getFormData('index'); $reply_index = Util::getFormData('reply_index'); $thismailbox = Util::getFormData('thismailbox'); /* Check for duplicate submits. */ require_once 'Horde/Token.php'; if (isset($conf['token'])) { /* If there is a configured token system, set it up. */ $tokenSource = Horde_Token::factory( $conf['token']['driver'], Horde::getDriverConfig('token', $conf['token']['driver'])); } else { /* Default to the file system if no config. */ $tokenSource = Horde_Token::factory('file'); } if ($token = Util::getFormData('compose_formToken')) { $verified = $tokenSource->verify($token); /* Notify and reset the actionID. */ if (is_a($verified, 'PEAR_Error')) { $notification->push($verified); $actionID = null; } elseif (!$verified) { $notification->push(_("You have already submitted this page."), 'horde.error'); $actionID = null; } } /* Set the current time zone. */ NLS::setTimeZone(); /* Initialize the IMP_Compose:: object. */ $imp_compose = &IMP_Compose::singleton(Util::getFormData('messageCache')); $imp_compose->pgpAttachPubkey((bool) Util::getFormData('pgp_attach_pubkey')); $imp_compose->userLinkAttachments((bool) Util::getFormData('link_attachments')); $imp_compose->attachVCard((bool) Util::getFormData('vcard'), $identity->getValue('fullname')); /* Init IMP_UI_Compose:: object. */ require_once IMP_BASE . '/lib/UI/Compose.php'; $imp_ui = new IMP_UI_Compose(); /* Set the default charset & encoding. * $charset - charset to use when sending messages * $encoding - best guessed charset offered to the user as the default value in * the charset dropdown list. */ if ($prefs->isLocked('sending_charset')) { $charset = NLS::getEmailCharset(); } else { $charset = Util::getFormData('charset'); } $encoding = empty($charset) ? NLS::getEmailCharset() : $charset; /* Is this a popup window? */ $has_js = $browser->hasFeature('javascript'); $isPopup = (($prefs->getValue('compose_popup') || Util::getFormData('popup')) && $has_js); /* Determine the composition type - text or HTML. $rtemode is null if browser does not support it. */ $rtemode = null; if ($browser->hasFeature('rte')) { if ($prefs->isLocked('compose_html')) { $rtemode = $prefs->getValue('compose_html'); } else { $rtemode = Util::getFormData('rtemode'); if (is_null($rtemode)) { $rtemode = $prefs->getValue('compose_html'); } else { $oldrtemode = Util::getFormData('oldrtemode'); $get_sig = false; } } } /* Load stationery. */ $stationery_list = array(); if (!$prefs->isLocked('stationery')) { $stationery = null; $all_stationery = @unserialize($prefs->getValue('stationery', false)); if (is_array($all_stationery)) { $all_stationery = String::convertCharset($all_stationery, $prefs->getCharset()); foreach ($all_stationery as $id => $choice) { if (($choice['t'] == 'plain') || (($choice['t'] == 'html') && $rtemode)) { if ($rtemode && $choice['t'] == 'plain') { $choice['c'] = $imp_compose->text2html($choice['c']); } $stationery_list[$id] = $choice; } } } } /* Update the file attachment information. */ if ($_SESSION['imp']['file_upload']) { /* Only notify if we are reloading the compose screen. */ $notify = ($actionID != 'send_message') && ($actionID != 'save_draft'); $deleteList = Util::getPost('delattachments', array()); /* Update the attachment information. */ foreach (array_keys($imp_compose->getAttachments()) as $i) { if (!in_array($i, $deleteList)) { $disposition = Util::getFormData('file_disposition_' . $i); $description = Util::getFormData('file_description_' . $i); $imp_compose->updateAttachment($i, array('disposition' => $disposition, 'description' => $description)); } } /* Delete attachments. */ if (!empty($deleteList)) { $filenames = $imp_compose->deleteAttachment($deleteList); if ($notify) { foreach ($filenames as $val) { $notification->push(sprintf(_("Deleted the attachment \"%s\"."), MIME::decode($val)), 'horde.success'); } } } /* Add new attachments. */ if (!$imp_compose->addFilesFromUpload('upload_', 'upload_disposition_', $notify)) { $actionID = null; } } /* Run through the action handlers. */ $reply_type = null; $title = _("New Message"); switch ($actionID) { case 'recompose': // Extract the stored form data. $formData = @unserialize($_SESSION['recompose_formData']); unset($_SESSION['recompose_formData']); if (!empty($formData['post'])) { $_POST = $formData['post']; } if (!empty($formData['get'])) { $_GET = $formData['get']; } $get_sig = false; break; case 'mailto': if (!($imp_contents = &_getIMPContents($index, $thismailbox))) { break; } $imp_headers = &$imp_contents->getHeaderOb(); $header['to'] = ''; if (Util::getFormData('mailto')) { $header['to'] = $imp_headers->getValue('to'); } if (empty($header['to'])) { ($header['to'] = MIME::addrArray2String($imp_headers->getOb('from'))) || ($header['to'] = MIME::addrArray2String($imp_headers->getOb('reply-to'))); } break; case 'mailto_link': $args = IMP::getComposeArgs(); if (isset($args['body'])) { $msg = $args['body']; } foreach (array('to', 'cc', 'bcc', 'subject') as $val) { if (isset($args[$val])) { $header[$val] = $args[$val]; } } break; case 'draft': $result = $imp_compose->resumeDraft($index . IMP_IDX_SEP . $thismailbox); if (is_a($result, 'PEAR_Error')) { $notification->push($result->getMessage(), 'horde.error'); } else { if (!is_null($rtemode)) { $rtemode = ($result['mode'] == 'html'); } $msg = $result['msg']; $header = array_merge($header, $result['header']); if (!is_null($result['identity']) && ($result['identity'] != $identity->getDefault()) && !$prefs->isLocked('default_identity')) { $identity->setDefault($result['identity']); $sent_mail_folder = $identity->getValue('sent_mail_folder'); } if (isset($result['header']['references'])) { $reply_type = 'reply'; } } $get_sig = false; break; case 'compose_expand_addr': case 'redirect_expand_addr': $header['to'] = $imp_ui->expandAddresses(Util::getFormData('to'), $imp_compose); if ($actionID == 'compose_expand_addr') { $header['cc'] = $imp_ui->expandAddresses(Util::getFormData('cc'), $imp_compose); $header['bcc'] = $imp_ui->expandAddresses(Util::getFormData('bcc'), $imp_compose); } $get_sig = false; break; case 'reply': case 'reply_all': case 'reply_list': if (!($imp_contents = &_getIMPContents($index, $thismailbox))) { break; } $reply_msg = $imp_compose->replyMessage($actionID, $imp_contents, Util::getFormData('to')); $msg = $reply_msg['body']; $header = $reply_msg['headers']; $format = $reply_msg['format']; if (!is_null($rtemode)) { $rtemode = $rtemode || $format == 'html'; } if ($actionID == 'reply') { $title = _("Reply:"); } elseif ($actionID == 'reply_all') { $title = _("Reply to All:"); } elseif ($actionID == 'reply_list') { $title = _("Reply to List:"); } $title .= ' ' . $header['subject']; $encoding = empty($charset) ? $header['encoding'] : $charset; $reply_index = $index; break; case 'forward_all': case 'forward_body': case 'forward_attachments': if (!($imp_contents = &_getIMPContents($index, $thismailbox))) { break; } $fwd_msg = $imp_ui->getForwardData($imp_compose, $imp_contents, $actionID, $index . IMP_IDX_SEP . $thismailbox); if ($actionID == 'forward_all') { $msg = ''; } else { $msg = $fwd_msg['body']; } $header = $fwd_msg['headers']; $format = $fwd_msg['format']; $rtemode = ($rtemode || (!is_null($rtemode) && ($format == 'html'))); $title = $header['title']; $encoding = empty($charset) ? $header['encoding'] : $charset; break; case 'redirect_compose': $title = _("Redirect this message"); break; case 'redirect_send': if (!($imp_contents = &_getIMPContents($index, $thismailbox))) { break; } $f_to = Util::getFormData('to', $imp_ui->getAddressList(Util::getFormData('to'), Util::getFormData('to_list'), Util::getFormData('to_field'), Util::getFormData('to_new'))); $result = $imp_ui->redirectMessage($f_to, $imp_compose, $imp_contents, $encoding); if (!is_a($result, 'PEAR_Error')) { if ($isPopup) { if ($prefs->getValue('compose_confirm')) { $notification->push(_("Message redirected successfully."), 'horde.success'); _popupSuccess(); } else { Util::closeWindowJS(); } } else { if ($prefs->getValue('compose_confirm')) { $notification->push(_("Message redirected successfully."), 'horde.success'); } header('Location: ' . _mailboxReturnURL(false)); } exit; } $notification->push($result, 'horde.error'); $actionID = 'redirect_compose'; $get_sig = false; break; case 'send_message': $from = $identity->getFromLine(null, Util::getFormData('from')); if (is_a($from, 'PEAR_Error')) { $get_sig = false; $notification->push($from); break; } $header['from'] = $from; $header['replyto'] = $identity->getValue('replyto_addr'); $header['to'] = $imp_ui->getAddressList(Util::getFormData('to'), Util::getFormData('to_list'), Util::getFormData('to_field'), Util::getFormData('to_new')); if ($prefs->getValue('compose_cc')) { $header['cc'] = $imp_ui->getAddressList(Util::getFormData('cc'), Util::getFormData('cc_list'), Util::getFormData('cc_field'), Util::getFormData('cc_new')); } if ($prefs->getValue('compose_bcc')) { $header['bcc'] = $imp_ui->getAddressList(Util::getFormData('bcc'), Util::getFormData('bcc_list'), Util::getFormData('bcc_field'), Util::getFormData('bcc_new')); } $message = Util::getFormData('message'); $header['subject'] = Util::getFormData('subject', ''); if ($smf = Util::getFormData('sent_mail_folder')) { $sent_mail_folder = $smf; } $options = array( 'save_sent' => Util::getFormData('save_sent_mail'), 'sent_folder' => $sent_mail_folder, 'save_attachments' => Util::getFormData('save_attachments_select'), 'reply_type' => Util::getFormData('reply_type'), 'reply_index' => (empty($reply_index) ? null : $reply_index . IMP_IDX_SEP . $thismailbox), 'encrypt' => $prefs->isLocked('default_encrypt') ? $prefs->getValue('default_encrypt') : Util::getFormData('encrypt_options'), 'priority' => Util::getFormData('x_priority'), 'readreceipt' => Util::getFormData('request_read_receipt') ); $sent = $imp_compose->buildAndSendMessage($message, $header, $charset, $rtemode, $options); if (is_a($sent, 'PEAR_Error')) { $get_sig = false; $code = $sent->getCode(); $notification->push($sent, strpos($code, 'horde.') === 0 ? $code : 'horde.error'); if ($sent->getUserInfo() == 'pgp_symmetric_passphrase_dialog') { $pgp_symmetric_passphrase_dialog = true; } elseif ($sent->getUserInfo() == 'pgp_passphrase_dialog') { $pgp_passphrase_dialog = true; } elseif ($sent->getUserInfo() == 'smime_passphrase_dialog') { $smime_passphrase_dialog = true; } break; } if ($isPopup) { if ($prefs->getValue('compose_confirm') || !$sent) { if ($sent) { $notification->push(_("Message sent successfully."), 'horde.success'); } _popupSuccess(); } else { Util::closeWindowJS(); } } else { if ($prefs->getValue('compose_confirm') && $sent) { $notification->push(_("Message sent successfully."), 'horde.success'); } header('Location: ' . _mailboxReturnURL(false)); } exit; case 'save_draft': /* Set up the From address based on the identity. */ $header['from'] = $identity->getFromLine(null, Util::getFormData('from')); if (is_a($header['from'], 'PEAR_Error')) { $get_sig = false; $notification->push($header['from']); break; } foreach (array('to', 'cc', 'bcc', 'subject') as $val) { $header[$val] = Util::getFormData($val); } $message = Util::getFormData('message', ''); /* Save the draft. */ $result = $imp_compose->saveDraft($header, $message, NLS::getCharset(), $rtemode); if (is_a($result, 'PEAR_Error')) { $notification->push($result->getMessage(), 'horde.error'); } else { /* Closing draft if requested by preferences. */ if ($isPopup) { if ($prefs->getValue('close_draft')) { Util::closeWindowJS(); } else { $notification->push($result, 'horde.success'); break; } } else { $notification->push($result); header('Location: ' . _mailboxReturnURL(false)); } exit; } $get_sig = false; break; case 'fwd_digest': $indices = Util::getFormData('fwddigest'); if (!empty($indices)) { $msglist = unserialize(urldecode($indices)); $imp_compose->attachIMAPMessage($msglist, $header); } break; case 'cancel_compose': $imp_compose->deleteAllAttachments(); if ($isPopup) { Util::closeWindowJS(); } else { header('Location: ' . _mailboxReturnURL(false)); } exit; case 'selectlist_process': $select_id = Util::getFormData('selectlist_selectid'); if (!empty($select_id)) { if ($registry->hasMethod('files/selectlistResults') && $registry->hasMethod('files/returnFromSelectlist')) { $filelist = $registry->call('files/selectlistResults', array($select_id)); if ($filelist && !is_a($filelist, 'PEAR_Error')) { $i = 0; foreach ($filelist as $val) { $data = $registry->call('files/returnFromSelectlist', array($select_id, $i++)); if ($data && !is_a($data, 'PEAR_Error')) { $part = new MIME_Part(); $part->setContents($data); $part->setName(reset($val)); $res = $imp_compose->addMIMEPartAttachment($part); if (is_a($res, 'PEAR_Error')) { $notification->push($res, 'horde.error'); } } } } } } break; case 'change_stationery': if (empty($stationery_list)) { break; } $stationery = Util::getFormData('stationery'); if (strlen($stationery)) { $stationery = (int)$stationery; $stationery_content = $stationery_list[$stationery]['c']; $msg = Util::getFormData('message', ''); if (strpos($stationery_content, '%s') !== false) { $sig = $identity->getSignature(); if ($rtemode) { $sig = $imp_compose->text2html($sig); $stationery_content = $imp_compose->text2html($stationery_content); } $msg = str_replace(array("\r\n", $sig), array("\n", ''), $msg); $stationery_content = str_replace('%s', $sig, $stationery_content); } if (strpos($stationery_content, '%c') === false) { $msg .= $stationery_content; } else { $msg = str_replace('%c', $msg, $stationery_content); } } $get_sig = false; break; case 'add_attachment': $get_sig = false; break; } /* Get the message cache ID. */ $messageCacheID = $imp_compose->getMessageCacheId(); /* Has this page been reloaded? */ $reloaded = Util::getFormData('reloaded'); /* Are we in redirect mode? */ $redirect = in_array($actionID, array('redirect_compose', 'redirect_expand_addr')); /* Attach autocompleters to the compose form elements. */ $spellcheck = false; if ($has_js) { require_once IMP_BASE . '/lib/Imple.php'; if ($redirect) { $imp_ui->attachAutoCompleter('Imple', array('to')); } else { $auto_complete = array('to'); foreach (array('cc', 'bcc') as $val) { if ($prefs->getValue('compose_' . $val)) { $auto_complete[] = $val; } } $imp_ui->attachAutoCompleter('Imple', $auto_complete); if (!empty($conf['spell']['driver'])) { require_once IMP_BASE . '/lib/SpellChecker.php'; if (IMP_SpellChecker::factory($conf['spell']['driver'], array()) !== false) { $spellcheck = true; $imp_ui->attachSpellChecker('imp', true); } } if ($browser->isBrowser('msie')) { Horde::addScriptFile('ieEscGuard.js', 'imp', true); } } } $max_attach = $imp_compose->additionalAttachmentsAllowed(); $smf_check = !empty($conf['user']['select_sentmail_folder']) && !$prefs->isLocked('sent_mail_folder'); /* Get the URL to use for the cancel action. */ $cancel_url = ''; if ($isPopup) { /* If the attachments cache is not empty, we must reload this page * and delete the attachments. */ if ($imp_compose->numberOfAttachments()) { $cancel_url = Util::addParameter(Horde::selfUrl(), array('actionID' => 'cancel_compose', 'messageCache' => $messageCacheID, 'popup' => 1), null, false); } } else { /* If the attachments cache is not empty, we must reload this page and delete the attachments. */ if ($imp_compose->numberOfAttachments()) { $cancel_url = Util::addParameter(_mailboxReturnURL(true, Horde::selfUrl()), array('actionID' => 'cancel_compose', 'messageCache' => $messageCacheID), null, false); } else { $cancel_url = _mailboxReturnURL(true); } $showmenu = true; } /* Grab any data that we were supplied with. */ if (empty($msg)) { $msg = Util::getFormData('message', Util::getFormData('body', '')); if ($browser->hasQuirk('double_linebreak_textarea')) { $msg = preg_replace('/(\r?\n){3}/', '$1', $msg); } $msg = "\n" . $msg; } /* Get the current signature. */ $sig = $identity->getSignature(); /* Convert from Text -> HTML or vice versa if RTE mode changed. */ if (!is_null($oldrtemode) && ($oldrtemode != $rtemode)) { if ($rtemode) { /* Try to find the signature, replace it with a placeholder, * HTML-ize the message, then replace the signature * placeholder with the HTML-ized signature, complete with * marker comment. */ $msg = preg_replace('/' . preg_replace('/(?text2html($msg); $msg = str_replace(array('##IMP_SIGNATURE_WS##', '##IMP_SIGNATURE##'), array('

 

', '

' . $imp_compose->text2html($sig) . '

'), $msg); } else { $msg = Text_Filter::filter($msg, 'html2text'); } } /* If this is the first page load for this compose item, add auto BCC * addresses. */ if (!$reloaded && ($actionID != 'draft')) { $header['bcc'] = MIME::addrArray2String($identity->getBccAddresses()); } foreach (array('to', 'cc', 'bcc', 'subject') as $val) { if (!isset($header[$val])) { $header[$val] = Util::getFormData($val, $imp_ui->getAddressList(Util::getFormData($val), Util::getFormData($val . '_list'), Util::getFormData($val . '_field'), Util::getFormData($val . '_new'))); } } if ($get_sig && isset($msg) && !empty($sig)) { if ($rtemode) { $sig = '

 

' . $imp_compose->text2html(trim($sig)) . '

'; } if ($identity->getValue('sig_first')) { $siglocation = 0; $msg = "\n" . $sig . $msg; } else { $siglocation = String::length($msg); /* We always add a line break at the beginning, so if length is 1, ignore that line break (i.e. the message is empty). */ if ($siglocation == 1) { $siglocation = 0; } $msg .= "\n" . $sig; } } /* Open the passphrase window here. */ if ($pgp_passphrase_dialog || $pgp_symmetric_passphrase_dialog) { require_once IMP_BASE .'/lib/Crypt/PGP.php'; $imp_pgp = new IMP_PGP(); Horde::addScriptFile('popup.js', 'imp', true); $notification->push($imp_pgp->getJSOpenWinCode($pgp_symmetric_passphrase_dialog ? 'open_symmetric_passphrase_dialog' : 'open_passphrase_dialog', "opener.focus();opener.uniqSubmit('send_message');"), 'javascript'); } elseif ($smime_passphrase_dialog) { require_once IMP_BASE .'/lib/Crypt/SMIME.php'; $imp_smime = new IMP_SMIME(); Horde::addScriptFile('popup.js', 'imp', true); $notification->push($imp_smime->getJSOpenWinCode('open_passphrase_dialog', "opener.focus();opener.uniqSubmit('send_message');"), 'javascript'); } /* If PGP encryption is set by default, and we have a recipient list on first * load, make sure we have public keys for all recipients. */ $encrypt_options = $prefs->isLocked('default_encrypt') ? $prefs->getValue('default_encrypt') : Util::getFormData('encrypt_options'); if ($prefs->getValue('use_pgp') && !$prefs->isLocked('default_encrypt')) { $default_encrypt = $prefs->getValue('default_encrypt'); if (!$reloaded && in_array($default_encrypt, array(IMP_PGP_ENCRYPT, IMP_PGP_SIGNENC))) { $addrs = $imp_compose->recipientList($header); if (!is_a($addrs, 'PEAR_Error') && !empty($addrs['list'])) { require_once IMP_BASE .'/lib/Crypt/PGP.php'; $imp_pgp = new IMP_PGP(); foreach ($addrs['list'] as $val) { $res = $imp_pgp->getPublicKey($val); if (is_a($res, 'PEAR_Error')) { $notification->push(_("PGP encryption cannot be used by default as public keys cannot be found for all recipients."), 'horde.warning'); $encrypt_options = ($default_encrypt == IMP_PGP_ENCRYPT) ? IMP_ENCRYPT_NONE : IMP_PGP_SIGN; break; } } } } } /* Determine the default cursor position in the compose text area. */ if (!$rtemode) { switch ($prefs->getValue('compose_cursor')) { case 'top': default: $cursor_pos = 0; break; case 'bottom': $cursor_pos = String::length($msg); break; case 'sig': if (!is_null($siglocation)) { $cursor_pos = $siglocation; } elseif (!empty($sig)) { $next_pos = $pos = 0; $sig_length = String::length($sig); do { $cursor_pos = $pos; $pos = strpos($msg, $sig, $next_pos); $next_pos = $pos + $sig_length; } while ($pos !== false); } break; }; } /* Define some variables used in the javascript code. */ $js_code = array( 'var cancel_url = \'' . $cancel_url . '\'', 'var compose_spellcheck = ' . intval($spellcheck && $prefs->getValue('compose_spellcheck')), 'var cursor_pos = ' . (is_null($cursor_pos) ? 'null' : $cursor_pos), 'var max_attachments = ' . (($max_attach === true) ? 'null' : $max_attach), 'var compose_popup = ' . intval($isPopup), 'var redirect = ' . intval($redirect), 'var rtemode = ' . intval($rtemode), 'var smf_check = ' . intval($smf_check), 'var reloaded = ' . intval($reloaded), ); /* Create javascript identities array. */ if (!$redirect) { $js_ident = array(); foreach ($identity->getAllSignatures() as $ident => $sig) { $smf = $identity->getValue('sent_mail_folder', $ident); $js_ident[] = array( ($rtemode) ? str_replace(' target="_blank"', '', Text_Filter::filter($sig, 'text2html', array('parselevel' => TEXT_HTML_MICRO_LINKURL, 'class' => null, 'callback' => null))) : $sig, $identity->getValue('sig_first', $ident), ($smf_check) ? $smf : IMP::displayFolder($smf), $identity->saveSentmail($ident), MIME::addrArray2String($identity->getBccAddresses($ident)) ); } require_once IMP_BASE . '/lib/JSON.php'; $js_code[] = 'var identities = ' . IMP_Serialize_JSON::encode(String::convertCharset($js_ident, NLS::getCharset(), 'utf-8')); } Horde::addScriptFile('prototype.js', 'imp', true); Horde::addScriptFile('compose.js', 'imp', true); require IMP_TEMPLATES . '/common-header.inc'; IMP::addInlineScript($js_code); if ($showmenu) { IMP::menu(); } /* Set up the base template now. */ $t = new IMP_Template(); $t->setOption('gettext', true); $t->set('post_action', Util::addParameter(Horde::applicationUrl('compose.php'), 'uniq', base_convert(microtime(), 10, 36))); if ($has_js) { $t->set('loading_img', Horde::img('loading.gif', _("Loading..."))); } if ($redirect) { /* Prepare the redirect template. */ $t->set('mailbox', htmlspecialchars($thismailbox)); $t->set('index', htmlspecialchars($index)); $t->set('status', IMP::status()); $t->set('title', htmlspecialchars($title)); $t->set('token', IMP::getRequestToken('imp.compose')); if ($registry->hasMethod('contacts/search')) { $t->set('has_search', true); $t->set('abook', Horde::link('#', _("Address Book"), 'widget', null, 'window.open(\'' . Util::addParameter(Horde::applicationUrl('contacts.php'), array('formname' => 'redirect', 'to_only' => 1)) . '\', \'contacts\', \'toolbar=no,location=no,status=no,scrollbars=yes,resizable=yes,width=550,height=300,left=100,top=100\'); return false;') . Horde::img('addressbook_browse.png') . '
' . _("Address Book") . ''); if (!$has_js) { $t->set('expand', Horde::link('#', _("Expand Names"), 'widget', null, "$('actionID').value='redirect_expand_addr';uniqSubmit();return false;") . Horde::img('expand.png') . '
' . _("Expand Names") . '', true); } } $t->set('to', Horde::label('to', _("To"))); $tabindex = -1; if (is_array($header['to'])) { $t->set('multiple_to', true); $first_to = true; $to_hdrs = array(); foreach ($header['to'] as $to_item) { $entry = array(); if (count($to_item) > 1) { $entry['multiple'] = true; $entry['select_tabindex'] = ++$tabindex; $entry['select_name'] = htmlspecialchars($to_item[0]); $entry['select_to'] = array(); for ($i = 1; $i < count($to_item); $i++) { $entry['select_to'][] = array('val' => htmlspecialchars($to_item[$i])); } } else { $entry['multiple'] = null; $entry['input_value'] = htmlspecialchars($to_item); } $entry['input_tabindex'] = ++$tabindex; if ($first_to) { $first_to = false; $entry['help'] = Help::link('imp', 'compose-to'); } else { $entry['help'] = null; } $to_hdrs[] = $entry; } $t->set('to_new_tabindex', ++$tabindex); $t->set('to_hdrs', $to_hdrs); } else { $t->set('input_tabindex', ++$tabindex); $t->set('input_value', htmlspecialchars($header['to'])); $t->set('help', Help::link('imp', 'compose-to')); } echo $t->fetch(IMP_TEMPLATES . '/compose/redirect.html'); } else { if (!($reply_type = Util::getFormData('reply_type', $reply_type))) { switch ($actionID) { case 'reply': case 'reply_all': case 'reply_list': $reply_type = 'reply'; break; case 'forward': case 'forward_all': case 'forward_body': case 'forward_attachments': $reply_type = 'forward'; break; } } /* Prepare the compose template. */ $tabindex = 0; $t->set('file_upload', $_SESSION['imp']['file_upload']); $t->set('forminput', Util::formInput()); $hidden = array(); if ($_SESSION['imp']['file_upload']) { if ($browser->hasQuirk('broken_multipart_form')) { $hidden[] = array('n' => 'msie_formdata_is_broken', 'v' => ''); } $hidden[] = array('n' => 'MAX_FILE_SIZE', 'v' => $_SESSION['imp']['file_upload']); } $hidden[] = array('n' => 'actionID', 'v' => ''); $hidden[] = array('n' => 'compose_requestToken', 'v' => IMP::getRequestToken('imp.compose')); $hidden[] = array('n' => 'compose_formToken', 'v' => Horde_Token::generateId('compose')); $hidden[] = array('n' => 'messageCache', 'v' => $messageCacheID); $hidden[] = array('n' => 'mailbox', 'v' => htmlspecialchars($imp_mbox['mailbox'])); $hidden[] = array('n' => 'thismailbox', 'v' => $thismailbox); foreach (array('page', 'start', 'popup') as $val) { $hidden[] = array('n' => $val, 'v' => htmlspecialchars(Util::getFormData($val))); } $hidden[] = array('n' => 'attachmentAction', 'v' => ''); $hidden[] = array('n' => 'reloaded', 'v' => 1); $hidden[] = array('n' => 'oldrtemode', 'v' => $rtemode); $hidden[] = array('n' => 'rtemode', 'v' => $rtemode); $hidden[] = array('n' => 'index', 'v' => $index); if ($reply_type) { $hidden[] = array('n' => 'reply_type', 'v' => $reply_type); $hidden[] = array('n' => 'reply_index', 'v' => $reply_index); $hidden[] = array('n' => 'in_reply_to', 'v' => htmlspecialchars($header['in_reply_to'])); if ($reply_type == 'reply') { $hidden[] = array('n' => 'references', 'v' => htmlspecialchars($header['references'])); } } $t->set('hidden', $hidden); $t->set('title', htmlspecialchars($title)); $t->set('send_msg_ak', Horde::getAccessKeyAndTitle(_("_Send Message"))); if ($conf['user']['allow_folders']) { $t->set('save_draft_ak', Horde::getAccessKeyAndTitle(_("Save _Draft"))); } $t->set('help_buttons', Help::link('imp', 'compose-buttons')); $t->set('di_locked', $prefs->isLocked('default_identity')); if ($t->get('di_locked')) { $t->set('help_compose-from', Help::link('imp', 'compose-from')); $t->set('fromaddr_locked', $prefs->isLocked('from_addr')); $t->set('from', htmlspecialchars($identity->getFromLine(null, Util::getFormData('from')))); if (!$t->get('fromaddr_locked')) { $t->set('fromaddr_tabindex', ++$tabindex); } } else { $select_list = $identity->getSelectList(); $t->set('identity_label', Horde::label('identity', _("_Identity"))); $t->set('help_compose-from', Help::link('imp', 'compose-identity')); $t->set('last_identity', $identity->getDefault()); $t->set('count_select_list', count($select_list) > 1); if (count($select_list) > 1) { $t->set('selectlist_tabindex', ++$tabindex); $t_select_list = array(); foreach ($select_list as $key => $select) { $t_select_list[] = array('value' => $key, 'selected' => ($key == $identity->getDefault()), 'label' => htmlspecialchars($select)); } $t->set('select_list', $t_select_list); } else { $t->set('identity_default', $identity->getDefault()); $t->set('identity_text', htmlspecialchars($select_list[0])); } } $t->set('label_to', Horde::label('to', _("_To"))); $addr_array = array('to' => _("_To")); if ($prefs->getValue('compose_cc')) { $addr_array['cc'] = _("_Cc"); } if ($prefs->getValue('compose_bcc')) { $addr_array['bcc'] = _("_Bcc"); } $address_array = array(); foreach ($addr_array as $val => $label) { $addr = array( 'id' => $val, 'label' => Horde::label($val, $label), ); $first_addr = false; if (is_array($header[$val])) { $addr['multiple'] = true; $first_addr = true; $hdrs = array(); foreach ($header[$val] as $item) { $entry = array(); if (count($item) > 1) { $entry['multiple'] = true; $entry['select_tabindex'] = ++$tabindex; $entry['select_name'] = htmlspecialchars($item[0]); $entry['select_arr'] = array(); for ($i = 1; $i < count($item); $i++) { $entry['select_arr'][] = array('val' => htmlspecialchars($item[$i])); } $entry['input_value'] = null; } else { $entry['multiple'] = null; $entry['input_value'] = htmlspecialchars($item); } $entry['input_tabindex'] = ++$tabindex; if ($first_addr) { $first_addr = false; $entry['help'] = Help::link('imp', 'compose-' . $val); } else { $entry['help'] = null; } $hdrs[] = $entry; } $addr['hdrs'] = $hdrs; } else { $addr['multiple'] = false; $addr['input_tabindex'] = ++$tabindex; $addr['input_value'] = htmlspecialchars($header[$val]); $addr['help_compose'] = Help::link('imp', 'compose-' . $val); } $address_array[] = $addr; } $t->set('addr', $address_array); $t->set('subject_label', Horde::label('subject', _("S_ubject"))); $t->set('subject_tabindex', ++$tabindex); $t->set('subject', htmlspecialchars($header['subject'])); $t->set('help-subject', Help::link('imp', 'compose-subject')); $t->set('set_priority', $prefs->getValue('set_priority')); $t->set('unlocked_charset', !$prefs->isLocked('sending_charset')); if ($t->get('unlocked_charset')) { $t->set('charset_label', Horde::label('charset', _("C_harset"))); $t->set('charset_tabindex', ++$tabindex); $charset_array = array(); foreach ($nls['encodings'] as $charset => $label) { $charset_array[] = array('value' => $charset, 'selected' => (strtolower($charset) == strtolower($encoding)), 'label' => $label); } $t->set('charset_array', $charset_array); $t->set('help_compose_charset', Help::link('imp', 'compose-charset')); } if ($t->get('set_priority')) { $t->set('priority_label', Horde::label('priority', _("_Priority"))); $t->set('priority_tabindex', ++$tabindex); $priority = Util::getFormData('x_priority', 3); $priorities = array( 1 => '1 (' . _("Highest") . ')', 2 => '2 (' . _("High") . ')', 3 => '3 (' . _("Normal") . ')', 4 => '4 (' . _("Low") . ')', 5 => '5 (' . _("Lowest") . ')' ); $priority_option = array(); foreach ($priorities as $key => $val) { $priority_option[] = array('val' => $key, 'label' => $val, 'selected' => ($priority == $key)); } $t->set('pri_opt', $priority_option); $t->set('help_priority', Help::link('imp', 'compose-priority')); } $t->set('stationery', !empty($stationery_list)); if ($t->get('stationery')) { $t->set('stationery_label', Horde::label('stationery', _("Stationery"))); $stationeries = array(); foreach ($stationery_list as $id => $choice) { $stationeries[] = array('val' => $id, 'label' => $choice['n'], 'selected' => ($stationery === $id)); } $t->set('stationeries', $stationeries); } $menu_view = $prefs->getValue('menu_view'); $show_text = ($menu_view == 'text' || $menu_view == 'both'); $compose_options = array(); if ($registry->hasMethod('contacts/search')) { $compose_options[] = array( 'url' => Horde::link('#', '', 'widget', null, 'window.open(\'' . Horde::applicationUrl('contacts.php') . '\', \'contacts\', \'toolbar=no,location=no,status=no,scrollbars=yes,resizable=yes,width=550,height=300,left=100,top=100\'); return false;'), 'img' => Horde::img('addressbook_browse.png'), 'label' => $show_text ? _("Address Book") : ''); if (!$has_js) { $compose_options[] = array( 'url' => Horde::link( '#', '', 'widget', null, "uniqSubmit('compose_expand_addr'); return false;", '', '', array('name' => 'btn_compose_expand_addr')), 'img' => Horde::img('expand.png'), 'label' => $show_text ? _("Expand Names") : ''); } } if ($spellcheck) { $compose_options[] = array( 'url' => Horde::link('#', '', 'widget', '', 'return false', '', '', array('id' => 'spellcheck')), 'img' => '', 'label' => ''); } if ($has_js && $conf['compose']['special_characters']) { $compose_options[] = array( 'url' => Horde::link( '#', '', 'widget', null, 'window.open(\'' . Horde::url($registry->get('webroot', 'horde') . '/services/keyboard.php') . '\', \'chars\', \'height=220,width=400\'); return false;'), 'img' => Horde::img('keyboard.png', null, null, $registry->getImageDir('horde')), 'label' => $show_text ? _("Special Characters") : ''); } if ($_SESSION['imp']['file_upload']) { $compose_options[] = array( 'url' => Horde::link('#attachments', '', 'widget'), 'img' => Horde::img('manage_attachments.png'), 'label' => $show_text ? _("Attachments") : ''); } $t->set('compose_options', $compose_options); $t->set('help_options', Help::link('imp', 'compose-options')); $t->set('ssm', ($conf['user']['allow_folders'] && !$prefs->isLocked('save_sent_mail'))); if ($t->get('ssm')) { $t->set('ssm_selected', ($reloaded) ? (Util::getFormData('save_sent_mail') == 'on') : $identity->saveSentmail()); $t->set('ssm_label', Horde::label('ssm', _("Sa_ve a copy in "))); if ($smf = Util::getFormData('sent_mail_folder')) { $sent_mail_folder = $smf; } if (!empty($conf['user']['select_sentmail_folder']) && !$prefs->isLocked('sent_mail_folder')) { /* Check to make sure the sent-mail folder is created - it needs * to exist to show up in drop-down list. */ require_once IMP_BASE . '/lib/Folder.php'; $imp_folder = &IMP_Folder::singleton(); if (!$imp_folder->exists($sent_mail_folder)) { $imp_folder->create($sent_mail_folder, true); } $t->set('ssm_tabindex', ++$tabindex); $t->set('ssm_folders', IMP::flistSelect('', false, array('INBOX'), $sent_mail_folder)); } else { if (!empty($sent_mail_folder)) { $sent_mail_folder = '"' . IMP::displayFolder($sent_mail_folder) . '"'; } $t->set('ssm_folder', $sent_mail_folder); $t->set('ssm_folders', false); } } $d_read = $prefs->getValue('disposition_request_read'); $t->set('rrr', $conf['compose']['allow_receipts'] && ($d_read != 'never')); if ($t->get('rrr')) { $t->set('rrr_selected', ($d_read != 'ask') || (Util::getFormData('request_read_receipt') == 'on')); $t->set('rrr_label', Horde::label('rrr', _("Request a _Read Receipt"))); } $t->set('compose_html', (!is_null($rtemode) && !$prefs->isLocked('compose_html'))); if ($t->get('compose_html')) { $t->set('html_img', Horde::img('compose.png', _("Switch Composition Method"))); $t->set('html_switch', Horde::link('#', _("Switch Composition Method"), '', '', "$('rtemode').value='" . ($rtemode ? 0 : 1) . "';uniqSubmit();return false;")); $t->set('rtemode', $rtemode); } $t->set('message_label', Horde::label('message', _("Te_xt"))); $t->set('message_tabindex', ++$tabindex); $t->set('message', htmlspecialchars($msg)); $t->set('use_encrypt', ($prefs->getValue('use_pgp') || $prefs->getValue('use_smime'))); if ($t->get('use_encrypt')) { if ($prefs->isLocked('default_encrypt')) { $t->set('use_encrypt', false); } else { $t->set('encrypt_label', Horde::label('encrypt_options', _("Encr_yption Options"))); $t->set('encrypt_options', IMP::encryptList($encrypt_options)); $t->set('help-encrypt', Help::link('imp', 'compose-options-encrypt')); } $t->set('pgp_options', ($prefs->getValue('use_pgp') && $prefs->getValue('pgp_public_key'))); if ($t->get('pgp_options')) { $t->set('pgp_attach_pubkey', Util::getFormData('pgp_attach_pubkey', $prefs->getValue('pgp_attach_pubkey'))); $t->set('pap', Horde::label('pap', _("Attach a copy of your PGP public key to the message?"))); $t->set('help-pubkey', Help::link('imp', 'pgp-compose-attach-pubkey')); } } if ($registry->hasMethod('contacts/ownVCard')) { $t->set('vcard', Horde::label('vcard', _("Attach your contact information to the message?"))); $t->set('attach_vcard', Util::getFormData('vcard')); } if ($_SESSION['imp']['file_upload']) { if ($GLOBALS['registry']->hasMethod('files/selectlistLink')) { $res = $GLOBALS['registry']->call('files/selectlistLink', array(_("Attach Files"), 'widget', 'compose', true)); $t->set('selectlistlink', (is_a($res, 'PEAR_Error')) ? null : $res); } $t->set('maxattachsize', !$imp_compose->maxAttachmentSize()); if (!$t->get('maxattachsize')) { $t->set('maxattachmentnumber', !$max_attach); if (!$t->get('maxattachmentnumber')) { $t->set('file_tabindex', ++$tabindex); } } $t->set('attach_size', IMP::numberFormat($imp_compose->maxAttachmentSize(), 0)); $t->set('help-attachments', Help::link('imp', 'compose-attachments')); $save_attach = $prefs->getValue('save_attachments'); $show_link_attach = ($conf['compose']['link_attachments'] && !$conf['compose']['link_all_attachments']); $show_save_attach = ($t->get('ssm') && (strpos($save_attach, 'prompt') === 0) && (!$conf['compose']['link_attachments'] || !$conf['compose']['link_all_attachments'])); $t->set('show_link_save_attach', ($show_link_attach || $show_save_attach)); if ($t->get('show_link_save_attach')) { $attach_options = array(); if ($show_save_attach) { $save_attach_val = Util::getFormData('save_attachments_select', ($save_attach == 'prompt_yes')); $attach_options[] = array('label' => _("Save Attachments with message in sent-mail folder?"), 'name' => 'save_attachments_select', 'select_yes' => ($save_attach_val == 1), 'select_no' => ($save_attach_val == 0), 'help' => Help::link('imp', 'compose-save-attachments')); } if ($show_link_attach) { $link_attach_val = Util::getFormData('link_attachments'); $attach_options[] = array('label' => _("Link Attachments?"), 'name' => 'link_attachments', 'select_yes' => ($link_attach_val == 1), 'select_no' => ($link_attach_val == 0), 'help' => Help::link('imp', 'compose-link-attachments')); } $t->set('attach_options', $attach_options); } $t->set('numberattach', $imp_compose->numberOfAttachments()); if ($t->get('numberattach')) { require_once IMP_BASE . '/lib/MIME/Contents.php'; $mime_contents = new MIME_Contents(new MIME_Part()); $atc = array(); $disp_num = 0; foreach ($imp_compose->getAttachments() as $atc_num => $mime) { $entry = array(); $disposition = $mime->getDisposition(); $viewer = &$mime_contents->getMIMEViewer($mime); $linked = Util::getFormData (sprintf('file_linked_%d', $atc_num)); $entry['name'] = $mime->getName(true, true); if ($mime->getType() != 'application/octet-stream') { $preview_url = Util::addParameter(Horde::applicationUrl('view.php'), array('actionID' => 'compose_attach_preview', 'id' => $atc_num, 'messageCache' => $imp_compose->getMessageCacheId())); $entry['name'] = Horde::link($preview_url, _("Preview") . ' ' . $entry['name'], 'link', 'compose_preview_window') . $entry['name'] . ''; } $entry['icon'] = $viewer->getIcon($mime->getType()); $entry['disp_number'] = ++$disp_num; $entry['number'] = $atc_num; $entry['type'] = $mime->getType(); $entry['size'] = $mime->getSize(); $entry['disp_atc'] = ($disposition == 'attachment'); $entry['disp_inline'] = ($disposition == 'inline'); $entry['description'] = $mime->getDescription(true); $atc[] = $entry; } $t->set('atc', $atc); $t->set('total_attach_size', IMP::numberFormat($imp_compose->sizeOfAttachments() / 1024, 2)); $t->set('perc_attach', ((!empty($conf['compose']['attach_size_limit'])) && ($conf['compose']['attach_size_limit'] > 0))); if ($t->get('perc_attach')) { $t->set('perc_attach', sprintf(_("%s%% of allowed size"), IMP::numberFormat($imp_compose->sizeOfAttachments() / $conf['compose']['attach_size_limit'] * 100, 2))); } $t->set('help-current-attachments', Help::link('imp', 'compose-current-attachments')); } } $t->set('status', IMP::status()); echo $t->fetch(IMP_TEMPLATES . '/compose/compose.html'); } /* Load RTE. */ if ($rtemode && !$redirect) { echo $imp_ui->initRTE(); } require $registry->get('templates', 'horde') . '/common-footer.inc'; ./test.php0000644000175000017500000002662711702026734012574 0ustar mathieumathieu * @author Chuck Hagenbuch */ /* Include Horde's core.php file. */ include_once '../lib/core.php'; /* We should have loaded the String class, from the Horde_Util * package, in core.php. If String:: isn't defined, then we're not * finding some critical libraries. */ if (!class_exists('String')) { echo '

The Horde_Util package was not found. If PHP\'s error_reporting setting is high enough and display_errors is on, there should be error messages printed above that may help you in debugging the problem. If you are simply missing these files, then you need to get the framework module from Horde CVS, and install the packages in it with the install-packages.php script.

'; exit; } /* Initialize the Horde_Test:: class. */ if (!is_readable('../lib/Test.php')) { echo 'ERROR: You must install Horde before running this script.'; exit; } require_once '../lib/Test.php'; $horde_test = new Horde_Test; /* IMP version. */ $module = 'IMP'; require_once './lib/version.php'; $module_version = IMP_VERSION; require TEST_TEMPLATES . 'header.inc'; require TEST_TEMPLATES . 'version.inc'; /* Display versions of other Horde applications. */ $app_list = array( 'dimp' => array( 'error' => 'DIMP provides an alternate display view using JavaScript.', 'version' => '1.0' ), 'gollem' => array( 'error' => 'Gollem provides access to local VFS filesystems to attach files.', 'version' => '1.0' ), 'ingo' => array( 'error' => 'Ingo provides basic mail filtering capabilities to IMP.', 'version' => '1.0' ), 'mimp' => array( 'error' => 'MIMP provides an alternate display view suitable for mobile browsers or very slow connections.', 'version' => '1.0' ), 'nag' => array( 'error' => 'Nag allows tasks to be directly created from e-mail data.', 'version' => '2.0' ), 'turba' => array( 'error' => 'Turba provides addressbook/contacts capabilities to IMP.', 'version' => '2.0' ) ); $app_output = $horde_test->requiredAppCheck($app_list); ?>

Other Horde Applications

getPhpVersionInformation(); require TEST_TEMPLATES . 'php_version.inc'; /* PHP modules. */ $module_list = array( 'idn' => array( 'descrip' => 'Internationalized Domain Names Support', 'error' => 'IMP requires the idn module (installed via PECL) in order to handle Internationalized Domain Names.', 'fatal' => false ), 'imap' => array( 'descrip' => 'IMAP Support', 'error' => 'IMP requires the imap module to interact with the mail server. It is required for either IMAP or POP3 access.', 'fatal' => true ), 'openssl' => array( 'descrip' => 'OpenSSL Support', 'error' => 'The openssl module is required to use S/MIME in IMP. Compile PHP with --with-openssl to activate.', 'fatal' => false ), 'tidy' => array( 'descrip' => 'Tidy support', 'error' => 'If the tidy PHP extension is available, IMP can use it to sanitize the output of HTML messages before displaying to the user, and to clean outgoing HTML messages created in the HTML composition mode. See imp/docs/INSTALL for more information.', 'fatal' => false, ) ); /* PHP settings. */ $setting_list = array( 'file_uploads' => array( 'setting' => true, 'error' => 'file_uploads must be enabled to use various features of IMP. See the INSTALL file for more information.' ) ); /* IMP configuration files. */ $file_list = array( 'config/conf.php' => 'The file ./config/conf.php appears to be missing. You must generate this file as an administrator via Horde. See horde/docs/INSTALL.', 'config/mime_drivers.php' => null, 'config/prefs.php' => null, 'config/servers.php' => null ); /* PEAR/PECL modules. */ $pear_list = array( 'Auth_SASL' => array( 'path' => 'Auth/SASL.php', 'error' => 'If your IMAP server uses CRAM-MD5 or DIGEST-MD5 authentication, this module is required.' ), 'HTTP_Request' => array( 'path' => 'HTTP/Request.php', 'error' => 'The HTML composition mode requires HTTP_Request.' ) ); /* Get the status output now. */ $module_output = $horde_test->phpModuleCheck($module_list); $setting_output = $horde_test->phpSettingCheck($setting_list); $file_output = $horde_test->requiredFileCheck($file_list); $pear_output = $horde_test->PEARModuleCheck($pear_list); ?>

PHP Module Capabilities

Miscellaneous PHP Settings

Required IMP Configuration Files

PEAR

PHP Mail Server Support Test

110, 'pop3/ssl' => 995, 'pop3/ssl/novalidate-cert' => 995, 'pop3/tls/novalidate-cert' => 110 ); } else { $conn = array( 'imap/notls' => 143, 'imap/ssl' => 993, 'imap/ssl/novalidate-cert' => 993, 'imap/tls/novalidate-cert' => 143 ); } $success = array(); echo "Attempting to automatically determine the correct connection parameters for your server:\n"; foreach ($conn as $key => $val) { $server_port = !empty($port) ? htmlspecialchars($port) : $val; $mbname = '{' . $server . ':' . $server_port . '/' . $key . '}INBOX'; echo "
  • Trying protocol " . $key . ", Port " . $server_port . ":\n
    \n"; $mbox = @imap_open($mbname, $user, $passwd); if ($mbox) { $minfo = @imap_mailboxmsginfo($mbox); if ($minfo) { echo 'SUCCESS - INBOX has ', $minfo->Nmsgs, ' messages (' . $minfo->Unread, ' new ', $minfo->Recent, ' recent)'; $success[] = array('server' => $server, 'protocol' => $key, 'port' => $server_port); } else { echo 'ERROR - The server returned the following error message:' . "\n" . '
    ';
                foreach (imap_errors() as $error) {
                    echo htmlspecialchars(wordwrap($error));
                }
                echo '
    '; } @imap_close($mbox); } else { echo 'ERROR - The server returned the following error message:' . "\n" . '
    ';
            foreach (imap_errors() as $error) {
                echo htmlspecialchars(wordwrap($error));
            }
            echo '
    '; } echo "
    \n
\n"; } if (!empty($success)) { echo "The following configurations were successful and may be used in your imp/config/servers.php file:\n"; $i = 1; foreach ($success as $val) { echo "
Configuration " . $i++ . "
";
            foreach ($val as $key => $entry) {
                echo "'" . $key . "' => '" . htmlspecialchars($entry) . "'\n";
            }
            echo "
\n"; } if ($type == 'imap') { echo "The following IMAP server information was discovered from the remote server:\n"; $config = reset($success); require_once './lib/IMAP/Client.php'; $imapclient = new IMP_IMAPClient($config['server'], $config['port'], $config['protocol']); $use_tls = $imapclient->useTLS(); if (!is_a($use_tls, 'PEAR_Error')) { $res = $imapclient->login($user, $passwd); } if (isset($res) && !is_a($res, 'PEAR_Error')) { echo "
Namespace Information
";
                $namespace = $imapclient->getNamespace();
                if (!is_a($namespace, 'PEAR_Error')) {
                    foreach ($namespace as $val) {
                        echo "NAMESPACE: \"" . $val['name'] . "\"\n";
                        echo "DELIMITER: " . $val['delimiter'] . "\n";
                        echo "TYPE: " . $val['type'] . "\n\n";
                    }
                } else {
                    echo "Could not retrieve namespace information from IMAP server.\n";
                }
                echo "
\n"; echo "
IMAP server capabilities:
";
                print_r($imapclient->queryCapability(null));
                echo "
\n"; echo "
IMAP Charset Search Support:
";
                $charset = NLS::getCharset();
                if ($imapclient->searchCharset($charset)) {
                    echo "Server supports searching with the $charset character set.\n";
                } else {
                    echo "Server does not support searching with the $charset character set.\n";
                }
                echo "
\n"; } else { echo "
Could not retrieve IMAP information from the remote server.
"; } } } else { echo "Could not determine a successful connection protocol. Make sure your mail server is running and you have specified the correct port.\n"; } } else { ?>
(If non-standard port; leave blank to auto-detect using standard ports)
* @author Michael Slusarz */ @define('IMP_BASE', dirname(__FILE__)); require_once IMP_BASE . '/lib/base.php'; require_once IMP_BASE . '/lib/Fetchmail.php'; require_once IMP_BASE . '/lib/Template.php'; /* Initialize Fetchmail libraries. */ $fm_account = new IMP_Fetchmail_Account(); $driver = Util::getFormData('fm_driver'); $fetch_url = Horde::applicationUrl('fetchmailprefs.php'); $prefs_url = Util::addParameter(IMP::prefsURL(true), 'group', 'fetchmail', false); $to_edit = null; /* Handle clients without javascript. */ $actionID = Util::getFormData('actionID'); if ($actionID === null) { if (Util::getPost('edit')) { $actionID = 'fetchmail_prefs_edit'; } elseif (Util::getPost('save')) { $actionID = 'fetchmail_prefs_save'; } elseif (Util::getPost('delete')) { $actionID = 'fetchmail_prefs_delete'; } elseif (Util::getPost('back')) { header('Location: ' . $prefs_url); exit; } elseif (Util::getPost('select')) { header('Location: ' . $fetch_url); exit; } } /* Run through the action handlers */ switch ($actionID) { case 'fetchmail_create': if ($driver) { $fetchmail = &IMP_Fetchmail::factory($driver, array()); } break; case 'fetchmail_prefs_edit': $to_edit = Util::getFormData('account'); $driver = $fm_account->getValue('driver', $to_edit); $fetchmail = &IMP_Fetchmail::factory($driver, array()); break; case 'fetchmail_prefs_save': $to_edit = Util::getFormData('edit_account'); if ($to_edit == '') { $to_edit = $fm_account->add(); } $fetchmail = &IMP_Fetchmail::factory($driver, array()); $id = Util::getFormData('fm_id'); if (empty($id)) { $id = _("Unnamed"); } foreach ($fetchmail->getParameterList() as $val) { $fm_account->setValue($val, ($val == 'id') ? $id : Util::getFormData('fm_' . $val), $to_edit); } $prefs->setValue('fetchmail_login', (bool)array_sum($fm_account->getAll('loginfetch'))); $notification->push(sprintf(_("The account \"%s\" has been saved."), $id), 'horde.success'); break; case 'fetchmail_prefs_delete': $to_delete = Util::getFormData('edit_account'); if ($to_delete !== null) { $deleted_account = $fm_account->delete($to_delete); $notification->push(sprintf(_("The account \"%s\" has been deleted."), $deleted_account['id']), 'horde.success'); $prefs->setValue('fetchmail_login', (bool)array_sum($fm_account->getAll('loginfetch'))); $actionID = null; } else { $notification->push(_("You must select an account to be deleted."), 'horde.warning'); } break; } require_once 'Horde/Prefs/UI.php'; if (is_callable(array('Horde', 'loadConfiguration'))) { $result = Horde::loadConfiguration('prefs.php', array('prefGroups', '_prefs'), 'imp'); if (!is_a($result, 'PEAR_Error')) { extract($result); } } else { require IMP_BASE . '/config/prefs.php'; } $app = 'imp'; $chunk = Util::nonInputVar('chunk'); /* Prepare template. */ $t = new IMP_Template(); $t->setOption('gettext', true); $t->set('navcell', Util::bufferOutput(array('Prefs_UI', 'generateNavigationCell'), 'fetchmail')); $t->set('fetchurl', $fetch_url); $t->set('prefsurl', $prefs_url); $t->set('forminput', Util::formInput()); if (empty($actionID)) { /* If actionID is still empty, we haven't selected an account yet. */ $accountselect = true; $t->set('accountselect', true); $t->set('formname', 'fm_switch'); $t->set('actionid', 'fetchmail_prefs_edit'); $accounts = $fm_account->getAll('id'); $accountsval = array(); for ($i = 0, $iMax = count($accounts); $i < $iMax; $i++) { $accountsval[] = array( 'i' => $i, 'val' => htmlspecialchars($accounts[$i]) ); } $t->set('accounts', $accountsval); } elseif (($actionID == 'fetchmail_create') && empty($driver)) { /* We are creating an account and need to select the type. */ $t->set('driverselect', true); $t->set('formname', 'fm_driver_form'); $t->set('actionid', 'fetchmail_create'); $drivers = array(); foreach (IMP_Fetchmail::listDrivers() as $key => $val) { $drivers[] = array( 'key' => $key, 'val' => htmlspecialchars($val) ); } $t->set('drivers', $drivers); } else { $t->set('manage', true); $t->set('formname', 'accounts'); $t->set('actionid', 'fetchmail_prefs_save'); $t->set('allowfolders', $conf['user']['allow_folders']); if ($t->get('allowfolders')) { $t->set('fmlmailbox', IMP::flistSelect('', false, array(), ($to_edit !== null) ? $fm_account->getValue('lmailbox', $to_edit) : '')); } $protocol_list = array(); foreach ($fetchmail->getProtocolList() as $key => $val) { $protocol_list[] = array( 'key' => $key, 'selected' => ($fm_account->getValue('protocol', $to_edit) == $key), 'val' => $val ); } $t->set('protocol_list', $protocol_list); $t->set('to_edit', ($to_edit !== null)); if ($t->get('to_edit')) { $t->set('edit_account', intval($to_edit)); $t->set('fmid', htmlspecialchars($fm_account->getValue('id', $to_edit))); $t->set('fmusername', htmlspecialchars($fm_account->getValue('username', $to_edit))); $t->set('fmpassword', htmlspecialchars($fm_account->getValue('password', $to_edit))); $t->set('fmserver', htmlspecialchars($fm_account->getValue('server', $to_edit))); if ($t->get('allowfolders')) { $t->set('fmrmailbox', htmlspecialchars($fm_account->getValue('rmailbox', $to_edit))); } $t->set('fmonlynew', $fm_account->getValue('onlynew', $to_edit)); $t->set('fmmarkseen', $fm_account->getValue('markseen', $to_edit)); $t->set('fmdel', $fm_account->getValue('del', $to_edit)); $t->set('fmloginfetch', $fm_account->getValue('loginfetch', $to_edit)); } $t->set('driver', $driver); $t->set('colors', $conf['fetchmail']['show_account_colors']); if ($t->get('colors')) { $fm_colors = array(); foreach (IMP_Fetchmail::listColors() as $val) { $fm_colors[] = array( 'val' => $val, 'checked' => (($to_edit !== null) && ($fm_account->getValue('acctcolor', $to_edit) == $val)) ); } $t->set('fm_colors', $fm_colors); } $t->set('fm_create', ($actionID == 'fetchmail_create')); } Prefs_UI::generateHeader(null, $chunk); Horde::addScriptFile('prototype.js', 'imp', true); Horde::addScriptFile('fetchmailprefs.js', 'imp', true); echo $t->fetch(IMP_TEMPLATES . '/fetchmail/fetchmailprefs.html'); if (!$chunk) { require $registry->get('templates', 'horde') . '/common-footer.inc'; } ./docs/0000755000175000017500000000000011702026733012016 5ustar mathieumathieu./docs/TODO0000644000175000017500000000154211702026733012510 0ustar mathieumathieu=========================== IMP Development TODO List =========================== :Last update: $Date: 2008/03/22 10:24:57 $ :Revision: $Revision: 1.22.8.5 $ :Contact: imp@lists.horde.org In no particular order: - Don't render large MIME parts. - Print all messages in a mailbox. - Add t-prot like features (http://freshmeat.net/articles/view/1235, http://www.escape.de/users/tolot/mutt/) for text massaging. Features we don't already have include: Remove mailing list footers; Shrink big quotations; Squeeze a sequence of blank lines to just two; Change a series of four or more periods or exclamation points into just three; Hide overlong signatures. - Implement combinations of AND and OR rules in the IMP search screen. - Allow thread sort in search results (will require a c-client replacement and support on the IMAP server). ./docs/UPGRADING0000644000175000017500000001241311702026733013262 0ustar mathieumathieu=============== Upgrading IMP =============== :Last update: $Date: 2008/09/11 22:05:08 $ :Revision: $Revision: 1.7.8.15 $ :Contact: imp@lists.horde.org These are instructions to upgrade from earlier MIMP versions. Upgrading IMP From 4.1.x To 4.2.x ================================= This is a non-exhaustive, quick explanation of what has changed between an IMP 4.1.x installation to IMP 4.2.x. SQL Backend ----------- An SQL table has been added that can be used to track sent messages. This is necessary to provide users with the "favourite recipients" address book, and for message rate throttling. Execute the provided SQL script to add the table to your database, e.g.:: mysql --user=root --password= < scripts/sql/imp.sql Unified IMAP Quota Driver ------------------------- Separate quota drivers for Cyrus and Courier servers are no longer necessary. These drivers have been replaced by a generic IMAP driver that should also be suitable for other IMAP servers that support the QUOTA extension. Update ``config/servers.php`` and change the 'quota' => 'driver' setting to 'imap'. Application Hooks ----------------- All hooks that are specific to IMP have been moved from the ``horde/config/hooks.php`` file. Move your existing IMP Hooks from there to ``imp/config/hooks.php``. User-Defined Mailbox Icons -------------------------- The usage of the hook ``_imp_hook_mbox_icons()`` has changed. If you use this hook, make sure you change your implementation so it returns the correct value. Changed Preferences ------------------- The default values for the folder preferences 'sent_mail_folder', 'drafts_folder', and 'trash_folder' have been changed and localized. Use the old values to prohibit the creation of duplicate folders for users that didn't explicitly set the folders in their preferences. The following preferences are no longer used and may be safely removed from your ``config/prefs.php`` file and your preferences backend:: 'auto_expand' 'num_words' The 'mail_hdr' preferences has been moved from the identities to a regular preference. Existing user preferences are no longer used and have to be re-created by the users. New Message List Format Hook ---------------------------- The new hook ``_imp_hook_msglist_format()`` has been added which allows the formatting of a message entry in the mailbox message list to be altered at the time the list is created. This hook has made the following configuration options obsolete:: $conf['mailbox']['show_attachments'] $conf['mailbox']['show_xpriority'] If you wish to continue using the functionality previously provided by these options, you should activate the msglist_format hook in ``config/conf.php``. The sample hook contained in ``config/hooks.php`` contains the code necessary to replicate the previous behavior. Spell Checking -------------- The ``pspell`` driver is no longer supported since it does not work with HTML messages. If using pspell, you must upgrade to aspell version 0.60+. Javascript HTML Editor ---------------------- Support has been added for FCKeditor_ as an option for the javascript HTML editor available on the compose page. You must have Horde 3.2 or later installed to use this editor. Upgrading IMP From 4.0.x To 4.1.x ================================= This is a non-exhaustive, quick explanation of what has changed between an IMP 4.0.x installation to IMP 4.1.x. Automatic Namespace Detection ----------------------------- The ``namespace``, ``hierarchies``, ``folders``, ``delimiter``, and ``dotfiles`` parameters were removed from ``config/servers.php``. Namespaces are now automatically configured pursuant to RFC 2342. If using the UW IMAP daemon, you may notice a bunch of additional namespaces that were not displayed before as well as the ability of the user to view all files that live in their home directory via the folders screen. Information on how to correct your IMAP server configuration can be found at http://wiki.horde.org/ImpUWIMAPNamespaces User-Defined Headers -------------------- The ``config/headers.txt`` file has been removed and replaced by ``config/headers.php``. Any user-defined headers should be migrated to this file. The new file has the advantage of allowing any valid PHP expression to be executed at run-time when generating the headers. See the top of the ``headers.php`` file for the new format required. Removed Preferences ------------------- The following preferences are no longer used and may be safely removed from your ``config/prefs.php`` file and your preferences backend:: 'disposition_request_delivery' 'disposition_send_mdn' 'wrap_width' Virtual Folders --------------- The format for saved Virtual Folders has changed. To convert to the new format you must run the script located at ``scripts/upgrades/convert_vfolders.php``. Upgrading IMP From 3.x To 4.0.x =============================== This is a non-exhaustive, quick explanation of what has changed between an IMP 3.x installation to IMP 4.0.x. Filters ------- Filtering code has been removed from IMP. To have the same features as the old code, you should install the Ingo_ module. See the INSTALL_ file for more information. .. _Ingo: http://www.horde.org/ingo/ .. _INSTALL: ?f=INSTALL.html .. _FCKeditor: http://www.fckeditor.net/ ./docs/CREDITS0000644000175000017500000001567211702026733013051 0ustar mathieumathieu====================== IMP Development Team ====================== Core Developers =============== - Chuck Hagenbuch - Jan Schneider - Michael Slusarz Localization ============ ===================== ====================================================== Arabic (Oman) Said Al-Hosni Arabic (Syria) Platinum Development Team Basque Euskal Herriko Unibertsitatea Bosnian Alen Sarkinovic Vedran Ljubovic Brazilian Portuguese Antonio Dias Fabio Gomes Luis Felipe Marzagao Eduardo de Carli Bulgarian Miroslav Pendev Catalan Angels Guimerà Jordi Giralt Chinese (Simplified) WangHengWen Anna Chen Chinese (Traditional) FL KOF David Chang Croatian Iva Rumora Matej Vela Czech Pavel Chytil Jan Krivanek Matej Hašuľ Danish Martin List-Petersen Brian Truelsen Niels Baggesen Dutch Jan Kuipers Peter Arien Han Spruyt Estonian Toomas Aas Alar Sing Finnish Leena Heino French Christophe Ruelle Frederic Trudeau Benoit St-André Pierre Lachance Thierry Thomas Vincent Vinet Yannick Sebastia Galician Rafael Varela Guillermo Mendez German Carsten Guenther Jan Schneider Greek Stefanos I. Dimitriou Silligardos Xristoforos Anagnostopoulos Apostolis Konstantinos C. Milosis Hebrew Matt Selsky Hungarian Laszlo L. Tornoci Andras Galos Icelandic Bjorn Davidsson Indonesian Slamin Italian Giovanni Meneghetti Marco Pirovano Cristian Manoni Japanese B.J. Black Takeshi Morishima Hiromi Kimura Khmer Leang Chumsoben Korean J.I Kim Jinhyok Heo Latvian Kaspars Kapenieks Lithuanian Darius Matuliauskas Vilius Šumskas Macedonian Stojan Pesov Norwegian Bokmaal Øyvind Monsløp Oystein Steimler Torbjorn Grindhaug Torstein S. Hansen Andreas Gunleikskaas Trond Bjørstad Thomas Chr. Dahl Geir O. Hogberg Norwegian Nynorsk Per-Stian Vatne Persian MetaNET Amirkabir Polish Mariusz Zynel Piotr Roszatycki Przemyslaw "Primo" Witek Mateusz Kaminski Krzysztof Kozlowski Piotr Adamcio Tadeusz Lesiecki Piotr Tarnowski Portuguese Nuno Loureiro Manuel Menezes de Sequeira Romanian Corneliu Musat Russian Anton Nekhoroshih Fedor A. Fetisov Alexey Zakharov Rashid N. Achilov Slovak Leo Mrafko Ivan Noris Martin Matuška Slovenian Jure Krasovic Matic Dolar Spanish Raul Alvarez Venegas Manuel Perez Ayala Swedish Andreas Dahlén Joaquim Homrighausen Thai Surasak Srisawan Turkish Genco Yilmaz Istanbul Technical University IT Department Middle East Technical University Ukrainian Andriy Kopystyansky ===================== ====================================================== Inactive Developers =================== - Jon Parise - Mike Cochrane - Anil Madhavapeddy - Jason Orcutt - Brian Jones - Mike Hardy - Ivan E. Moore II - Chris Hyde ./docs/INSTALL0000644000175000017500000005353611702026733013063 0ustar mathieumathieu==================== Installing IMP 4.3 ==================== :Last update: $Date: 2008/09/05 14:09:07 $ :Revision: $Revision: 1.57.6.18 $ :Contact: imp@lists.horde.org .. contents:: Contents .. section-numbering:: This document contains instructions for installing the IMP web-based mail client on your system. For information on the capabilities and features of IMP, see the file README_ in the top-level directory of the IMP distribution. Obtaining IMP ============= IMP can be obtained from the Horde website and FTP server, at http://www.horde.org/imp/ ftp://ftp.horde.org/pub/imp/ Or use the mirror closest to you: http://www.horde.org/mirrors.php Bleeding-edge development versions of IMP are available via CVS; see the file `horde/docs/HACKING`_ in the Horde distribution, or the website http://www.horde.org/source/, for information on accessing the Horde CVS repository. Prerequisites ============= To function properly, IMP **requires** the following: 1. A working Horde installation. IMP runs within the `Horde Application Framework`_, a set of common tools for Web applications written in PHP. You must install Horde before before installing IMP. .. Important:: IMP 4.0 requires version 3.0+ of the Horde Framework - earlier versions of Horde will **not** work. .. _`Horde Application Framework`: http://www.horde.org/horde/ The Horde Framework can be obtained from the Horde website and FTP server, at http://www.horde.org/horde/ ftp://ftp.horde.org/pub/horde/ .. Important:: Be sure to have completed all of the steps in the `horde/docs/INSTALL`_ file for the Horde Framework before installing IMP. Many of IMP's prerequisites are also Horde prerequisites. 2. The following PHP capabilities: a. IMAP and POP3 support ``--with-imap`` IMP **requires** the PHP imap extension to provide IMAP and/or POP3 support. To compile the imap extension, the UW-IMAP c-client libray must be present on your system. For help with compiling the imap extension ninto PHP, you can view the PHP imap manual entry: http://www.php.net/imap Because installation of the imap extension can be a non-trivial matter, further configuration help/advice follows. The UW-IMAP c-client library is available from ftp://ftp.cac.washington.edu/imap/ The most recent code is normally located in a file named 'imap.tar.Z'. After building the c-client library (instructions are at the top of the Makefile in the base directory of the UW imap package), you may need to rename the compiled library file so the local build system can find it. For example, compilation of c-client results in a file named 'c-client.a' in the 'c-client' directory. On Linux (at least) this file needs to be renamed or linked to libc-client.a, e.g.: ln -s c-client.a libc-client.a IMP can use IMAP-SSL and POP3-SSL if available. SSL support needs to be built-in to both the c-client library and the PHP extension (see the ``--with-imap-ssl`` configure option to PHP). If using TLS or SSL to connect to the IMAP/POP3 server, OpenSSL support is **required** in PHP. See `OpenSSL Support`_ below. .. Tip:: If you notice strange behavior when running IMP (e.g. blank screens when accessing certain messages, blank message bodies) you should always try recompiling PHP with a different version of c-client. The different versions of the c-client library and PHP do not always work well together, and often all it takes is to recompile with a different c-client version and the problems will go away. .. Tip:: If running the webserver changerooted (i.e. the default setting on OpenBSD), you may need additional configuration on your system to ensure the c-client library works properly. See: `Configuring c-client for changerooted webservers`_ .. _`Configuring c-client for changerooted webservers`: http://lists.horde.org/archives/imp/Week-of-Mon-20050321/041502.html b. File Upload Support File upload support is **required** to allow attachments in mail composition and to allow various importing features to work (e.g. importing PGP or S/MIME keys, importing mbox files). To enable file upload support: 1. In your php.ini file, the following line **must** be present:: file_uploads = On 2. Your temporary upload directory **must** be writable to the user the web server is running as. If you leave the configuration option ``upload_tmp_dir`` blank in ``php.ini``, PHP will use the default directory compiled into it (normally ``/tmp`` on Unix-like systems). 3. Set the maximum size of the uploaded files via the ``upload_max_filesize`` configuration option in ``php.ini``. For example, to allow 5 MB attachments, place the following line in your ``php.ini`` file:: upload_max_filesize = 5M If either ``file_uploads`` is turned off, or your temporary upload directory is *not* writable by the server, all file upload functionality will be disabled by Horde/IMP and will not be available to the user. See the `File Uploads`_ FAQ entry for further information. The following PHP options are **RECOMMENDED** to enable advanced features in IMP: .. _`OpenSSL Support`: a. OpenSSL support ``--with-openssl`` The OpenSSL PHP extension is used by IMP to provide S/MIME support. Without the extension, all S/MIME options will be disabled. Additionally, the OpenSSL PHP extension is REQUIRED if using TLS or SSL to connect to the IMAP/POP3 server. See http://www.php.net/openssl for information on compiling OpenSSL into PHP. b. tidy ``--with-tidy`` (PHP 5+ only) The tidy PHP extension is required if you want IMP to sanitize the output of HTML messages before displaying to the user and if you want to clean and repair outgoing HTML messages composed via the HTML composition mode. See ``imp/config/mime_drivers.php.dist`` for further instructions on how to enable this feature. 3. The following PEAR modules: (See `horde/docs/INSTALL`_ for instructions on installing PEAR modules) a. Auth_SASL [OPTIONAL] Auth_SASL is required if your IMAP server uses CRAM-MD5 or DIGEST-MD5 authentication. b. HTTP_Request [OPTIONAL] HTTP_Request is used in the HTML composition mode to download remote images contained in the message and store them in the body of the outgoing messages. Without HTTP_Request, the message will be sent with the images linked to the remote images, with no guarantee that the remote images will still be accessible when the recipient of the message views that message. 4. The following PECL modules: (See `horde/docs/INSTALL`_ for instructions on installing PECL modules) a. idn [OPTIONAL] idn is required in order to handle Internationalized Domain Names (see RFC 3490). 5. At least one IMAP or POP3 server. While IMP is an application that is installed on a Web server and is run from a Web browser, it is only an IMAP and POP3 *client*, like Outlook, Apple Mail or Thunderbird. You must have access to an IMAP or POP3 server(s) on which your users' mail is stored in order to use IMP. IMAP is *strongly* recommended over POP3. See, e.g., http://www.imap.org/imap.vs.pop.brief.html Freely available IMAP servers (for \*nix systems) that have been verified to work with IMP include: - Courier-IMAP (http://www.inter7.com/courierimap.html) - Cyrus (http://asg.web.cmu.edu/cyrus/) - Dovecot (http://www.dovecot.org/) - UW-IMAP (ftp://ftp.cac.washington.edu/imap/) The following items are not required, but are strongly **RECOMMENDED**: 1. Sendmail or equivalent. While Horde can send mail via either a local sendmail or a remote SMTP server, sendmail is recommended for use with IMP for improved performance and error handling/reporting, as well as a more accurate mail envelope. The mail transport settings are set in the Horde configuration, so further documentation can be found there. 2. Turba, the Horde contacts manager. Turba is the Horde contact management application, designed to be integrated with other Horde applications to provide a unified interface to contact management throughout the Horde suite. Turba is available from: http://www.horde.org/turba/ ftp://ftp.horde.org/pub/turba/ Turba provides a local address book and an LDAP directory search function to IMP. You must use the 2.x branch of Turba with IMP 4.x. 3. Ingo, the Horde mail filters manager. Ingo is the Horde mail filters management application, designed to be integrated with other Horde applications to provide a unified interface to filter management throughout the Horde suite. Ingo is available from: http://www.horde.org/ingo/ ftp://ftp.horde.org/pub/ingo/ Ingo provides the mail filtering interfaces to IMP - there is no built-in filtering in IMP. You must use the 1.x branch of Ingo with IMP 4.x. To use IMAP client-side filtering (i.e. the filtering provided by IMP 3.x), ingo should use the ``null`` driver and the ``imap`` script settings (set in ``ingo/config/backends.php``). 4. Nag, the Horde tasks manager. Nag is the Horde tasks management application, designed to be integrated with other Horde applications to provide a unified interface to task management throughout the Horde suite. Nag is available from: http://www.horde.org/nag/ ftp://ftp.horde.org/pub/nag/ If nag is available on your system, users can easily create new tasks from individual email messages. You must use the 2.x branch of Nag with IMP 4.x. 5. Gollem, the Horde file manager. Gollem is the Horde file management application, designed to be integrated with other Horde applications to provide a unified interface to access VFS filesystems throughout the Horde suite. Gollem is available from: http://www.horde.org/gollem/ ftp://ftp.horde.org/pub/gollem/ Gollem allows a user to attach files from various VFS filesystems to outgoing messages in IMP. You must use the 1.x branch of Gollem with IMP 4.x. 6. aspell - Spelling Checker Aspell, a comand-line program, is used as IMP's spell-checking engine. You must install and configure aspell to use IMP's spell-check feature. Version 0.60 or higher is REQUIRED. You can obtain aspell from: http://aspell.sourceforge.net/ 7. A web server with PATH_INFO support. IMP requires a web server that correctly sets the PATH_INFO environment variable for all PHP scripts for several features. Every modern web server supports this, but you might have to enable this feature in the web server configuration. e.g. Apache servers require:: AcceptPathInfo On If the webserver does not provide PATH_INFO information, IMP attempts to create the information using other server variables, but this process is slower and less reliable. Installing IMP ============== IMP is written in PHP, and must be installed in a web-accessible directory. The precise location of this directory will differ from system to system. Conventionally, IMP is installed directly underneath Horde in the web server's document tree. Since IMP is written in PHP, there is no compilation necessary; simply expand the distribution where you want it to reside and rename the root directory of the distribution to whatever you wish to appear in the URL. For example, with the Apache web server's default document root of ``/usr/local/apache/htdocs``, you would type:: cd /usr/local/apache/htdocs/horde tar zxvf /path/to/imp-x.y.z.tar.gz mv imp-x.y.z imp and would then find IMP at the URL:: http://your-server/horde/imp/ Configuring IMP =============== 1. Configuring Horde for IMP a. Register the application In ``horde/config/registry.php``, find the ``applications['imp']`` stanza. The default settings here should be okay, but you can change them if desired. If you have changed the location of IMP relative to Horde, either in the URL, in the filesystem or both, you must update the ``fileroot`` and ``webroot`` settings to their correct values. b. Enable IMP authentication [OPTIONAL] If you would prefer that your users authenticate directly with IMP, without having to authenticate through Horde first, load the ``Administration/Setup/Authentication`` page and from the ``What backend should we use for authenticating users to Horde`` pulldown menu select ``Let a Horde application handle authentication``. (Please see the second note below.) Select ``imp`` from the ``The application which is providing authentication`` pulldown menu. .. Note:: **You will have to log in twice if you don't do this** -- Once to Horde and a second time to IMP. .. Note:: If this is a new install, you will not be able to configure IMP using the Horde Administration/Setup page if you first enabled IMP authentication for Horde. You must set Horde to use another authentication method (refer to the `horde/docs/INSTALL`_ file), configure IMP, then reset Horde to use IMP authentication. One way to reset Horde in order to reach the Administration page is to replace the Horde configuration file ``conf.php`` with the original in ``horde/config/conf.php.dist``. You should of course back up your current settings since they will otherwise be permanently lost. 2. Creating the database table The specific steps to create the IMP database table depend on which database you've chosen to use. First, look in ``scripts/sql/`` to see if a script already exists for your database type. If so, you should be able to simply execute that script as superuser in your database. (Note that executing the script as the "horde" user will probably fail when granting privileges.) If such a script does not exist, you'll need to build your own, using the file imp.sql as a starting point. If you need assistance in creating databases, you may wish to let us know on the IMP mailing list. 3. Configuring IMP To configure IMP, change to the ``imp/config/`` directory of the installed distribution, and make copies of all of the configuration ``dist`` files without the ``dist`` suffix:: cd config/ for foo in *.dist; do cp $foo `basename $foo .dist`; done Or on Windows:: copy *.dist *. Documentation on the format and purpose of those files can be found in each file. You may edit these files if you wish to customize IMP's appearance and behavior. With the following exceptions, the defaults will be correct for most sites. a. servers.php You must be sure to list your IMAP/POP3 server names and configuration information in ``servers.php`` (unless you allow users to choose any server). b. motd.php You should either provide your own message-of-the-day type information, or remove motd.php. You must login to Horde as a Horde Administrator to finish the configuration of IMP. Use the Horde ``Administration`` menu item to get to the administration page, and then click on the ``Setup`` icon to get the configuration page. Select ``Mail`` from the selection list of applications. Fill in or change any configuration values as needed. When done click on ``Generate Mail Configuration`` to generate the ``conf.php`` file. If your web server doesn't have write permissions to the IMP configuration directory or file, it will not be able to write the file. In this case, go back to ``Setup`` and choose one of the other methods to create the configuration file ``imp/config/conf.php``. Note for international users: IMP uses GNU gettext to provide local translations of text displayed by applications; the translations are found in the ``po/`` directory. If a translation is not yet available for your locale (and you wish to create one), see the ``horde/po/README`` file, or if you're having trouble using a provided translation, please see the `horde/docs/TRANSLATIONS`_ file for instructions. IMP Configuration Pointers * If you would like IMP to scan all text messages for UUencoded data, you must make this change in ``imp/config/mime_drivers.php``:: $mime_drivers['imp']['plain']['uuencode'] = true; Note that this is a performance hit since *every* text body must be scanned in its entriety to look for uuencoded data. Therefore, this feature is disabled by default. * By default, IMP is configured to NOT display text/html message parts inline. This is done for various security reasons. If you would like to see text/html parts inline, you must make this change in ``imp/config/mime_drivers.php``:: $mime_drivers['imp']['html']['inline'] = true; 4. Securing IMP Before you can secure IMP, you need a secure Horde installation. Please read the file in `horde/docs/SECURITY`_ for Horde security information before proceeding. There are two channels by which, unless steps are taken to avoid it, IMP encourages users to pass their IMAP and POP3 passwords around the Internet unencrypted. The first channel is between their browser and the Web server. We strongly recommend using an SSL-capable Web server to give users the option of encrypting communications between their browser and the Web server on which IMP is running; some sites may wish to disable non-SSL access entirely. The second channel is between the Web server and their IMAP or POP3 server. The simplest way to avoid this is to have the mail server running on the same system as the Web server, and configuring IMP to connect to the IMAP or POP3 server on ``localhost`` instead of on the Internet hostname. In cases where that is not possible, we recommend using IMAP-SSL or POP3-SSL to ensure that users' passwords remain safe after they have entrusted them to IMP. Other security steps you can take to increase security include: * Use session cookies instead or URL based sessions. * Set your php ``session.entropy_length`` to a larger value (e.g. 16) and ``session.entropy_file`` to a random source (e.g. ``/dev/urandom``) * Enable and use the php mycrypt extension. * If your database, mail server, and web server are on the same host machine, then: * use unix socket database access and disable tcp database access. * use ``localhost`` for all TCP/IP connections to avoid the network. * use the command-line sendmail for sending mail if possible. 5. Testing IMP Once you have configured IMP, bring up the included test page in your Web browser to ensure that all necessary prerequisites have been met. See the `horde/docs/INSTALL`_ document for further details on Horde test scripts. If you installed IMP as described above, the URL to the test page would be:: http://your-server/horde/imp/test.php The test script will also allow you to test your connection to the mail server and provide some auto-detected configuration parameters that can then be inserted into the server configuration located in ``imp/config/servers.php``. Next, use IMP to login to a known working IMAP or POP3 server. Test at least the following: - Sending mail (via the ``Compose`` item in the menu bar). - Setting preferences (check to see if they survive after logging out and back in, if you are using an SQL or LDAP preferences system). - Reading mail. - Deleting mail. - Flagging mail (if using IMAP). - Changing folders (if using IMAP). 6. Tuning IMP (Performance) See `horde/docs/PERFORMANCE`_. IMP Specific Performance Information As of IMP 4.2, IMP can now use persistent caching on the server side to store information about user's messages. This results in much reduced IMAP server traffic and requires the server to parse the structure of every message only once. The tradeoff is your cache backend must be able to handle the potentially large amounts of cached data this option will produce. To use this caching, you must have a ``Cache System`` configured in Horde's ``Administration/Setup`` screen and have the relevant settings enabled in IMP's setup screen (``Administration/Setup/Webmail/Mailbox and Fetchmail``. Obtaining Support ================= If you encounter problems with IMP, help is available! The Horde Frequently Asked Questions List (FAQ), available on the Web at http://www.horde.org/faq/ The Horde Project runs a number of mailing lists, for individual applications and for issues relating to the project as a whole. Information, archives, and subscription information can be found at http://www.horde.org/mail/ Lastly, Horde developers, contributors and users may also be found on IRC, on the channel #horde on the Freenode Network (irc.freenode.net). Please keep in mind that IMP is free software written by volunteers. For information on reasonable support expectations, please read http://www.horde.org/support.php Thanks for using IMP! The IMP team .. _README: ?f=README.html .. _`horde/docs/HACKING`: ../../horde/docs/?f=HACKING.html .. _`horde/docs/INSTALL`: ../../horde/docs/?f=INSTALL.html .. _`horde/docs/PERFORMANCE`: ../../horde/docs/?f=PERFORMANCE.html .. _`horde/docs/SECURITY`: ../../horde/docs/?f=SECURITY.html .. _`horde/docs/TRANSLATIONS`: ../../horde/docs/?f=TRANSLATIONS.html .. _`File Uploads`: http://wiki.horde.org/FAQ/Admin/FileUploads ./docs/CHANGES0000644000175000017500000033216411702026733013022 0ustar mathieumathieu------- v4.3.10 ------- [jan] Don't submit the action form when reloading messages with iTip attachments (Bug #9502). ------ v4.3.9 ------ [mms] Fix error if user's account only contains an INBOX (Bug #9273). ------ v4.3.8 ------ [jan] SECURITY: Properly escape user input in Fetchmail configuration. [mms] Fix updating POP3 indices when using mailbox caching (Bug #8035). [jan] Include "anyone" user when listing users in the ACL screen (Bug #9135). [mms] Turn DNS prefetching off when displaying untrusted message content (Ticket #8836). ------ v4.3.7 ------ [mms] Fix spellcheck-on-send when using fckeditor and no errors exist (Bug #8833). [mms] Fix authenticate API call and synchronization when using realms (robin.west@dal.ca, Bugs #6749, #8872). [mms] Optimize folder tree initialization (Request #8805). [mms] Add command line fetchmail script (tjacyno@galasoft.net, Request #8812). [jan] Workaround broken PHP number formatting with some locales (Bug #8780). ------ v4.3.6 ------ [cjh] Fix the default value for the nav_audio preference (sistemisti-posta@csi.it, Bug #8725). [mms] Make sure sent-mail folders exist if using the drop-down selection list on the compose page (Bug #8520). [mms] When replying to list, correctly extract e-mail address if multiple entries exist in the List-Post header (Bug #8719). [mms] For messages marked as innocent but not moved to Inbox, don't report them as deleted within the current mailbox (Bug #8221). [jan] Don't show address book preference group if address books are disabled (Bug #8692). [mms] Save References/In-Reply-To header info when saving a draft (Bug #8661). [jan] Fix viewing S/MIME encrypted and signed messages from Outlook (Express) (Bug #8629). [jan] Add Oracle-specific SQL script. [jan] Add Croatian translation (Matej Vela , Iva Rumora ). [mms] Don't use translated folder prefixes in rename dialog (Bug #8554). [jan] Add hook to retrieve public S/MIME and PGP keys. ------ v4.3.5 ------ [mms] Upgrade prototype.js to v1.6.1. [jan] Add example hook for the search_sources preference (dom.lalot@gmail.com, Request #7796). [mms] Fix renaming shared folders contained in empty namespaces (Bug #8468). [mms] Correctly handle NO untagged responses on login (Bug #8478). [mms] Correctly set charset of Bcc header in sent mail copy (Bug #8362). [mms] Fix spellcheck in text-mode for certain words in non-English locales (Bug #8330). [mms] Fix some javascript if using IE 8 (uses IE 7 compatibility mode) (Bug #8345). [jan] Allow to lock default_encrypt preference. [mjr] Add example hook for the add_source preference (Bug #8285). [mms] Fix unqualified domain preference (Bug #8272). [jan] Highlight signed messages depending on the signature verification. [mms] Fix display_folder hook (m.gabriel@das-netzwerkteam.de, Bug #8254). [jan] Use correct charset when rendering inline PGP data. ------ v4.3.4 ------ [mms] SECURITY: Don't cache local PGP public keys retrieved from the addressbook (found by Peter Meier ). [mms] If using spellcheck on send, automatically send if no spelling errors exist (Request #6892). [jan] Show all addresses when printing messages. [mms] Fix cache issues in folder tree when deleting a mailbox (Bug #7745). [mms] Fix updating POP3 indices when deleting in mailbox view (Bug #8035). [jan] If updating a calendar event fails, try to import it instead (Bug #7589). [mms] Fix [un]escaping of various URLs on message screen caused by security fixes in v4.3.3 (Bug #7926). [jan] Fix rendering of subjects in RTL scripts when using LTR translations (vilius@lnk.lt, Bug #3511). [mms] Add hook to allow hiding of IMAP folders (Gunnar Wrobel , Request #7353). [jan] Fix logging of messages forwarded with attachments (Bug #7911). ------ v4.3.3 ------ [cjh] SECURITY: Escape output in message.php, pgp.php and smime.php (found by Gunnar Wrobel ). [jan] Use all credentials and mailer settings for iTip replies (Bug #7388). [mms] Show translated 'INBOX' prefix for subfolders (Request #7759). [mms] Workaround obsolete 'UT' date format (Request #5717). [mms] Fix tracking folder changes when renaming (Bug #7772). [cjh] Suppress browser autocomplete when redirecting messages (Bug #7767). ------ v4.3.2 ------ [mms] Fix prototypejs regression on IE (Bug #6590). ------ v4.3.1 ------ [jan] SECURITY: Escape output in test.php. [mms] Don't include Virtual Folder information in when tracking folder tree changes (Bug #7739). [mms] Marked stripped parts as 'attachment', not 'inline' (Request #4664). [mms] Fix linking from addresses in mailbox to compose screen (Bug #7432). [jan] Use mailer configuration when sending iTip replies (Bug #7388). [jan] Always display multipart/appledouble attachments. [mms] Upgrade prototype.js to v1.6.0.3. ---- v4.3 ---- [jan] Add compose token to redirect view (Bug #7383). [jan] Don't resize window if not composing messages in a popup. -------- v4.3-RC2 -------- [mms] Fix loading of print stylesheets when printing a message (Bug #7310). [mjr] Fix redirect loop when conf[server][change_server] is true (Bug #6978). [mms] Fix message caching and optimize storage. [mms] Fix autocomplete address positioning on IE (Bug #7074). [cjh] When the selected view doesn't match the type of browser's default view (IMP or DIMP for a mobile browser, MIMP or DIMP for a desktop browser), explicitly redirect to that view and disable the frameset (Bug #6332). [jan] Add support for updating exsting events and cancelled recurring event instances to iTip viewer (Bug #6636). [mms] Fix uploaded compose attachment names if magic quoting is on (Bug #7215). [mms] Cache results of address formatting. [jan] Show name and email address in the address book popup (Request #6937). [mms] Messages from lists can now have large quotes automatically hidden. --------------------------------- v4.3-RC1 (released as v4.2.1-RC1) --------------------------------- [mms] Fix incorrect autocomplete replacement in certain cases (Bug #6819). [mms] Use optimized autocomplete javascript library. [mms] Handle ';' to delimit addresses when composing. [jan] Don't allow adding private PGP keys as public keys (Bug #7080). [jan] Add Basque translation (Euskal Herriko Unibertsitatea EHU/UPV ). [mms] Search by size now displayed in KB (Request #6921). [jan] Add option to attach personal vCard to message (requires Turba 2.2.2). [jan] Fix maildir quota driver (Bug #7014). [jan] Add configuration for quota message format. [mms] Maintain original header encoding on redirect (Bug #7006). [cjh] Add CSRF tokens to the Compose screen (Kris Steinhoff ). [jan] Fix adding vhost specific trailer.txt. [jan] Add more flexible placeholders to SQL quota driver. [jan] Fix passing passwords to quota drivers. [mms] Improved folder list generation (Bug #6972). [cjh] Allow hiding quota messages when quota is unlimited (Thomas Jarosch , Request #6934). [jan] Add mailto: handler for Firefox 3+. [mms] Fix address MIME encoding issues when saving a draft (Bug #6986). [cjh] Include a hint about fixing invalid From addresses in the error message (steinhof@umich.edu, Bug #6941). [cjh] Fix overwriting $params in _imp_adminDo API call (Bug #6955). [mms] Never wrap flowed lines in text/plain messages. [mms] Fix broken spellcheck when using fckeditor on Safari 3 (Bug #6909). [mms] Fix unescaping URL parameters passed to popup windows (Bug #6834). [jan] Fix logging of forwarded messages. [mms] Fix creation of subfolders in certain namespaces (thomas.jarosch@intra2net.com, Bug #6827). [mms] Improve search page by moving flags into search criteria section (Request #6825). [mms] If using imagemagick, allow creation of PDF thumbnails. [mms] Strip quotation marks and backslashes from displayed addresses. [mms] Fix spellcheck in HTML mode when using Xinha on IE (Bug #6799). [mms] Fix rare case when spellchecking HTML input could result in the HTML tags being recognized as misspelled words. [jan] Fix parsing for Token System configuration parameters. [mms] Add ability to search by size. ------ v4.2.2 ------ [cjh] SECURITY: Escape output in message.php, pgp.php and smime.php (found by Gunnar Wrobel ). ------ v4.2.1 ------ [jan] SECURITY: Escape output in test.php. ---- v4.2 ---- [cjh] Fix display of email groups in received messages. [cjh] Fix sending email to contact lists (Bug #6732). [cjh] Make sure that email addresses entered in the Identities screen pass basic well-formedness validation (Bug #6654). [cjh] Fix default server selection on the login screen (adrieder@sbox.tugraz.at, Bug #6738). [cjh] Fix defaulting to the wrong address book in the Contacts popup (steinhof@umich.edu, Bug #6723). -------- v4.2-RC4 -------- [mms] Add ability to cache JS/CSS files to static files to improve performance and to fix problems when updating JS/CSS files. [cjh] Apply fix for http://dev.rubyonrails.org/ticket/11473 to prototype.js (Request #6590). [cjh] Make request token lifetime configurable (faurep@agr.gc.ca, Request #6679). [mms] If using SMTP, send messages using 8BITMIME (RFC 1652) or BINARYMIME (RFC 3030) if appropriate (Request #6645). [cjh] Work around a spellchecking issue with proc_close and --enable-sigchild (Bug #6625). [jan] Show user drop down list in ACL screen if possible. [mms] Redirect after doing maintenance to the proper view (Bug #6179). [mms] Allow switching views in mobile login mode (Request #6332). [jan] Support vhosts setting when loading header.php, servers.php, spelling.php and trailer.txt configuration files. [mas] Use delete icon on search page to remove elements. (Liam Hoekenga , Request #6515). [mms] Add link to delete entire thread on thread screen (Request #5884). [mms] Hide trash-related options when trash is disabled. [jan] Allow users to specify server name and login credentials in Horde's preferences (requires Horde 3.2). [mms] Message cache now stored in configurable chunks to reduce memory usage. [mms] Fix mailbox list caching when hiding deleted messages. -------- v4.2-RC3 -------- [mas] Replace %l and %d with the current short username and domain name in spam reporting shell calls. (Bug #6364) [cjh] Add a hook quota driver (Michael.Redinger@uibk.ac.at, Request #6322). [mms] Make xinha add BR tag instead of P tag on enter keypress (Mozilla only). [mms] Add fckeditor to list of supported javascript editors. [jan] Hide iTip actions if not using IMP frontend (Bug #6116). [cjh] Fix showing suggestions for the second or subsequent misspelled word (Bug #6081). [jan] Add configuration option to force users to a certain view. [jan] Localize default folder names. [jan] Call a contacts/add API method to create links for adding contacts if available. [jan] Filter HTML body when replying to HTML messages with the WYIWYG editor. [jan] Allow users to set the HTML editor toolbar buttons in their preferences. [jan] Fix charset of composed HTML messages (Bug #6268). [cjh] Protect mailbox, message, and folder actions with CSRF tokens. [cjh] Fix action dropdowns in IE6 (Bug #6177). [cjh] Make sure to call Event.extend() when using inline event handlers, for IE6's benefit. [cjh] Fix improper enabling of HTML composition on replies (Bug #6176). [jan] Use subject's CN instead of OU for storing public keys (Bug #6169). [cjh] Make sure that custom checkbox preferences are stored as 0 or 1 instead of 'on' or ''. [jan] Fix popup URL generation (Bug #6139). -------- v4.2-RC2 -------- [mms] SECURITY: When sending linked attachments, protect against JAR attacks in some Mozilla browsers (Bug #5892). [cjh] Fix the bottom Select: menu in the mailbox view (Bug #6128). [mms] Add hook for adding formatting information to a message list row (Request #5234). [mms] If javascript is available, automatically size the popup compose window. [jan] Allow to write outside of HTML signatures in WYSIWYG editor (Bug #3753). [jan] Highlight HTML signatures in WYSIWYG editor. [jan] Remember webmail mode selected on the last login. [mms] Compress download data. -------- v4.2-RC1 -------- [jan] Fix broken tags in HTML messages. [mms] When sending notification that linked attachment has been downloaded, correctly set timezone in download time (Bug #4609). [cjh] If encrypting a message, encrypt an attached public key as well (Bug #5733). [jan] Remove "default search field" preference, show all common fields instead. [cjh] Rename IMP_IMAP_Client::namespace to getNamespace() for PHP 5.3 compatibility. [cjh] Cache PGP public keys for one hour (adrieder@sbox.tugraz.at, Request #5773). [mms] Add mailbox list caching across sessions. [cjh] Don't translate "Fwd:" in email subjects (Request #5674). [jan] Add link to strip all attachments from a message. [jan] Show owner of S/MIME cert in signed messages, not the message sender. [jan] Allow maintenance tasks to rename and delete fixed folders (Bug #5592). [mms] Allow all javascript and CSS in a page to be served in a single browser request. [jan] Move all IMP-specific hook examples from Horde's config/ directory. [jan] Fix compose window widgets with certain translations (Bug #5638). [jan] Fix sidebar tree generation with certain translations (Bug #5525). [cjh] Fix spellchecking HTML messages with active links (Bug #5629). [cjh] Fix a fatal error when composing for users with no signature (Bug #5682). [cjh] The pspell extension is no longer supported for spell checking since it doesn't work with HTML composition at all (Bug #5516). [cjh] Fix switching signatures when using HTML composition (Bugs #3753, #5594). ---------- v4.2-ALPHA ---------- [jan] Add configuration for folders that may not be modified. [mms] Inline PHP-generated javascript to avoid cross-domain leaking (Bug #5307). [cjh] Preserve current mailbox when composing in the main window (Bug #5415). [cjh] Add a few more new mail sounds and allow the user to choose between them (Request #3260). [mms] Preserve URL anchor information when performing login. [jan] Fetch public PGP keys from keyserver if not available in address book (Requires Horde 3.2). [mms] Add compose support for e-mails containing Internationalized Domain Names (Request #5180). [jan] Add a hook for post sending actions, after a message has been sent. [mms] Add option to login screen to allow user to select the application mode if either DIMP or MIMP is also installed. [jan] Add unified IMAP quota driver to obsolete the Cyrus and Courier drivers. [mms] Don't allow namespace delimiters in new mailbox names. [mms] Change 'Important' flag to 'Flagged For Followup' and clear the flag after a reply (Request #4867). [mms] Allow display of shared/public folders separate from a user's personal folders (Request #3581). [mms] Allow thumbnails to be generated for all attached images, regardless of image size. [cjh] Add a modal confirmation dialog for emptying a folder (Request #4812). [mms] Add ability for admin to limit size of reply text. [mms] Add RSS/Atom feed for mailboxes (Eric Garrido , Request #2733). [mms] If tidy is available, use it to clean up outgoing HTML messages. [mms] Automatically delete blacklisted messages (Request #4569). [cjh] Implement non-modal newmail popups (Request #3327). [mms] Add option to restrict size of MIME message parts that can be displayed inline. [cjh] Add a Help entry for keyboard navigation (Bug #4716). [mms] Most javascript code now uses the Prototype library. [jan] Address auto-completion searches only at beginning of names and addresses. [jan] Add button to empty the current folder. [jan] Show percentage of attachment limit usage in compose window (Eric Garrido , Request #3434). [jan] Add SQL driver for quotas (Tomas Simonaitis , Request #4053). [mms] Allow user to view PGP encrypted messages sent by themself (Bug #4332). [mas] Make ACL editor more intuitive (Eric Garrido , Request #3808). [mas] Conform to WCAG 1.0 Priority 2/Section 508 accessibility guidelines. (Request #4080) [mms] Added preference to allow composition in reply/forward based on "richest" format available in original message (Request #4270). [mms] Added preferences to determine default forwarding method and whether to include body text in forwards by default. [mms] Add preference to only verify PGP & S/MIME signed data upon user request (Request #4022). [mms] Add preference to indicate default cursor location in compose text area (Request #3245). [jan] Add support for symmetric PGP encryption (Requires Horde 3.2). [cjh] Add an onbeforeunload handler so Firefox and IE users can be prompted before accidentally closing a compose window (phyre@rogers.com, Request #4271). [jan] Move mail_hdr preference from identities to a regular preference. [mms] Remove current mailbox information from session - allows multiple simultaneous open IMP windows (Request #3171). [mms] Add folder size display to folders screen (Request #4065). [mms] Add ability to filter HTML message output with tidy (Request #388). [cjh] Show thumbnails of large images instead of linking to them (Eric Garrido , Request #3808). [mms] Page location in mailbox is remembered for subsequent mailbox visits. [mas] Add maintenance task to purge old messages from spam folder (Request #3860). [mms] Implement mailbox message list caching. [mms] Port AJAX spell checking code from DIMP. [mms] Port auto-complete contacts AJAX code from DIMP. [mms] Add preference to poll all folders for new mail (Request #2197). [mms] Allow admins to add "Printed By" headers to the top of all printed messages (Request #1965). [mms] Allow user to save per-folder sort preferences (Request #1483). [jan] Add multidomain support for Kolab servers (tokoe@kde.org, Request #3579). [cjh] Add a hook for post-login actions, after the session is established but before redirection. [mms] Recent search queries can be retrieved on the search page (Request #3337). [mms] Convert all templates to Horde_Template::. [cjh] Show vTodo parts in the iTip driver (Request #3344). [jan] Add maintenance task to purge old messages from sent-mail folders. [cjh] Move allow_cc and allow_bcc to compose_cc and compose_bcc preferences. [ben] Better support for MS-SQL. [jan] Whether and where to show alternative mime parts is now a preference instead of MIME configuration. [mms] Split out custom spelling dictionary into separate configuration file. [jan] Delete original message after saving a resumed draft. [cjh] If the browser supports the necessary javascript, unblock images in HTML messages without a page reload. [cjh] Do all message styling based on flags with CSS. [mms] Implement message caching. [jan] Add permissions to restrict maximum number of recipients per message and time. [jan] Add API method "contacts/favouriteRecipients". [jan] Add logging of sent messages. ------ v4.1.6 ------ [jan] Fix sentmail folder not being updated in the preference interface after updating to Horde 3.1.5 (Bug #5842). [jan] Fix broken tags in HTML messages. ------ v4.1.5 ------ [cjh] Lower memory usage when downloading folders (Andrew Morgan ). [mms] Fix detection of default namespace information when no namespaces are defined on the server (Bug #5538). [mms] Don't lose message bodies When moving messages to trash when over quota (Bug #5470). [cjh] Remove unused defaults in Fetchmail_imap (Bug #2799). [jan] Fix empty folder name appearing on Cyrus and servers with similar namespaces (Bug #5138). [jan] Only show reply options in iCalendar viewer if a reply is requested. [cjh] Remove non-responsive www.keyserver.net and wwwkeys.pgp.net from PGP options (Bug #5323). [jan] Fix moving messages when over quota on Dovecot servers (Bug #5270). [jan] Fix parsing of certain distribution lists (Bug #5134). [mms] Fix rare occurrence where an action perfomed on the mailbox screen would instead be performed on the INBOX (Bug #5202). [mms] Don't show save attachments prompt in compose screen if configured to automatically link all attachments (Request #5189). ------ v4.1.4 ------ [jan] SECURITY: Fix XSS vulnerabilities in the search screen and thread view. [jan] Improve displaying of PGP messages (requires Horde 3.1.4 partially). [mms] Make sure we pass a read/write IMAP stream to the filters API (Bug #5054). [mms] Do not allow move to trash unless trash folder is defined (Bug #5012). [jan] Fix an encoding issue with the address book popup (Bug #5050). ---------- v4.1.4-RC1 ---------- [cjh] "Ignore All" spellchecking fixes (technology@pmi-portland.org, Bug #4922). [cjh] Absolute restriction on the width of the contacts window select elements (Request #1985). [cjh] Send lowercase mailto: attributes in iCalendar replies (Bug #4872). [cjh] Don't improperly increment iCalendar SEQUENCE values (Bug #4863). [mms] Always subscribe to created folders. [mms] Don't allow both trash folder and Virtual Trash to be selected in the options (Bug #4698). [cjh] Turn mailto: links in HTML emails into IMP compose links (Bug #3079). [cjh] Attempt to calculate the actual filesystem block size in the IMP_Quota_command driver (Eric Rostetter , Request #4360). [cjh] Make sure to honor user date format preferences in iTip viewer (Bug #4635). [cjh] Fix message list header underflow in IE7 (Bug #4608). [cjh] Don't return empty sent-mail folders from the identity (Bug #4380). [cjh] Don't rename folders from or to an empty string (Bug #4380). [mas] Don't replace spaces with '.' when expanding addresses. (Bug #4236) ------ v4.1.3 ------ [mms] Add 'login_tries' server configuration option. [jan] Fix toggling compose mode if folders are turned off (Bug #4216). [mms] Fix blacklist/whitelist reporting (Bug #4160). [jan] Add link to view attached S/MIME key details. [cjh] Correctly escape all folder names. [mjr] Correctly restrict gallery list when saving images to a gallery program. [jan] Send notifications about downloaded attachments to address from identity. [mms] Escape group names pursuant to RFC 2822 (Bug #4018). [mms] Fix saving images to gallery program (e.g. Ansel) from search mailboxes (Bug #4046). ------ v4.1.2 ------ [mas] Check Cyrus quota for current mailbox, instead of always showing INBOX. (Eric Garrido ) [cjh] Send linked attachment notifications in the language of the user who sent the attachment (Bug #3712). [mms] Fix appending default personal namespace to default sent-mail folder (Bug #3873). [mms] Fix IMAP logins for some servers that throw in extraneous server information (Bug #3793). [mms] Quote IMAP usernames when using LOGIN authentication to allow usernames with spaces to login (Bug #3778). [jan] Fix creating folders through the api (Bug #3787). [mms] Added preference to toggle display of Virtual Inbox. [mms] Fix display of Virtual Trash (Bug #3665). ------ v4.1.1 ------ [mms] Silence some undefined warnings if folders are off (Bug #3755). [cjh] Escape X-color data (Bug #3751). [mms] Never open connection to specific mailbox unless we need it. [mms] Don't allow IMP preference access unless authenticated. [mms] Fix moving message to trash folder when over quota (Bug #3687). [mms] Add preference for default charset to be used for messages with improper charset information (requires Horde 3.1.1) (Request #2702). [mms] Fix stripping attachments (Bug #3510). [mms] Fix creation of duplicate Virtual INBOXes. [mms] Fix displaying Show/Hide/Purge links for deleted messages in certain cases. [jan] Fix downloading of all attachments from certain messages in a ZIP file with Internet Explorer. [mms] Use other login methods in IMP_IMAPClient:: if the first method is unsuccessful, to make Exchange working again. [mms] If an IMP maintenance task is activated, make sure the Horde preference controlling maintenance is also activated (Bug #2987). [mms] Fix spellcheck on send (Bug #3589). [mms] Allow user to select sent-mail folder in public namespace if public namespace is blank (Bug #3603). [mms] Add preference to define how we want to expand folder list in sidebar. ---- v4.1 ---- [mms] Correctly expunge current mailbox when deleting messages on a POP3 server (Bug #3156). -------- v4.1-RC3 -------- [mas] Add Hebrew translation. [mms] Attempt to login to mail server multiple times on non-auth failure to eliminate some "random" session timeouts (ag@netside.de, Bug #3404). [mms] Allow configuration of server timeouts in servers.php. [jan] Less intrusive notification when expanding of addresses in the compose view fails (Dmitriy MiksIr ). [mms] IMP_IMAPClient:: now uses the Auth_SASL PEAR module during CRAM-MD5 and DIGEST-MD5 authentication. -------- v4.1-RC2 -------- [jan] Add Khmer translation (Leang Chumsoben ). [mms] Make Linked attachments work in multipart/alternative messages (Bug #3335). [mms] Allow selection of Virtual Folder for login mailbox (Bug #3315). [mms] Prompt user before sending messages with empty subjects (Bug #3333). [mms] Add ability to edit search queries. [jan] Log correct address in login success message if connecting through a proxy (Bug #3289). [jan] Fix forwarding of multiple messages. [jan] Fix confirmations after successfully sending messages (Bug #3233). [jan] Apply _imp_hook_mbox_icons hook to the sidebar folder tree (Bug #3132). [mms] Re-add option to rebuild folder tree from IMAP server. [mms] Fix sent-mail folder selection in compose view (Bug #2802). [cjh] Fix redirection to initial_application preference after running Maintenance tasks. -------- v4.1-RC1 -------- [mms] Removed 'dotfiles' server parameter. [mms] Allow PHP expressions to be executed for user-defined headers (Bug #3093). [mms] Support 'DelSp' parameter in flowed text messages (requires Horde 3.1). [mms] Remove outdated, non-standards request for delivery confirmation. [mms] Hide lengthy address lists by default in message view and allow the user to toggle viewing (flachapelle@inverse.ca, Bug #3028). [cjh] Account for changes to strtotime() in PHP 5.1. [mms] It is not possible to hide deleted messages when using thread sort. [mms] Option to send notification that linked attachment has been downloaded, and link to delete the attachment (Bug #696). [mms] After fetching mail, return to the local mailbox where mail is downloaded to (Bug #2211). [mms] Check the IMAP server to see if it supports searches in the current charset. [mms] Do not require users to click on 'Attach' button when attaching files in the compose screen (Bug #2848). [mms] Don't display unsubscribed folders in sidebar (Bug #2869). [mms] Rename folders from top of tree to bottom to prevent errors on IMAP servers that automatically rename all child folders (Bug #2882). [mms] Fix opening compose popups when the mailbox contains urlencoded characters (Bug #2872). [mms] Fix refresh of folders when not using IMAP subscriptions (Bug #2878). [cjh] Skip results with empty email addresses when expanding names (Bug #2757). [cjh] Replace %u with the current username in spam reporting shell calls (Dmitriy MiksIr ). [mms] Don't ask for password for decryption when the user does not have a personal private key (Bug #2771). [mms] Add API method to return logged in server hostname. [mms] PGP encrypted messages now encrypted to all recipients in the same message (Bug #2670) (requires Horde 3.1). [mms] Added preference to define the default search field (Bug #2650). [jan] Add ability to create notes from email messages. [jmf] Add support for changing SMTP server/port on login (Bug #327). [mms] Removed 'folders', 'namespace, and 'hierarchies' server parameters. [mms] Add auto-detection of namespace information from IMAP server. [cjh] Support configuring where the "Report as" spam/innocent links appear (dustin@ywlcs.org, Bug #1096). [mms] Add preference to move spam/innocent messages to appropriate mailbox after reporting. [mms] Add multiple message view page (Bug #481). [jan] Add stationery and form responses. [cjh] Differentiate between signed and encrypted attachments (Bug #1712). [jmf] Ability to play sound on new mail. [jan] Add permissions to restrict creation of folders. [mms] Add configuration option to allow message bodies to be cached across page loads. [ben] Honor horde's alternate_login and redirect_on_logout settings. [jan] Add "Empty Spam" menu item (Bug #1765, jens@peino.de). [mms] Add Virtual INBOX to Virtual Folders. [mms] Make sure special Virtual Folders can never be edited. [mms] Allow import of photo attachments into a gallery application. [mms] Fix IMAP thread display when the base level contains more than one message. [mms] Better/more complete preview message generation. [mms] Graphical representation of thread on thread view screen. [mms] Virtual Trash folder support (Todd Merritt ). [mms] All composed messages are now sent in "flowed" format. The "wrap_width" preference has been eliminated. [mms] Success messages are not shown when adding a blacklist/whitelist address if an error in adding the address(es) occurred. [mms] No need to show a "Hide HTML images" link if the images have already been displayed. [mms] Include Cc: header information in the header text we display for forward and reply messages (Bug #1079). [jan] Show ZIP icon with "Download all attachments" link. [mms] S/MIME parts should always attempt to be viewed inline, notwithstanding the Content-Disposition for the part (requires Horde 3.1). ------ v4.0.5 ------ [cjh] Correctly escape all folder names. [jan] Fix French translation. ------ v4.0.4 ------ [mms] Add warning that PGP key generation may take awhile (Bug #2672). [mas] Add confirmation when reporting spam/innocent from message view. (kevin_myer@iu13.org, Bug #2285) [cjh] Fix check for duplicate addresses when automatically saving recipients (Bug #2663). ---------- v4.0.4-RC2 ---------- [mms] Fix additional newlines being added to forwarded messages when using sendmail on *NIX (Bug #2449, t.zell@gmx.de). [mms] Fix BCC addressess disappearing when resuming a message (Bug #2558). [mas] Fix reporting multiple messages as spam at once. (horde.org@spamvrij.kicks-ass.org, Bug #2549) [mms] Add entire message search to search page. [jan] Fix warnings if expanding names with spaces (Bug #2334). [mms] Don't display body text in thread view if inline viewing of the content is disabled. [jwm] Renamed Accounts menu item to Fetch Mail for more consistency. ---------- v4.0.4-RC1 ---------- [jan] Decode folder name when importing messages (ddibox@mail.ru, Bug #2479). [jan] Send iTip replies with the correct identity (Bug #1507). [jan] Name downloaded ZIP file with all attachments after the message subject. [jan] Allow to accept invitations and add them to the calendar at once. [jan] Show iTip attachments (event invitations) inline (Request #2032). [mms] Fix display of localized INBOX name in folder list/sidebar (Bug #2368). [mms] Fix display of linked attachments when the attachment filename contains characters that need to be escaped. [mms] Fix OR searches when user is hiding deleted messages. [mms] Save drafts so any images added via the HTML editor will correctly reappear when the message is resumed (Bug #1977). [mms] Allow HTML formatting to be retained when resuming a draft (Bug #2328). [mms] Work around broken c-client sort by arrival. Turns out to be more efficient anyway (Bug #2139). [jan] Add Bosnian translation (Vedran Ljubovic ). [mms] If user selects a non-default sentmail folder on the compose screen, make sure this is saved through any intervening spelling check (Bug #2093). [mms] Ensure that no maintenance tasks may be skipped (Bug #1926). [mas] Protect against special characters at the beginning of a line when using aspell. (Bug #2060) [cjh] Generate only one Select All checkbox on search results listings spanning multiple mailboxes (Bug #1991). [jan] Block embedded images if viewing HTML messages in a popup. [cjh] Don't lose incomplete addresses after expansion is attempted. (Bug #1900). [jan] Fix background expansion of non-ascii names in compose view (Bug #1575). [jan] Allow non-ascii searches (requires Horde 3.0.5). [mms] Don't pass server information via login page if not being altered by the user. (Bug #1883) [mms] Add separate confirmation page when deleting/emptying folders (Bug #783). [cjh] Allow sending blank searches to Turba even if the display_contact preference is false (Bug #1854). [mms] Encode attachment parameters with the same character set used in the base message (Bug #1591). [mms] Don't allow user to unsubscribe from INBOX. [mms] Don't alter header encodings when redirecting messages (Bug #1823). [mms] Fix charset issues with strip attachment message (Bug #1861). [cjh] Add missing binary.png for the TNEF MIME Viewer (Bug #1873). [jan] Localize all remaining INBOX strings in the interface. [mms] Fix drop down lists in folder preferences (Bug #1794). [jan] Fix compose links with non-ascii characters in email header links on Internet Explorer (Bug #1726). [mms] Ignore empty lines in config/header.txt (Bug #1770). [cjh] Don't trigger the left/right key message navigation if the user is holding down any modifier keys - let those bubble up to the browser (Bug #1763). [cjh] Only use a Refresh: header if we need to, and if the URL is under 160 characters, to prevent triggering browser bugs that cause hangs (Bug #1728). [cjh] Prevent IE from clearing compose window fields if the user presses ESC (Bug #1686). ------ v4.0.3 ------ [jan] Ignore quoted text if spellchecking with aspell (Bug #1673, kevin_myer@iu13.org). [cjh] Fix typo in attachment.php that caused a PHP warning (Xavier Montagutelli ). [mms] Correctly store all data from the compose screen when spell checking a message (Bug #1425). ---------- v4.0.3-RC1 ---------- [cjh] Validate outgoing email addresses before sending mail (Bug #1543). [mms] Added automatic detection of some mail server parameters to the test script. [mms] Fix Show/Hide Deleted links on search results screen (Bug #1587). [mms] Correctly process 'Report and Spam' and Blacklist/Whitelist additions from a search results mailbox view. [mms] Correctly sort the contents of the Virtual Folder. [mms] Fix viewing mailboxes in shared hierarchies in subscribe mode in the IMAP_Tree lists (Bug #1550). [jan] Return to current folder after emptying the trash folder (Bug #1563). [mms] Display the attachment expiration date when sending linked attachments. [mms] Fix editing virtual folders from the mailbox screen (Bug #1490). [cjh] Log logouts at the same level Horde does (Bug #1499). [jan] Don't lose session if clicking on link after blacklisting or whitelisting addresses (Bug #1417). [mms] Fix refresh of folder screen when viewing unsubscribed folders. [mms] Added optional 'delimiter' parameter to servers.php to aid login times for certain IMAP servers (selsky@columbia.edu, Bug #1485). [mms] Don't link emails in HTML message compositions (Bug #1472). [mms] Make sure we can create thumbnails/convert images before prompting user. [mms] Ensure multipart/related and multipart/alternative messages can be viewed if not viewable inline or if they contain only one part; multipart/related parts are now viewed with their correct charset (Bug #1433). [mms] Fix display of IMAP hierarchies in the folder view (Bug #1403). [jan] Fix viewing of multipart S/MIME or PGP signed messages (Bug #1393). [jan] Mark sent-mail checkbox when changing the sent-mail folder in the compose screen. [mms] Be smarter about we we consider to be downloadable/forwardable. Make sure text isn't both forwarded and attached in a forward message. [jan] Fix success screen after redirecting a message (Bug #1374). [jan] Fix "undefined index" warning (Bug #1367). ------ v4.0.2 ------ [mms] Don't wrap flowed text in print view (Bug #1318). [jan] Don't append trailer text twice if sending a message resumed from a draft (Bug #1306). [mms] Fix display of attachment names when forwarding messages (Bug #1300). ---------- v4.0.2-RC1 ---------- [mms] Decode the contents of preview messages. [mms] Fix reload of underlying window after entering PGP or S/MIME passphrase (Bug #1145). [cjh] Fix recompose recovery of messages written before a session timeout (Bug #1209). [mms] Don't escape 'From' at the beginning of the line in text messages. [mms] Fix 'smtphost' and 'smtpport' configuration parameters. [jan] Add batchCompose API method. [mms] Fix a (very rare) situation where a base64 encoded message is not decoded correctly in forwards/replies (Bug #1077). [mms] Fix forwarding as a digest from search folders (Bug #1263). [cjh] Fix PHP notice after forwarding a message (Bug #1283). [mms] Show, but don't activate current folder in "Move/Copy To" folder list (Bug #1240). [mms] Make sure we show container folders in the search screen folder list. [mms] Don't show address book save link for PGP and S/MIME keys if no default address book is configured (Bug #1144). [mms] Require virtual folders to have a label (Bug #1160). [jan] Speed up mailbox loading by caching processed email addresses. [jan] Fix new mail notification popups in mailbox views (Bug #876). [jan] Fix custom_login.php example script. [cjh] Don't insert entries for emails that already exist when gathering addresses from outgoing emails (Bug #1054). [jan] Fix wrapping of header in mailbox view with IE (Bug #1110). ------ v4.0.1 ------ [cjh] Fix columns running in to each other with Safari/KHTML in the mailbox view (requires Horde 3.0.1) (Bug #1026). [mms] Allow signed messages sent via multipart/encrypted to be displayed on non S/MIME enabled installations (Bug #1037). [cjh] Fix for login_compose when IMP does not provide authentication (Bug #892). ---- v4.0 ---- [mms] Messages sent in HTML format no longer link email addresses to non-existant javascript calls. [jan] Use short, indented folder names in search form. [jan] Return to correct mailbox page when clicking "Back to" link in threaded view. [jan] Fix sorting of folder names in summary block (Bug #987). [mms] Determine the default IMAP delimiter according to RFC 3501. [mms] Added 'smtpport' parameter to server configuration (bergonz@labs.it). [jan] Correctly wrap quoted headers in message replies (Bug #962). [jan] Show buttons on "message sent" screen as menu again. -------- v4.0-RC3 -------- [jan] Fix link generation in HTML composer (Bug #941). [cjh] Always honor the login_compose action (Bug #892). [cjh] Save messages with a "message/rfc822" mime type (Bug #922). [mms] Don't require to configure an e-mail address if using a spam hook. [mms] Fix expansion of e-mail addresses (Bug #889). [mms] Fix display of user-defined headers if the message contains more than one of those headers (Bug #912). [jan] Set one global date format in Horde's preferences (Bug #788). [jan] Fix some javascript errors with IE 5.0. -------- v4.0-RC2 -------- [mms] Allow more than one recipient for encrypted messages; store encrypted messages locally using the local user's encryption (Bug #865). [mms] Fix various S/MIME issues and update the code to more closely match the look and feel of the PGP code. [jan] Fix automatic spell checking on send, cutting off parts of the message (Bugs #227, #259). -------- v4.0-RC1 -------- [jan] Fix HTML message editor in IE (Bugs #692, #793). [cjh] Search only the preferred address books for senders allowed to send HTML messages with images. [jan] Disable Kolab servers if Kolab has been disabled globally. [mms] Allow all subscribed folders to be viewed in the IMP menu tree interface. [mms] Only scan for emoticons in the body of text MIME parts. [mms] Fix message saving and attachment ZIP file generation. [mms] Allow the spam reporting system to bounce a message to an email address. [mms] Move spam handling to a separate class. --------- v4.0-BETA --------- [mms] Added virtual folder support. [mms] Allow all messages in an entire folder to be marked as seen or unseen. [mms] Allow attaching files from local VFS filesystems. [mms] Allow quick and easy access to unsubscribed folders on the search screen. [jan] Add quota driver for Mercury/32 servers (Frank Lupo ). [mms] Add support for Message Disposition Notifications (RFC 2298). [jan] Dynamically add new attachment fields if all are used. [jan] Add special black-on-white styles for message printing. [mms] Added preference that allows user to strip attachment information for messages saved in the sent-mail folder after composing a message. [mms] Improve message threading display in the mailbox screen. [jan] Add Persian (Western) translation (Vahid Ghafarpour ). [cjh] Allow quoted parts of messages to get hidden. [mms] Add messages thread view. [jan] Allow navigation through mailbox pages with left and right keys. [jan] Allow purging of multiple folders in the folders view (Todd Merritt ). [jan] Allow turning off of the links to alternative parts in multipart/alternative messages. [cjh] Hide unnecessary UI elements when there's only one address book (Francois Marier ). [cjh] Trap adding the same address multiple times in the Contacts window (Francois Marier ). [cjh] Make the header checkbox on the folders page toggle selection of all folders (Francois Marier ). [cjh] Add the basis for sending attachments as links to hosted files (Andrew Coleman ). [cjh] INBOX is now localized for display. [jan] Show warning when compose or passphrase popups are blocked by the browser. [mms] Allow which headers to view by default to be defined for each identity (Vijay Mahrra ). [jan] Add mailbox management for supported servers like Cyrus. [cjh] Add option for reporting email as not spam (Liam Hoekenga ). [jon] Added a new preference that will cause a message to be spell checked before it is sent. [max] Add 'mail_domain' pref which overrides the server's maildomain setting. [mms] Added hooks for dynamic mailbox redirection and custom mailbox/folder icons on the folder page (Stuart Binge ). [mms] Use the MIME_Viewer system to generate 'previews' for composition attachments. ---------- v4.0-ALPHA ---------- [mms] Added addressbook lookup and expand names feature to the redirect screen. [jon] Added the ability to create new tasks from received email messages. [mms] Rewrote fetchmail to use subclasses/drivers to do all the work - this allows support for accessing more mail server types in the future. [mms] When renaming folders, all subfolders below the folder being rennamed are now renamed also. [mms] Handle creation/display of RFC 2646 format text messages (flowed text). [mms] Rewrite of IMP_Tree code - now uses cache results for all folder and mailbox updates instead of requerying the server for the folder tree. [jan] Add Indonesian language (Slamin ). [jan] Add check if the user has selected but not yet uploaded attachments. [mms] Configuration option to disable Mail logging. [jan] Add preference to automatically save all recipients in the default address book. [mms] Use NLS:: hostname->country lookup to show country-of-origin for e-mail messages on the message screen. [mms] Support for auto-BCC addresses during compose for each identity (Nicholas Sushkin ). [mms] Support multiple file uploads on an individual compose page. [mms] HTML composed messages with image links now have the images downloaded and sent inline with the message in a multipart/related part. [jan] Show graphical emoticons. [mms] For images that cannot be viewed directly by the browser, IMP can automatically convert to a format that can be viewed. [cjh] Log reply/forward/redirect actions and display these logs when viewing the messages. [cjh] IMP now supports a hordeauth setting in servers.php, a la Gollem and other applications (Vijay Mahrra ). [mms] Add on-demand generation of thumbnails for image attachments. [mms] Added 'Download All Attachments' link on message page to allow all attachments to be downloaded in a single zip file. [mms] Improved HTML to text conversion when replying/forwarding to a HTML message. [mms] Add 'tie to' ability to allow a specific identity to be explicitly tied to a message sent from a certain address. [mms] Maximum subject/from lengths, From: field link options, and mailbox time display formats are now user configurable preferences (Robert Ribnitz ). [jan] Add aliases to the user's identities to find messages sent to one of his identities but not directly to one of his email addresses. [mms] Preference to allow spam messages to be automatically deleted after reporting (Rudi Heitbaum ). [mms] Moved IMP authentication code to Auth_imp::. [mms] Added configuration options allowing admin to limit (per message) both the total size of attachments and the number of attachments. [mms] Added preference allowing user to choose where to start browsing in a mailbox when first opening the mailbox. [mms] The guts of the IMP filtering code has been removed and ported to 'ingo'. Thus, filtering is now handled via Horde API calls instead of internally. [mms] The IMP search page now handles NOT searches, as well as basic AND/OR searches via the IMAP_Search:: library. [cjh] Add shift-click selection/deselection of ranges of messages (Andrew Johnson ). [mms] Allow caching of folder list generation. [mms] Added IMP_IMAP:: class to handle IMAP/POP3 connections. [jan] Allow spam reporting from the mailbox view (Ahmed ). [jan] Add preference to store drafts marked unseen (Ahmed ). [cjh] The last_login preference is now entirely handled by Horde. [jan] Let the users select the message's charset while they are composing a message. [cjh] When a user's session times out while they are composing a message, give them a special login screen which displays the message and allows them to log in again to resume their message with all data intact. [cjh] Remove javascript refresh popups in the compose window. [mms] Allow display of uuencoded attachments. [cjh] Add flag-setting options on the message view (Dan Wilson ). [mms] Allow blocking of images in HTML messages by default (Amith Varghese ). [mms] Support for showing mail previews in javascript 'tooltips'. [mms] Added message/partial MIME_Viewer. [cjh] Add whitelist links to the mailbox view (Amith Varghese ). [jan] Make fetchmail on login a maintenance task (Nuno Loureiro ). [mms] Add VFS garbage collection for temporary attachment data. [mms] Add a default encryption preference for sending messages. [mms] Add 'Nuke Message' action to filters. [mms] Add quick search links to search the current mailbox. [mms] Scan messages for X-Priority and display results in the mailbox view (Florent AIDE ). [mms] Allow quicker access to large mailboxes on slower IMAP systems. [mms] Added multipart/appledouble MIME_Viewer. [jan] Add preference that lets users change the access control lists of their imap folders (Chris Hastie ). [mms] Split return receipt requests into 'delivered' and 'read' options (Ryan Malloy ). [mms] Implement fetchmail on login and fetchmail coloring to distinguish between remote servers (Nuno Loureiro ). [mms] User configurable attribution text for replies (Chris Hastie ). [mms] Added support for message/disposition-notification messages. [jan] Folder names in any encoding can now be created/read through PHP's multibyte support. [mms] The "Reply" link for list messages will always send a message to the original poster, never the list (Chris Hastie ). [mms] Don't show "Reply All" link if user is the only recipient. [mms] Added a multipart/report MIME_Viewer to make undelivered mail reports easier to read. [jan] Add Turkish translation (Genco Yilmaz ). [mms] Convert IMP_Folder:: into an OO-interface. [mms] Allow attachment descriptions to be altered (Cliff Green ). [mms] Set the local character set for all text/* composed messages. [mms] The full MIME_Contents:: object is now cached when viewing a message rather than the individual MIME_Parts. [jan] Add UTF-8 support. Any content with any charset can now be displayed with any translation. [cjh] The mail/compose method is now a full call, not a link. This means, aside from a bit less code duplication, that we now honor the compose_popup preference in $registry calls. [mms] Added hostname to information saved about user's last login. [mms] Added support for stripping attachments from messages. [mms] Better determination of MIME content-type for attachments when browser does not send good information (using MIME_Magic::). [mms] PGP messages are now rendered via the MIME embedded in the message. [mms] Move composition related functions to IMP_Compose::. [mms] Now, when reaching the end of the mailbox in the message screen, directly load the mailbox script instead of redirecting via a URL. [mms] Allow user to change disposition type of all attachments. [jan] Add a preference to display message previews in the mailbox view (Stephen Sherlock ). [cjh] Add a preference for whether or not to display the entire addressbook when first loading the contacts screen (Etienne Goyer ). [ejr] Add command line driver for quotas. [mms] Allow multiple messages to be forwarded as rfc822 parts from the mailbox screen. [jan] Add logfile driver for quotas (Tim Gorter ). [cjh] Add searching by Bcc header. [mir] Add hook option to filter mail fetched by the Accounts (lib/Fetchmail) feature. Example added in horde/config/hooks.php.dist [cjh] Migrate to the new hooks API, removing the last need for conf.php.dist (instead of conf.xml). [mac] Add S/MIME support. [avsm] Folders action bar only shows up at bottom if more than ten folders are displayed on the screen. [cjh] All hook functions that set preferences are now handled by the generic preferences hook system; see horde/config/hooks.php.dist. [mac] Don't modify the actual field name on auto-expand. [mms] Created an IMP_Mailbox:: class to deal with building mailbox information and, eventually, all message indexing. [mac] Quota display now handled by the IMP_Quota API. [mms] Can now filter by any header. [cjh] Clean up the filter_on_login code, so that it is _always_ run on login. [mac] Added an IMP specific ZIP MIME_Viewer. [cjh] Use new &Identity::singleton() method and application-specific driver implementations to load IMP's Identity_imp:: class. [mms] Moved IMP session creation functions to IMP_Session::. [mms] Added an IMP_Search:: class to handle mailbox searching. [mms] Message sending now handled by IMP::sendMessage(). [mms] Move text filtering to IMP:: class. [mms] Added an IMP_Filter:: class to handle all filtering activity. [mms] Spam reporting sends a message in message/rfc822 format. [mms] Allow the users PGP public key to be uploaded to a keyserver. [mms] The compose script makes sure to clean up all attachment files that are generated during a message composition. even if cancelled. [mms] Attachment disposition can now be set to either inline or attachment. [mms] Improved handling of attachment data. [mms] Added the multipart/related viewer. [mms] Moved the message index tracking mechanism in the message.php script to IMP_Message::. [cjh] Add an option (preference controlled) to use IE's designmode and send multipart/alternative messages. [jan] Use a seperate textarea field for blacklisted email addresses in the filters preference. [mms] Add an option to allow for header summaries to be inserted when replying to a message (Quinn Wilson ). [mms] Created an IMP_Headers:: class to deal with all header manipulation required in IMP. [mms] Added a generic multipart/* MIME_Viewer. [mms] Added a multipart/alternative MIME_Viewer. [mms] Moved all common functions dealing with displaying the content of mail messages to lib/Contents.php. [cjh] Add an option to see a confirmation that messages were succesfully sent. [cjh] Add option to delete fetched messages when using the fetchmail code. [mms] Added application/ms-tnef MIME_Viewer. [mms] Search for PGP public keys on a public keyserver for signed messages if no key found locally. [mms] Can now send messages with "X-Priority" set. [mms] Add option to search for PGP data in 'text/plain' messages. [mms] Add "Show All/Limited Headers" to message view. [jan] Add fetchmail feature (Nuno Loureiro ). [mms] Added MIME_Viewer to allow attached images to be viewed inline. [mms] Add link for "Reply to List" for mailing lists. [mms] Now recognize RFC 2369 headers (messages from mailing lists) and output the relevant information. [mms] Add message/rfc822 MIME_Viewer. [jon] Set the username and password parameters when SMTP authentication is requested. [mms] Handle the new behavior of MIME_Structure::parse(). [mms] Add OpenPGP functionality. [ejr] Add text/enriched MIME_Viewer. [cjh] If the server list is being used, users shouldn't be changing the folder prefix. [max] Add Brown IMP theme (Marco Obaid ) [cjh] Make it possible to call IMP::authenticate() with arguments coming from somewhere other than GET or POST vars. [jan] Re-enable to select no sent mail folder for an identity. [jan] Add method IMP::stripPreambleString(). [jan] Fix problems with sent mail folder maintenance not being executed. [cjh] Fix problems with the mailbox displayed after login if there is a folders prefix set. [cjh] Use the new PrefsUI class. [cjh] Revert to not storing the folder prefix as part of user preferences. [cjh] Fix problems with double Last Login: message and maintenance. [jon] Adapt to the new Horde::img() syntax. [cjh] Use the new Notification system. [jan] Remove the standard value for the language preference. The language to fall back to should be set Horde wide in lang.php instead. [jon] Honor the "save sent mail" checkbox on the compose screen. [jon] Print the language type in the entity. [jon] Add entity support. [jon] Add support to the mailbox and message views. [mms] Move the quote prefix character from conf.php to the preferences. [mms] Move the maintenace framework to Horde. ------ v3.2.8 ------ [jan] Close XSS when setting the parent frame's page title by javascript (cjh). [mms] Fix display of MIME parts less than 1K when local number format uses ',' as the decimal separator. [jan] Don't use trash folder on POP3 servers under certain circumstances (Bug #1373). [jan] Fix "Save as" link to save message sources (Bug #1233). ------ v3.2.7 ------ [mms] Determine the default IMAP delimiter according to RFC 3501. [mms] Fix the folders screen hanging if there was only one folder (Bug #504). [jan] Correctly cancel messages composition in all cases (Rich Bartell tags in the HTML MIME viewer. [jan] SECURITY: Remove scripts from obfuscated "on..." attributes in the HTML MIME viewer. ------ v3.2.5 ------ [jan] SECURITY: Close an XSS hole in the HTML viewer, a variation to the one reported in http://www.greymagic.com/security/advisories/gm005-mc/. [cjh] Fix escaped double quotes on some broken mail servers (Bug #292). [jan] Comment complete

You're viewing an XML content feed which is intended to be viewed within a feed aggregator.

Subscribe to

Subscribe now in your favorite RSS aggregator:

Preview

 ./themes/bluewhite/0000755000175000017500000000000011702026734014344 5ustar mathieumathieu./themes/bluewhite/screen.css0000644000175000017500000000120511702026734016333 0ustar mathieumathieu/** * $Horde: imp/themes/bluewhite/screen.css,v 1.1.10.3 2007/12/20 14:00:43 jan Exp $ */ .folders { font-size: 90%; } .folders select { font-size: 112%; } form#search div.smallheader { font-family: Verdana,Helvetica,sans-serif; } .answered { background: #aca; } .important, .flagged { background: #fcc; } tr.important:hover, tr.important-over, tr.flagged:hover, tr.flagged-over { background: #faa; } .deleted { background: #999; } .deleted:hover, .deleted-over { background: #777; } .deleted * { text-decoration: line-through; } div.composebody { background: #f3f3f9; border: 1px solid #669; } ./themes/mozilla/0000755000175000017500000000000011702026734014023 5ustar mathieumathieu./themes/mozilla/screen.css0000644000175000017500000000103211702026734016010 0ustar mathieumathieu/** * $Horde: imp/themes/mozilla/screen.css,v 1.1.2.1 2007/12/20 14:00:47 jan Exp $ */ /* Navbar action styling. */ .msgactions li ul a:hover, .msgactions li ul a:active { color: #000; background-color: #e8f1ff; } .mboxcontrol { color: #000; background: #aebaca; } /* Message body styling. */ #messageBody { padding: 2px; } /* Autocomplete styles. */ .autocomplete ul li { text-decoration: none; } .autocomplete ul .selected { color: #000; background-color: #e8f1ff; text-decoration: underline; } ./themes/gennevilliers/0000755000175000017500000000000011702026734015222 5ustar mathieumathieu./themes/gennevilliers/screen.css0000644000175000017500000000163511702026734017220 0ustar mathieumathieu/** * This theme as been written by AIDE Florent and * Mélanie Gareau * * The theme idea was to incorporate smoothly in the Intranet. * This theme is published under the same license as the horde package. * * The name comes from the city of Gennevilliers in France * * $Horde: imp/themes/gennevilliers/screen.css,v 1.1.10.1 2007/12/20 14:00:44 jan Exp $ */ .unseen { background-color: #eef; } .deleted { background-color: #999; } .important, .flagged { background-color: #fcc; } .answered { background-color: #d6ffff; } .quotawarn { font-family: Verdana,Helvetica,sans-serif; font-weight: bold; font-size: 130%; color: #ea5d1c; background-color: #f4ee7a; } .quotaalert { font-family: Verdana,Helvetica,sans-serif; font-weight: bold; font-size: 140%; color: #f4ee7a; background-color: #ea5d1c; } ./themes/ie7.css0000644000175000017500000000036211702026734013553 0ustar mathieumathieu/** * $Horde: imp/themes/ie7.css,v 1.1.2.4 2008/06/11 18:11:54 slusarz Exp $ * * CSS corrections for IE 7. */ /* Fixes li & ol list numbering issues in HTML messages. */ #html-message ul li, #html-message ol li { margin-left: 2em; } ./themes/green/0000755000175000017500000000000011702026734013454 5ustar mathieumathieu./themes/green/screen.css0000644000175000017500000000042511702026734015446 0ustar mathieumathieu/** * $Horde: imp/themes/green/screen.css,v 1.1.10.1 2007/12/20 14:00:46 jan Exp $ */ .deleted { background-color: #B82828; } .important, .flagged { background-color: #F78E8E; } .unseen { background-color: #fae5c0; } .answered { background-color: #6FD992; } ./themes/ideas/0000755000175000017500000000000011702026734013441 5ustar mathieumathieu./themes/ideas/screen.css0000644000175000017500000000024711702026734015435 0ustar mathieumathieu/** * $Horde: imp/themes/ideas/screen.css,v 1.1.2.1 2007/12/20 14:00:47 jan Exp $ */ form#search div.smallheader { font-family: Verdana,Helvetica,sans-serif; } ./view.php0000644000175000017500000001607311702026734012561 0ustar mathieumathieu 'compose_attach_preview' * -> 'download_all' * -> 'download_attach' * -> 'download_render' * -> 'save_message' * -> 'view_attach' * -> 'view_source' * 'ctype' -- The content-type to use instead of the content-type * found in the original MIME_Part object * 'id' -- The MIME part to display * 'index' -- The index of the message; only used for IMP_Contents * objects * 'muid' -- The index of the message; only used for IMP_Contents * objects; see IMP::parseIndicesList() * 'zip' -- Download in .zip format? * * $Horde: imp/view.php,v 2.199.4.14 2009/01/06 15:24:02 jan Exp $ * * Copyright 1999-2009 The Horde Project (http://www.horde.org/) * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. * * @author Chuck Hagenbuch * @author Michael Slusarz */ /* We can't register this session as 'readonly' if we are doing a * 'view_attach' since some MIME_Drivers may need to create temporary cache * files to correctly generate links. */ if (!isset($_GET['actionID']) || $_GET['actionID'] != 'view_attach') { $session_control = 'readonly'; } /* Don't compress if we are already sending in compressed format. */ if ((isset($_GET['actionID']) && $_GET['actionID'] == 'download_all') || !empty($_GET['zip'])) { $no_compress = true; } @define('IMP_BASE', dirname(__FILE__)); require_once IMP_BASE . '/lib/base.php'; require_once IMP_BASE . '/lib/MIME/Contents.php'; $index = Util::getFormData('index'); $muid = Util::getFormData('muid'); $id = Util::getFormData('id'); $actionID = Util::getFormData('actionID'); /* 'compose_attach_preview' doesn't use IMP_Contents since there is no * IMAP message data - rather, we must use the IMP_Compose object to * get the necessary MIME_Part. */ if ($actionID == 'compose_attach_preview') { /* Initialize the IMP_Compose:: object. */ require_once IMP_BASE . '/lib/Compose.php'; $imp_compose = &IMP_Compose::singleton(Util::getFormData('messageCache')); $mime = $imp_compose->buildAttachment($id); /* Create a dummy MIME_Contents() object so we can use the view * code below. Then use the 'view_attach' handler to output to * the user. */ $contents = new IMP_Contents(new MIME_Message()); $actionID = 'view_attach'; } else { /* Prevent blind fetching of attachments without knowing the MIME ID. * Index *can* be empty (think embedded MIME parts - there is no * corresponding message index) - but see below; id can be part 0 (whole * message) so just make sure that it's specified. */ if (!in_array($actionID, array('save_message', 'download_all')) && ($id == null) && ($muid == null)) { exit; } /* Get cached item, if available. */ if (!($contents = &IMP_Contents::getCache())) { /* If we make it to here without an index, then something is broken * since there is nothing in the cache and we have no way to create * a viewable object. */ if (empty($index) && empty($muid)) { exit; } if ($muid) { $indices = IMP::parseIndicesList($muid); if (!$indices || count($indices) != 1 || count($indices[0]) != 1) { exit; } @list($index, $folder) = explode(IMP_MSG_SEP, $indices[0][0]); if (!$folder || !$index) { exit; } $imp_imap = &IMP_IMAP::singleton(); $imp_imap->changeMbox($folder, IMP_IMAP_AUTO); $contents = &IMP_Contents::singleton($index . IMP_IDX_SEP . $folder); } else { $contents = &IMP_Contents::singleton($index . IMP_IDX_SEP . $imp_mbox['thismailbox']); } } if (is_a($contents, 'PEAR_Error')) { Horde::fatal($contents, __FILE__, __LINE__); } if (!in_array($actionID, array('download_attach', 'download_all', 'save_message', 'view_source'))) { $mime = $contents->getDecodedMIMEPart($id); if (($ctype = Util::getFormData('ctype'))) { $mime->setType($ctype); } } } /* Run through action handlers */ switch ($actionID) { case 'download_all': $tosave = array(); $headers = &$contents->getHeaderOb(); $zipfile = trim(preg_replace('/[^\w-+_\. ]/', '_', $headers->getValue('subject')), ' _'); if (empty($zipfile)) { $zipfile = _("attachments.zip"); } else { $zipfile .= '.zip'; } foreach ($contents->getDownloadAllList() as $val) { $mime = $contents->getDecodedMIMEPart($val); $tosave[] = array('data' => $mime->getContents(), 'name' => $mime->getName(true, true)); } require_once 'Horde/Compress.php'; $horde_compress = &Horde_Compress::singleton('zip'); $body = $horde_compress->compress($tosave); $browser->downloadHeaders($zipfile, 'application/zip', false, strlen($body)); echo $body; exit; case 'download_attach': case 'download_render': switch ($actionID) { case 'download_attach': /* Make sure we get the entire contents of the part. */ $mime = $contents->getDecodedMIMEPart($id, true); $body = $mime->getContents(); $type = $mime->getType(true); break; case 'download_render': $body = $contents->renderMIMEPart($mime); $type = $contents->getMIMEViewerType($mime); break; } $name = $mime->getName(true, true); /* Compress output? */ if (($actionID == 'download_attach') && Util::getFormData('zip')) { require_once 'Horde/Compress.php'; $horde_compress = &Horde_Compress::singleton('zip'); $body = $horde_compress->compress(array(array('data' => $body, 'name' => $name))); $name .= '.zip'; $type = 'application/zip'; } $browser->downloadHeaders($name, $type, false, strlen($body)); echo $body; exit; case 'view_attach': $body = $contents->renderMIMEPart($mime); $type = $contents->getMIMEViewerType($mime); $browser->downloadHeaders($mime->getName(true, true), $type, true, strlen($body)); echo $body; exit; case 'view_source': $msg = $contents->fullMessageText(); $browser->downloadHeaders('Message Source', 'text/plain', true, strlen($msg)); echo $msg; exit; case 'save_message': $imp_headers = &$contents->getHeaderOb(); $name = 'saved_message'; if (($subject = $imp_headers->getValue('subject'))) { $name = trim(preg_replace('/[^\w-+_\. ]/', '_', $subject), ' _'); } if (!($from = $imp_headers->getFromAddress())) { $from = '<>'; } $date = strftime('%a %b %d %H:%M:%S %Y', strtotime($imp_headers->getValue('date'))); $body = 'From ' . $from . ' ' . $date . "\n" . $contents->fullMessageText(); $browser->downloadHeaders($name . '.eml', 'message/rfc822', false, strlen($body)); echo $body; exit; } ./redirect.php0000644000175000017500000002134411702026734013405 0ustar mathieumathieu */ function _framesetUrl($url) { if (!$GLOBALS['noframeset'] && Util::getFormData('load_frameset')) { $full_url = Horde::applicationUrl($GLOBALS['registry']->get('webroot', 'horde') . '/index.php', true); $url = Util::addParameter($full_url, 'url', _addAnchor($url, 'param'), false); } return $url; } function _newSessionUrl($actionID, $isLogin, $view) { $url = ''; $addActionID = true; $apps = $GLOBALS['registry']->listApps(null, true); $default_view = ($GLOBALS['browser']->isMobile() && isset($apps['mimp'])) ? 'mimp' : 'imp'; if ($GLOBALS['url_in']) { $url = Horde::url(Util::removeParameter($GLOBALS['url_in'], session_name()), true); } elseif ($view != $default_view || $view != 'imp') { $GLOBALS['noframeset'] = true; return Horde::url($GLOBALS['registry']->get('webroot', $view) . '/', true); } elseif (Auth::getProvider() == 'imp') { $url = Horde::applicationUrl($GLOBALS['registry']->get('webroot', 'horde') . '/', true); /* Force the initial page to IMP if we're logging in to compose a * message. */ if ($actionID == 'login_compose') { $url = Util::addParameter($url, 'url', _addAnchor(IMP_Session::getInitialUrl('login_compose', false), 'param')); $addActionID = false; } } else { $url = IMP_Session::getInitialUrl($actionID, false); if ($isLogin) { /* Don't show popup window in initial page. */ $url = Util::addParameter($url, 'no_newmail_popup', 1, false); } } if ($addActionID && $actionID) { /* Preserve the actionID. */ $url = Util::addParameter($url, 'actionID', $actionID, false); } return $url; } function _redirect($url) { IMP::redirect(_addAnchor($url, 'url')); } /* Add anchor to outgoing URL. */ function _addAnchor($url, $type) { switch ($type) { case 'param': if (!empty($GLOBALS['url_anchor'])) { $url .= '#' . $GLOBALS['url_anchor']; } break; case 'url': $anchor = Util::getFormData('anchor_string'); if (!empty($anchor)) { $url .= '#' . $anchor; } else { return _addAnchor($url, 'param'); } break; } return $url; } @define('AUTH_HANDLER', true); $authentication = 'none'; require_once dirname(__FILE__) . '/lib/base.php'; require_once IMP_BASE . '/lib/Session.php'; require_once 'Horde/Maintenance.php'; $actionID = (Util::getFormData('action') == 'compose') ? 'login_compose' : Util::getFormData('actionID'); $autologin = Util::getFormData('autologin'); $imapuser = Util::getPost('imapuser'); $pass = Util::getPost('pass'); if (!empty($autologin)) { if (empty($GLOBALS['conf']['server']['change_server'])) { $imapuser = Auth::getBareAuth(); $pass = Auth::getCredential('password'); } elseif (($credentials = @unserialize($prefs->getValue('credentials'))) && isset($credentials['imp'])) { $imapuser = $credentials['imp']['username']; $pass = $credentials['imp']['password']; } } $isLogin = IMP::loginTasksFlag(); $noframeset = false; /* Get URL/Anchor strings now. */ $url_anchor = null; $url_in = $url_form = Util::getFormData('url'); if (($pos = strrpos($url_in, '#')) !== false) { $url_anchor = substr($url_in, $pos + 1); $url_in = substr($url_in, 0, $pos); } /* If we are returning from Maintenance processing. */ if (Util::getFormData(MAINTENANCE_DONE_PARAM)) { /* Finish up any login tasks we haven't completed yet. */ IMP_Session::loginTasks(); _redirect(_framesetUrl(_newSessionUrl($actionID, $isLogin, isset($_SESSION['imp']['default_view']) ? $_SESSION['imp']['default_view'] : 'imp'))); } /* If we already have a session: */ if (isset($_SESSION['imp']) && is_array($_SESSION['imp'])) { /* Make sure that if a username was specified, it is the current * username. */ if (($imapuser !== null && ($imapuser != $_SESSION['imp']['user'])) || ($pass !== null && ($pass != Secret::read(Secret::getKey('imp'), $_SESSION['imp']['pass'])))) { /* Disable the old session. */ unset($_SESSION['imp']); _redirect(Auth::addLogoutParameters(IMP::logoutUrl(), AUTH_REASON_FAILED)); } /* Finish up any login tasks we haven't completed yet. */ IMP_Session::loginTasks(); $url = $url_in; if (empty($url_in)) { $url = IMP_Session::getInitialUrl($actionID, false); } elseif (!empty($actionID)) { $url = Util::addParameter($url_in, 'actionID', $actionID, false); } /* Don't show popup window in initial page. */ if ($isLogin) { $url = Util::addParameter($url, 'no_newmail_popup', 1, false); } _redirect(_framesetUrl($url)); } /* Create a new session if we're given the proper parameters. */ if (($imapuser !== null) && ($pass !== null)) { if (Auth::getProvider() == 'imp') { /* Destroy any existing session on login and make sure to use a new * session ID, to avoid session fixation issues. */ Horde::getCleanSession(); } /* Read the required server parameters from the servers.php file. */ if (is_callable(array('Horde', 'loadConfiguration'))) { $result = Horde::loadConfiguration('servers.php', array('servers')); if (!is_a($result, 'PEAR_Error')) { extract($result); } } else { require IMP_BASE . '/config/servers.php'; } $server_key = Util::getFormData('server_key', IMP::getAutoLoginServer(true)); if (!empty($servers[$server_key])) { $sessArray = $servers[$server_key]; } /* If we're not using hordeauth get parameters altered from the defaults * from the form data. */ if (empty($autologin)) { $credentials = $prefs->getValue('credentials'); foreach (array('server', 'port', 'protocol', 'smtphost', 'smtpport') as $val) { $data = Util::getFormData($val); if (!empty($data)) { $sessArray[$val] = $data; } } } else { if (!empty($GLOBALS['conf']['server']['change_server']) && isset($credentials['imp'])) { $sessArray = array_merge($sessArray, $credentials['imp']); } elseif (!empty($sessArray['hordeauth'])) { if (strcasecmp($sessArray['hordeauth'], 'full') == 0) { $imapuser = Auth::getAuth(); } } else { $entry = sprintf('Invalid server key "%s" from client [%s]', $server_key, $_SERVER['REMOTE_ADDR']); Horde::logMessage($entry, __FILE__, __LINE__, PEAR_LOG_INFO); } } if (!empty($sessArray) && IMP_Session::createSession($imapuser, $pass, $sessArray['server'], $sessArray)) { $ie_version = Util::getFormData('ie_version'); if ($ie_version) { $browser->setIEVersion($ie_version); } if (($horde_language = Util::getFormData('new_lang'))) { $_SESSION['horde_language'] = $horde_language; } /* If this is a recompose attempt, redirect to the compose page now. */ if (IMP::recomposeLogin()) { // Store the user's message data in their session, so that // we can redirect to compose.php. This insures that // everything gets loaded with a proper session present, // which can affect things like the user's preferences. $_SESSION['recompose_formData'] = Util::getPost('recompose'); header('Location: ' . Util::addParameter(Horde::applicationUrl('compose.php', true), 'actionID', 'recompose', false)); exit; } if (!empty($conf['hooks']['postlogin'])) { Horde::callHook('_imp_hook_postlogin', array($actionID, $isLogin), 'imp'); } if (empty($conf['user']['select_view'])) { $view = empty($conf['user']['force_view']) ? 'imp' : $conf['user']['force_view']; } else { $view = Util::getFormData('select_view', 'imp'); } setcookie('default_imp_view', $view, time() + 30 * 86400, $conf['cookie']['path'], $conf['cookie']['domain']); $_SESSION['imp']['default_view'] = $view; IMP_Session::loginTasks(); _redirect(_framesetUrl(_newSessionUrl($actionID, $isLogin, $view))); } _redirect(Auth::addLogoutParameters(IMP::logoutUrl())); } /* No session, and no login attempt. Just go to the login page. */ require IMP_BASE . '/login.php'; ./js/0000755000175000017500000000000011702026733011502 5ustar mathieumathieu./js/folders.js0000644000175000017500000000517411702026733013505 0ustar mathieumathieufunction getChecked(){return getFolders().findAll(function(a){return a.checked})}function getFolders(){return $("fmanager").getInputs(null,"folder_list[]")}function selectedFoldersDisplay(){var a=0,b="";getFolders().each(function(c){if(c.checked){b+=displayNames[a]+"\n"}++a});if(b.endsWith("\n")){b=b.substring(0,b.length-1)}return b}function chooseAction(d){var f=(d.element().id=="action_choose0")?0:1;var b=$("action_choose"+f);var c=$F(b);b.selectedIndex=0;if(c=="create_folder"){createMailbox()}else{if(c=="rebuild_tree"){submitAction(c)}else{if(!getChecked().size()){if(c!=""){alert(IMP.text.folders_select)}}else{if(c=="rename_folder"){renameMailbox()}else{if(c=="subscribe_folder"||c=="unsubscribe_folder"||c=="poll_folder"||c=="expunge_folder"||c=="nopoll_folder"||c=="mark_folder_seen"||c=="mark_folder_unseen"||c=="delete_folder_confirm"||c=="folders_empty_mailbox_confirm"||c=="mbox_size"){submitAction(c)}else{if(c=="download_folder"||c=="download_folder_zip"){downloadMailbox(c)}else{if(c=="import_mbox"){if(getChecked().length>1){alert(IMP.text.folders_oneselect)}else{submitAction(c)}}}}}}}}}function submitAction(b){$("actionID").setValue(b);$("fmanager").submit()}function createMailbox(){var a=getChecked().size(),b;if(a>1){window.alert(IMP.text.folders_oneselect);return}if(a==1){b=window.prompt(IMP.text.folders_subfolder1+" "+selectedFoldersDisplay()+".\n"+IMP.text.folders_subfolder2+"\n","")}else{b=window.prompt(IMP.text.folders_toplevel,"")}if(b){$("new_mailbox").setValue(b);submitAction("create_folder")}}function downloadMailbox(a){if(window.confirm(IMP.text.folders_download1+"\n"+selectedFoldersDisplay()+"\n"+IMP.text.folders_download2)){submitAction(a)}}function renameMailbox(){var b="",c="",a=0;getFolders().each(function(e){if(e.checked){if(IMP.conf.fixed_folders.indexOf(displayNames[a])!=-1){window.alert(IMP.text.folders_no_rename+" "+displayNames[a])}else{var d=window.prompt(IMP.text.folders_rename1+" "+displayNames[a]+"\n"+IMP.text.folders_rename2,fullNames[a]?fullNames[a]:displayNames[a]);if(d){b+=d+"\n";c+=e.value+"\n"}}}++a});if(!b){return}if(b.endsWith("\n")){b=b.substring(0,b.length-1)}if(c.endsWith("\n")){c=c.substring(0,c.length-1)}$("new_names").setValue(b);$("old_names").setValue(c);submitAction("rename_folder");return true}function toggleSelection(){var c=getChecked().size(),a=getFolders();var b=(c!=a.size());a.each(function(d){d.checked=b})}document.observe("dom:loaded",function(){if($("checkAll0")){$("checkAll0").observe("click",toggleSelection);$("action_choose0").observe("change",chooseAction)}if($("checkAll1")){$("checkAll1").observe("click",toggleSelection);$("action_choose1").observe("change",chooseAction)}});./js/stripe.js0000644000175000017500000000053211702026733013346 0ustar mathieumathieufunction stripeAllElements(){$$(".striped").each(stripeElement)}function stripeElement(a){var b=["rowEven","rowOdd"],c=[];if(a.tagName=="TABLE"){a.childElements().each(stripeElement);return}else{c=a.childElements()}c.each(function(d){d.removeClassName(b[1]);d.addClassName(b[0]);b.reverse(true)})}document.observe("dom:loaded",stripeAllElements);./js/login.js0000644000175000017500000000244611702026733013156 0ustar mathieumathieufunction setFocus(){if(!$F("imapuser")){$("imapuser").focus()}else{$("pass").focus()}}function imp_reload(){window.top.document.location=autologin_url+$F("server_key")}function submit_login(){if(show_list&&$F("server").startsWith("_")){return false}if(!$F("imapuser")){alert(IMP.text.login_username);$("imapuser").focus();return false}else{if(!$F("pass")){alert(IMP.text.login_password);$("pass").focus();return false}else{$("loginButton").disable();if(ie_clientcaps){try{$("ie_version").setValue(objCCaps.getComponentVersion("{89820200-ECBD-11CF-8B85-00AA005B4383}","componentid"))}catch(a){}}$("imp_login").submit();return true}}}function selectLang(){if(!$F("imapuser")&&!$F("pass")){var a={new_lang:$F("new_lang")};if(lang_url!==null){a.url=lang_url}self.location="login.php?"+Object.toQueryString(a)}}function updatePort(){var a=$F("protocol");if(protocols[a]){$("port").setValue(protocols[a])}}function serverChangeHandler(){if(change_smtphost){$("smtphost").setValue($F("server"))}}function removeHash(a){return(Object.isString(a)&&a.startsWith("#"))?a.substring(1):a}document.observe("dom:loaded",function(){if(imp_auth){if(parent.frames.horde_main){if(nomenu){parent.location=self.location}else{document.imp_login.target="_parent"}}}if(location.hash){$("anchor_string").setValue(removeHash(location.hash))}});./js/ieEscGuard.js0000644000175000017500000000030311702026733014047 0ustar mathieumathieuif(Prototype.Browser.IE){document.observe("dom:loaded",function(){[$$("TEXTAREA"),$$('INPUT[type="text"]')].flatten().each(function(a){a.observe("keydown",function(b){return b.keyCode!=27})})})};./js/tables.js0000644000175000017500000000666211702026733013324 0ustar mathieumathieuvar SORT_COLUMN_INDEX;function table_stripe(b){var a=["rowEven","rowOdd"];b.select("tbody tr").each(function(d){d.removeClassName(a[1]);d.addClassName(a[0]);a.reverse(true)})}function table_makeSortable(b){var a=0;b.down("tr").childElements().each(function(c){if(c.hasClassName("nosort")){++a;return}c.setAttribute("columnIndex",a++);c.setStyle({cursor:"pointer"});c.observe("click",function(f){var g=f.findElement("th");f.stop();var d=g.down("a");if(d&&!d.hasClassName("sortlink")){return true}table_resortTable(g);return false})})}function table_getSortValue(a){var b="";if(Object.isString(a)||Object.isUndefined(a)){return a}a=$(a);if(a.readAttribute("sortval")){return a.readAttribute("sortval")}if(a.innerText){return a.innerText}$A(a.childNodes).each(function(c){switch(c.nodeType){case 1:b+=table_getSortValue(c);break;case 3:b+=c.nodeValue;break}});return b}function table_resortTable(d){var c=d.up("table"),e=d.up().childElements(),b,a=0;e.each(function(g){if(d==g){if(g.hasClassName("sortup")){g.removeClassName("sortup");g.addClassName("sortdown")}else{if(g.hasClassName("sortdown")){g.removeClassName("sortdown");g.addClassName("sortup");a=1}else{g.addClassName("sortdown")}}}else{g.removeClassName("sortup");g.removeClassName("sortdown")}});if(e.size()<=1){return}SORT_COLUMN_INDEX=d.readAttribute("columnIndex");var f=table_getSortValue(c.down("tbody > tr").cells[SORT_COLUMN_INDEX]);if(f.match(/^\d\d[\/-]\d\d[\/-]\d\d\d\d$/)||f.match(/^\d\d[\/-]\d\d[\/-]\d\d$/)){b=table_sort_date}else{if(f.match(/^[�$]/)){b=table_sort_currency}else{if(f.match(/^[\d\.]+$/)){b=table_sort_numeric}else{b=table_sort_caseinsensitive}}}$A(c.getElementsByTagName("tbody")).each(function(h){var g=[],i=$A(h.getElementsByTagName("tr"));i.sort(b);if(a){i.reverse()}i.each(function(j){if(j.hasClassName("sortbottom")){g.push(j)}else{h.appendChild(j)}});g.each(function(j){h.appendChild(j)})});if(c.hasClassName("striped")){table_stripe(c)}if(typeof table_sortCallback!="undefined"&&Object.isFunction(table_sortCallback)){table_sortCallback(c.id,d.id,a)}}function table_sort_date(e,c){var h=table_getSortValue(e.cells[SORT_COLUMN_INDEX]),i=table_getSortValue(c.cells[SORT_COLUMN_INDEX]),f,d,g;if(h.length==10){f=h.substr(6,4)+h.substr(3,2)+h.substr(0,2)}else{g=h.substr(6,2);if(parseInt(g)<50){g="20"+g}else{g="19"+g}f=g+h.substr(3,2)+h.substr(0,2)}if(i.length==10){d=i.substr(6,4)+i.substr(3,2)+i.substr(0,2)}else{g=i.substr(6,2);if(parseInt(g)<50){g="20"+g}else{g="19"+g}d=g+i.substr(3,2)+i.substr(0,2)}if(f==d){return 0}else{if(f0)&&(this.element.getStyle("position")=="absolute")){this.element.insert({after:''});this.iefix=$(this.element.id+"_iefix")}if(this.iefix){setTimeout(this.fixIEOverlapping.bind(this),50)}},fixIEOverlapping:function(){this.iefix.clonePosition(this.element).setStyle({zIndex:1}).show();this.element.setStyle({zIndex:2})},hide:function(){this.active=false;this.stopIndicator();if(this.element.visible()){this.options.onHide(this.element)}if(this.iefix){this.iefix.hide()}},startIndicator:function(){if(this.options.indicator){$(this.options.indicator).show()}},stopIndicator:function(){if(this.options.indicator){$(this.options.indicator).hide()}},onKeyPress:function(a){if(!this.active){return}switch(a.keyCode){case Event.KEY_TAB:case Event.KEY_RETURN:this.selectEntry();a.stop();case Event.KEY_ESC:this.hide();this.active=false;a.stop();return;case Event.KEY_LEFT:case Event.KEY_RIGHT:return;case Event.KEY_UP:this.markPrevious();this.render();a.stop();return;case Event.KEY_DOWN:this.markNext();this.render();a.stop();return}},onHover:function(c){var b=c.findElement("LI"),a=parseInt(b.readAttribute("autocompleteIndex"));if(this.index!=a){this.index=a;this.render()}c.stop()},onClick:function(b){var a=b.findElement("LI");this.index=parseInt(a.readAttribute("autocompleteIndex"));this.selectEntry();this.hide();b.stop()},onBlur:function(){setTimeout(this.hide.bind(this),250);this.active=false},render:function(){if(this.entryCount>0){for(var a=0;a0){this.index--}else{this.index=this.entryCount-1}},markNext:function(){if(this.index

'+b+'

')}function messages_submit(a){if(!anySelected()){alert(IMP.text.mailbox_submit);return}if(a=="delete_messages"){if(IMP.conf.pop3&&!confirm(IMP.text.mailbox_delete)){return}}else{if(a=="spam_report"){if(!confirm(IMP.text.spam_report)){return}}else{if(a=="notspam_report"){if(!confirm(IMP.text.notspam_report)){return}}}}$("actionID").setValue(a);$("messages").submit()}function makeSelection(b){var a="";switch(parseInt(b)){case-1:if($("checkAll").checked){a="!"}a+=IMP.conf.IMP_ALL;break;case 1:a=$F("filter1");break;default:a=$F("filter2")}if(a.empty()){return}else{if(a.startsWith("!")){selectFlagged(parseInt(a.substring(1)),false)}else{if(a.startsWith("+")){selectFlagged(a.substring(0,1),null)}else{selectFlagged(parseInt(a),true)}}}switch(parseInt(b)){case-1:break;case 1:$("select1").reset();break;default:$("select2").reset()}}function selectRange(c){Event.extend(c);var f=c.element().id,d=$(f);if(!d){return}var b=d.checked;if(startrange!==null&&c.shiftKey){var e=[$(startrange).id,d.id];var a=0;$H(messagelist).keys().detect(function(g){g="check"+g;if(e.indexOf(g)!=-1){++a}if(a){selectRow(g,b);if(a==2){return true}}})}else{selectRow(f,b)}startrange=f}function updateFolders(d){var a=$("targetMailbox2");if(a){var b=$("targetMailbox1");if((d==1&&$F(b)!="")||(d==2&&$F(a)!="")){var c=(d==1)?b.selectedIndex:a.selectedIndex;b.selectedIndex=a.selectedIndex=c}}}function transfer(d,b){if(anySelected()){var a=$("targetMbox");a.setValue((b==1)?$F("targetMailbox1"):$F("targetMailbox2"));if($F(a)=="*new*"){var c=prompt(IMP.text.newfolder,"");if(c!=null&&c!=""){$("newMbox").setValue(1);a.setValue(c);messages_submit(d)}}else{if($F(a)==""){alert(IMP.text.target_mbox)}else{messages_submit(d)}}}else{alert(IMP.text.mailbox_selectone)}}function selectFlagged(a,b){$H(messagelist).keys().each(function(f){var c,d=$("check"+f);if(a=="+"){c=!d.checked}else{if(a&messagelist[f]){c=b}else{c=!b}}selectRow(d.id,c)})}function flagMessages(b){var a=$("flag1"),c=$("flag2");if((b==1&&$F(a)!="")||(b==2&&$F(c)!="")){if(anySelected()){document.messages.flag.value=(b==1)?$F(a):$F(c);messages_submit("flag_messages")}else{if(b==1){a.selectedIndex=0}else{c.selectedIndex=0}alert(IMP.text.mailbox_selectone)}}}function getMessage(e,d){if(!d){return e}var a=$H(messagelist).keys();var c=a.indexOf(e);if(c!=-1){var b=c+d;if(b>=0&&b0)?$H(messagelist).keys().first():$H(messagelist).keys().last();if(Event.KEY_UP||Event.KEY_DOWN){f=$("subject"+keyId)}}}}else{if(j==32&&b.id.indexOf("subject")==0&&b.tagName=="A"){startrange="check"+keyId;selectRow(startrange,!$(startrange).checked)}else{if(!i.shiftKey){var h;if(j==Event.KEY_LEFT&&$("prev")){h=$("prev").href}else{if(j==Event.KEY_RIGHT&&$("next")){h=$("next").href}}if(h){document.location.href=h}return}else{return}}}if(f){f.focus();var k=$("row"+keyId);if(i.altKey){var a=f.id.replace(/subject/,"check");selectRow(a,!$(a).checked)}else{if(c!=f.id&&k.className.indexOf("-over")==-1){k.className+="-over"}}if(c){k=$("row"+c);if(c!=f.id){k.className=k.className.replace(/-over/,"")}}}i.stop()}if(IMP.conf.hasDOM){document.observe("dom:loaded",function(){document.observe("keydown",onKeyDownHandler)})};./js/fetchmailprefs.js0000644000175000017500000000041611702026733015035 0ustar mathieumathieuvar fmprefs_loading=false;function accountSubmit(a){if(!fmprefs_loading&&((a!=null)||!$F("account").empty())){fmprefs_loading=true;$("fm_switch").submit()}}function driverSubmit(){if(!fmprefs_loading&&$F("fm_driver")){fmprefs_loading=true;$("fm_driver_form").submit()}};./js/autocomplete.js0000644000175000017500000001401311702026733014540 0ustar mathieumathieuvar Autocompleter={};Autocompleter.Base=Class.create({baseInitialize:function(b,c,a){this.element=$(b);this.update=$(c).hide();this.active=this.changed=this.hasFocus=false;this.entryCount=this.index=0;this.observer=null;this.oldElementValue=this.element.value;this.options=Object.extend({paramName:this.element.name,tokens:[],frequency:0.4,minChars:1,onHide:this._onHide.bind(this),onShow:this._onShow.bind(this)},(this._setOptions)?this._setOptions(a):(a||{}));if(!this.options.tokens.include("\n")){this.options.tokens.push("\n")}this.element.writeAttribute("autocomplete","off").observe("blur",this._onBlur.bindAsEventListener(this)).observe(Prototype.Browser.Gecko?"keypress":"keydown",this._onKeyPress.bindAsEventListener(this))},_onShow:function(a,e){var d,b=e.getStyle("position");if(!b||b=="absolute"){d=(Prototype.Browser.IE)?a.cumulativeScrollOffset():[0];e.setStyle({position:"absolute"}).clonePosition(a,{setHeight:false,offsetTop:a.offsetHeight,offsetLeft:d[0]})}new Effect.Appear(e,{duration:0.15})},_onHide:function(a,b){new Effect.Fade(b,{duration:0.15})},show:function(){if(!this.update.visible()){this.options.onShow(this.element,this.update)}if(Prototype.Browser.IE&&!this.iefix&&this.update.getStyle("position")=="absolute"){this.iefix=new Element("IFRAME",{src:"javascript:false;",frameborder:0,scrolling:"no"}).setStyle({position:"absolute",filter:"progid:DXImageTransform.Microsoft.Alpha(opactiy=0)",zIndex:1}).hide();this.update.setStyle({zIndex:2}).insert({after:this.iefix})}if(this.iefix){this._fixIEOverlapping.bind(this).delay(0.05)}},_fixIEOverlapping:function(){this.iefix.clonePosition(this.update).show()},hide:function(){this.stopIndicator();if(this.update.visible()){this.options.onHide(this.element,this.update);if(this.iefix){this.iefix.hide()}}},startIndicator:function(){if(this.options.indicator){$(this.options.indicator).show()}},stopIndicator:function(){if(this.options.indicator){$(this.options.indicator).hide()}},_onKeyPress:function(a){if(this.active){switch(a.keyCode){case Event.KEY_TAB:case Event.KEY_RETURN:this.selectEntry();a.stop();return;case Event.KEY_ESC:this.hide();this.active=false;a.stop();return;case Event.KEY_LEFT:case Event.KEY_RIGHT:return;case Event.KEY_UP:case Event.KEY_DOWN:if(a.keyCode==Event.KEY_UP){this.markPrevious()}else{this.markNext()}this.render();a.stop();return}}else{switch(a.keyCode){case 0:if(!Prototype.Browser.WebKit){break}case Event.KEY_TAB:case Event.KEY_RETURN:return}}this.changed=this.hasFocus=true;if(this.observer){clearTimeout(this.observer)}this.observer=this.onObserverEvent.bind(this).delay(this.options.frequency)},_onHover:function(c){var b=c.findElement("LI"),a=b.readAttribute("acIndex");if(this.index!=a){this.index=a;this.render()}c.stop()},_onClick:function(a){this.index=a.findElement("LI").readAttribute("acIndex");this.selectEntry()},_onBlur:function(a){this.hide.bind(this).delay(0.25);this.active=this.hasFocus=false},render:function(){var a=0;if(this.entryCount){this.update.down().childElements().each(function(b){[b].invoke(this.index==a++?"addClassName":"removeClassName","selected")},this);if(this.hasFocus){this.show();this.active=true}}else{this.active=false;this.hide()}},markPrevious:function(){if(this.index){--this.index}else{this.index=this.entryCount-1}this.getEntry(this.index).scrollIntoView(true)},markNext:function(){if(this.index=this.options.minChars){this.getUpdatedChoices()}else{this.active=false;this.hide()}this.oldElementValue=this.element.value},getToken:function(){var a=this.getTokenBounds();return this.element.value.substring(a[0],a[1]).strip()},getTokenBounds:function(){var h,e,c,d,g,f=0,j=this.element.value,k=j.length,b=-1,a=Math.min(j.length,this.oldElementValue.length);if(j.strip().empty()){return[-1,0]}h=a;for(e=0;eb){b=g}g=j.indexOf(this.options.tokens[f],h+d);if(g!=-1&&gdocument.body.offsetHeight){yScroll=document.body.scrollHeight}else{yScroll=document.body.offsetHeight}}Element.setStyle("RB_overlay",{height:yScroll+"px"})},setWindowPosition:function(){var b=$("RB_window");var c=b.getDimensions(),a=document.viewport.getDimensions();b.setStyle({width:"auto",height:"auto",left:((a.width-c.width)/2)+"px",top:((a.height-c.height)/2)+"px"})},cloneWindowContents:function(a){$("RB_window").appendChild($($(a).cloneNode(true)).setStyle({display:"block"}));this.setWindowPosition()},htmlWindowContents:function(a){$("RB_window").update(a);this.setWindowPosition()},getWindowContents:function(){var a=$("RB_window");return a.visible()?a.down():null},overlayVisible:function(){var a=$("RB_overlay");return a&&a.visible()}};./js/contacts.js0000644000175000017500000000304211702026733013655 0ustar mathieumathieufunction passAddresses(){var a="";$("selected_addresses").childElements().each(function(b){if(!b.value){return}a+=b.value+"|"});$("sa").setValue(a)}function sameOption(e,d,a){var c=e+": "+d.value,b=a.value;return Try.these(function(){return(c==b)||(decodeURIComponent(c)==decodeURIComponent(b))},function(){return(c==b)})}function addAddress(e){var c=$("search_results");if(!$F(c).size()){alert(IMP.text.contacts_select);return false}else{var g=$("selected_addresses"),a=$A(g).length,b;c.childElements().each(function(d){if(d.value&&d.selected){if(!$A(g).any(function(f){return sameOption(e,d,f)})){b=e+": "+d.value;g[a++]=new Option(b,b)}}})}return true}function updateMessage(){if(parent.opener.closed){alert(IMP.text.contacts_closed);this.close();return}if(!parent.opener.document[formname]){alert(IMP.text.contacts_called);this.close();return}$("selected_addresses").childElements().each(function(c){var a=c.value,d,e=null,g,b;g=a.indexOf(":");d=a.substring(0,g);a=a.substring(g+2,a.length);if(d=="to"){e=parent.opener.document[formname].to}else{if(!to_only&&d=="cc"){e=parent.opener.document[formname].cc}else{if(!to_only&&d=="bcc"){e=parent.opener.document[formname].bcc}else{return}}}if(e.value.length){b=e.value.replace(/, +/g,",").split(",").findAll(function(f){return f});e.value=b.join(", ");if(e.value.lastIndexOf(";")!=e.value.length-1){e.value+=","}e.value+=" "+a}else{e.value=a}if(a.lastIndexOf(";")!=a.length-1){e.value+=", "}});this.close()}function removeAddress(){$("selected_addresses").childElements().each(function(a){if(a.selected){a.remove()}})};./js/unblockImages.js0000644000175000017500000000077511702026733014634 0ustar mathieumathieuvar IMP=window.IMP||{};IMP.unblockImages=function(b,c){var a;if(!b){return true}$(b).select("[blocked]").each(function(d){var e=decodeURIComponent(d.readAttribute("blocked"));if(d.hasAttribute("src")){d.writeAttribute("src",e)}else{if(d.hasAttribute("background")){d.writeAttribute("background",e)}else{if(d.style.backgroundImage){d.setStyle({backgroundImage:"url("+e+")"})}}}});c=$(c);if(c){a=c.up();c.remove();if(!a.childElements().size()){a=a.up("TABLE.mimeStatusMessage");if(a){a.remove()}}}return false};./js/compose.js0000644000175000017500000001432511702026733013512 0ustar mathieumathieuvar display_unload_warning=true,fckedit_event=false,textarea_ready=true,skip_spellcheck=false;function _getXinha(){var a=Try.these(function(){return __editors.message},function(){return _editors.message},function(){return _editors[$("message")]});if(!a){throw"Unable to find the HTML Editor object, cannot continue."}return a}function confirmCancel(a){if(window.confirm(IMP.text.compose_cancel)){display_unload_warning=false;if(popup){if(cancel_url){self.location=cancel_url}else{self.close()}}else{window.location=cancel_url}return true}else{Event.extend(a);a.stop();return false}}function setCursorPosition(c,a){if(c.setSelectionRange){Field.focus(c);c.setSelectionRange(a,a)}else{if(c.createTextRange){var b=c.createTextRange();b.collapse(true);b.moveStart("character",a);b.moveEnd("character",0);Field.select(b);b.scrollIntoView(true)}}}function redirectSubmit(a){if($F("to")==""){alert(IMP.text.compose_recipient);$("to").focus();Event.extend(a);a.stop();return false}$("redirect").setStyle({cursor:"wait"});display_unload_warning=false;return true}function change_identity(a){var m=identities[$F("last_identity")],d=identities[a],b,e,g,l;if(rtemode){switch(IMP.conf.js_editor){case"xinha":e=_getXinha();b=e.getHTML();break;case"fckeditor":e=FCKeditorAPI.GetInstance("message");b=e.GetHTML();break}b=b.replace(/\r\n/g,"\n");g="

";l="

"+d[0].replace(/^ ?
\n/,"").replace(/ +/g," ")+"

";b=b.replace(/

\s*[\s\S]*?\s*<\/p>/,g)}else{b=$F("message").replace(/\r\n/g,"\n");g=m[0].replace(/^\n/,"");l=d[0].replace(/^\n/,"")}var k=(m[1])?b.indexOf(g):b.lastIndexOf(g);if(k!=-1){if(d[1]==m[1]){b=b.substring(0,k)+l+b.substring(k+g.length,b.length)}else{if(d[1]){b=l+b.substring(0,k)+b.substring(k+g.length,b.length)}else{b=b.substring(0,k)+b.substring(k+g.length,b.length)+l}}b=b.replace(/\r\n/g,"\n").replace(/\n/g,"\r\n");$("last_identity").setValue(a);window.status=IMP.text.compose_sigreplace}else{window.status=IMP.text.compose_signotreplace}if(rtemode){switch(IMP.conf.js_editor){case"xinha":e.setHTML(b);break;case"fckeditor":e.SetHTML(b);break}}else{$("message").setValue(b)}var j=$("sent_mail_folder");if(smf_check){var c=0;$A(j.options).detect(function(i){if(i.value==d[2]){j.selectedIndex=c;return true}++c})}else{if(j.firstChild){j.replaceChild(document.createTextNode(d[2]),j.firstChild)}else{j.appendChild(document.createTextNode(d[2]))}}var h=$("ssm");if(h){h.checked=d[3]}var f=$("bcc");if(f){bccval=f.value;if(m[4]){var n=new RegExp(m[4]+",? ?","gi");bccval=bccval.replace(n,"");if(bccval){bccval=bccval.replace(/, ?$/,"")}}if(d[4]){if(bccval){bccval+=", "}bccval+=d[4]}f.setValue(bccval)}}function uniqSubmit(b,a){if(a){Event.extend(a);a.stop()}if(b=="send_message"){if(!skip_spellcheck&&compose_spellcheck&&IMP.SpellCheckerObject&&!IMP.SpellCheckerObject.isActive()){IMP.SpellCheckerObject.spellCheck(onNoSpellError.curry(b,a));return}if(($F("subject")=="")&&!window.confirm(IMP.text.compose_nosubject)){return}}skip_spellcheck=false;if(IMP.SpellCheckerObject){IMP.SpellCheckerObject.resume()}if(!Prototype.Browser.WebKit){$("compose").setStyle({cursor:"wait"})}display_unload_warning=false;$("actionID").setValue(b);_uniqSubmit()}function _uniqSubmit(){if(textarea_ready){$("compose").submit()}else{_uniqSubmit.defer()}}function onNoSpellError(b,a){skip_spellcheck=true;textarea_ready=true;uniqSubmit(b,a)}function attachmentChanged(){var b=[],f=0;$("upload_atc").select('input[type="file"]').each(function(h){b[b.length]=h});if(max_attachments!==null&&b.length==max_attachments){return}b.each(function(h){if(h.value.length>0){f++}});if(f==b.length){var e=$("attachment_row_"+f);if(e){var g=new Element("TD",{align:"left"}).insert(new Element("STRONG").insert(IMP.text.compose_file+" "+(f+1)+":")).insert(" ");var d=new Element("INPUT",{type:"file",name:"upload_"+(f+1),size:25});d.observe("change",attachmentChanged);g.insert(d);var a=new Element("SELECT",{name:"upload_disposition_"+(f+1)});a.options[0]=new Option(IMP.text.compose_attachment,"attachment",true);a.options[1]=new Option(IMP.text.compose_inline,"inline");var c=new Element("TR",{id:"attachment_row_"+(f+1)}).insert(g).insert(new Element("TD",{align:"left"}).insert(a));e.parentNode.insertBefore(c,e.nextSibling)}}}function initializeSpellChecker(){if(typeof IMP.SpellCheckerObject!="object"){initializeSpellChecker.defer();return}IMP.SpellCheckerObject.onBeforeSpellCheck=function(){IMP.SpellCheckerObject.htmlAreaParent="messageParent";switch(IMP.conf.js_editor){case"xinha":var a=_getXinha();IMP.SpellCheckerObject.htmlArea=a._htmlArea;a._textArea.setValue(a.outwardHtml(a.getHTML()));break;case"fckeditor":IMP.SpellCheckerObject.htmlArea=$("message").adjacent("iframe[id*=message]").first();$("message").setValue(FCKeditorAPI.GetInstance("message").GetHTML());textarea_ready=false;break}};IMP.SpellCheckerObject.onAfterSpellCheck=function(){var a;IMP.SpellCheckerObject.htmlArea=IMP.SpellCheckerObject.htmlAreaParent=null;switch(IMP.conf.js_editor){case"xinha":a=_getXinha();a.setHTML(a.inwardHtml(a._textArea.value));break;case"fckeditor":a=FCKeditorAPI.GetInstance("message");if(!this.fckedit_event){a.Events.AttachEvent("OnAfterSetHTML",function(){textarea_ready=true});this.fckedit_event=true}a.SetHTML($("message").value);break}}}document.observe("dom:loaded",function(){$$("INPUT").each(function(a){if(a.type!="submit"&&a.type!="button"){a.observe("keydown",function(b){if(b.keyCode==10||b.keyCode==Event.KEY_RETURN){b.stop();return false}})}});if(cursor_pos!==null&&$("message")){setCursorPosition($("message"),cursor_pos)}if(redirect){$("to").focus()}else{if(Prototype.Browser.IE){$("subject").observe("keydown",function(a){if(a.keyCode==Event.KEY_TAB&&!a.shiftKey){a.stop();$("message").focus()}})}if(rtemode){initializeSpellChecker()}if($("to")&&!$F("to")){$("to").focus()}else{if(!$F("subject")){if(rtemode){$("subject").focus()}else{$("message").focus()}}}}});Event.observe(window,"load",function(){if(compose_popup&&!reloaded){var b,a=redirect?$("redirect"):$("compose");b=Math.min(a.getHeight(),screen.height-100)-document.viewport.getHeight();if(b>0){window.resizeBy(0,b)}}});Event.observe(window,"beforeunload",function(){if(display_unload_warning){return IMP.text.compose_discard}});./js/SpellChecker.js0000644000175000017500000001202611702026733014405 0ustar mathieumathieuvar SpellChecker=Class.create({options:{},resumeOnDblClick:true,state:"CheckSpelling",initialize:function(a,f,c,j,b,h){var g,i,e;this.url=a;this.target=f;this.statusButton=$(c);this.buttonStates=j;this.statusClass=h||"";this.statusButton.observe("click",this.process.bindAsEventListener(this));this.options.onComplete=this.onComplete.bind(this);if(b){g=new Element("DIV",{className:"autocomplete",id:"spellcheckpopdown"}).setStyle({position:"absolute"}).hide();e=new Element("UL");$H(b).each(function(d){e.insert({bottom:new Element("LI",{lc:d.key}).update(d.value)})});g.insert({bottom:e});this.localeChoices=new KeyNavList(g,{onChoose:this.setLocale.bindAsEventListener(this)});i=new Element("A",{className:"popdown"}).insert(" ").observe("click",function(){$("spellcheckpopdown").clonePosition(this.statusButton,{setHeight:false,setWidth:false,offsetTop:this.statusButton.getHeight()});this.localeChoices.show()}.bind(this));this.statusButton.insert({after:i});$(document.body).insert(g)}document.observe("click",this.onClick.bindAsEventListener(this));this.status("CheckSpelling")},setLocale:function(a){this.locale=a.readAttribute("lc")},targetValue:function(){var a=$(this.target);return(Object.isUndefined(a.value))?a.innerHTML:a.value},process:function(a){switch(this.state){case"CheckSpelling":this.spellCheck();break;case"ResumeEdit":this.resume();break}a.stop()},spellCheck:function(c){if(this.onBeforeSpellCheck){this.onBeforeSpellCheck()}var b=Object.clone(this.options),d=$H(),a=this.url;this.status("Checking");this.removeChoices();this.onNoError=c;d.set(this.target,this.targetValue());b.parameters=d.toQueryString();if(this.locale){a+="/locale="+this.locale}if(this.htmlAreaParent){a+="/html=1"}new Ajax.Request(a,b)},onClick:function(b){if(this.localeChoices){this.localeChoices.hide()}if(!this.choicesDiv){return true}var a=b.findElement("SPAN");if(a&&a==this.curWord){return true}this.removeChoices();this.curWord=null},onComplete:function(f){var h,e,g,c=0,b=$(this.target),a=f.responseText.evalJSON(true);this.removeChoices();if(Object.isUndefined(a)){this.status("Error");return}this.suggestions=a.suggestions||[];if(this.onNoError&&!this.suggestions.size()){this.status("CheckSpelling");this.onNoError();return}h=a.bad||[];e=this.targetValue();e=this.htmlAreaParent?e.replace(/\r?\n/g,""):e.replace(/\r?\n/g,"~~~").escapeHTML();$A(h).each(function(d){var i=''+d+"";e=e.replace(new RegExp("(?:^|\\b)"+RegExp.escape(d)+"(?:\\b|$)","g"),i);e=e.replace(new RegExp("(<[^>]*)"+RegExp.escape(i)+"([^>]*>)","g"),"$1"+d+"$2")},this);if(!this.reviewDiv){this.reviewDiv=new Element("div",{className:b.readAttribute("className")+" spellcheck"}).setStyle({overflow:"auto"});if(this.resumeOnDblClick){this.reviewDiv.observe("dblclick",this.resume.bind(this))}}g=b.getDimensions();this.reviewDiv.setStyle({width:g.width+"px",height:g.height+"px"});if(!this.htmlAreaParent){e=e.replace(/~~~/g,"
")}this.reviewDiv.update(e);this.reviewDiv.select('span[name="incorrect"]').invoke("observe","click",this.showSuggestions.bindAsEventListener(this));this.reviewDiv.select("A").invoke("observe","click",Event.stop);if(this.htmlAreaParent){Element.hide(this.htmlArea);$(this.htmlAreaParent).insert({bottom:this.reviewDiv})}else{b.hide().insert({before:this.reviewDiv})}this.status("ResumeEdit")},showSuggestions:function(d){var f,a=d.element(),b=new Element("UL");try{f=a.viewportOffset()}catch(c){f=[d.pointerX(),d.pointerY()]}this.removeChoices();this.choicesDiv=new Element("DIV",{className:"autocomplete"}).setStyle({left:f[0]+"px",top:(f[1]+16)+"px"}).hide();this.curWord=a;$A(this.suggestions[this.curWord.readAttribute("index")]).each(function(e){b.insert({bottom:new Element("LI").update(e)})});this.choicesDiv.insert({bottom:b});this.choices=new KeyNavList(this.choicesDiv,{onChoose:function(e){this.replaceWord(e,this.curWord)}.bind(this)}).show();$(document.body).insert(this.choicesDiv)},replaceWord:function(a,b){b.update(a.innerHTML).writeAttribute({className:"corrected"});this.removeChoices()},removeChoices:function(){if(this.choicesDiv){this.choicesDiv.remove();this.choicesDiv=null}},resume:function(){this.removeChoices();if(!this.reviewDiv){return}var a=$(this.target),b;this.reviewDiv.select('span[name="incorrect"]').each(function(c){c.replace(c.innerHTML)});this.reviewDiv.select("A").invoke("stopObserving","click");b=this.reviewDiv.innerHTML;if(!this.htmlAreaParent){b=b.replace(/
/gi,"~~~").unescapeHTML().replace(/~~~/g,"\n")}a.value=b;a.disabled=false;if(this.resumeOnDblClick){this.reviewDiv.stopObserving("dblclick")}this.reviewDiv.remove();this.reviewDiv=null;this.status("CheckSpelling");if(this.htmlAreaParent){Element.show(this.htmlArea)}else{a.show()}if(this.onAfterSpellCheck){this.onAfterSpellCheck()}},status:function(a){if(!this.statusButton){return}this.state=a;switch(this.statusButton.tagName){case"INPUT":this.statusButton.value=this.buttonStates[a];break;case"A":this.statusButton.update(this.buttonStates[a]);break}this.statusButton.className=this.statusClass+" "+a},isActive:function(){return(this.reviewDiv)}});./js/search.js0000644000175000017500000000200511702026733013302 0ustar mathieumathieufunction toggleAll(a){$("search").getInputs(null,"search_folders[]").each(function(b){b.checked=a})}function dateCheck(b){var a=$("search_"+b+"_month"),c=$("search_"+b+"_day"),e=$("search_"+b+"_year");if(a.selectedIndex==0){a.selectedIndex=search_month}if(c.selectedIndex==0){c.selectedIndex=search_day}if(e.value==""){e.value=search_year}}function formCheck(){if(not_search&&(!$("preselected_folders")||!$F("preselected_folders"))){if(!Form.getInputs("search",null,"search_folders[]").detect(function(a){return a.checked})){alert(IMP.text.search_select);return false}}$("actionID").setValue("do_search");return true}function search_reset(){$("actionID").setValue("reset_search");$("search").submit();return true}function saveCache(){$("edit_query").setValue($F("save_cache"));$("search").submit()}function delete_field(a){$("delete_field_id").setValue(a);$("actionID").setValue("delete_field");$("search").submit();return true}function show_subscribed(a){$("show_subscribed_only").setValue(a);$("search").submit();return false};./js/src/0000755000175000017500000000000011702026733012271 5ustar mathieumathieu./js/src/folders.js0000644000175000017500000001103211702026733014262 0ustar mathieumathieu/** * IMP Folders Javascript * * Provides the javascript to help the folders.php script. * This file should be included via Horde::addScriptFile(). * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. * * $Horde: imp/js/src/folders.js,v 1.9.2.3 2009/10/12 22:36:34 slusarz Exp $ */ function getChecked() { return getFolders().findAll(function(e) { return e.checked; }); } function getFolders() { return $('fmanager').getInputs(null, 'folder_list[]'); } function selectedFoldersDisplay() { var folder = 0, sel = ""; getFolders().each(function(e) { if (e.checked) { sel += displayNames[folder] + "\n"; } ++folder; }); if (sel.endsWith("\n")) { sel = sel.substring(0, sel.length - 1); } return sel; } function chooseAction(e) { var id = (e.element().id == 'action_choose0') ? 0 : 1; var a = $('action_choose' + id); var action = $F(a); a.selectedIndex = 0; if (action == 'create_folder') { createMailbox(); } else if (action == 'rebuild_tree') { submitAction(action); } else if (!getChecked().size()) { if (action != '') { alert(IMP.text.folders_select); } } else if (action == 'rename_folder') { renameMailbox(); } else if (action == 'subscribe_folder' || action == 'unsubscribe_folder' || action == 'poll_folder' || action == 'expunge_folder' || action == 'nopoll_folder' || action == 'mark_folder_seen' || action == 'mark_folder_unseen' || action == 'delete_folder_confirm' || action == 'folders_empty_mailbox_confirm' || action == 'mbox_size') { submitAction(action); } else if (action == 'download_folder' || action == 'download_folder_zip') { downloadMailbox(action); } else if (action == 'import_mbox') { if (getChecked().length > 1) { alert(IMP.text.folders_oneselect); } else { submitAction(action); } } } function submitAction(a) { $('actionID').setValue(a); $('fmanager').submit(); } function createMailbox() { var count = getChecked().size(), mbox; if (count > 1) { window.alert(IMP.text.folders_oneselect); return; } if (count == 1) { mbox = window.prompt(IMP.text.folders_subfolder1 + ' ' + selectedFoldersDisplay() + ".\n" + IMP.text.folders_subfolder2 + "\n", ''); } else { mbox = window.prompt(IMP.text.folders_toplevel, ''); } if (mbox) { $('new_mailbox').setValue(mbox); submitAction('create_folder'); } } function downloadMailbox(actionid) { if (window.confirm(IMP.text.folders_download1 + "\n" + selectedFoldersDisplay() + "\n" + IMP.text.folders_download2)) { submitAction(actionid); } } function renameMailbox() { var newnames = '', oldnames = '', j = 0; getFolders().each(function(f) { if (f.checked) { if (IMP.conf.fixed_folders.indexOf(displayNames[j]) != -1) { window.alert(IMP.text.folders_no_rename + ' ' + displayNames[j]); } else { var tmp = window.prompt(IMP.text.folders_rename1 + ' ' + displayNames[j] + "\n" + IMP.text.folders_rename2, fullNames[j] ? fullNames[j] : displayNames[j]); if (tmp) { newnames += tmp + "\n"; oldnames += f.value + "\n"; } } } ++j; }); if (!newnames) { return; } if (newnames.endsWith("\n")) { newnames = newnames.substring(0, newnames.length - 1); } if (oldnames.endsWith("\n")) { oldnames = oldnames.substring(0, oldnames.length - 1); } $('new_names').setValue(newnames); $('old_names').setValue(oldnames); submitAction('rename_folder'); return true; } function toggleSelection() { var count = getChecked().size(), folders = getFolders(); var checked = (count != folders.size()); folders.each(function(f) { f.checked = checked; }); } document.observe('dom:loaded', function() { if ($('checkAll0')) { $('checkAll0').observe('click', toggleSelection); $('action_choose0').observe('change', chooseAction); } if ($('checkAll1')) { $('checkAll1').observe('click', toggleSelection); $('action_choose1').observe('change', chooseAction); } }); ./js/src/stripe.js0000644000175000017500000000231311702026733014134 0ustar mathieumathieu/** * Javascript code for finding all tables with classname "striped" and * dynamically striping their row colors. * * $Horde: imp/js/src/stripe.js,v 1.8.2.3 2008/04/24 07:19:23 slusarz Exp $ * * @author Chuck Hagenbuch * @author Matt Warden * * See the enclosed file COPYING for license information (LGPL). If you * did not receive this file, see http://www.fsf.org/copyleft/lgpl.html. */ function stripeAllElements() { $$('.striped').each(stripeElement); } function stripeElement(elt) { var classes = [ 'rowEven', 'rowOdd' ], e = []; if (elt.tagName == 'TABLE') { // Tables can have more than one tbody element; get all child // tbody tags and interate through them. elt.childElements().each(stripeElement); return; } else { // Toggle the classname of any child node that is an element. e = elt.childElements(); } e.each(function(c) { c.removeClassName(classes[1]); c.addClassName(classes[0]); classes.reverse(true); }); } /* We have to wait for the full DOM to be loaded to ensure we don't * miss anything. */ document.observe('dom:loaded', stripeAllElements); ./js/src/login.js0000644000175000017500000000460211702026733013741 0ustar mathieumathieu/** * Provides the javascript for the login.php script. * * $Horde: imp/js/src/login.js,v 1.6.2.2 2008/05/20 16:33:02 slusarz Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ function setFocus() { if (!$F('imapuser')) { $('imapuser').focus(); } else { $('pass').focus(); } } function imp_reload() { window.top.document.location = autologin_url + $F('server_key'); } function submit_login() { if (show_list && $F('server').startsWith("_")) { return false; } if (!$F('imapuser')) { alert(IMP.text.login_username); $('imapuser').focus(); return false; } else if (!$F('pass')) { alert(IMP.text.login_password); $('pass').focus(); return false; } else { $('loginButton').disable(); if (ie_clientcaps) { try { $('ie_version').setValue(objCCaps.getComponentVersion("{89820200-ECBD-11CF-8B85-00AA005B4383}","componentid")); } catch (e) { } } $('imp_login').submit(); return true; } } function selectLang() { // We need to reload the login page here, but only if the user hasn't // already entered a username and password. if (!$F('imapuser') && !$F('pass')) { var params = { new_lang: $F('new_lang') }; if (lang_url !== null) { params.url = lang_url; } self.location = 'login.php?' + Object.toQueryString(params); } } function updatePort() { var v = $F('protocol'); if (protocols[v]) { $('port').setValue(protocols[v]); } } function serverChangeHandler() { if (change_smtphost) { $('smtphost').setValue($F('server')); } } /* Removes any leading hash that might be on a location string. */ function removeHash(h) { return (Object.isString(h) && h.startsWith("#")) ? h.substring(1) : h; } document.observe('dom:loaded', function() { if (imp_auth) { if (parent.frames.horde_main) { if (nomenu) { parent.location = self.location; } else { document.imp_login.target = '_parent'; } } } // Need to capture hash information if it exists in URL if (location.hash) { $('anchor_string').setValue(removeHash(location.hash)); } }); ./js/src/ieEscGuard.js0000644000175000017500000000160311702026733014642 0ustar mathieumathieu/** * Javascript code for attaching an onkeydown listener to textarea and * text input elements to prevent loss of data when the user hits the * ESC key. * * This code is only relevant for IE. * * $Horde: imp/js/src/ieEscGuard.js,v 1.6.2.1 2007/12/20 13:59:22 jan Exp $ * * See the enclosed file COPYING for license information (LGPL). If you * did not receive this file, see http://www.fsf.org/copyleft/lgpl.html. */ /* Finds all text inputs (input type="text") and textarea tags, and attaches * the onkeydown listener to them to avoid ESC clearing the text. */ if (Prototype.Browser.IE) { document.observe('dom:loaded', function() { /* Only attach to textareas and tags. */ [ $$('TEXTAREA'), $$('INPUT[type="text"]') ].flatten().each(function(t) { t.observe('keydown', function(e) { return e.keyCode != 27; }); }); }); } ./js/src/tables.js0000644000175000017500000001615511702026733014111 0ustar mathieumathieu/** * Javascript code for finding all tables with classname "striped" and * dynamically striping their row colors, and finding all tables with * classname "sortable" and making them dynamically sortable. * * TODO: incorporate missing features (if wanted) and improvements from: * http://tetlaw.id.au/view/blog/table-sorting-with-prototype/ * http://www.millstream.com.au/view/code/tablekit/ * http://tablesorter.com/docs/ * * $Horde: imp/js/src/tables.js,v 1.3.2.3 2008/04/24 07:19:23 slusarz Exp $ * * See the enclosed file COPYING for license information (LGPL). If you * did not receive this file, see http://www.fsf.org/copyleft/lgpl.html. */ var SORT_COLUMN_INDEX; function table_stripe(table) { var classes = [ 'rowEven', 'rowOdd' ]; // Tables can have more than one tbody element; get all child // tbody tags and interate through them. table.select('tbody tr').each(function(c) { c.removeClassName(classes[1]); c.addClassName(classes[0]); classes.reverse(true); }); } function table_makeSortable(table) { var i = 0; // We have a first row: assume it's the header, and make its // contents clickable links. table.down('tr').childElements().each(function(cell) { if (cell.hasClassName('nosort')) { ++i; return; } cell.setAttribute('columnIndex', i++); cell.setStyle({ cursor: 'pointer' }); cell.observe('click', function(e) { var c = e.findElement('th'); e.stop(); var a = c.down('a'); if (a && !a.hasClassName('sortlink')) { return true; } table_resortTable(c); return false; }); }); } function table_getSortValue(el) { var str = ''; if (Object.isString(el) || Object.isUndefined(el)) { return el; } // Use "sortval" if defined. el = $(el); if (el.readAttribute('sortval')) { return el.readAttribute('sortval'); } if (el.innerText) { // Not needed but it is faster. return el.innerText; } $A(el.childNodes).each(function(e) { switch (e.nodeType) { case 1: // ELEMENT_NODE str += table_getSortValue(e); break; case 3: // TEXT_NODE str += e.nodeValue; break; } }); return str; } function table_resortTable(th) { var table = th.up('table'), th_siblings = th.up().childElements(), sortfn, sortDown = 0; th_siblings.each(function(e) { if (th == e) { if (e.hasClassName('sortup')) { e.removeClassName('sortup'); e.addClassName('sortdown'); } else if (e.hasClassName('sortdown')) { e.removeClassName('sortdown'); e.addClassName('sortup'); sortDown = 1; } else { e.addClassName('sortdown'); } } else { e.removeClassName('sortup'); e.removeClassName('sortdown'); } }); // Work out a type for the column if (th_siblings.size() <= 1) { return; } SORT_COLUMN_INDEX = th.readAttribute('columnIndex'); var itm = table_getSortValue(table.down('tbody > tr').cells[SORT_COLUMN_INDEX]); if (itm.match(/^\d\d[\/-]\d\d[\/-]\d\d\d\d$/) || itm.match(/^\d\d[\/-]\d\d[\/-]\d\d$/)) { sortfn = table_sort_date; } else if (itm.match(/^[£$]/)) { sortfn = table_sort_currency; } else if (itm.match(/^[\d\.]+$/)) { sortfn = table_sort_numeric; } else { sortfn = table_sort_caseinsensitive; } // Don't mix up seperate tbodies; sort each in turn. $A(table.getElementsByTagName('tbody')).each(function(tbody) { var bottomRows = [ ], newRows = $A(tbody.getElementsByTagName('tr')); newRows.sort(sortfn); if (sortDown) { newRows.reverse(); } // We appendChild rows that already exist to the tbody, so it // moves them rather than creating new ones. Don't do // sortbottom rows. newRows.each(function(r) { if (r.hasClassName('sortbottom')) { bottomRows.push(r); } else { tbody.appendChild(r); } }); // Do sortbottom rows only. bottomRows.each(function(r) { tbody.appendChild(r); }); }); // If we just resorted a striped table, re-stripe it. if (table.hasClassName('striped')) { table_stripe(table); } // Finally, see if we have a callback function to trigger. if (typeof table_sortCallback != 'undefined' && Object.isFunction(table_sortCallback)) { table_sortCallback(table.id, th.id, sortDown); } } function table_sort_date(a, b) { // Two digit years less than 50 are treated as 20XX, greater than // 50 are treated as 19XX. var aa = table_getSortValue(a.cells[SORT_COLUMN_INDEX]), bb = table_getSortValue(b.cells[SORT_COLUMN_INDEX]), dt1, dt2, yr; if (aa.length == 10) { dt1 = aa.substr(6, 4) + aa.substr(3, 2) + aa.substr(0, 2); } else { yr = aa.substr(6, 2); if (parseInt(yr) < 50) { yr = '20' + yr; } else { yr = '19' + yr; } dt1 = yr + aa.substr(3, 2) + aa.substr(0, 2); } if (bb.length == 10) { dt2 = bb.substr(6, 4) + bb.substr(3, 2) + bb.substr(0, 2); } else { yr = bb.substr(6, 2); if (parseInt(yr) < 50) { yr = '20' + yr; } else { yr = '19' + yr; } dt2 = yr + bb.substr(3, 2) + bb.substr(0, 2); } if (dt1 == dt2) { return 0; } else if (dt1 < dt2) { return -1; } return 1; } function table_sort_currency(a, b) { var aa = table_getSortValue(a.cells[SORT_COLUMN_INDEX]).replace(/[^0-9.]/g, ''), bb = table_getSortValue(b.cells[SORT_COLUMN_INDEX]).replace(/[^0-9.]/g, ''); return parseFloat(aa) - parseFloat(bb); } function table_sort_numeric(a, b) { var aa = parseFloat(table_getSortValue(a.cells[SORT_COLUMN_INDEX])); if (isNaN(aa)) { aa = 0; } var bb = parseFloat(table_getSortValue(b.cells[SORT_COLUMN_INDEX])); if (isNaN(bb)) { bb = 0; } return aa - bb; } function table_sort_caseinsensitive(a, b) { var aa = table_getSortValue(a.cells[SORT_COLUMN_INDEX]).toLowerCase(), bb = table_getSortValue(b.cells[SORT_COLUMN_INDEX]).toLowerCase(); if (aa == bb) { return 0; } else if (aa < bb) { return -1; } return 1; } function table_sort_default(a, b) { var aa = table_getSortValue(a.cells[SORT_COLUMN_INDEX]), bb = table_getSortValue(b.cells[SORT_COLUMN_INDEX]); if (aa == bb) { return 0; } else if (aa < bb) { return -1; } return 1; } /* We do everything onload so that the entire document is present * before we start searching it for tables. */ document.observe('dom:loaded', function() { $$('table.striped').each(table_stripe); $$('table.sortable').each(table_makeSortable); }); ./js/src/KeyNavList.js0000644000175000017500000001256211702026733014666 0ustar mathieumathieu/** * Reuseable keyboard or mouse driven list component. Based on * Scriptaculous' AutoCompleter. * * $Horde: imp/js/src/KeyNavList.js,v 1.8.2.5 2009/01/06 15:24:03 jan Exp $ * * Copyright 2005-2009 The Horde Project (http://www.horde.org/) * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ var KeyNavList = Class.create({ // Vars used and defaulting to empty: // active, entryCount initialize: function(element, options) { var clickfunc = this.onClick.bindAsEventListener(this), entry, i = 0, overfunc = this.onHover.bindAsEventListener(this); this.element = $(element); this.options = options || {}; this.index = -1; this.entryCount = this.element.firstDescendant().childElements().size(); for (; i < this.entryCount; i++) { entry = this.getEntry(i); entry.writeAttribute('autocompleteIndex', i); entry.observe('click', clickfunc); entry.observe('mouseover', overfunc); } this.options.onShow = this.options.onShow || function(elt) { new Effect.Appear(elt, { duration: 0.15 }); }; this.options.onHide = this.options.onHide || function(elt) { new Effect.Fade(elt, { duration: 0.15 }); }; this.element.observe('blur', this.onBlur.bind(this)); document.observe('keypress', this.onKeyPress.bindAsEventListener(this)); }, show: function() { this.active = true; if (!this.element.visible()) { this.options.onShow(this.element); } if (!this.iefix && (navigator.appVersion.indexOf('MSIE') > 0) && (this.element.getStyle('position') == 'absolute')) { this.element.insert({ after: ''}); this.iefix = $(this.element.id + '_iefix'); } if (this.iefix) { setTimeout(this.fixIEOverlapping.bind(this), 50); } }, fixIEOverlapping: function() { this.iefix.clonePosition(this.element).setStyle({ zIndex: 1 }).show(); this.element.setStyle({ zIndex: 2 }); }, hide: function() { this.active = false; this.stopIndicator(); if (this.element.visible()) { this.options.onHide(this.element); } if (this.iefix) { this.iefix.hide(); } }, startIndicator: function() { if (this.options.indicator) { $(this.options.indicator).show(); } }, stopIndicator: function() { if (this.options.indicator) { $(this.options.indicator).hide(); } }, onKeyPress: function(e) { if (!this.active) { return; } switch (e.keyCode) { case Event.KEY_TAB: case Event.KEY_RETURN: this.selectEntry(); e.stop(); case Event.KEY_ESC: this.hide(); this.active = false; e.stop(); return; case Event.KEY_LEFT: case Event.KEY_RIGHT: return; case Event.KEY_UP: this.markPrevious(); this.render(); e.stop(); return; case Event.KEY_DOWN: this.markNext(); this.render(); e.stop(); return; } }, onHover: function(e) { var element = e.findElement('LI'), index = parseInt(element.readAttribute('autocompleteIndex')); if (this.index != index) { this.index = index; this.render(); } e.stop(); }, onClick: function(e) { var element = e.findElement('LI'); this.index = parseInt(element.readAttribute('autocompleteIndex')); this.selectEntry(); this.hide(); e.stop(); }, onBlur: function() { setTimeout(this.hide.bind(this), 250); this.active = false; }, render: function() { if (this.entryCount > 0) { for (var i = 0; i < this.entryCount; i++) { [ this.getEntry(i) ].invoke(this.index == i ? 'addClassName' : 'removeClassName', 'selected'); } this.show(); this.active = true; } else { this.hide(); this.active = false; } }, markPrevious: function() { if (this.index > 0) { this.index--; } else { this.index = this.entryCount - 1; } }, markNext: function() { if (this.index < this.entryCount - 1) { this.index++; } else { this.index = 0; } }, getEntry: function(index) { return this.element.down().down(index); }, getCurrentEntry: function() { return this.getEntry(this.index); }, selectEntry: function() { this.active = false; if (typeof this.options.onChoose == 'function') { this.options.onChoose(this.getCurrentEntry()); } } }); ./js/src/mailbox.js0000644000175000017500000001772411702026733014275 0ustar mathieumathieu/** * Provides the javascript for the mailbox.php script * * $Horde: imp/js/src/mailbox.js,v 1.10.2.7 2008/10/24 21:52:34 jan Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ var keyId, startrange = null; function anySelected() { return $H(messagelist).keys().detect(function(e) { return $('check' + e).checked; }); } function selectRow(id, select) { var rid = $(id.replace(/check/, 'row')); if (select) { rid.addClassName('selectedRow'); } else { // Make sure to remove both regular and -over versions. rid.removeClassName('selectedRow'); rid.removeClassName('selectedRow-over'); } $(id).checked = select; } function imp_confirm(url, msg) { RedBox.overlay = true; RedBox.showHtml('

' + msg + '

' + '
'); } function messages_submit(actID) { if (!anySelected()) { alert(IMP.text.mailbox_submit); return; } if (actID == 'delete_messages') { if (IMP.conf.pop3 && !confirm(IMP.text.mailbox_delete)) { return; } } else if (actID == 'spam_report') { if (!confirm(IMP.text.spam_report)) { return; } } else if (actID == 'notspam_report') { if (!confirm(IMP.text.notspam_report)) { return; } } $('actionID').setValue(actID); $('messages').submit(); } function makeSelection(form) { var flag = ''; switch (parseInt(form)) { case -1: if ($('checkAll').checked) { flag = '!'; } flag += IMP.conf.IMP_ALL; break; case 1: flag = $F('filter1'); break; default: flag = $F('filter2'); } // Fixes Bug #6893 if (flag.empty()) { return; } else if (flag.startsWith('!')) { selectFlagged(parseInt(flag.substring(1)), false); } else if (flag.startsWith('+')) { selectFlagged(flag.substring(0, 1), null); } else { selectFlagged(parseInt(flag), true); } // Reset the form. switch (parseInt(form)) { case -1: break; case 1: $('select1').reset(); break; default: $('select2').reset(); } } function selectRange(event) { Event.extend(event); var id = event.element().id, checkbox = $(id); if (!checkbox) { return; } var checked = checkbox.checked; if (startrange !== null && event.shiftKey) { var elts = [ $(startrange).id, checkbox.id ]; var count = 0; $H(messagelist).keys().detect(function(r) { r = 'check' + r; if (elts.indexOf(r) != -1) { ++count; } if (count) { selectRow(r, checked); if (count == 2) { return true; } } }); } else { selectRow(id, checked); } startrange = id; } function updateFolders(form) { var tm2 = $('targetMailbox2'); if (tm2) { var tm1 = $('targetMailbox1'); if ((form == 1 && $F(tm1) != "") || (form == 2 && $F(tm2) != "")) { var index = (form == 1) ? tm1.selectedIndex : tm2.selectedIndex; tm1.selectedIndex = tm2.selectedIndex = index; } } } function transfer(actID, form) { if (anySelected()) { var tmbox = $('targetMbox'); tmbox.setValue((form == 1) ? $F('targetMailbox1') : $F('targetMailbox2')); // Check for a mailbox actually being selected. if ($F(tmbox) == '*new*') { var newFolder = prompt(IMP.text.newfolder, ''); if (newFolder != null && newFolder != '') { $('newMbox').setValue(1); tmbox.setValue(newFolder); messages_submit(actID); } } else { if ($F(tmbox) == '') { alert(IMP.text.target_mbox); } else { messages_submit(actID); } } } else { alert(IMP.text.mailbox_selectone); } } // Put everything reliant on IMAP flags in this section. function selectFlagged(flag, val) { $H(messagelist).keys().each(function(e) { var check, elt = $('check' + e); if (flag == '+') { check = !elt.checked; } else if (flag & messagelist[e]) { check = val; } else { check = !val; } selectRow(elt.id, check); }); } function flagMessages(form) { var f1 = $('flag1'), f2 = $('flag2'); if ((form == 1 && $F(f1) != "") || (form == 2 && $F(f2) != "")) { if (anySelected()) { // Can't use $() here. See Bug #4736. document.messages.flag.value = (form == 1) ? $F(f1) : $F(f2); messages_submit('flag_messages'); } else { if (form == 1) { f1.selectedIndex = 0; } else { f2.selectedIndex = 0; } alert(IMP.text.mailbox_selectone); } } } function getMessage(id, offset) { if (!offset) { return id; } var mlist = $H(messagelist).keys(); var i = mlist.indexOf(id); if (i != -1) { var j = i + offset; if (j >= 0 && j < mlist.length) { return mlist[j]; } } return ''; } function onKeyDownHandler(e) { var o = e.element(); var key = e.keyCode; var next, old; if (e.altKey || e.ctrlKey) { var checkinc, subjinc; switch (key) { case Event.KEY_UP: checkinc = -1; subjinc = -1; break; case Event.KEY_DOWN: checkinc = 1; subjinc = 1; break; default: return; } if (typeof messagelist == 'undefined') { return; } if (o.id.indexOf('check') == 0 && o.tagName == 'INPUT') { old = o.id.substring(5); keyId = getMessage(old, checkinc); next = $('subject' + keyId); } else if (o.id.indexOf('subject') == 0 && o.tagName == 'A') { old = o.id.substring(7); keyId = getMessage(old, subjinc); next = $('subject' + keyId); } else { keyId = ((checkinc + subjinc) > 0) ? $H(messagelist).keys().first() : $H(messagelist).keys().last(); if (Event.KEY_UP || Event.KEY_DOWN) { next = $('subject' + keyId); } } } else if (key == 32 && o.id.indexOf('subject') == 0 && o.tagName == 'A') { // Space key - toggle selection of the current message. startrange = 'check' + keyId; selectRow(startrange, !$(startrange).checked); } else if (!e.shiftKey) { var loc; if (key == Event.KEY_LEFT && $('prev')) { loc = $('prev').href; } else if (key == Event.KEY_RIGHT && $('next')) { loc = $('next').href; } if (loc) { document.location.href = loc; } return; } else { return; } if (next) { next.focus(); var row = $('row' + keyId); if (e.altKey) { var nextId = next.id.replace(/subject/, 'check'); selectRow(nextId, !$(nextId).checked); } else if (old != next.id && row.className.indexOf('-over') == -1) { row.className += '-over'; } if (old) { row = $('row' + old); if (old != next.id) { row.className = row.className.replace(/-over/, ''); } } } e.stop(); } if (IMP.conf.hasDOM) { document.observe('dom:loaded', function() { document.observe('keydown', onKeyDownHandler); }); } ./js/src/fetchmailprefs.js0000644000175000017500000000124211702026733015622 0ustar mathieumathieu/** * Provides the javascript for the fetchmailprefs.php script. * * $Horde: imp/js/src/fetchmailprefs.js,v 1.3.2.3 2008/01/11 18:07:00 slusarz Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ var fmprefs_loading = false; function accountSubmit(isnew) { if (!fmprefs_loading && ((isnew != null) || !$F('account').empty())) { fmprefs_loading = true; $('fm_switch').submit(); } } function driverSubmit() { if (!fmprefs_loading && $F('fm_driver')) { fmprefs_loading = true; $('fm_driver_form').submit(); } } ./js/src/autocomplete.js0000644000175000017500000002644611702026733015344 0ustar mathieumathieu/** * autocomplete.js - A javascript library which implements autocomplete. * Requires prototype.js v1.6.0.2+ and scriptaculous v1.8.0+ (effects.js) * * Adapted from script.aculo.us controls.js v1.8.0 * (c) 2005-2007 Thomas Fuchs, Ivan Krstic, and Jon Tirsen * Contributors: Richard Livsey, Rahul Bhargava, Rob Wills * http://script.aculo.us/ * * The original script was freely distributable under the terms of an * MIT-style license. * * $Horde: imp/js/src/autocomplete.js,v 1.3.2.6 2009/01/06 15:24:03 jan Exp $ * * Copyright 2007-2009 The Horde Project (http://www.horde.org/) * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ var Autocompleter = {}; Autocompleter.Base = Class.create({ baseInitialize: function(element, update, options) { this.element = $(element); this.update = $(update).hide(); this.active = this.changed = this.hasFocus = false; this.entryCount = this.index = 0; this.observer = null; this.oldElementValue = this.element.value; this.options = Object.extend({ paramName: this.element.name, tokens: [], frequency: 0.4, minChars: 1, onHide: this._onHide.bind(this), onShow: this._onShow.bind(this) }, (this._setOptions) ? this._setOptions(options) : (options || {})); // Force carriage returns as token delimiters anyway if (!this.options.tokens.include('\n')) { this.options.tokens.push('\n'); } this.element.writeAttribute('autocomplete', 'off').observe("blur", this._onBlur.bindAsEventListener(this)).observe(Prototype.Browser.Gecko ? "keypress" : "keydown", this._onKeyPress.bindAsEventListener(this)); }, _onShow: function(elt, update) { var c, p = update.getStyle('position'); if (!p || p == 'absolute') { // Temporary fix for Bug #7074 - Fixed as of prototypejs 1.6.0.3 c = (Prototype.Browser.IE) ? elt.cumulativeScrollOffset() : [ 0 ]; update.setStyle({ position: 'absolute' }).clonePosition(elt, { setHeight: false, offsetTop: elt.offsetHeight, offsetLeft: c[0] }); } new Effect.Appear(update, { duration: 0.15 }); }, _onHide: function(elt, update) { new Effect.Fade(update, { duration: 0.15 }); }, show: function() { if (!this.update.visible()) { this.options.onShow(this.element, this.update); } if (Prototype.Browser.IE && !this.iefix && this.update.getStyle('position') == 'absolute') { this.iefix = new Element('IFRAME', { src: 'javascript:false;', frameborder: 0, scrolling: 'no' }).setStyle({ position: 'absolute', filter: 'progid:DXImageTransform.Microsoft.Alpha(opactiy=0)', zIndex: 1 }).hide(); this.update.setStyle({ zIndex: 2 }).insert({ after: this.iefix }); } if (this.iefix) { this._fixIEOverlapping.bind(this).delay(0.05); } }, _fixIEOverlapping: function() { this.iefix.clonePosition(this.update).show(); }, hide: function() { this.stopIndicator(); if (this.update.visible()) { this.options.onHide(this.element, this.update); if (this.iefix) { this.iefix.hide(); } } }, startIndicator: function() { if (this.options.indicator) { $(this.options.indicator).show(); } }, stopIndicator: function() { if (this.options.indicator) { $(this.options.indicator).hide(); } }, _onKeyPress: function(e) { if (this.active) { switch (e.keyCode) { case Event.KEY_TAB: case Event.KEY_RETURN: this.selectEntry(); e.stop(); return; case Event.KEY_ESC: this.hide(); this.active = false; e.stop(); return; case Event.KEY_LEFT: case Event.KEY_RIGHT: return; case Event.KEY_UP: case Event.KEY_DOWN: if (e.keyCode == Event.KEY_UP) { this.markPrevious(); } else { this.markNext(); } this.render(); e.stop(); return; } } else { switch (e.keyCode) { case 0: if (!Prototype.Browser.WebKit) { break; } // Fall through to below case // case Event.KEY_TAB: case Event.KEY_RETURN: return; } } this.changed = this.hasFocus = true; if (this.observer) { clearTimeout(this.observer); } this.observer = this.onObserverEvent.bind(this).delay(this.options.frequency); }, _onHover: function(e) { var elt = e.findElement('LI'), index = elt.readAttribute('acIndex'); if (this.index != index) { this.index = index; this.render(); } e.stop(); }, _onClick: function(e) { this.index = e.findElement('LI').readAttribute('acIndex'); this.selectEntry(); }, _onBlur: function(e) { // Needed to make click events work this.hide.bind(this).delay(0.25); this.active = this.hasFocus = false; }, render: function() { var i = 0; if (this.entryCount) { this.update.down().childElements().each(function(e) { [ e ].invoke(this.index == i++ ? 'addClassName' : 'removeClassName', 'selected'); }, this); if (this.hasFocus) { this.show(); this.active = true; } } else { this.active = false; this.hide(); } }, markPrevious: function() { if (this.index) { --this.index; } else { this.index = this.entryCount - 1; } this.getEntry(this.index).scrollIntoView(true); }, markNext: function() { if (this.index < this.entryCount - 1) { ++this.index; } else { this.index = 0; } this.getEntry(this.index).scrollIntoView(false); }, getEntry: function(index) { return this.update.down().childElements()[index]; }, selectEntry: function() { this.active = false; this.updateElement(this.getEntry(this.index)); this.hide(); }, updateElement: function(elt) { var bounds, newValue, nodes, whitespace, v, value = ''; if (this.options.updateElement) { this.options.updateElement(elt); return; } if (this.options.select) { nodes = $(elt).select('.' + this.options.select) || []; if (nodes.size()) { value = nodes[0].collectTextNodes(this.options.select); } } else { value = elt.collectTextNodesIgnoreClass('informal'); } bounds = this.getTokenBounds(); if (bounds[0] != -1) { v = this.element.value; newValue = v.substr(0, bounds[0]); whitespace = v.substr(bounds[0]).match(/^\s+/); if (whitespace) { newValue += whitespace[0]; } this.element.value = newValue + value + v.substr(bounds[1]); } else { this.element.value = value; } this.element.focus(); if (this.options.afterUpdateElement) { this.options.afterUpdateElement(this.element, elt); } this.oldElementValue = this.element.value; }, updateChoices: function(choices) { var c, i = 0; if (!this.changed && this.hasFocus) { this.update.update(choices); c = this.update.down().childElements(); this.entryCount = c.size(); c.each(function(n) { n.writeAttribute('acIndex', i++); this.addObservers(n); }, this); this.stopIndicator(); this.index = 0; if (this.entryCount == 1 && this.options.autoSelect) { this.selectEntry(); } else { this.render(); } } }, addObservers: function(elt) { $(elt).observe("mouseover", this._onHover.bindAsEventListener(this)).observe("click", this._onClick.bindAsEventListener(this)); }, onObserverEvent: function() { this.changed = false; if (this.getToken().length >= this.options.minChars) { this.getUpdatedChoices(); } else { this.active = false; this.hide(); } this.oldElementValue = this.element.value; }, getToken: function() { var bounds = this.getTokenBounds(); return this.element.value.substring(bounds[0], bounds[1]).strip(); }, getTokenBounds: function() { var diff, i, l, offset, tp, index = 0, value = this.element.value, nextTokenPos = value.length, prevTokenPos = -1, boundary = Math.min(value.length, this.oldElementValue.length); if (value.strip().empty()) { return [ -1, 0 ]; } diff = boundary; for (i = 0; i < boundary; ++i) { if (value[i] != this.oldElementValue[i]) { diff = i; break; } } offset = (diff == this.oldElementValue.length ? 1 : 0); for (l = this.options.tokens.length; index < l; ++index) { tp = value.lastIndexOf(this.options.tokens[index], diff + offset - 1); if (tp > prevTokenPos) { prevTokenPos = tp; } tp = value.indexOf(this.options.tokens[index], diff + offset); if (tp != -1 && tp < nextTokenPos) { nextTokenPos = tp; } } return [ prevTokenPos + 1, nextTokenPos ]; } }); Ajax.Autocompleter = Class.create(Autocompleter.Base, { initialize: function(element, update, url, options) { this.baseInitialize(element, update, options); this.options = Object.extend(this.options, { asynchronous: true, onComplete: this._onComplete.bind(this), defaultParams: $H(this.options.parameters) }); this.url = url; this.cache = $H(); }, getUpdatedChoices: function() { var p, t = this.getToken(), c = this.cache.get(t); if (c) { this.updateChoices(c); } else { p = Object.clone(this.options.defaultParams); this.startIndicator(); p.set(this.options.paramName, t); this.options.parameters = p.toQueryString(); new Ajax.Request(this.url, this.options); } }, _onComplete: function(request) { this.updateChoices(this.cache.set(this.getToken(), request.responseText)); } }); ./js/src/redbox.js0000644000175000017500000000657711702026733014131 0ustar mathieumathieu/** * Redbox.js * * $Horde: imp/js/src/redbox.js,v 1.10.2.4 2008/02/06 10:08:39 slusarz Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ var RedBox = { overlay: true, onDisplay: null, showInline: function(id) { this.appearWindow(); this.cloneWindowContents(id); }, showHtml: function(html) { this.appearWindow(); this.htmlWindowContents(html); }, appearWindow: function() { var loading = $('RB_loading'); if (loading && loading.visible()) { loading.hide(); } else { this.showOverlay(); } var opts = { duration: 0.4, queue: 'end' }, w = $('RB_window'); if (this.onDisplay) { opts.afterFinish = this.onDisplay; } new Effect.Appear(w, opts); w.scrollTo(); }, loading: function() { this.showOverlay(); var rl = $('RB_loading'); if (rl) { rl.show(); } this.setWindowPosition(); }, close: function() { new Effect.Fade('RB_window', { duration: 0.4 }); if (this.overlay) { new Effect.Fade('RB_overlay', { duration: 0.4 }); } }, showOverlay: function() { var rb = $('RB_redbox'); if (!rb) { rb = new Element('DIV', { id: 'RB_redbox', align: 'center' }); $(document.body).insert(rb); var ov = new Element('DIV', { id: 'RB_overlay' }).hide(); rb.insert({ top: new Element('DIV', { id: 'RB_window' }).hide() }).insert({ top: ov }); if (this.overlay) { ov.insert({ top: new Element('DIV', { id: 'RB_loading' }).hide() }); } } if (this.overlay) { this.setOverlaySize(); new Effect.Appear('RB_overlay', { duration: 0.4, to: 0.6, queue: 'end' }); } }, setOverlaySize: function() { if (window.innerHeight && window.scrollMaxY) { yScroll = window.innerHeight + window.scrollMaxY; } else if (document.body.scrollHeight > document.body.offsetHeight) { // all but Explorer Mac yScroll = document.body.scrollHeight; } else { // Explorer Mac...would also work in Explorer 6 Strict, Mozilla // and Safari yScroll = document.body.offsetHeight; } Element.setStyle('RB_overlay', { height: yScroll + 'px' }); }, setWindowPosition: function() { var win = $('RB_window'); var d = win.getDimensions(), v = document.viewport.getDimensions(); win.setStyle({ width: 'auto', height: 'auto', left: ((v.width - d.width) / 2) + 'px', top: ((v.height - d.height) / 2) + 'px' }); }, cloneWindowContents: function(id) { $('RB_window').appendChild($($(id).cloneNode(true)).setStyle({ display: 'block' })); this.setWindowPosition(); }, htmlWindowContents: function(html) { $('RB_window').update(html); this.setWindowPosition(); }, getWindowContents: function() { var w = $('RB_window'); return w.visible() ? w.down() : null; }, overlayVisible: function() { var ov = $('RB_overlay'); return ov && ov.visible(); } } ./js/src/contacts.js0000644000175000017500000000611211702026733014445 0ustar mathieumathieu/** * Provides the javascript for the contacts.php script * * $Horde: imp/js/src/contacts.js,v 1.6.2.6 2008/08/22 15:54:25 jan Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ // The following variables are defined in contacts.php: // formname, to_only function passAddresses() { var sa = ''; $('selected_addresses').childElements().each(function(s) { if (!s.value) { return; } sa += s.value + '|'; }); $('sa').setValue(sa); } function sameOption(f, item, itemj) { var t = f + ": " + item.value, tj = itemj.value; return Try.these( function() { return (t == tj) || (decodeURIComponent(t) == decodeURIComponent(tj)); }, // Catch exception with NS 7.1 function() { return (t == tj); } ); } function addAddress(f) { var s = $('search_results'); if (!$F(s).size()) { alert(IMP.text.contacts_select); return false; } else { var d = $('selected_addresses'), l = $A(d).length, option; s.childElements().each(function(i) { if (i.value && i.selected) { if (!$A(d).any(function(j) { return sameOption(f, i, j); })) { option = f + ': ' + i.value; d[l++] = new Option(option, option); } } }); } return true; } function updateMessage() { if (parent.opener.closed) { alert(IMP.text.contacts_closed); this.close(); return; } if (!parent.opener.document[formname]) { alert(IMP.text.contacts_called); this.close(); return; } $('selected_addresses').childElements().each(function(s) { var address = s.value, f, field = null, pos, v; pos = address.indexOf(':'); f = address.substring(0, pos); address = address.substring(pos + 2, address.length) if (f == 'to') { field = parent.opener.document[formname].to; } else if (!to_only && f == 'cc') { field = parent.opener.document[formname].cc; } else if (!to_only && f == 'bcc') { field = parent.opener.document[formname].bcc; } else { return; } // Always delimit with commas. if (field.value.length) { v = field.value.replace(/, +/g, ',').split(',').findAll(function(s) { return s; }); field.value = v.join(', '); if (field.value.lastIndexOf(';') != field.value.length - 1) { field.value += ','; } field.value += ' ' + address; } else { field.value = address; } if (address.lastIndexOf(';') != address.length - 1) { field.value += ', '; } }); this.close(); } function removeAddress() { $('selected_addresses').childElements().each(function(o) { if (o.selected) { o.remove(); } }); } ./js/src/unblockImages.js0000644000175000017500000000212011702026733015405 0ustar mathieumathieu/** * $Horde: imp/js/src/unblockImages.js,v 1.7.2.2 2008/08/05 17:51:12 slusarz Exp $ * * Use DOM manipulation to un-block images that had been redirected. */ var IMP = window.IMP || {}; IMP.unblockImages = function(parent, message) { var tmp; if (!parent) { return true; } $(parent).select('[blocked]').each(function(elt) { var src = decodeURIComponent(elt.readAttribute('blocked')); if (elt.hasAttribute('src')) { elt.writeAttribute('src', src); } else if (elt.hasAttribute('background')) { elt.writeAttribute('background', src); } else if (elt.style.backgroundImage) { elt.setStyle({ backgroundImage: 'url(' + src + ')' }); } }); message = $(message); if (message) { tmp = message.up(); message.remove(); if (!tmp.childElements().size()) { tmp = tmp.up('TABLE.mimeStatusMessage'); if (tmp) { tmp.remove(); } } } // On success return false to stop event propagation. return false; }; ./js/src/compose.js0000644000175000017500000002656411702026733014311 0ustar mathieumathieu/** * Provides the javascript for the compose.php script. * * $Horde: imp/js/src/compose.js,v 1.15.2.16 2010/03/11 06:11:24 slusarz Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ /* * Variables defined in compose.php: * cancel_url, compose_spellcheck, cursor_pos, identities, max_attachments, * popup, redirect, rtemode, smf_check */ var display_unload_warning = true, fckedit_event = false, textarea_ready = true, skip_spellcheck = false; /** * Retrieve the editor object. */ function _getXinha() { var ed = Try.these( function() { return __editors.message; }, function() { return _editors.message; }, function() { return _editors[$('message')]; } ); if (!ed) { throw 'Unable to find the HTML Editor object, cannot continue.'; } return ed; } function confirmCancel(event) { if (window.confirm(IMP.text.compose_cancel)) { display_unload_warning = false; if (popup) { if (cancel_url) { self.location = cancel_url; } else { self.close(); } } else { window.location = cancel_url; } return true; } else { Event.extend(event); event.stop(); return false; } } /** * Sets the cursor to the given position. */ function setCursorPosition(input, position) { if (input.setSelectionRange) { /* This works in Mozilla */ Field.focus(input); input.setSelectionRange(position, position); } else if (input.createTextRange) { /* This works in IE */ var range = input.createTextRange(); range.collapse(true); range.moveStart('character', position); range.moveEnd('character', 0); Field.select(range); range.scrollIntoView(true); } } function redirectSubmit(event) { if ($F('to') == '') { alert(IMP.text.compose_recipient); $('to').focus(); Event.extend(event); event.stop(); return false; } $('redirect').setStyle({ cursor: 'wait' }); display_unload_warning = false; return true; } function change_identity(id) { var last = identities[$F('last_identity')], next = identities[id], msg, ed, lastSignature, nextSignature; // If the rich text editor is on, we'll use a regexp to find the // signature comment and replace its contents. if (rtemode) { switch (IMP.conf.js_editor) { case 'xinha': ed = _getXinha(); msg = ed.getHTML(); break; case 'fckeditor': ed = FCKeditorAPI.GetInstance('message'); msg = ed.GetHTML(); break; } msg = msg.replace(/\r\n/g, '\n'); lastSignature = '

'; nextSignature = '

' + next[0].replace(/^ ?
\n/, '').replace(/ +/g, ' ') + '

'; // Dot-all functionality achieved with [\s\S], see: // http://simonwillison.net/2004/Sep/20/newlines/ msg = msg.replace(/

\s*[\s\S]*?\s*<\/p>/, lastSignature); } else { msg = $F('message').replace(/\r\n/g, '\n'); lastSignature = last[0].replace(/^\n/, ''); nextSignature = next[0].replace(/^\n/, ''); } var pos = (last[1]) ? msg.indexOf(lastSignature) : msg.lastIndexOf(lastSignature); if (pos != -1) { if (next[1] == last[1]) { msg = msg.substring(0, pos) + nextSignature + msg.substring(pos + lastSignature.length, msg.length); } else if (next[1]) { msg = nextSignature + msg.substring(0, pos) + msg.substring(pos + lastSignature.length, msg.length); } else { msg = msg.substring(0, pos) + msg.substring(pos + lastSignature.length, msg.length) + nextSignature; } msg = msg.replace(/\r\n/g, '\n').replace(/\n/g, '\r\n'); $('last_identity').setValue(id); window.status = IMP.text.compose_sigreplace; } else { window.status = IMP.text.compose_signotreplace; } if (rtemode) { switch (IMP.conf.js_editor) { case 'xinha': ed.setHTML(msg); break; case 'fckeditor': ed.SetHTML(msg); break; } } else { $('message').setValue(msg); } var smf = $('sent_mail_folder'); if (smf_check) { var i = 0; $A(smf.options).detect(function(f) { if (f.value == next[2]) { smf.selectedIndex = i; return true; } ++i; }); } else { if (smf.firstChild) { smf.replaceChild(document.createTextNode(next[2]), smf.firstChild); } else { smf.appendChild(document.createTextNode(next[2])); } } var save = $('ssm'); if (save) { save.checked = next[3]; } var bcc = $('bcc'); if (bcc) { bccval = bcc.value; if (last[4]) { var re = new RegExp(last[4] + ",? ?", 'gi'); bccval = bccval.replace(re, ""); if (bccval) { bccval = bccval.replace(/, ?$/, ""); } } if (next[4]) { if (bccval) { bccval += ', '; } bccval += next[4]; } bcc.setValue(bccval); } } function uniqSubmit(actionID, event) { if (event) { Event.extend(event); event.stop(); } if (actionID == 'send_message') { if (!skip_spellcheck && compose_spellcheck && IMP.SpellCheckerObject && !IMP.SpellCheckerObject.isActive()) { IMP.SpellCheckerObject.spellCheck(onNoSpellError.curry(actionID, event)); return; } if (($F('subject') == '') && !window.confirm(IMP.text.compose_nosubject)) { return; } } skip_spellcheck = false; if (IMP.SpellCheckerObject) { IMP.SpellCheckerObject.resume(); } // Ticket #6727; this breaks on WebKit w/FCKeditor. if (!Prototype.Browser.WebKit) { $('compose').setStyle({ cursor: 'wait' }); } display_unload_warning = false; $('actionID').setValue(actionID); _uniqSubmit(); } function _uniqSubmit() { if (textarea_ready) { $('compose').submit(); } else { _uniqSubmit.defer(); } } function onNoSpellError(actionID, e) { skip_spellcheck = true; textarea_ready = true; uniqSubmit(actionID, e); } function attachmentChanged() { var fields = [], usedFields = 0; $('upload_atc').select('input[type="file"]').each(function(i) { fields[fields.length] = i; }); if (max_attachments !== null && fields.length == max_attachments) { return; } fields.each(function(i) { if (i.value.length > 0) { usedFields++; } }); if (usedFields == fields.length) { var lastRow = $('attachment_row_' + usedFields); if (lastRow) { var td = new Element('TD', { align: 'left' }).insert(new Element('STRONG').insert(IMP.text.compose_file + ' ' + (usedFields + 1) + ':')).insert(' ') var file = new Element('INPUT', { type: 'file', name: 'upload_' + (usedFields + 1), size: 25 }); file.observe('change', attachmentChanged); td.insert(file); var select = new Element('SELECT', { name: 'upload_disposition_' + (usedFields + 1) }); select.options[0] = new Option(IMP.text.compose_attachment, 'attachment', true); select.options[1] = new Option(IMP.text.compose_inline, 'inline'); var newRow = new Element('TR', { id: 'attachment_row_' + (usedFields + 1) }).insert(td).insert(new Element('TD', { align: 'left' }).insert(select)); lastRow.parentNode.insertBefore(newRow, lastRow.nextSibling); } } } function initializeSpellChecker() { if (typeof IMP.SpellCheckerObject != 'object') { // If we fired before the onload that initializes the // spellcheck, wait. initializeSpellChecker.defer(); return; } IMP.SpellCheckerObject.onBeforeSpellCheck = function() { IMP.SpellCheckerObject.htmlAreaParent = 'messageParent'; switch (IMP.conf.js_editor) { case 'xinha': var ed = _getXinha(); IMP.SpellCheckerObject.htmlArea = ed._htmlArea; ed._textArea.setValue(ed.outwardHtml(ed.getHTML())); break; case 'fckeditor': IMP.SpellCheckerObject.htmlArea = $('message').adjacent('iframe[id*=message]').first(); $('message').setValue(FCKeditorAPI.GetInstance('message').GetHTML()); textarea_ready = false; break; } } IMP.SpellCheckerObject.onAfterSpellCheck = function() { var ed; IMP.SpellCheckerObject.htmlArea = IMP.SpellCheckerObject.htmlAreaParent = null; switch (IMP.conf.js_editor) { case 'xinha': ed = _getXinha(); ed.setHTML(ed.inwardHtml(ed._textArea.value)); break; case 'fckeditor': ed = FCKeditorAPI.GetInstance('message'); if (!this.fckedit_event) { ed.Events.AttachEvent('OnAfterSetHTML', function() { textarea_ready = true; }); this.fckedit_event = true; } ed.SetHTML($('message').value); break; } } } /** * Code to run on window load. */ document.observe('dom:loaded', function() { /* Prevent Return from sending messages - it should bring us out of * autocomplete, not submit the whole form. */ $$('INPUT').each(function(i) { /* Attach to everything but button and submit elements. */ if (i.type != 'submit' && i.type != 'button') { i.observe('keydown', function(e) { if (e.keyCode == 10 || e.keyCode == Event.KEY_RETURN) { e.stop(); return false; } }); } }); if (cursor_pos !== null && $('message')) { setCursorPosition($('message'), cursor_pos); } if (redirect) { $('to').focus(); } else { if (Prototype.Browser.IE) { $('subject').observe('keydown', function(e) { if (e.keyCode == Event.KEY_TAB && !e.shiftKey) { e.stop(); $('message').focus(); } }); } if (rtemode) { initializeSpellChecker(); } if ($('to') && !$F('to')) { $('to').focus(); } else if (!$F('subject')) { if (rtemode) { $('subject').focus(); } else { $('message').focus(); } } } }); Event.observe(window, 'load', function() { if (compose_popup && !reloaded) { var d, e = redirect ? $('redirect') : $('compose'); d = Math.min(e.getHeight(), screen.height - 100) - document.viewport.getHeight(); if (d > 0) { window.resizeBy(0, d); } } }); /** * Warn before closing the window. */ Event.observe(window, 'beforeunload', function() { if (display_unload_warning) { return IMP.text.compose_discard; } }); ./js/src/SpellChecker.js0000644000175000017500000002454511702026733015205 0ustar mathieumathieu/** * This spell checker was inspired by work done by Garrison Locke, but * was rewritten almost completely by Chuck Hagenbuch to use * Prototype/Scriptaculous. * * $Horde: imp/js/src/SpellChecker.js,v 1.36.2.13 2009/06/22 04:03:25 slusarz Exp $ * * Copyright 2005-2009 The Horde Project (http://www.horde.org/) * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ var SpellChecker = Class.create({ // Vars used and defaulting to null: // bad, choices, choicesDiv, curWord, htmlArea, htmlAreaParent, locale, // localeChoices, onAfterSpellCheck, onBeforeSpellCheck, onNoError, // reviewDiv, statusButton, statusClass, suggestions, target, url options: {}, resumeOnDblClick: true, state: 'CheckSpelling', // url = (string) URL of specllchecker handler // target = (string) DOM ID of message data // statusButton = (string/element) DOM ID or element of the status button // bs = (array) Button states // locales = (array) List of locales // sc = (string) Status class initialize: function(url, target, statusButton, bs, locales, sc) { var d, popdown, ul; this.url = url; this.target = target; this.statusButton = $(statusButton); this.buttonStates = bs; this.statusClass = sc || ''; this.statusButton.observe('click', this.process.bindAsEventListener(this)); this.options.onComplete = this.onComplete.bind(this); if (locales) { d = new Element('DIV', { className: 'autocomplete', id: 'spellcheckpopdown' }).setStyle({ position: 'absolute' }).hide(); ul = new Element('UL'); $H(locales).each(function(pair) { ul.insert({ bottom: new Element('LI', { lc: pair.key }).update(pair.value) }); }); d.insert({ bottom: ul }); this.localeChoices = new KeyNavList(d, { onChoose: this.setLocale.bindAsEventListener(this) }); popdown = new Element('A', { className: 'popdown' }).insert(' ').observe('click', function() { $('spellcheckpopdown').clonePosition(this.statusButton, { setHeight: false, setWidth: false, offsetTop: this.statusButton.getHeight() }); this.localeChoices.show(); }.bind(this)); this.statusButton.insert({ after: popdown }); $(document.body).insert(d); } // We need to monitor clicks to know when to go out of // showSuggestions mode. document.observe('click', this.onClick.bindAsEventListener(this)); this.status('CheckSpelling'); }, setLocale: function(e) { this.locale = e.readAttribute('lc'); }, targetValue: function() { var input = $(this.target); return (Object.isUndefined(input.value)) ? input.innerHTML : input.value; }, process: function(e) { switch (this.state) { case 'CheckSpelling': this.spellCheck(); break; case 'ResumeEdit': this.resume(); break; } e.stop(); }, // noerror - (function) A callback function to run if no errors are // identified. If not specified, will remain in spell check // mode even if no errors are present. spellCheck: function(noerror) { if (this.onBeforeSpellCheck) { this.onBeforeSpellCheck(); } var opts = Object.clone(this.options), p = $H(), url = this.url; this.status('Checking'); this.removeChoices(); this.onNoError = noerror; p.set(this.target, this.targetValue()); opts.parameters = p.toQueryString(); if (this.locale) { url += '/locale=' + this.locale; } if (this.htmlAreaParent) { url += '/html=1'; } new Ajax.Request(url, opts); }, onClick: function(e) { // If the language dropdown is currently active, and the click // got here, then we should hide the language dropdown. if (this.localeChoices) { this.localeChoices.hide(); } // If we're not currently showing any choices, then we return // and let the click go. if (!this.choicesDiv) { return true; } // If the click was on the word that we're currently showing // results for, then we do nothing and let the list be // redisplayed by the link's own onclick handler. var link = e.findElement('SPAN'); if (link && link == this.curWord) { return true; } // The KeyNavList will have already handled any valid clicks, // so that just leaves the rest of the window - in this case // we want to hide the KeyNavList and reset curWord without // changing anything. this.removeChoices(); this.curWord = null; }, onComplete: function(request) { var bad, content, d, i = 0, input = $(this.target), result = request.responseText.evalJSON(true); this.removeChoices(); if (Object.isUndefined(result)) { this.status('Error'); return; } this.suggestions = result.suggestions || []; if (this.onNoError && !this.suggestions.size()) { this.status('CheckSpelling'); this.onNoError(); return; } bad = result.bad || []; content = this.targetValue(); content = this.htmlAreaParent ? content.replace(/\r?\n/g, '') : content.replace(/\r?\n/g, '~~~').escapeHTML(); $A(bad).each(function(node) { var re_text = '' + node + ''; content = content.replace(new RegExp("(?:^|\\b)" + RegExp.escape(node) + "(?:\\b|$)", 'g'), re_text); // Go through and see if we matched anything inside a tag (i.e. // class/name/incorrect is often matched if using a non-English // lang). content = content.replace(new RegExp("(<[^>]*)" + RegExp.escape(re_text) + "([^>]*>)", 'g'), '\$1' + node + '\$2'); }, this); if (!this.reviewDiv) { this.reviewDiv = new Element('div', { className: input.readAttribute('className') + ' spellcheck' }).setStyle({ overflow: 'auto' }); if (this.resumeOnDblClick) { this.reviewDiv.observe('dblclick', this.resume.bind(this)); } } d = input.getDimensions(); this.reviewDiv.setStyle({ width: d.width + 'px', height: d.height + 'px'}); if (!this.htmlAreaParent) { content = content.replace(/~~~/g, '
'); } this.reviewDiv.update(content); // Now attach results behavior to each link. this.reviewDiv.select('span[name="incorrect"]').invoke('observe', 'click', this.showSuggestions.bindAsEventListener(this)); // Falsify links this.reviewDiv.select('A').invoke('observe', 'click', Event.stop); if (this.htmlAreaParent) { // Fix for Safari 3/fckeditor - Ticket #6909 Element.hide(this.htmlArea); $(this.htmlAreaParent).insert({ bottom: this.reviewDiv }); } else { input.hide().insert({ before: this.reviewDiv }); } this.status('ResumeEdit'); }, showSuggestions: function(e) { var pos, elt = e.element(), ul = new Element('UL'); try { pos = elt.viewportOffset(); } catch (err) { // Fix for Safari 3/fckeditor - Ticket #6909 pos = [ e.pointerX(), e.pointerY() ]; } this.removeChoices(); this.choicesDiv = new Element('DIV', { className: 'autocomplete' }).setStyle({ left: pos[0] + 'px', top: (pos[1] + 16) + 'px' }).hide(); this.curWord = elt; $A(this.suggestions[this.curWord.readAttribute('index')]).each(function(node) { ul.insert({ bottom: new Element('LI').update(node) }); }); this.choicesDiv.insert({ bottom: ul }); this.choices = new KeyNavList(this.choicesDiv, { onChoose: function(elt) { this.replaceWord(elt, this.curWord); }.bind(this) }).show(); $(document.body).insert(this.choicesDiv); }, replaceWord: function(li, word) { word.update(li.innerHTML).writeAttribute({ className: 'corrected' }); this.removeChoices(); }, removeChoices: function() { if (this.choicesDiv) { this.choicesDiv.remove(); this.choicesDiv = null; } }, resume: function() { this.removeChoices(); if (!this.reviewDiv) { return; } var input = $(this.target), t; this.reviewDiv.select('span[name="incorrect"]').each(function(n) { n.replace(n.innerHTML); }); // Unfalsify links this.reviewDiv.select('A').invoke('stopObserving', 'click'); t = this.reviewDiv.innerHTML; if (!this.htmlAreaParent) { t = t.replace(/
/gi, '~~~').unescapeHTML().replace(/~~~/g, "\n"); } input.value = t; input.disabled = false; if (this.resumeOnDblClick) { this.reviewDiv.stopObserving('dblclick'); } this.reviewDiv.remove(); this.reviewDiv = null; this.status('CheckSpelling'); if (this.htmlAreaParent) { // Fix for Safari 3/fckeditor - Ticket #6909 Element.show(this.htmlArea); } else { input.show(); } if (this.onAfterSpellCheck) { this.onAfterSpellCheck(); } }, status: function(state) { if (!this.statusButton) { return; } this.state = state; switch (this.statusButton.tagName) { case 'INPUT': this.statusButton.value = this.buttonStates[state]; break; case 'A': this.statusButton.update(this.buttonStates[state]); break; } this.statusButton.className = this.statusClass + ' ' + state; }, isActive: function() { return (this.reviewDiv); } }); ./js/src/search.js0000644000175000017500000000316511702026733014101 0ustar mathieumathieu/** * Provides the javascript for the search.php script * * $Horde: imp/js/src/search.js,v 1.4.2.2 2008/05/20 16:33:02 slusarz Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ function toggleAll(checked) { $('search').getInputs(null, 'search_folders[]').each(function(e) { e.checked = checked; }); } function dateCheck(field) { var m = $('search_' + field + '_month'), d = $('search_' + field + '_day'), y = $('search_' + field + '_year'); if (m.selectedIndex == 0) { m.selectedIndex = search_month; } if (d.selectedIndex == 0) { d.selectedIndex = search_day; } if (y.value == "") { y.value = search_year; } } function formCheck() { if (not_search && (!$('preselected_folders') || !$F('preselected_folders'))) { if (!Form.getInputs('search', null, 'search_folders[]').detect(function(e) { return e.checked; })) { alert(IMP.text.search_select); return false; } } $('actionID').setValue('do_search'); return true; } function search_reset() { $('actionID').setValue('reset_search'); $('search').submit(); return true; } function saveCache() { $('edit_query').setValue($F('save_cache')); $('search').submit(); } function delete_field(i) { $('delete_field_id').setValue(i); $('actionID').setValue('delete_field'); $('search').submit(); return true; } function show_subscribed(i) { $('show_subscribed_only').setValue(i); $('search').submit(); return false } ./js/src/message.js0000644000175000017500000000650411702026733014260 0ustar mathieumathieu/** * Provides the javascript for the message.php script * * $Horde: imp/js/src/message.js,v 1.8.2.4 2008/05/20 16:33:02 slusarz Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ function arrowHandler(e) { if (e.altKey || e.shiftKey || e.ctrlKey) { return; } switch (e.keyCode || e.charCode) { case Event.KEY_LEFT: if ($('prev')) { document.location.href = $('prev').href; } break; case Event.KEY_RIGHT: if ($('next')) { document.location.href = $('next').href; } break; } } function message_submit(actID) { if (actID == 'spam_report') { if (!window.confirm(IMP.text.spam_report)) { return; } } else if (actID == 'notspam_report') { if (!window.confirm(IMP.text.notspam_report)) { return; } } $('actionID').setValue(actID); $('messages').submit(); } function flagMessage(form) { var f1 = $('flag1'), f2 = $('flag2'); if ((form == 1 && $F(f1)) || (form == 2 && $F(f2))) { $('flag').setValue((form == 1) ? $F(f1) : $F(f2)); message_submit('flag_message'); } } function transfer(actID, form) { var tmbox = $('targetMbox'); tmbox.setValue((form == 1) ? $F('target1') : $F('target2')); // Check for a mailbox actually being selected. if ($F(tmbox) == '*new*') { var newFolder = window.prompt(IMP.text.newfolder, ''); if (newFolder != null && newFolder != '') { $('newMbox').setValue(1); tmbox.setValue(newFolder); message_submit(actID); } } else { if (!$F(tmbox)) { window.alert(IMP.text.target_mbox); } else { message_submit(actID); } } } function updateFolders(form) { var f = (form == 1) ? 2 : 1; $('target' + f).selectedIndex = $('target' + form).selectedIndex; } /* Function needed for IE compatibilty with drop-down menus. */ function messageActionsHover() { var iefix = new Element('IFRAME', { scrolling: 'no', frameborder: 0 }).hide(); iefix.setStyle({ position: 'absolute' }); // This can not appear in the new Element() call - Bug #5887 iefix.setAttribute('src', 'javascript:false;'); $$('UL.msgactions LI').each(function(li) { var fixcopy, ul = li.down('UL'), zindex; if (!ul) { return; } fixcopy = iefix.cloneNode(false); li.insert(fixcopy); fixcopy.clonePosition(ul); zindex = li.getStyle('zIndex'); if (zindex == '') { li.setStyle({ zIndex: 2 }); fixcopy.setStyle({ zIndex: 1 }); } else { fixcopy.setStyle({ zIndex: parseInt(zindex) - 1 }); } li.observe('mouseout', function() { this.removeClassName('hover'); li.down('iframe').hide(); }); li.observe('mouseover', function() { this.addClassName('hover'); li.down('iframe').show(); }); }); } document.observe('dom:loaded', function() { // Set up left and right arrows to go to the previous/next page. document.observe('keydown', arrowHandler); if (Prototype.Browser.IE) { messageActionsHover(); } }); ./js/src/acl.js0000644000175000017500000000101511702026733013363 0ustar mathieumathieu/** * Provides the javascript for the acl.php script * * $Horde: imp/js/src/acl.js,v 1.3.2.1 2007/12/20 13:59:22 jan Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ var acl_loading; function ACLFolderChange(clear) { if ($F('aclfolder')) { if (acl_loading == null || clear != null) { acl_loading = true; $('acl').disable(); $('folders').submit(); } } } ./js/src/popup.js0000644000175000017500000000333511702026733013776 0ustar mathieumathieu/** * IMP Popup JavaScript. * * Provides the javascript to open popup windows. * This file should be included via Horde::addScriptFile(). * Requires prototypejs 1.6.0.2+ * * $Horde: imp/js/src/popup.js,v 1.2.2.7 2008/06/27 21:07:37 slusarz Exp $ * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. */ /** * Open a popup window. * * @param string $url The URL to open in the popup window. * @param integer $width The width of the popup window. (Default: 600 px) * @param integer $height The height of the popup window. (Default: 500 px) * @param string $args Any additional args to pass to the script. * (Default: no args) */ function popup_imp(url, width, height, args) { var q, win, params = $H(), name = new Date().getTime(); height = Math.min(screen.height - 75, height || 500); width = Math.min(screen.width - 75, width || 600); q = url.indexOf('?'); if (q != -1) { params = $H(url.toQueryParams()); url = url.substring(0, q); } if (args) { $H(args.toQueryParams()).each(function(a) { params.set(a.key, unescape(a.value)); }); } params.set('uniq', name); win = window.open(url + '?' + params.toQueryString(), name, 'toolbar=no,location=no,status=yes,scrollbars=yes,resizable=yes,width=' + width + ',height=' + height + ',left=0,top=0'); if (!win) { alert(IMP.text.popup_block); } else { if (Object.isUndefined(win.name)) { win.name = name; } if (Object.isUndefined(win.opener)) { win.opener = self; } win.focus(); } } ./js/message.js0000644000175000017500000000336311702026733013471 0ustar mathieumathieufunction arrowHandler(a){if(a.altKey||a.shiftKey||a.ctrlKey){return}switch(a.keyCode||a.charCode){case Event.KEY_LEFT:if($("prev")){document.location.href=$("prev").href}break;case Event.KEY_RIGHT:if($("next")){document.location.href=$("next").href}break}}function message_submit(a){if(a=="spam_report"){if(!window.confirm(IMP.text.spam_report)){return}}else{if(a=="notspam_report"){if(!window.confirm(IMP.text.notspam_report)){return}}}$("actionID").setValue(a);$("messages").submit()}function flagMessage(b){var a=$("flag1"),c=$("flag2");if((b==1&&$F(a))||(b==2&&$F(c))){$("flag").setValue((b==1)?$F(a):$F(c));message_submit("flag_message")}}function transfer(d,b){var a=$("targetMbox");a.setValue((b==1)?$F("target1"):$F("target2"));if($F(a)=="*new*"){var c=window.prompt(IMP.text.newfolder,"");if(c!=null&&c!=""){$("newMbox").setValue(1);a.setValue(c);message_submit(d)}}else{if(!$F(a)){window.alert(IMP.text.target_mbox)}else{message_submit(d)}}}function updateFolders(a){var b=(a==1)?2:1;$("target"+b).selectedIndex=$("target"+a).selectedIndex}function messageActionsHover(){var a=new Element("IFRAME",{scrolling:"no",frameborder:0}).hide();a.setStyle({position:"absolute"});a.setAttribute("src","javascript:false;");$$("UL.msgactions LI").each(function(b){var c,e=b.down("UL"),d;if(!e){return}c=a.cloneNode(false);b.insert(c);c.clonePosition(e);d=b.getStyle("zIndex");if(d==""){b.setStyle({zIndex:2});c.setStyle({zIndex:1})}else{c.setStyle({zIndex:parseInt(d)-1})}b.observe("mouseout",function(){this.removeClassName("hover");b.down("iframe").hide()});b.observe("mouseover",function(){this.addClassName("hover");b.down("iframe").show()})})}document.observe("dom:loaded",function(){document.observe("keydown",arrowHandler);if(Prototype.Browser.IE){messageActionsHover()}});./js/acl.js0000644000175000017500000000023411702026733012576 0ustar mathieumathieuvar acl_loading;function ACLFolderChange(a){if($F("aclfolder")){if(acl_loading==null||a!=null){acl_loading=true;$("acl").disable();$("folders").submit()}}};./js/popup.js0000644000175000017500000000111011702026733013174 0ustar mathieumathieufunction popup_imp(d,e,a,c){var f,g,h=$H(),b=new Date().getTime();a=Math.min(screen.height-75,a||500);e=Math.min(screen.width-75,e||600);f=d.indexOf("?");if(f!=-1){h=$H(d.toQueryParams());d=d.substring(0,f)}if(c){$H(c.toQueryParams()).each(function(i){h.set(i.key,unescape(i.value))})}h.set("uniq",b);g=window.open(d+"?"+h.toQueryString(),b,"toolbar=no,location=no,status=yes,scrollbars=yes,resizable=yes,width="+e+",height="+a+",left=0,top=0");if(!g){alert(IMP.text.popup_block)}else{if(Object.isUndefined(g.name)){g.name=b}if(Object.isUndefined(g.opener)){g.opener=self}g.focus()}};./COPYING0000644000175000017500000003542311702026733012130 0ustar mathieumathieu GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS ./saveimage.php0000644000175000017500000000367211702026734013551 0ustar mathieumathieu */ @define('IMP_BASE', dirname(__FILE__)); require_once IMP_BASE . '/lib/base.php'; require_once IMP_BASE . '/lib/Template.php'; $id = Util::getFormData('id'); $index = Util::getFormData('index'); /* Run through the action handlers. */ $actionID = Util::getFormData('actionID'); switch ($actionID) { case 'save_image': require_once IMP_BASE . '/lib/MIME/Contents.php'; $contents = &IMP_Contents::singleton($index); $mime_part = $contents->getDecodedMIMEPart($id); $image_data = array( 'filename' => $mime_part->getName(true, true), 'description' => $mime_part->getDescription(true), 'data' => $mime_part->getContents(), 'type' => $mime_part->getType() ); $res = $registry->call('images/saveImage', array(null, Util::getFormData('gallery'), $image_data)); if (is_a($res, 'PEAR_Error')) { $notification->push($res, 'horde.error'); break; } Util::closeWindowJS(); exit; } /* Build the template. */ $t = new IMP_Template(); $t->setOption('gettext', true); $t->set('action', Horde::applicationUrl('saveimage.php')); $t->set('id', htmlspecialchars($id)); $t->set('index', htmlspecialchars($index)); $t->set('image_img', Horde::img('mime/image.png', _("Image"), null, $registry->getImageDir('horde'))); /* Build the list of galleries. */ $t->set('gallerylist', $registry->call('images/selectGalleries', array(null, PERMS_EDIT))); $title = _("Save Image"); require IMP_TEMPLATES . '/common-header.inc'; IMP::status(); echo $t->fetch(IMP_TEMPLATES . '/saveimage/saveimage.html'); require $registry->get('templates', 'horde') . '/common-footer.inc'; ./cache.php0000644000175000017500000000554711702026733012655 0ustar mathieumathieu */ /* The amount of time (in minutes) to cache the generated CSS and JS files. * DEFAULT: 525600 = 1 year */ $expire_time = 525600; /* Load IMP.php to access IMP::getPathInfo(). */ @define('IMP_BASE', dirname(__FILE__)); require_once IMP_BASE . '/lib/IMP.php'; $path_info = trim(IMP::getPathInfo(), '/'); if (empty($path_info)) { exit; } // 'fckeditor' output won't have a second slash, so ignore errors $old_error = error_reporting(0); list($type, $cid) = explode('/', $path_info, 2); error_reporting($old_error); /* Allow CSS and JS caches to be cached on the browser since there is no * dynamic code that will change over the course of a session. Can't cache * fckeditor setting as it may change. Only authenticate for 'fckeditor' * actions (for access to user's prefs). */ if ($type == 'fckeditor') { $session_cache_limiter = 'nocache'; } else { $session_cache_limiter = 'public'; session_cache_expire($expire_time); @define('AUTH_HANDLER', true); $authentication = 'none'; } $session_control = 'readonly'; $session_timeout = 'none'; require_once IMP_BASE . '/lib/base.php'; switch ($type) { case 'css': $type = 'text/css'; $lifetime = (empty($GLOBALS['conf']['server']['cachecssparams']['lifetime'])) ? 0 : $GLOBALS['conf']['server']['cachecssparams']['lifetime']; break; case 'fckeditor': header('Content-Type: text/javascript'); echo 'FCKConfig.ToolbarSets["ImpToolbar"] = ' . $GLOBALS['prefs']->getValue('fckeditor_buttons') . ';' . "\n" . // To more closely match "normal" textarea behavior, send
on // enter instead of

. 'FCKConfig.EnterMode = \'br\';' . "\n" . 'FCKConfig.ShiftEnterMode = \'p\';'; exit; case 'js': $type = 'text/javascript'; $lifetime = (empty($GLOBALS['conf']['server']['cachejsparams']['lifetime'])) ? 0 : $GLOBALS['conf']['server']['cachejsparams']['lifetime']; break; default: exit; } if (empty($cid)) { exit; } require_once 'Horde/Cache.php'; $cache = &Horde_Cache::singleton($GLOBALS['conf']['cache']['driver'], Horde::getDriverConfig('cache', $GLOBALS['conf']['cache']['driver'])); if (is_a($cache, 'PEAR_Error')) { Horde::logMessage('No cache backend available.', __FILE__, __LINE__, PEAR_LOG_ERR); exit; } // If cache info doesn't exist, just output an empty body. header('Content-Type: ' . $type); $cache->output($cid, $lifetime); ./scripts/0000755000175000017500000000000011702026734012556 5ustar mathieumathieu./scripts/fetch.php0000755000175000017500000000652111702026734014367 0ustar mathieumathieu#!/usr/bin/env php > /dev/null 2>&1 & * * $Horde: imp/scripts/fetch.php,v 1.1.2.1 2010/02/04 18:28:56 slusarz Exp $ * * Copyright 2010 Terence Jacyno * * See the enclosed file COPYING for license information (GPL). If you * did not receive this file, see http://www.fsf.org/copyleft/gpl.html. * * @author Terence Jacyno */ // Get the username and password from the command line arguments. if ($argc != 3) { exit("Usage: $argv[0] \n"); } $username = $argv[1]; $password = $argv[2]; @define('AUTH_HANDLER', true); @define('IMP_BASE', dirname(__FILE__) . '/..'); @define('HORDE_BASE', IMP_BASE . '/..'); // Do CLI checks and environment setup first. require_once HORDE_BASE . '/lib/core.php'; require_once HORDE_BASE . '/lib/Horde/CLI.php'; // Make sure no one runs this from the web. if (!Horde_CLI::runningFromCLI()) { exit("Must be run from the command line\n"); } // Load the CLI environment - make sure there's no time limit, init some // variables, etc. Horde_CLI::init(); // Include needed libraries. require_once HORDE_BASE . '/lib/base.php'; // Authenticate to Horde. $auth = Auth::singleton($conf['auth']['driver']); $auth->setAuth($username, array()); // Authenticate to IMP. if (!$registry->callByPackage('imp', 'authenticate', array($username, array('password' => $password)))) { exit("IMP authentication failed."); } // Attach a listener of the status messages associated to the fetch operations. require_once HORDE_BASE . '/lib/Horde/Notification/Listener.php'; class Notification_Listener_fetchstatus extends Notification_Listener { function Notification_Listener_fetchstatus() { $this->_handles = array( 'horde.error' => array(), 'horde.success' => array(), 'horde.warning' => array(), 'horde.message' => array(), 'horde.alarm' => array() ); } function getName() { return 'fetchstatus'; } function notify(&$messageStack, $options = array()) { if (count($messageStack)) { while ($message = array_shift($messageStack)) { echo $this->getMessage($message); } } } function getMessage($message) { $event = $this->getEvent($message); return $event->getMessage(); } } $listener = $GLOBALS['notification']->attach('fetchstatus', null, 'Notification_Listener_fetchstatus'); // Make sure we are in IMP scope $registry->pushApp('imp'); // Fetch mail. require_once IMP_BASE . '/lib/Fetchmail.php'; $fetchmailAccounts = new IMP_Fetchmail_Account(); $accountIndexes = array(); for ($i = 0, $count = $fetchmailAccounts->count(); $i < $count; ++$i) { $accountIndexes[$i] = $i; } @IMP_Fetchmail::fetchMail($accountIndexes); // Filter messages. if ($prefs->getValue('filter_on_display')) { require_once IMP_BASE . '/lib/Filter.php'; $imp_filter = new IMP_Filter(); $imp_filter->filter($imp_mbox['mailbox']); // $imp_mbox['mailbox']=='INBOX' } // Display the status messages associated to the fetch and filter operations. $notification->notify(array('listeners' => array('fetchstatus'))); ./scripts/bounce_spam.php0000755000175000017500000000356411702026734015575 0ustar mathieumathieu#!/usr/bin/php */ define('IMP_CONFIG', dirname(__FILE__) . '/../config'); require_once 'Horde/CLI.php'; /* Make sure no one runs this from the web. */ if (!Horde_CLI::runningFromCLI()) { fwrite(STDERR, "Must be run from the command line\n"); exit(1); } /* If there's no bounce template file then abort */ if (!file_exists(IMP_CONFIG . '/bounce.txt')) { exit(0); } /* Load the CLI environment - make sure there's no time limit, init some * variables, etc. */ Horde_CLI::init(); /* Read the message content. */ $data = Horde_CLI::readStdin(); /* Who's the spammer? */ preg_match('/return-path: <(.*?)>\r?\n/i', $data, $matches); $return_path = $matches[1]; /* Who's the target? */ preg_match_all('/delivered-to: (.*?)\r?\n/is', $data, $matches); $delivered_to = $matches[1][count($matches[1])-1]; /* Read the bounce template and construct the mail */ $bounce = file_get_contents(IMP_CONFIG . '/bounce.txt'); $bounce = str_replace(array('%TO%', '%TARGET%'), array($return_path, $delivered_to), $bounce); /* Send the mail */ $sendmail = "/usr/sbin/sendmail -t -f ''"; $fd = popen($sendmail, 'w'); fputs($fd, preg_replace("/\n$/", "\r\n", $bounce . $data)); pclose($fd); ./scripts/custom_login.php0000644000175000017500000000271311702026734015774 0ustar mathieumathieuget('initial_page','horde'); ?>

User:
Pass:
./scripts/sql/0000755000175000017500000000000011702026734013355 5ustar mathieumathieu./scripts/sql/imp.oci8.sql0000644000175000017500000000107711702026734015531 0ustar mathieumathieuCREATE TABLE imp_sentmail ( sentmail_id NUMBER(16) NOT NULL, sentmail_who VARCHAR2(255) NOT NULL, sentmail_ts NUMBER(16) NOT NULL, sentmail_messageid VARCHAR2(255) NOT NULL, sentmail_action VARCHAR2(32) NOT NULL, sentmail_recipient VARCHAR2(255) NOT NULL, sentmail_success NUMBER(1) NOT NULL, -- PRIMARY KEY (sentmail_id) ); CREATE INDEX sentmail_ts_idx ON imp_sentmail (sentmail_ts); CREATE INDEX sentmail_who_idx ON imp_sentmail (sentmail_who); CREATE INDEX sentmail_success_idx ON imp_sentmail (sentmail_success); ./scripts/sql/imp.xml0000644000175000017500000000324311702026734014666 0ustar mathieumathieu name false false imp_sentmail sentmail_id integer true sentmail_who text 255 true sentmail_ts integer true sentmail_messageid text 255 true sentmail_action text 32 true sentmail_recipient text 255 true sentmail_success integer 1 true imp_primary true sentmail_id sentmail_ts sentmail_ts ascending sentmail_who sentmail_who ascending sentmail_success sentmail_success ascending
./scripts/sql/imp.sql0000644000175000017500000000117111702026734014663 0ustar mathieumathieu-- $Horde: imp/scripts/sql/imp.sql,v 1.1.2.1 2007/12/20 14:00:36 jan Exp $ CREATE TABLE imp_sentmail ( sentmail_id BIGINT NOT NULL, sentmail_who VARCHAR(255) NOT NULL, sentmail_ts BIGINT NOT NULL, sentmail_messageid VARCHAR(255) NOT NULL, sentmail_action VARCHAR(32) NOT NULL, sentmail_recipient VARCHAR(255) NOT NULL, sentmail_success INT NOT NULL, -- PRIMARY KEY (sentmail_id) ); CREATE INDEX sentmail_ts_idx ON imp_sentmail (sentmail_ts); CREATE INDEX sentmail_who_idx ON imp_sentmail (sentmail_who); CREATE INDEX sentmail_success_idx ON imp_sentmail (sentmail_success); ./scripts/.htaccess0000644000175000017500000000001611702026734014351 0ustar mathieumathieuDeny from all ./scripts/upgrades/0000755000175000017500000000000011702026734014370 5ustar mathieumathieu./scripts/upgrades/convert_vfolders.php0000755000175000017500000000410311702026734020466 0ustar mathieumathieu#!/usr/bin/php -q bold($user); // Set $user as the current user. $auth->setAuth($user, array(), ''); $vfolder = $imp_search->_getVFolderList(); if (empty($vfolder)) { $cli->writeln(); continue; } $elt = reset($vfolder); if (!isset($elt['ob'])) { // Already in 4.1+ format. $cli->writeln(); continue; } // Convert from 4.0 format to 4.1+ format $convert = array(); foreach ($vfolder as $key => $val) { $convert[$key] = array( 'query' => $val['ob'], 'folders' => $val['search']['folders'], 'uiinfo' => $val['search'], 'label' => $val['search']['vfolder_label'], 'vfolder' => true ); } $imp_search->_saveVFolderList($convert); $prefs->store(); $cli->writeln(); } $cli->writeln(); $cli->writeln($cli->green('DONE')); exit; ./scripts/Imp.reg0000644000175000017500000000160511702026734014004 0ustar mathieumathieuREGEDIT4 [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail] @="Imp" [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp] @="IMP" [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\Protocols] [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\Protocols\mailto] "EditFlags"=hex:02,00,00,00 "URL Protocol"="" @="URL:MailTo Protocol" [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\Protocols\mailto\shell] [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\Protocols\mailto\shell\open] [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\Protocols\mailto\shell\open\command] @="Rundll32.exe Url.dll,FileProtocolHandler webmail.example.com/horde/imp/?actionID=login_compose&to=%L" [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\shell] [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\shell\open] [HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Imp\shell\open\command] @="Rundll32.exe Url.dll,FileProtocolHandler webmail.example.com/horde/imp" ./smime.php0000644000175000017500000003433211702026734012717 0ustar mathieumathieu * @author Michael Slusarz */ function _importKeyDialog($target) { $title = _("Import S/MIME Key"); require IMP_TEMPLATES . '/common-header.inc'; IMP::status(); $t = new IMP_Template(); $t->setOption('gettext', true); $t->set('selfurl', Horde::applicationUrl('smime.php')); $t->set('broken_mp_form', $GLOBALS['browser']->hasQuirk('broken_multipart_form')); $t->set('reload', htmlspecialchars(Util::getFormData('reload'))); $t->set('target', $target); $t->set('forminput', Util::formInput()); $t->set('import_public_key', $target == 'process_import_public_key'); $t->set('import_personal_certs', $target == 'process_import_personal_certs'); echo $t->fetch(IMP_TEMPLATES . '/smime/import_key.html'); } function _getImportKey() { $key = Util::getFormData('import_key'); if (!empty($key)) { return $key; } $res = Browser::wasFileUploaded('upload_key', _("key")); if (!is_a($res, 'PEAR_Error')) { return file_get_contents($_FILES['upload_key']['tmp_name']); } else { $GLOBALS['notification']->push($res, 'horde.error'); return; } } function _outputPassphraseDialog($secure_check) { if (is_a($secure_check, 'PEAR_Error')) { $GLOBALS['notification']->push($secure_check, 'horde.warning'); } $title = _("S/MIME Passphrase Input"); require IMP_TEMPLATES . '/common-header.inc'; IMP::status(); if (is_a($secure_check, 'PEAR_Error')) { return; } $t = new IMP_Template(); $t->setOption('gettext', true); $t->set('submit_url', Util::addParameter(Horde::applicationUrl('smime.php'), 'actionID', 'process_passphrase_dialog')); $t->set('reload', htmlspecialchars(Util::getFormData('reload'))); $t->set('action', htmlspecialchars(Util::getFormData('passphrase_action'))); $t->set('locked_img', Horde::img('locked.png', _("S/MIME"), null, $GLOBALS['registry']->getImageDir('horde'))); echo $t->fetch(IMP_TEMPLATES . '/smime/passphrase.html'); } function _actionWindow() { require_once 'Horde/SessionObjects.php'; $oid = Util::getFormData('passphrase_action'); $cacheSess = &Horde_SessionObjects::singleton(); $cacheSess->setPruneFlag($oid, true); Util::closeWindowJS($cacheSess->query($oid)); } function _reloadWindow() { require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); $reload = Util::getFormData('reload'); $url = $cacheSess->query($reload); $cacheSess->setPruneFlag($reload, true); Util::closeWindowJS('opener.focus();opener.location.href="' . $url . '";'); } function _textWindowOutput($filename, $msg, $html = false) { $type = ($html ? 'text/html' : 'text/plain') . '; charset=' . NLS::getCharset(); $GLOBALS['browser']->downloadHeaders($filename, $type, true, strlen($msg)); echo $msg; } function _printKeyInfo($cert) { $key_info = $GLOBALS['imp_smime']->certToHTML($cert); if (empty($key_info)) { _textWindowOutput('S/MIME Key Information', _("Invalid key")); } else { _textWindowOutput('S/MIME Key Information', $key_info, true); } } @define('IMP_BASE', dirname(__FILE__)); require_once IMP_BASE . '/lib/base.php'; require_once IMP_BASE . '/lib/Crypt/SMIME.php'; require_once IMP_BASE . '/lib/Template.php'; $imp_smime = new IMP_SMIME(); $secure_check = $imp_smime->requireSecureConnection(); /* Run through the action handlers */ $actionID = Util::getFormData('actionID'); switch ($actionID) { case 'open_passphrase_dialog': if ($imp_smime->getPassphrase() !== false) { Util::closeWindowJS(); } else { _outputPassphraseDialog($secure_check); } exit; case 'process_passphrase_dialog': if (is_a($secure_check, 'PEAR_Error')) { _outputPassphraseDialog($secure_check); } elseif (Util::getFormData('passphrase')) { if ($imp_smime->storePassphrase(Util::getFormData('passphrase'))) { if (Util::getFormData('passphrase_action')) { _actionWindow(); } elseif (Util::getFormData('reload')) { _reloadWindow(); } else { Util::closeWindowJS(); } } else { $notification->push("Invalid passphrase entered.", 'horde.error'); _outputPassphraseDialog($secure_check); } } else { $notification->push("No passphrase entered.", 'horde.error'); _outputPassphraseDialog($secure_check); } exit; case 'delete_key': $imp_smime->deletePersonalKeys(); $notification->push(_("Personal S/MIME keys deleted successfully."), 'horde.success'); break; case 'delete_public_key': $result = $imp_smime->deletePublicKey(Util::getFormData('email')); if (is_a($result, 'PEAR_Error')) { $notification->push($result, $result->getCode()); } else { $notification->push(sprintf(_("S/MIME Public Key for \"%s\" was successfully deleted."), Util::getFormData('email')), 'horde.success'); } break; case 'import_public_key': _importKeyDialog('process_import_public_key'); exit; case 'process_import_public_key': $publicKey = _getImportKey(); if (empty($publicKey)) { $notification->push(_("No S/MIME public key imported."), 'horde.error'); $actionID = 'import_public_key'; _importKeyDialog('process_import_public_key'); } else { /* Add the public key to the storage system. */ $key_info = $imp_smime->addPublicKey($publicKey); if (is_a($key_info, 'PEAR_Error')) { $notification->push($key_info, 'horde.error'); $actionID = 'import_public_key'; _importKeyDialog('process_import_public_key'); } else { $notification->push(_("S/MIME Public Key successfully added."), 'horde.success'); _reloadWindow(); } } exit; case 'view_public_key': $key = $imp_smime->getPublicKey(Util::getFormData('email')); if (is_a($key, 'PEAR_Error')) { $key = $key->getMessage(); } _textWindowOutput('S/MIME Public Key', $key); exit; case 'info_public_key': $key = $imp_smime->getPublicKey(Util::getFormData('email')); if (is_a($key, 'PEAR_Error')) { $key = $key->getMessage(); } _printKeyInfo($key); exit; case 'view_personal_public_key': _textWindowOutput('S/MIME Personal Public Key', $imp_smime->getPersonalPublicKey()); exit; case 'info_personal_public_key': _printKeyInfo($imp_smime->getPersonalPublicKey()); exit; case 'view_personal_private_key': _textWindowOutput('S/MIME Personal Private Key', $imp_smime->getPersonalPrivateKey()); exit; case 'import_personal_certs': _importKeyDialog('process_import_personal_certs'); exit; case 'process_import_personal_certs': if (!($pkcs12 = _getImportKey())) { $notification->push(_("No personal S/MIME certificates imported."), 'horde.error'); $actionID = 'import_personal_certs'; _importKeyDialog('process_import_personal_certs'); } else { $res = $imp_smime->addFromPKCS12($pkcs12, Util::getFormData('upload_key_pass'), Util::getFormData('upload_key_pk_pass')); if (is_a($res, 'PEAR_Error')) { $notification->push(_("Personal S/MIME certificates NOT imported: ") . $res->getMessage(), 'horde.error'); $actionID = 'import_personal_certs'; _importKeyDialog('process_import_personal_certs'); } else { $notification->push(_("S/MIME Public/Private Keypair successfully added."), 'horde.success'); _reloadWindow(); } } exit; case 'save_attachment_public_key': require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); $cert = $cacheSess->query(Util::getFormData('cert')); /* Add the public key to the storage system. */ $cert = $imp_smime->addPublicKey($cert); if ($cert == false) { $notification->push(_("No Certificate found"), 'horde.error'); } else { Util::closeWindowJS(); } exit; case 'unset_passphrase': if ($imp_smime->getPassphrase() !== false) { $imp_smime->unsetPassphrase(); $notification->push(_("Passphrase successfully unloaded."), 'horde.success'); } break; case 'save_options': $prefs->setValue('use_smime', Util::getFormData('use_smime') ? 1 : 0); $prefs->setValue('smime_verify', Util::getFormData('smime_verify') ? 1 : 0); $notification->push(_("Preferences successfully updated."), 'horde.success'); break; } /* Get list of Public Keys. */ $pubkey_list = $imp_smime->listPublicKeys(); if (is_a($pubkey_list, 'PEAR_Error')) { $notification->push($pubkey_list, $pubkey_list->getCode()); } if (is_callable(array('Horde', 'loadConfiguration'))) { $result = Horde::loadConfiguration('prefs.php', array('prefGroups', '_prefs'), 'imp'); if (!is_a($result, 'PEAR_Error')) { extract($result); } } else { require IMP_BASE . '/config/prefs.php'; } require_once 'Horde/Help.php'; require_once 'Horde/Prefs/UI.php'; $app = 'imp'; $chunk = Util::nonInputVar('chunk'); Prefs_UI::generateHeader('smime', $chunk); $selfURL = Horde::applicationUrl('smime.php'); /* If S/MIME preference not active, or openssl PHP extension not available, do * NOT show S/MIME Admin screen. */ $openssl_check = $imp_smime->checkForOpenSSL(); /* If S/MIME preference not active, do NOT show S/MIME Admin screen. */ $t = new IMP_Template(); $t->setOption('gettext', true); $t->set('use_smime_help', Help::link('imp', 'smime-overview')); if (!is_a($openssl_check, 'PEAR_Error') && $prefs->getValue('use_smime')) { Horde::addScriptFile('popup.js', 'imp', true); $t->set('smimeactive', true); $opensmimewin = $imp_smime->getJSOpenWinCode('open_passphrase_dialog'); $t->set('manage_pubkey-help', Help::link('imp', 'smime-manage-pubkey')); $t->set('verify_notlocked', !$prefs->isLocked('smime_verify')); if ($t->get('verify_notlocked')) { $t->set('smime_verify', $prefs->getValue('smime_verify')); $t->set('smime_verify-help', Help::link('imp', 'smime-option-verify')); } $t->set('empty_pubkey_list', empty($pubkey_list)); if (!$t->get('empty_pubkey_list')) { $t->set('pubkey_error', is_a($pubkey_list, 'PEAR_Error') ? $pubkey_list->getMessage() : false); if (!$t->get('pubkey_error')) { $plist = array(); foreach ($pubkey_list as $val) { $linkurl = Util::addParameter($selfURL, 'email', $val['email']); $plist[] = array( 'name' => $val['name'], 'email' => $val['email'], 'view' => Horde::link(Util::addParameter($linkurl, 'actionID', 'view_public_key'), sprintf(_("View %s Public Key"), $val['name']), null, 'view_key'), 'info' => Horde::link(Util::addParameter($linkurl, 'actionID', 'info_public_key'), sprintf(_("Information on %s Public Key"), $val['name']), null, 'info_key'), 'delete' => Horde::link(Util::addParameter($linkurl, 'actionID', 'delete_public_key'), sprintf(_("Delete %s Public Key"), $val['name']), null, null, "if (confirm('" . addslashes(_("Are you sure you want to delete this public key?")) . "')) { return true; } else { return false; }") ); } $t->set('pubkey_list', $plist); } } $t->set('no_file_upload', !$_SESSION['imp']['file_upload']); if (!$t->get('no_file_upload')) { $t->set('no_source', !$GLOBALS['prefs']->getValue('add_source')); if (!$t->get('no_source')) { require_once 'Horde/SessionObjects.php'; $cacheSess = &Horde_SessionObjects::singleton(); $t->set('public_import_url', Util::addParameter(Util::addParameter($selfURL, 'actionID', 'import_public_key'), 'reload', $cacheSess->storeOid($selfURL, false))); $t->set('import_pubkey-help', Help::link('imp', 'smime-import-pubkey')); } } $t->set('personalkey-help', Help::link('imp', 'smime-overview-personalkey')); $t->set('secure_check', is_a($secure_check, 'PEAR_Error')); if (!$t->get('secure_check')) { $t->set('has_key', $prefs->getValue('smime_public_key') && $prefs->getValue('smime_private_key')); if ($t->get('has_key')) { $t->set('viewpublic', Horde::link(Util::addParameter($selfURL, 'actionID', 'view_personal_public_key'), _("View Personal Public Key"), null, 'view_key')); $t->set('infopublic', Horde::link(Util::addParameter($selfURL, 'actionID', 'info_personal_public_key'), _("Information on Personal Public Key"), null, 'info_key')); $passphrase = $imp_smime->getPassphrase(); $t->set('passphrase', (empty($passphrase)) ? Horde::link('#', _("Enter Passphrase"), null, null, htmlspecialchars($imp_smime->getJSOpenWinCode('open_passphrase_dialog')) . ' return false;') . _("Enter Passphrase") : Horde::link(Util::addParameter($selfURL, 'actionID', 'unset_passphrase'), _("Unload Passphrase")) . _("Unload Passphrase")); $t->set('viewprivate', Horde::link(Util::addParameter($selfURL, 'actionID', 'view_personal_private_key'), _("View Personal Private Key"), null, 'view_key')); $t->set('deletekeypair', addslashes(_("Are you sure you want to delete your keypair? (This is NOT recommended!)"))); $t->set('personalkey-delete-help', Help::link('imp', 'smime-delete-personal-certs')); } else { $t->set('personal_import_url', Util::addParameter($selfURL, 'actionID', 'import_personal_certs')); $t->set('import-cert-help', Help::link('imp', 'smime-import-personal-certs')); } } } else { $t->set('use_smime_locked', $prefs->isLocked('use_smime')); if (!$t->get('use_smime_locked')) { $t->set('use_smime_label', Horde::label('use_smime', _("Enable S/MIME functionality?"))); } } $t->set('prefsurl', IMP::prefsURL(true)); echo $t->fetch(IMP_TEMPLATES . '/smime/smime.html'); if (!$chunk) { require $registry->get('templates', 'horde') . '/common-footer.inc'; } ./templates/0000755000175000017500000000000011702026734013065 5ustar mathieumathieu./templates/prefs/0000755000175000017500000000000011702026734014204 5ustar mathieumathieu./templates/prefs/sourceselect.inc0000644000175000017500000003100711702026734017400 0ustar mathieumathieuhasMethod('contacts/sources')) { $selected = explode("\t", $prefs->getValue('search_sources')); $readable = $registry->call('contacts/sources'); $writeable = $registry->call('contacts/sources', array(true)); $nbReadSources = count(array_keys($readable)); $nbWriteSources = count(array_keys($writeable)); if (count($selected) == 1 && empty($selected[0])) { $selected = array(); } if ($nbReadSources == 1) { // Only one source, no need to display the selection widget $selected = array_keys($readable); $readSelect = ''; } $prefSelect = ''; foreach ($selected as $source) { if (!empty($readable[$source])) { $prefSelect .= '\n"; } } $readSelect = ''; if (!is_a($readable, 'PEAR_Error') && is_array($readable)) { foreach (array_diff(array_keys($readable), $selected) as $source) { $readSelect .= '\n"; } } if (!is_a($writeable, 'PEAR_Error') && is_array($writeable)) { $writeSelect = '' . "\n"; $writeSource = ''; foreach ($writeable as $source => $name) { $sel = $prefs->getValue('add_source') == $source ? ' selected="selected"' : ''; $writeSelect .= '\n"; $writeSource = $source; } } $selected_fields = array(); $search_field_pref = $prefs->getValue('search_fields'); if (!empty($search_field_pref)) { $selected_fields = explode("\n", $prefs->getValue('search_fields')); foreach ($selected_fields as $field) { $field = trim($field); if (!empty($field)) { $tmp = explode("\t", $field); if (count($tmp) > 1) { $source = array_splice($tmp, 0, 1); $selected_fields[$source[0]] = $tmp; } } } } $search_fields = array(); if (!is_a($readable, 'PEAR_Error') && is_array($readable)) { foreach (array_keys($readable) as $source) { $search_fields[$source] = $registry->call('contacts/fields', array($source)); } } $js = "var searchFields = [];\n"; $source_count = 0; foreach ($search_fields as $source => $fields) { $js .= "searchFields[$source_count] = [];\n"; $js .= "searchFields[$source_count][0] = '$source';\n"; $field_count = 1; foreach ($fields as $field) { if ($field['search']) { $marked = isset($selected_fields[$source]) && in_array($field['name'], $selected_fields[$source]) ? 'true' : 'false'; $js .= "searchFields[$source_count][$field_count] = ['" . $field['name'] . "', '" . $field['label'] . "', $marked];\n"; $field_count++; } } $source_count++; } } ?> isLocked('search_sources') && (!empty($readSelect) || !empty($prefSelect))): ?>
" /> 1): ?>
getImageDir('horde')) ?>
getImageDir('horde')) ?> 		getImageDir('horde')) ?>
getImageDir('horde')) ?>



isLocked('add_source') && !empty($writeSelect)): ?>

./templates/prefs/soundselect.inc0000644000175000017500000000170311702026734017230 0ustar mathieumathieuisLocked('nav_audio')): ?> getValue('nav_audio') ?>

    • get('themesfs') . '/graphics/audio/*.wav') as $sound): $sound = basename($sound); ?>
./templates/prefs/encryptselect.inc0000644000175000017500000000032711702026734017565 0ustar mathieumathieu

./templates/prefs/spamselect.inc0000644000175000017500000000215311702026734017040 0ustar mathieumathieuisLocked('spam_folder')): ?>
./templates/prefs/initialpageselect.inc0000644000175000017500000000142211702026734020364 0ustar mathieumathieuisLocked('initial_page')): if (empty($GLOBALS['conf']['user']['allow_folders'])) { $mailbox_option = ''; } else { $mailbox_selected = $prefs->getValue('initial_page'); $mailbox_option = '