--- /dev/null
+<?php
+/**
+ * imp.php - performs an AJAX-requested action and returns the DIMP-specific
+ * JSON object
+ *
+ * Copyright 2005-2008 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 Michael Slusarz <slusarz@horde.org>
+ */
+
+function _generateDeleteResult($mbox, $indices, $change)
+{
+ $imp_mailbox = &IMP_Mailbox::singleton($mbox);
+
+ $result = new stdClass;
+ $result->folder = $mbox;
+ $result->uids = IMP::toRangeString($indices);
+ $result->remove = ($GLOBALS['prefs']->getValue('hide_deleted') ||
+ $GLOBALS['prefs']->getValue('use_trash'));
+ $result->cacheid = $imp_mailbox->getCacheID($mbox);
+
+ if ($change) {
+ $result->viewport = _getListMessages($mbox, true);
+ }
+
+ $poll = _getPollInformation($mbox);
+ if (!empty($poll)) {
+ $result->poll = $poll;
+ }
+
+ return $result;
+}
+
+function _changed($mbox, $compare, $indices = array(), $nothread = false)
+{
+ if ($GLOBALS['imp_search']->isVFolder($mbox)) {
+ return true;
+ }
+
+ $imp_mailbox = &IMP_Mailbox::singleton($mbox);
+ if ($imp_mailbox->getCacheID($mbox) != $compare) {
+ return true;
+ }
+
+ if (!empty($indices) && !$nothread) {
+ $sort = IMP::getSort($mbox);
+ if ($sort['by'] == Horde_Imap_Client::SORT_THREAD) {
+ foreach ($indices as $mbox => $mbox_array) {
+ $imp_mailbox = &IMP_Mailbox::singleton($mbox);
+ $threadob = $imp_mailbox->getThreadOb();
+ foreach ($mbox_array as $val) {
+ if ($threadob->getThreadBase($val) !== false) {
+ return true;
+ }
+ }
+ }
+ }
+ }
+
+ return false;
+}
+
+function _getListMessages($folder, $change)
+{
+ $args = array(
+ 'cached' => Util::getPost('cached'),
+ 'cacheid' => Util::getPost('cacheid'),
+ 'filter' => Util::getPost('filter'),
+ 'folder' => $folder,
+ 'searchfolder' => Util::getPost('searchfolder'),
+ 'searchmsg' => Util::getPost('searchmsg'),
+ );
+
+ $search = Util::getPost('search');
+ if (empty($search)) {
+ $args += array(
+ 'slice_rownum' => intval(Util::getPost('rownum')),
+ 'slice_start' => intval(Util::getPost('slice_start')),
+ 'slice_end' => intval(Util::getPost('slice_end'))
+ );
+ } else {
+ $search = Horde_Serialize::unserialize($search, SERIALIZE_JSON);
+ $args += array(
+ 'search_uid' => $search->imapuid,
+ 'search_view' => $search->view,
+ 'search_before' => intval(Util::getPost('search_before')),
+ 'search_after' => intval(Util::getPost('search_after'))
+ );
+ }
+
+ $list_msg = new IMP_Views_ListMessages();
+ $res = $list_msg->ListMessages($args);
+
+ // TODO: This can potentially be optimized for arrival time sort - if the
+ // cache ID changes, we know the changes must occur at end of mailbox.
+ if (!$res->reset && (Util::getPost('purge') || $change)) {
+ $res->update = 1;
+ }
+
+ $req_id = Util::getPost('request_id');
+ if (!is_null($req_id)) {
+ $res->request_id = $req_id;
+ }
+
+ return $res;
+}
+
+function _getIdxString($indices)
+{
+ $i = each($indices);
+ return reset($i['value']) . IMP::IDX_SEP . $i['key'];
+}
+
+function _getPollInformation($mbox)
+{
+ $imptree = &IMP_IMAP_Tree::singleton();
+ $elt = $imptree->get($mbox);
+ if ($imptree->isPolled($elt)) {
+ $info = $imptree->getElementInfo($mbox);
+ return array($mbox => isset($info['unseen']) ? $info['unseen'] : 0);
+ }
+ return array();
+}
+
+function _getQuota()
+{
+ if (isset($_SESSION['imp']['quota']) &&
+ is_array($_SESSION['imp']['quota'])) {
+ $quotadata = IMP::quotaData(false);
+ if (!empty($quotadata)) {
+ return array('p' => round($quotadata['percent']), 'm' => $quotadata['message']);
+ }
+ }
+
+ return null;
+}
+
+// Need to load Util:: to give us access to Util::getPathInfo().
+if (!defined('HORDE_BASE')) {
+ define('HORDE_BASE', dirname(__FILE__) . '/..');
+}
+require_once HORDE_BASE . '/lib/core.php';
+$action = basename(Util::getPathInfo());
+if (empty($action)) {
+ // This is the only case where we really don't return anything, since
+ // the frontend can be presumed not to make this request on purpose.
+ // Other missing data cases we return a response of boolean false.
+ exit;
+}
+
+// The following actions do not need write access to the session and
+// should be opened read-only for performance reasons.
+if (in_array($action, array('chunkContent', 'Html2Text', 'Text2Html', 'GetReplyData'))) {
+ $session_control = 'readonly';
+}
+
+$dimp_logout = ($action == 'LogOut');
+$session_timeout = 'json';
+require_once dirname(__FILE__) . '/lib/base.php';
+
+// Process common request variables.
+$folder = Util::getPost('folder');
+$indices = IMP::parseRangeString(Util::getPost('uid'));
+$cacheid = Util::getPost('cacheid');
+
+// Open an output buffer to ensure that we catch errors that might break JSON
+// encoding.
+ob_start();
+
+$notify = true;
+$result = false;
+
+/* We know we are going to be exclusively dealing with this mailbox, so
+ * select it on the IMAP server (saves some STATUS calls). */
+if ($folder &&
+ ($action != 'CreateFolder') &&
+ !$imp_search->isSearchMbox($folder)) {
+ $imp_imap->ob->openMailbox($folder);
+}
+
+switch ($action) {
+case 'CreateFolder':
+ if (empty($folder)) {
+ break;
+ }
+
+ $imptree = &IMP_IMAP_Tree::singleton();
+ $imptree->eltDiffStart();
+
+ $imp_folder = &IMP_Folder::singleton();
+
+ $new = String::convertCharset($folder, NLS::getCharset(), 'UTF7-IMAP');
+ $new = $imptree->createMailboxName(Util::getPost('parent'), $new);
+ if (is_a($new, 'PEAR_Error')) {
+ $notification->push($new, 'horde.error');
+ $result = false;
+ } else {
+ $result = $imp_folder->create($new, $prefs->getValue('subscribe'));
+ if ($result) {
+ $result = DIMP::getFolderResponse($imptree);
+ }
+ }
+ break;
+
+case 'DeleteFolder':
+ if (empty($folder)) {
+ break;
+ }
+
+ $imptree = &IMP_IMAP_Tree::singleton();
+ $imptree->eltDiffStart();
+
+ $imp_folder = &IMP_Folder::singleton();
+ $result = $imp_folder->delete(array($folder));
+ if ($result) {
+ $result = DIMP::getFolderResponse($imptree);
+ }
+ break;
+
+case 'RenameFolder':
+ $old = Util::getPost('old_name');
+ $new_parent = Util::getPost('new_parent');
+ $new = Util::getPost('new_name');
+ if (!$old || !$new) {
+ break;
+ }
+
+ $imptree = &IMP_IMAP_Tree::singleton();
+ $imptree->eltDiffStart();
+
+ $imp_folder = &IMP_Folder::singleton();
+
+ $new = $imptree->createMailboxName($new_parent, $new);
+ if (is_a($new, 'PEAR_Error')) {
+ $notification->push($new, 'horde.error');
+ $result = false;
+ } else {
+ require_once 'Horde/String.php';
+ $new = String::convertCharset($new, NLS::getCharset(), 'UTF7-IMAP');
+ if ($old != $new) {
+ $result = $imp_folder->rename($old, $new);
+ if ($result) {
+ $result = DIMP::getFolderResponse($imptree);
+ }
+ }
+ }
+ break;
+
+case 'EmptyFolder':
+ if (empty($folder)) {
+ break;
+ }
+
+ $imp_message = &IMP_Message::singleton();
+ $imp_message->emptyMailbox(array($folder));
+ $result = new stdClass;
+ $result->mbox = $folder;
+ break;
+
+case 'MarkFolderSeen':
+case 'MarkFolderUnseen':
+ if (empty($folder)) {
+ break;
+ }
+
+ $imp_message = &IMP_Message::singleton();
+ $result = $imp_message->flagAllInMailbox(array('seen'),
+ array($folder),
+ $action == 'MarkFolderSeen');
+ if ($result) {
+ $result = new stdClass;
+ $result->mbox = $folder;
+
+ $poll = _getPollInformation($folder);
+ if (!empty($poll)) {
+ $result->poll = array($folder => $poll[$folder]['u']);
+ }
+ }
+ break;
+
+case 'ListFolders':
+ $imptree = &IMP_IMAP_Tree::singleton();
+ $result = DIMP::getFolderResponse($imptree, array('a' => $imptree->folderList(IMP_IMAP_TREE::FLIST_CONTAINER | IMP_IMAP_TREE::FLIST_VFOLDER), 'c' => array(), 'd' => array()));
+
+ $quota = _getQuota();
+ if (!is_null($quota)) {
+ $result['quota'] = $quota;
+ }
+ break;
+
+case 'PollFolders':
+ $result = new stdClass;
+
+ $fm_account = new IMP_Fetchmail_Account();
+ $fm_count = $fm_account->count();
+ if (!empty($fm_count)) {
+ IMP_Fetchmail::fetchMail(range(0, $fm_count - 1));
+ }
+
+ $imptree = &IMP_IMAP_Tree::singleton();
+
+ $result->poll = array();
+ foreach ($imptree->getPollList(true) as $val) {
+ if ($info = $imptree->getElementInfo($val)) {
+ $result->poll[$val] = $info['unseen'];
+ }
+ }
+
+ if (!empty($folder) && _changed($folder, $cacheid)) {
+ $result->viewport = _getListMessages($folder, true);
+ }
+
+ $quota = _getQuota();
+ if (!is_null($quota)) {
+ $result->quota = $quota;
+ }
+ break;
+
+case 'ListMessages':
+ if (empty($folder)) {
+ break;
+ }
+
+ /* Change sort preferences if necessary. */
+ $sortby = Util::getPost('sortby');
+ $sortdir = Util::getPost('sortdir');
+ if (!is_null($sortby) || !is_null($sortdir)) {
+ IMP::setSort($sortby, $sortdir, $folder);
+ }
+
+ $result = new stdClass;
+
+ if (Util::getPost('rangeslice')) {
+ $list_msg = new IMP_Views_ListMessages();
+ $result->viewport = $list_msg->getSlice($folder, intval(Util::getPost('start')) - 1, intval(Util::getPost('length')));
+ $result->viewport->request_id = Util::getPost('request_id');
+ $result->viewport->type = 'slice';
+ } else {
+ $changed = _changed($folder, $cacheid);
+ if (!Util::getPost('checkcache') || $changed) {
+ $result->viewport = _getListMessages($folder, $changed);
+ }
+ }
+ break;
+
+case 'MoveMessage':
+case 'CopyMessage':
+ $to = Util::getPost('tofld');
+ if (!$to || empty($indices)) {
+ break;
+ }
+
+ if ($action == 'MoveMessage') {
+ $change = _changed($folder, $cacheid, $indices);
+ }
+
+ $imp_message = &IMP_Message::singleton();
+
+ $result = $imp_message->copy($to, ($action == 'MoveMessage') ? IMP_MESSAGE::MOVE : IMP_MESSAGE::COPY, $indices);
+
+ if ($result) {
+ if ($action == 'MoveMessage') {
+ $result = _generateDeleteResult($folder, $indices, $change);
+ // Need to manually set remove to true since we want to remove
+ // message from the list no matter the current pref settings.
+ $result->remove = 1;
+ }
+
+ // Update poll information for destination folder if necessary.
+ // Poll information for current folder will be added by
+ // _generateDeleteResult() call above.
+ $poll = _getPollInformation($to);
+ if (!empty($poll)) {
+ if (!isset($result->poll)) {
+ $result->poll = array();
+ }
+ $result->poll = array_merge($result->poll, $poll);
+ }
+ }
+ break;
+
+case 'MarkMessage':
+ $flag = Util::getPost('messageFlag');
+ if (!$flag || empty($indices)) {
+ break;
+ }
+ if ($flag[0] == '-') {
+ $flag = substr($flag, 1);
+ $set = false;
+ } else {
+ $set = true;
+ }
+
+ $imp_message = &IMP_Message::singleton();
+ $result = $imp_message->flag(array($flag), $indices, $set);
+ if ($result) {
+ $result = new stdClass;
+ }
+ break;
+
+case 'DeleteMessage':
+case 'UndeleteMessage':
+ if (empty($indices)) {
+ break;
+ }
+
+ $imp_message = &IMP_Message::singleton();
+ if ($action == 'DeleteMessage') {
+ $change = _changed($folder, $cacheid, $indices, !$prefs->getValue('hide_deleted') && !$prefs->getValue('use_trash'));
+ $result = $imp_message->delete($indices);
+ if ($result) {
+ $result = _generateDeleteResult($folder, $indices, $change);
+ }
+ } else {
+ $result = $imp_message->undelete($indices);
+ if ($result) {
+ $result = new stdClass;
+ }
+ }
+ break;
+
+case 'AddContact':
+ $email = Util::getPost('email');
+ $name = Util::getPost('name');
+ // Allow $name to be empty.
+ if (empty($email)) {
+ break;
+ }
+
+ $result = IMP::addAddress($email, $name);
+ if (is_a($result, 'PEAR_Error')) {
+ $notification->push($result, 'horde.error');
+ $result = false;
+ } else {
+ $result = true;
+ $notification->push(sprintf(_("%s was successfully added to your address book."), $name ? $name : $email), 'horde.success');
+ }
+ break;
+
+case 'ReportSpam':
+case 'ReportHam':
+ $change = _changed($folder, $cacheid, $indices);
+ $result = IMP_Spam::reportSpam($indices, ($action == 'ReportSpam') ? 'spam' : 'notspam');
+ if ($result) {
+ $result = _generateDeleteResult($folder, $indices, $change);
+ // If $result is non-zero, then we know the message has been removed
+ // from the current mailbox.
+ $result->remove = 1;
+ }
+ break;
+
+case 'Blacklist':
+case 'Whitelist':
+ if (empty($indices)) {
+ break;
+ }
+
+ $imp_filter = new IMP_Filter();
+ if ($action == 'Whitelist') {
+ $imp_filter->whitelistMessage($indices, false);
+ } else {
+ $change = _changed($folder, $cacheid, $indices);
+ if ($imp_filter->blacklistMessage($indices, false)) {
+ $result = _generateDeleteResult($folder, $indices, $change);
+ }
+ }
+ break;
+
+case 'ShowPreview':
+ if (count($indices) != 1) {
+ break;
+ }
+
+ $ptr = each($indices);
+ $args = array(
+ 'folder' => $ptr['key'],
+ 'index' => reset($ptr['value']),
+ 'preview' => true,
+ );
+
+ $show_msg = new IMP_Views_ShowMessage();
+ $result = (object) $show_msg->showMessage($args);
+ break;
+
+case 'Html2Text':
+ require_once 'Horde/Text/Filter.php';
+ $result = new stdClass;
+ // Need to replace line endings or else IE won't display line endings
+ // properly.
+ $result->text = str_replace("\n", "\r\n", Text_Filter::filter(Util::getPost('text'), 'html2text'));
+ break;
+
+case 'Text2Html':
+ require_once 'Horde/Text/Filter.php';
+ $result = new stdClass;
+ $result->text = Text_Filter::filter(Util::getPost('text'), 'text2html', array('parselevel' => TEXT_HTML_MICRO_LINKURL, 'class' => null, 'callback' => null));
+ break;
+
+case 'GetForwardData':
+ $header = array();
+ $msg = $header = null;
+ $idx_string = _getIdxString($indices);
+
+ $imp_compose = &IMP_Compose::singleton(Util::getPost('imp_compose'));
+ $imp_contents = &IMP_Contents::singleton($idx_string);
+ $imp_ui = new IMP_UI_Compose();
+ $fwd_msg = $imp_ui->getForwardData($imp_compose, $imp_contents, Util::getPost('type'), $idx_string);
+ $header = $fwd_msg['headers'];
+ $header['replytype'] = 'forward';
+
+ $result = new stdClass;
+ // Can't open read-only since we need to store the message cache id.
+ $result->imp_compose = $imp_compose->getCacheId();
+ $result->fwd_list = DIMP::getAttachmentInfo($imp_compose);
+ $result->body = $fwd_msg['body'];
+ $result->header = $header;
+ $result->format = $fwd_msg['format'];
+ $result->identity = $fwd_msg['identity'];
+ break;
+
+case 'GetReplyData':
+ $imp_compose = &IMP_Compose::singleton(Util::getPost('imp_compose'));
+ $imp_contents = &IMP_Contents::singleton(_getIdxString($indices));
+ $reply_msg = $imp_compose->replyMessage(Util::getPost('type'), $imp_contents);
+ $header = $reply_msg['headers'];
+ $header['replytype'] = 'reply';
+
+ $result = new stdClass;
+ $result->format = $reply_msg['format'];
+ $result->body = $reply_msg['body'];
+ $result->header = $header;
+ $result->identity = $reply_msg['identity'];
+ break;
+
+case 'DeleteDraft':
+ $index = Util::getPost('index');
+ if (empty($indices)) {
+ break;
+ }
+ $imp_message = &IMP_Message::singleton();
+ $idx_array = array($index . IMP::IDX_SEP . IMP::folderPref($prefs->getValue('drafts_folder'), true));
+ $imp_message->delete($idx_array, true);
+ break;
+
+case 'DeleteAttach':
+ $atc = Util::getPost('atc_indices');
+ if (!is_null($atc)) {
+ $imp_compose = &IMP_Compose::singleton(Util::getPost('imp_compose'));
+ $imp_compose->deleteAttachment($atc);
+ }
+ break;
+
+case 'ShowPortal':
+ // Load the block list. Blocks are located in $dimp_block_list.
+ // KEY: Block label VALUE: Horde_Block object
+ require IMP_BASE . '/config/portal.php';
+
+ $blocks = $linkTags = array();
+ $css_load = array('dimp' => true);
+ foreach ($dimp_block_list as $title => $block) {
+ if (is_a($block['ob'], 'Horde_Block')) {
+ $app = $block['ob']->getApp();
+ $content = ((empty($css_load[$app])) ? Horde::styleSheetLink($app, '', false) : '') . $block['ob']->getContent();
+ $css_load[$app] = true;
+ // Don't do substitutions on our own blocks.
+ if ($app != 'dimp') {
+ $content = preg_replace('/<a href="([^"]+)"/',
+ '<a onclick="DimpBase.go(\'app:' . $app . '\', \'$1\');return false"',
+ $content);
+ if (preg_match_all('/<link .*?rel="stylesheet".*?\/>/',
+ $content, $links)) {
+ $content = str_replace($links[0], '', $content);
+ foreach ($links[0] as $link) {
+ if (preg_match('/href="(.*?)"/', $link, $href)) {
+ $linkOb = new stdClass;
+ $linkOb->href = $href[1];
+ if (preg_match('/media="(.*?)"/', $link, $media)) {
+ $linkOb->media = $media[1];
+ }
+ $linkTags[] = $linkOb;
+ }
+ }
+ }
+ }
+ if (!empty($content)) {
+ $entry = array(
+ 'app' => $app,
+ 'content' => $content,
+ 'title' => $title,
+ 'class' => empty($block['class']) ? 'headerbox' : $block['class'],
+ );
+ if (!empty($block['domid'])) {
+ $entry['domid'] = $block['domid'];
+ }
+ if (!empty($block['tag'])) {
+ $entry[$block['tag']] = true;
+ }
+ $blocks[] = $entry;
+ }
+ }
+ }
+
+ $result = new stdClass;
+ $result->portal = '';
+ if (!empty($blocks)) {
+ $t = new IMP_Template(IMP_TEMPLATES . '/imp/');
+ $t->set('block', $blocks);
+ $result->portal = $t->fetch('portal.html');
+ }
+ $result->linkTags = $linkTags;
+ break;
+
+case 'chunkContent':
+ $chunk = basename(Util::getPost('chunk'));
+ if (!empty($chunk)) {
+ $result = new stdClass;
+ $result->chunk = Util::bufferOutput('include', IMP_TEMPLATES . '/chunks/' . $chunk . '.php');
+ }
+ break;
+
+case 'PurgeDeleted':
+ $change = _changed($folder, $cacheid, $indices);
+ if (!$change) {
+ $sort = IMP::getSort($folder);
+ $change = ($sort['by'] == SORTTHREAD);
+ }
+ $imp_message = &IMP_Message::singleton();
+ $expunged = $imp_message->expungeMailbox(array($folder => 1));
+ if (!empty($expunged[$folder])) {
+ $expunge_count = count($expunged[$folder]);
+ $display_folder = IMP::displayFolder($folder);
+ if ($expunge_count == 1) {
+ $notification->push(sprintf(_("1 message was purged from \"%s\"."), $display_folder), 'horde.success');
+ } else {
+ $notification->push(sprintf(_("%s messages were purged from \"%s\"."), $expunge_count, $display_folder), 'horde.success');
+ }
+ $result = _generateDeleteResult($folder, $expunged, $change);
+ // Need to manually set remove to true since we want to remove
+ // message from the list no matter the current pref settings.
+ $result->remove = 1;
+ }
+ break;
+
+case 'ModifyPollFolder':
+ if (empty($folder)) {
+ break;
+ }
+
+ $add = Util::getPost('add');
+
+ $imptree = &IMP_IMAP_Tree::singleton();
+
+ $result = new stdClass;
+ $result->add = (bool) $add;
+ $result->folder = $folder;
+
+ if ($add) {
+ $imptree->addPollList($folder);
+ if ($info = $imptree->getElementInfo($folder)) {
+ $result->poll = array($folder => $info['unseen']);
+ }
+ } else {
+ $imptree->removePollList($folder);
+ }
+ break;
+
+case 'SendMDN':
+ $index = Util::getPost('index');
+ if (empty($folder) || empty($index)) {
+ break;
+ }
+
+ /* Get the IMP_Headers:: object. */
+ try {
+ $fetch_ret = $imp_imap->ob->fetch($folder, array(
+ Horde_Imap_Client::FETCH_HEADERTEXT => array(array('parse' => true, 'peek' => false))
+ ), array('ids' => array($index)));
+ } catch (Horde_Imap_Client_Exception $e) {
+ break;
+ }
+
+ $imp_ui = new IMP_UI_Message();
+ $imp_ui->MDNCheck(reset($fetch_ret[$index]['headertext']), true);
+ break;
+
+case 'PGPSymmetric':
+case 'PGPPersonal':
+case 'SMIMEPersonal':
+ $result = new stdClass;
+ $result->success = false;
+
+ $passphrase = Util::getFormData('passphrase');
+
+ if ($action == 'SMIMEPersonal') {
+ $imp_smime = &Horde_Crypt::singleton(array('imp', 'smime'));
+ $secure_check = $imp_smime->requireSecureConnection();
+ if (!is_a($secure_check, 'PEAR_Error') && $passphrase) {
+ $res = $imp_smime->storePassphrase($passphrase);
+ }
+ } else {
+ $imp_pgp = &Horde_Crypt::singleton(array('imp', 'pgp'));
+ $secure_check = $imp_pgp->requireSecureConnection();
+ if (is_a($secure_check, 'PEAR_Error') && $passphrase) {
+ $res = $imp_pgp->storePassphrase(($action == 'PGPSymmetric') ? 'symmetric' : 'personal', $passphrase, Util::getFormData('symmetricid'));
+ }
+ }
+
+ if (is_a($secure_check, 'PEAR_Error')) {
+ $result->error = $secure_check->getMessage();
+ } elseif (!$passphrase) {
+ $result->error = _("No passphrase entered.");
+ } elseif ($res) {
+ $result->success = 1;
+ } else {
+ $result->error = _("Invalid passphrase entered.");
+ }
+
+ /* TODO - This code will eventually be moved to the API. But this function
+ * may be called by IMP so explicitly include DIMP.php. */
+ require_once IMP_BASE . '/lib/DIMP.php';
+ $notify = false;
+
+ break;
+}
+
+// Clear the output buffer that we started above, and log any unexpected
+// output at a DEBUG level.
+$errors = ob_get_clean();
+if ($errors) {
+ Horde::logMessage('DIMP: unexpected output: ' .
+ $errors, __FILE__, __LINE__, PEAR_LOG_DEBUG);
+}
+
+// Send the final result.
+IMP::sendHTTPResponse(DIMP::prepareResponse($result, $notify), 'json');
+++ /dev/null
-<?php
-/**
- * imp.php - performs an AJAX-requested action and returns the DIMP-specific
- * JSON object
- *
- * Copyright 2005-2008 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 Michael Slusarz <slusarz@horde.org>
- */
-
-function _generateDeleteResult($mbox, $indices, $change)
-{
- $imp_mailbox = &IMP_Mailbox::singleton($mbox);
-
- $result = new stdClass;
- $result->folder = $mbox;
- $result->uids = IMP::toRangeString($indices);
- $result->remove = ($GLOBALS['prefs']->getValue('hide_deleted') ||
- $GLOBALS['prefs']->getValue('use_trash'));
- $result->cacheid = $imp_mailbox->getCacheID($mbox);
-
- if ($change) {
- $result->viewport = _getListMessages($mbox, true);
- }
-
- $poll = _getPollInformation($mbox);
- if (!empty($poll)) {
- $result->poll = $poll;
- }
-
- return $result;
-}
-
-function _changed($mbox, $compare, $indices = array(), $nothread = false)
-{
- if ($GLOBALS['imp_search']->isVFolder($mbox)) {
- return true;
- }
-
- $imp_mailbox = &IMP_Mailbox::singleton($mbox);
- if ($imp_mailbox->getCacheID($mbox) != $compare) {
- return true;
- }
-
- if (!empty($indices) && !$nothread) {
- $sort = IMP::getSort($mbox);
- if ($sort['by'] == Horde_Imap_Client::SORT_THREAD) {
- foreach ($indices as $mbox => $mbox_array) {
- $imp_mailbox = &IMP_Mailbox::singleton($mbox);
- $threadob = $imp_mailbox->getThreadOb();
- foreach ($mbox_array as $val) {
- if ($threadob->getThreadBase($val) !== false) {
- return true;
- }
- }
- }
- }
- }
-
- return false;
-}
-
-function _getListMessages($folder, $change)
-{
- $args = array(
- 'cached' => Util::getPost('cached'),
- 'cacheid' => Util::getPost('cacheid'),
- 'filter' => Util::getPost('filter'),
- 'folder' => $folder,
- 'searchfolder' => Util::getPost('searchfolder'),
- 'searchmsg' => Util::getPost('searchmsg'),
- );
-
- $search = Util::getPost('search');
- if (empty($search)) {
- $args += array(
- 'slice_rownum' => intval(Util::getPost('rownum')),
- 'slice_start' => intval(Util::getPost('slice_start')),
- 'slice_end' => intval(Util::getPost('slice_end'))
- );
- } else {
- $search = Horde_Serialize::unserialize($search, SERIALIZE_JSON);
- $args += array(
- 'search_uid' => $search->imapuid,
- 'search_view' => $search->view,
- 'search_before' => intval(Util::getPost('search_before')),
- 'search_after' => intval(Util::getPost('search_after'))
- );
- }
-
- $list_msg = new IMP_Views_ListMessages();
- $res = $list_msg->ListMessages($args);
-
- // TODO: This can potentially be optimized for arrival time sort - if the
- // cache ID changes, we know the changes must occur at end of mailbox.
- if (!$res->reset && (Util::getPost('purge') || $change)) {
- $res->update = 1;
- }
-
- $req_id = Util::getPost('request_id');
- if (!is_null($req_id)) {
- $res->request_id = $req_id;
- }
-
- return $res;
-}
-
-function _getIdxString($indices)
-{
- $i = each($indices);
- return reset($i['value']) . IMP::IDX_SEP . $i['key'];
-}
-
-function _getPollInformation($mbox)
-{
- $imptree = &IMP_IMAP_Tree::singleton();
- $elt = $imptree->get($mbox);
- if ($imptree->isPolled($elt)) {
- $info = $imptree->getElementInfo($mbox);
- return array($mbox => isset($info['unseen']) ? $info['unseen'] : 0);
- }
- return array();
-}
-
-function _getQuota()
-{
- if (isset($_SESSION['imp']['quota']) &&
- is_array($_SESSION['imp']['quota'])) {
- $quotadata = IMP::quotaData(false);
- if (!empty($quotadata)) {
- return array('p' => round($quotadata['percent']), 'm' => $quotadata['message']);
- }
- }
-
- return null;
-}
-
-// Need to load Util:: to give us access to Util::getPathInfo().
-if (!defined('HORDE_BASE')) {
- define('HORDE_BASE', dirname(__FILE__) . '/..');
-}
-require_once HORDE_BASE . '/lib/core.php';
-$action = basename(Util::getPathInfo());
-if (empty($action)) {
- // This is the only case where we really don't return anything, since
- // the frontend can be presumed not to make this request on purpose.
- // Other missing data cases we return a response of boolean false.
- exit;
-}
-
-// The following actions do not need write access to the session and
-// should be opened read-only for performance reasons.
-if (in_array($action, array('chunkContent', 'Html2Text', 'Text2Html', 'GetReplyData'))) {
- $session_control = 'readonly';
-}
-
-$dimp_logout = ($action == 'LogOut');
-$session_timeout = 'json';
-require_once dirname(__FILE__) . '/lib/base.php';
-
-// Process common request variables.
-$folder = Util::getPost('folder');
-$indices = IMP::parseRangeString(Util::getPost('uid'));
-$cacheid = Util::getPost('cacheid');
-
-// Open an output buffer to ensure that we catch errors that might break JSON
-// encoding.
-ob_start();
-
-$notify = true;
-$result = false;
-
-/* We know we are going to be exclusively dealing with this mailbox, so
- * select it on the IMAP server (saves some STATUS calls). */
-if ($folder &&
- ($action != 'CreateFolder') &&
- !$imp_search->isSearchMbox($folder)) {
- $imp_imap->ob->openMailbox($folder);
-}
-
-switch ($action) {
-case 'CreateFolder':
- if (empty($folder)) {
- break;
- }
-
- $imptree = &IMP_IMAP_Tree::singleton();
- $imptree->eltDiffStart();
-
- $imp_folder = &IMP_Folder::singleton();
-
- $new = String::convertCharset($folder, NLS::getCharset(), 'UTF7-IMAP');
- $new = $imptree->createMailboxName(Util::getPost('parent'), $new);
- if (is_a($new, 'PEAR_Error')) {
- $notification->push($new, 'horde.error');
- $result = false;
- } else {
- $result = $imp_folder->create($new, $prefs->getValue('subscribe'));
- if ($result) {
- $result = DIMP::getFolderResponse($imptree);
- }
- }
- break;
-
-case 'DeleteFolder':
- if (empty($folder)) {
- break;
- }
-
- $imptree = &IMP_IMAP_Tree::singleton();
- $imptree->eltDiffStart();
-
- $imp_folder = &IMP_Folder::singleton();
- $result = $imp_folder->delete(array($folder));
- if ($result) {
- $result = DIMP::getFolderResponse($imptree);
- }
- break;
-
-case 'RenameFolder':
- $old = Util::getPost('old_name');
- $new_parent = Util::getPost('new_parent');
- $new = Util::getPost('new_name');
- if (!$old || !$new) {
- break;
- }
-
- $imptree = &IMP_IMAP_Tree::singleton();
- $imptree->eltDiffStart();
-
- $imp_folder = &IMP_Folder::singleton();
-
- $new = $imptree->createMailboxName($new_parent, $new);
- if (is_a($new, 'PEAR_Error')) {
- $notification->push($new, 'horde.error');
- $result = false;
- } else {
- require_once 'Horde/String.php';
- $new = String::convertCharset($new, NLS::getCharset(), 'UTF7-IMAP');
- if ($old != $new) {
- $result = $imp_folder->rename($old, $new);
- if ($result) {
- $result = DIMP::getFolderResponse($imptree);
- }
- }
- }
- break;
-
-case 'EmptyFolder':
- if (empty($folder)) {
- break;
- }
-
- $imp_message = &IMP_Message::singleton();
- $imp_message->emptyMailbox(array($folder));
- $result = new stdClass;
- $result->mbox = $folder;
- break;
-
-case 'MarkFolderSeen':
-case 'MarkFolderUnseen':
- if (empty($folder)) {
- break;
- }
-
- $imp_message = &IMP_Message::singleton();
- $result = $imp_message->flagAllInMailbox(array('seen'),
- array($folder),
- $action == 'MarkFolderSeen');
- if ($result) {
- $result = new stdClass;
- $result->mbox = $folder;
-
- $poll = _getPollInformation($folder);
- if (!empty($poll)) {
- $result->poll = array($folder => $poll[$folder]['u']);
- }
- }
- break;
-
-case 'ListFolders':
- $imptree = &IMP_IMAP_Tree::singleton();
- $result = DIMP::getFolderResponse($imptree, array('a' => $imptree->folderList(IMP_IMAP_TREE::FLIST_CONTAINER | IMP_IMAP_TREE::FLIST_VFOLDER), 'c' => array(), 'd' => array()));
-
- $quota = _getQuota();
- if (!is_null($quota)) {
- $result['quota'] = $quota;
- }
- break;
-
-case 'PollFolders':
- $result = new stdClass;
-
- $fm_account = new IMP_Fetchmail_Account();
- $fm_count = $fm_account->count();
- if (!empty($fm_count)) {
- IMP_Fetchmail::fetchMail(range(0, $fm_count - 1));
- }
-
- $imptree = &IMP_IMAP_Tree::singleton();
-
- $result->poll = array();
- foreach ($imptree->getPollList(true) as $val) {
- if ($info = $imptree->getElementInfo($val)) {
- $result->poll[$val] = $info['unseen'];
- }
- }
-
- if (!empty($folder) && _changed($folder, $cacheid)) {
- $result->viewport = _getListMessages($folder, true);
- }
-
- $quota = _getQuota();
- if (!is_null($quota)) {
- $result->quota = $quota;
- }
- break;
-
-case 'ListMessages':
- if (empty($folder)) {
- break;
- }
-
- /* Change sort preferences if necessary. */
- $sortby = Util::getPost('sortby');
- $sortdir = Util::getPost('sortdir');
- if (!is_null($sortby) || !is_null($sortdir)) {
- IMP::setSort($sortby, $sortdir, $folder);
- }
-
- $result = new stdClass;
-
- if (Util::getPost('rangeslice')) {
- $list_msg = new IMP_Views_ListMessages();
- $result->viewport = $list_msg->getSlice($folder, intval(Util::getPost('start')) - 1, intval(Util::getPost('length')));
- $result->viewport->request_id = Util::getPost('request_id');
- $result->viewport->type = 'slice';
- } else {
- $changed = _changed($folder, $cacheid);
- if (!Util::getPost('checkcache') || $changed) {
- $result->viewport = _getListMessages($folder, $changed);
- }
- }
- break;
-
-case 'MoveMessage':
-case 'CopyMessage':
- $to = Util::getPost('tofld');
- if (!$to || empty($indices)) {
- break;
- }
-
- if ($action == 'MoveMessage') {
- $change = _changed($folder, $cacheid, $indices);
- }
-
- $imp_message = &IMP_Message::singleton();
-
- $result = $imp_message->copy($to, ($action == 'MoveMessage') ? IMP_MESSAGE::MOVE : IMP_MESSAGE::COPY, $indices);
-
- if ($result) {
- if ($action == 'MoveMessage') {
- $result = _generateDeleteResult($folder, $indices, $change);
- // Need to manually set remove to true since we want to remove
- // message from the list no matter the current pref settings.
- $result->remove = 1;
- }
-
- // Update poll information for destination folder if necessary.
- // Poll information for current folder will be added by
- // _generateDeleteResult() call above.
- $poll = _getPollInformation($to);
- if (!empty($poll)) {
- if (!isset($result->poll)) {
- $result->poll = array();
- }
- $result->poll = array_merge($result->poll, $poll);
- }
- }
- break;
-
-case 'MarkMessage':
- $flag = Util::getPost('messageFlag');
- if (!$flag || empty($indices)) {
- break;
- }
- if ($flag[0] == '-') {
- $flag = substr($flag, 1);
- $set = false;
- } else {
- $set = true;
- }
-
- $imp_message = &IMP_Message::singleton();
- $result = $imp_message->flag(array($flag), $indices, $set);
- if ($result) {
- $result = new stdClass;
- }
- break;
-
-case 'DeleteMessage':
-case 'UndeleteMessage':
- if (empty($indices)) {
- break;
- }
-
- $imp_message = &IMP_Message::singleton();
- if ($action == 'DeleteMessage') {
- $change = _changed($folder, $cacheid, $indices, !$prefs->getValue('hide_deleted') && !$prefs->getValue('use_trash'));
- $result = $imp_message->delete($indices);
- if ($result) {
- $result = _generateDeleteResult($folder, $indices, $change);
- }
- } else {
- $result = $imp_message->undelete($indices);
- if ($result) {
- $result = new stdClass;
- }
- }
- break;
-
-case 'AddContact':
- $email = Util::getPost('email');
- $name = Util::getPost('name');
- // Allow $name to be empty.
- if (empty($email)) {
- break;
- }
-
- $result = IMP::addAddress($email, $name);
- if (is_a($result, 'PEAR_Error')) {
- $notification->push($result, 'horde.error');
- $result = false;
- } else {
- $result = true;
- $notification->push(sprintf(_("%s was successfully added to your address book."), $name ? $name : $email), 'horde.success');
- }
- break;
-
-case 'ReportSpam':
-case 'ReportHam':
- $change = _changed($folder, $cacheid, $indices);
- $result = IMP_Spam::reportSpam($indices, ($action == 'ReportSpam') ? 'spam' : 'notspam');
- if ($result) {
- $result = _generateDeleteResult($folder, $indices, $change);
- // If $result is non-zero, then we know the message has been removed
- // from the current mailbox.
- $result->remove = 1;
- }
- break;
-
-case 'Blacklist':
-case 'Whitelist':
- if (empty($indices)) {
- break;
- }
-
- $imp_filter = new IMP_Filter();
- if ($action == 'Whitelist') {
- $imp_filter->whitelistMessage($indices, false);
- } else {
- $change = _changed($folder, $cacheid, $indices);
- if ($imp_filter->blacklistMessage($indices, false)) {
- $result = _generateDeleteResult($folder, $indices, $change);
- }
- }
- break;
-
-case 'ShowPreview':
- if (count($indices) != 1) {
- break;
- }
-
- $ptr = each($indices);
- $args = array(
- 'folder' => $ptr['key'],
- 'index' => reset($ptr['value']),
- 'preview' => true,
- );
-
- $show_msg = new IMP_Views_ShowMessage();
- $result = (object) $show_msg->showMessage($args);
- break;
-
-case 'Html2Text':
- require_once 'Horde/Text/Filter.php';
- $result = new stdClass;
- // Need to replace line endings or else IE won't display line endings
- // properly.
- $result->text = str_replace("\n", "\r\n", Text_Filter::filter(Util::getPost('text'), 'html2text'));
- break;
-
-case 'Text2Html':
- require_once 'Horde/Text/Filter.php';
- $result = new stdClass;
- $result->text = Text_Filter::filter(Util::getPost('text'), 'text2html', array('parselevel' => TEXT_HTML_MICRO_LINKURL, 'class' => null, 'callback' => null));
- break;
-
-case 'GetForwardData':
- $header = array();
- $msg = $header = null;
- $idx_string = _getIdxString($indices);
-
- $imp_compose = &IMP_Compose::singleton(Util::getPost('imp_compose'));
- $imp_contents = &IMP_Contents::singleton($idx_string);
- $imp_ui = new IMP_UI_Compose();
- $fwd_msg = $imp_ui->getForwardData($imp_compose, $imp_contents, Util::getPost('type'), $idx_string);
- $header = $fwd_msg['headers'];
- $header['replytype'] = 'forward';
-
- $result = new stdClass;
- // Can't open read-only since we need to store the message cache id.
- $result->imp_compose = $imp_compose->getCacheId();
- $result->fwd_list = DIMP::getAttachmentInfo($imp_compose);
- $result->body = $fwd_msg['body'];
- $result->header = $header;
- $result->format = $fwd_msg['format'];
- $result->identity = $fwd_msg['identity'];
- break;
-
-case 'GetReplyData':
- $imp_compose = &IMP_Compose::singleton(Util::getPost('imp_compose'));
- $imp_contents = &IMP_Contents::singleton(_getIdxString($indices));
- $reply_msg = $imp_compose->replyMessage(Util::getPost('type'), $imp_contents);
- $header = $reply_msg['headers'];
- $header['replytype'] = 'reply';
-
- $result = new stdClass;
- $result->format = $reply_msg['format'];
- $result->body = $reply_msg['body'];
- $result->header = $header;
- $result->identity = $reply_msg['identity'];
- break;
-
-case 'DeleteDraft':
- $index = Util::getPost('index');
- if (empty($indices)) {
- break;
- }
- $imp_message = &IMP_Message::singleton();
- $idx_array = array($index . IMP::IDX_SEP . IMP::folderPref($prefs->getValue('drafts_folder'), true));
- $imp_message->delete($idx_array, true);
- break;
-
-case 'DeleteAttach':
- $atc = Util::getPost('atc_indices');
- if (!is_null($atc)) {
- $imp_compose = &IMP_Compose::singleton(Util::getPost('imp_compose'));
- $imp_compose->deleteAttachment($atc);
- }
- break;
-
-case 'ShowPortal':
- // Load the block list. Blocks are located in $dimp_block_list.
- // KEY: Block label VALUE: Horde_Block object
- require IMP_BASE . '/config/portal.php';
-
- $blocks = $linkTags = array();
- $css_load = array('dimp' => true);
- foreach ($dimp_block_list as $title => $block) {
- if (is_a($block['ob'], 'Horde_Block')) {
- $app = $block['ob']->getApp();
- $content = ((empty($css_load[$app])) ? Horde::styleSheetLink($app, '', false) : '') . $block['ob']->getContent();
- $css_load[$app] = true;
- // Don't do substitutions on our own blocks.
- if ($app != 'dimp') {
- $content = preg_replace('/<a href="([^"]+)"/',
- '<a onclick="DimpBase.go(\'app:' . $app . '\', \'$1\');return false"',
- $content);
- if (preg_match_all('/<link .*?rel="stylesheet".*?\/>/',
- $content, $links)) {
- $content = str_replace($links[0], '', $content);
- foreach ($links[0] as $link) {
- if (preg_match('/href="(.*?)"/', $link, $href)) {
- $linkOb = new stdClass;
- $linkOb->href = $href[1];
- if (preg_match('/media="(.*?)"/', $link, $media)) {
- $linkOb->media = $media[1];
- }
- $linkTags[] = $linkOb;
- }
- }
- }
- }
- if (!empty($content)) {
- $entry = array(
- 'app' => $app,
- 'content' => $content,
- 'title' => $title,
- 'class' => empty($block['class']) ? 'headerbox' : $block['class'],
- );
- if (!empty($block['domid'])) {
- $entry['domid'] = $block['domid'];
- }
- if (!empty($block['tag'])) {
- $entry[$block['tag']] = true;
- }
- $blocks[] = $entry;
- }
- }
- }
-
- $result = new stdClass;
- $result->portal = '';
- if (!empty($blocks)) {
- $t = new IMP_Template(IMP_TEMPLATES . '/imp/');
- $t->set('block', $blocks);
- $result->portal = $t->fetch('portal.html');
- }
- $result->linkTags = $linkTags;
- break;
-
-case 'chunkContent':
- $chunk = basename(Util::getPost('chunk'));
- if (!empty($chunk)) {
- $result = new stdClass;
- $result->chunk = Util::bufferOutput('include', IMP_TEMPLATES . '/chunks/' . $chunk . '.php');
- }
- break;
-
-case 'PurgeDeleted':
- $change = _changed($folder, $cacheid, $indices);
- if (!$change) {
- $sort = IMP::getSort($folder);
- $change = ($sort['by'] == SORTTHREAD);
- }
- $imp_message = &IMP_Message::singleton();
- $expunged = $imp_message->expungeMailbox(array($folder => 1));
- if (!empty($expunged[$folder])) {
- $expunge_count = count($expunged[$folder]);
- $display_folder = IMP::displayFolder($folder);
- if ($expunge_count == 1) {
- $notification->push(sprintf(_("1 message was purged from \"%s\"."), $display_folder), 'horde.success');
- } else {
- $notification->push(sprintf(_("%s messages were purged from \"%s\"."), $expunge_count, $display_folder), 'horde.success');
- }
- $result = _generateDeleteResult($folder, $expunged, $change);
- // Need to manually set remove to true since we want to remove
- // message from the list no matter the current pref settings.
- $result->remove = 1;
- }
- break;
-
-case 'ModifyPollFolder':
- if (empty($folder)) {
- break;
- }
-
- $add = Util::getPost('add');
-
- $imptree = &IMP_IMAP_Tree::singleton();
-
- $result = new stdClass;
- $result->add = (bool) $add;
- $result->folder = $folder;
-
- if ($add) {
- $imptree->addPollList($folder);
- if ($info = $imptree->getElementInfo($folder)) {
- $result->poll = array($folder => $info['unseen']);
- }
- } else {
- $imptree->removePollList($folder);
- }
- break;
-
-case 'SendMDN':
- $index = Util::getPost('index');
- if (empty($folder) || empty($index)) {
- break;
- }
-
- /* Get the IMP_Headers:: object. */
- try {
- $fetch_ret = $imp_imap->ob->fetch($folder, array(
- Horde_Imap_Client::FETCH_HEADERTEXT => array(array('parse' => true, 'peek' => false))
- ), array('ids' => array($index)));
- } catch (Horde_Imap_Client_Exception $e) {
- break;
- }
-
- $imp_ui = new IMP_UI_Message();
- $imp_ui->MDNCheck(reset($fetch_ret[$index]['headertext']), true);
- break;
-
-case 'PGPSymmetric':
-case 'PGPPersonal':
-case 'SMIMEPersonal':
- $result = new stdClass;
- $result->success = false;
-
- $passphrase = Util::getFormData('passphrase');
-
- if ($action == 'SMIMEPersonal') {
- $imp_smime = &Horde_Crypt::singleton(array('imp', 'smime'));
- $secure_check = $imp_smime->requireSecureConnection();
- if (!is_a($secure_check, 'PEAR_Error') && $passphrase) {
- $res = $imp_smime->storePassphrase($passphrase);
- }
- } else {
- $imp_pgp = &Horde_Crypt::singleton(array('imp', 'pgp'));
- $secure_check = $imp_pgp->requireSecureConnection();
- if (is_a($secure_check, 'PEAR_Error') && $passphrase) {
- $res = $imp_pgp->storePassphrase(($action == 'PGPSymmetric') ? 'symmetric' : 'personal', $passphrase, Util::getFormData('symmetricid'));
- }
- }
-
- if (is_a($secure_check, 'PEAR_Error')) {
- $result->error = $secure_check->getMessage();
- } elseif (!$passphrase) {
- $result->error = _("No passphrase entered.");
- } elseif ($res) {
- $result->success = 1;
- } else {
- $result->error = _("Invalid passphrase entered.");
- }
-
- /* TODO - This code will eventually be moved to the API. But this function
- * may be called by IMP so explicitly include DIMP.php. */
- require_once IMP_BASE . '/lib/DIMP.php';
- $notify = false;
-
- break;
-}
-
-// Clear the output buffer that we started above, and log any unexpected
-// output at a DEBUG level.
-$errors = ob_get_clean();
-if ($errors) {
- Horde::logMessage('DIMP: unexpected output: ' .
- $errors, __FILE__, __LINE__, PEAR_LOG_DEBUG);
-}
-
-// Send the final result.
-IMP::sendHTTPResponse(DIMP::prepareResponse($result, $notify), 'json');
/* Variables used in core javascript files. */
$code['conf'] = array(
'URI_DIMP_INBOX' => Horde::applicationUrl('index-dimp.php', true, -1),
- 'URI_IMP' => Horde::applicationUrl('imp-dimp.php', true, -1),
+ 'URI_IMP' => Horde::applicationUrl('ajax.php', true, -1),
'URI_PREFS' => Horde::url($horde_webroot . '/services/prefs/', true, -1),
'URI_VIEW' => Util::addParameter(Horde::applicationUrl('view.php', true, -1), array('actionID' => 'view_source', 'id' => 0), null, false),
$js_params = array(
'action' => $action ? 'function() {' . $action . '}' : '',
- 'uri' => Horde::applicationUrl('imp-dimp.php', true, -1) . '/' . $type,
+ 'uri' => Horde::applicationUrl('ajax.php', true, -1) . '/' . $type,
'params' => $params,
'text' => $text,
'ok_text' => _("OK"),
projects / horde.git / commitdiff