function process_inbound_mail($forumId, $suppressErrors = false)
{
// require_once ("lib/webmail/pop3.php");
require_once "lib/webmail/net_pop3.php";
require_once "lib/mail/mimelib.php";
//require_once ("lib/webmail/mimeDecode.php");
include_once "lib/webmail/htmlMimeMail.php";
$info = $this->get_forum($forumId);
// for any reason my sybase test machine adds a space to
// the inbound_pop_server field in the table.
$info["inbound_pop_server"] = trim($info["inbound_pop_server"]);
if (!$info["inbound_pop_server"] || empty($info["inbound_pop_server"])) {
return;
}
$pop3 = new Net_POP3();
$pop3->connect($info["inbound_pop_server"]);
$pop3->login($info["inbound_pop_user"], $info["inbound_pop_password"]);
if (!$pop3) {
return;
}
$mailSum = $pop3->numMsg();
//we don't want the operation to time out... this would result in the same messages being imported over and over...
//(messages are only removed from the pop server on a gracefull connection termination... ie .not php or webserver a timeout)
//$maximport should be in a admin config screen, but I don't know how to do that yet.
$maxImport = 10;
if ($mailSum > $maxImport) {
$mailSum = $maxImport;
}
for ($i = 1; $i <= $mailSum; $i++) {
//echo 'loop ' . $i;
$aux = $pop3->getParsedHeaders($i);
// If the connection is done, or the mail has an error, or whatever,
// we try to delete the current mail (because something is wrong with it)
// and continue on. --rlpowell
if ($aux == FALSE) {
$pop3->deleteMsg($i);
continue;
}
//echo '<pre>';
//print_r ($aux);
//echo '</pre>';
if (!isset($aux['From'])) {
if (isset($aux['Return-path'])) {
$aux['From'] = $aux['Return-path'];
} else {
$aux['From'] = "";
$aux['Return-path'] = "";
}
}
//try to get the date from the email:
$postDate = strtotime($aux['Date']);
if ($postDate == false) {
$postDate = $this->now;
}
//save the original email address, if we don't get a user match, then we
//can at least give some info about the poster.
$original_email = $aux["From"];
//fix mailman addresses, or there is no chance to get a match
$aux["From"] = str_replace(' at ', '@', $original_email);
preg_match('/<?([-!#$%&\'*+\\.\\/0-9=?A-Z^_`a-z{|}~]+@[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\\.[-!#$%&\'*+\\.\\/0-9=?A-Z^_`a-z{|}~]+)>?/', $aux["From"], $mail);
// should we throw out emails w/ invalid (possibly obfusicated) email addressses?
//this should be an admin option, but I don't know how to put it there yet.
$throwOutInvalidEmails = false;
if (!array_key_exists(1, $mail)) {
if ($throwOutInvalidEmails) {
continue;
}
}
$email = $mail[1];
$full = $pop3->getMsg($i);
$message = $pop3->getBody($i);
$output = mime::decode($full);
//unset ($parts);
//$this->parse_output($output, $parts, 0);
if (isset($output["text"][0])) {
$body = $output["text"][0];
} elseif (isset($output['parts'][0]["text"][0])) {
$body = $output['parts'][0]["text"][0];
} elseif (isset($output['body'])) {
$body = $output['body'];
} elseif (isset($output['parts'][0]['html'][0])) {
// some html message does not have a text part
$body = $this->htmldecode(strip_tags(preg_replace('/\\n\\r/', '', $output['parts'][0]['html'][0])));
} elseif (isset($output['parts'][0]['parts'][0]['text'][0])) {
$body = $output['parts'][0]['parts'][0]['text'][0];
} else {
$body = "";
}
// Remove 're:' and [forum]. -rlpowell
$title = trim(preg_replace("/[rR][eE]:/", "", preg_replace("/\\[[-A-Za-z _:]*\\]/", "", $output['header']['subject'])));
//Todo: check permissions
$message_id = substr($output['header']["message-id"], 1, strlen($output['header']["message-id"]) - 2);
if (isset($output['header']["in-reply-to"])) {
$in_reply_to = substr($output['header']["in-reply-to"], 1, strlen($output['header']["in-reply-to"]) - 2);
} else {
$in_reply_to = '';
}
// Determine user from email
$userName = $this->table('users_users')->fetchOne('login', array('email' => $email));
//use anonomus name feature if we don't have a real name
if (!$userName) {
$anonName = $original_email;
}
// Determine if the thread already exists.
$parentId = $this->table('tiki_comments')->fetchOne('threadId', array('object' => $forumId, 'objectType' => 'forum', 'parentId' => 0, 'title' => $title));
if (!$parentId) {
/*
This doesn't make any sense to me... why would we say an inbound email is a'thread to discuss a page'?
I've updated this to just make a new thread w/ the original email info by seting $parentId = 0
// No thread already; create it.
$temp_msid = '';
$parentId = $this->post_new_comment(
'forum:' . $forumId, 0,
$userName, $title,
sprintf(tra("Use this thread to discuss the %s page."), "[tiki-index.php?page=$title|$title]"),
$temp_msid, $in_reply_to
);
$this->register_forum_post($forumId,0);
// First post is in reply to this one
$in_reply_to = $temp_msid;
*/
$parentId = 0;
}
// post
$threadid = $this->post_new_comment('forum:' . $forumId, $parentId, $userName, $title, $body, $message_id, $in_reply_to, 'n', '', '', '', $anonName, $postDate);
$this->register_forum_post($forumId, $parentId);
// Process attachments
if (array_key_exists('parts', $output) && count($output['parts']) > 1) {
$forum_info = $this->get_forum($forumId);
if ($forum_info['att'] != 'att_no') {
$errors = array();
foreach ($output['parts'] as $part) {
if (array_key_exists('disposition', $part)) {
if ($part['disposition'] == 'attachment') {
if (strlen($part['d_parameters']['filename']) > 0) {
$part_name = $part['d_parameters']['filename'];
} else {
$part_name = "Unnamed File";
}
$this->add_thread_attachment($forum_info, $threadid, $errors, $part_name, $part['type'], strlen($part['body']), 1, '', $part['body'], $suppressErrors);
} elseif ($part['disposition'] == 'inline') {
foreach ($part['parts'] as $p) {
$this->add_thread_attachment($forum_info, $threadid, $errors, '-', $p['type'], strlen($p['body']), 1, '', $p['body'], $suppressErrors);
}
}
}
}
}
}
// Deal with mail notifications.
if (array_key_exists('outbound_mails_reply_link', $info) && $info['outbound_mails_for_inbound_mails'] == 'y') {
//phpinfo();
include_once 'lib/notifications/notificationemaillib.php';
sendForumEmailNotification('forum_post_thread', $threadid, $info, $title, $body, $userName, $title, $message_id, $in_reply_to, $threadid, $parentId);
}
$pop3->deleteMsg($i);
}
$pop3->disconnect();
}
/**
* Gets all new mails from a given mail account
*
* @param MailAccount $account
* @return array
*/
private function getNewPOP3Mails(MailAccount $account, $max = 0)
{
$pop3 = new Net_POP3();
$received = 0;
// Connect to mail server
if ($account->getIncomingSsl()) {
$pop3->connect("ssl://" . $account->getServer(), $account->getIncomingSslPort());
} else {
$pop3->connect($account->getServer());
}
if (PEAR::isError($ret = $pop3->login($account->getEmail(), self::ENCRYPT_DECRYPT($account->getPassword()), 'USER'))) {
throw new Exception($ret->getMessage());
}
$mailsToGet = array();
$summary = $pop3->getListing();
$uids = MailContents::getUidsFromAccount($account->getId());
foreach ($summary as $k => $info) {
if (!in_array($info['uidl'], $uids)) {
$mailsToGet[] = $k;
}
}
if ($max == 0) {
$toGet = count($mailsToGet);
} else {
$toGet = min(count($mailsToGet), $max);
}
// fetch newer mails first
$mailsToGet = array_reverse($mailsToGet, true);
foreach ($mailsToGet as $idx) {
if ($toGet <= $received) {
break;
}
if (defined('DEBUG_EMAIL_RETRIEVAL') && DEBUG_EMAIL_RETRIEVAL) {
if (mysql_ping(DB::connection()->getLink())) {
Logger::log("Antes de pedir content" . date("H:i:s") . " Mysql ping OK");
} else {
Logger::log("Antes de pedir content" . date("H:i:s") . " Mysql ping ERROR **********");
}
}
$content = $pop3->getMsg($idx + 1);
// message index is 1..N
if (defined('DEBUG_EMAIL_RETRIEVAL') && DEBUG_EMAIL_RETRIEVAL) {
if (mysql_ping(DB::connection()->getLink())) {
Logger::log("Despues de pedir content" . date("H:i:s") . " Mysql ping OK");
} else {
Logger::log("Despues de pedir content" . date("H:i:s") . " Mysql ping ERROR **********");
}
}
if ($content != '') {
$uid = $summary[$idx]['uidl'];
try {
$stop_checking = self::SaveMail($content, $account, $uid);
if ($stop_checking) {
break;
}
} catch (Exception $e) {
$mail_file = ROOT . "/tmp/unsaved_mail_" . $uid . ".eml";
$res = file_put_contents($mail_file, $content);
if ($res === false) {
$mail_file = ROOT . "/tmp/unsaved_mail_" . gen_id() . ".eml";
$res = file_put_contents($mail_file, $content);
if ($res === false) {
Logger::log("Could not save mail, and original could not be saved as {$mail_file}, exception:\n" . $e->getMessage());
} else {
Logger::log("Could not save mail, original mail saved as {$mail_file}, exception:\n" . $e->getMessage());
}
} else {
Logger::log("Could not save mail, original mail saved as {$mail_file}, exception:\n" . $e->getMessage());
}
}
unset($content);
$received++;
}
}
$pop3->disconnect();
return $received;
}
$current = $webmaillib->get_current_webmail_account($user);
$smarty->assign('current', $current);
//$pop3 = new POP3($current["pop"], $current["username"], $current["pass"]);
//$pop3->Open();
$pop3 = new Net_POP3();
$pop3->connect($current["pop"]);
$pop3->login($current["username"], $current["pass"]);
if (isset($_REQUEST["delete_one"])) {
check_ticket('webmail');
$aux = $pop3->getParsedHeaders($_REQUEST["msgdel"]);
$realmsgid = ereg_replace("[<>]", "", $aux["Message-ID"]);
$webmaillib->remove_webmail_message($current["accountId"], $user, $realmsgid);
$pop3->deleteMsg($_REQUEST["msgdel"]);
}
$aux = $pop3->getParsedHeaders($_REQUEST["msgid"]);
$message = $pop3->getMsg($_REQUEST["msgid"]);
$realmsgid = ereg_replace("[<>]", "", $aux["Message-ID"]);
$smarty->assign('msgid', $_REQUEST["msgid"]);
$smarty->assign('realmsgid', $realmsgid);
$webmaillib->set_mail_flag($current["accountId"], $user, $realmsgid, 'isRead', 'y');
$mailsum = $pop3->numMsg();
$numshow = $current["msgs"];
if ($_REQUEST["msgid"] == $mailsum) {
$smarty->assign('next', '');
} else {
$smarty->assign('next', $_REQUEST["msgid"] + 1);
}
if ($_REQUEST["msgid"] > 1) {
$smarty->assign('prev', $_REQUEST["msgid"] - 1);
} else {
$smarty->assign('prev', '');
function process_inbound_mail($forumId)
{
// require_once ("lib/webmail/pop3.php");
require_once "lib/webmail/net_pop3.php";
require_once "lib/mail/mimelib.php";
//require_once ("lib/webmail/mimeDecode.php");
include_once "lib/webmail/class.rc4crypt.php";
include_once "lib/webmail/htmlMimeMail.php";
$info = $this->get_forum($forumId);
// for any reason my sybase test machine adds a space to
// the inbound_pop_server field in the table.
$info["inbound_pop_server"] = trim($info["inbound_pop_server"]);
if (!$info["inbound_pop_server"] || empty($info["inbound_pop_server"])) {
return;
}
$pop3 = new Net_POP3();
$pop3->connect($info["inbound_pop_server"]);
$pop3->login($info["inbound_pop_user"], $info["inbound_pop_password"]);
if (!$pop3) {
return;
}
$mailsum = $pop3->numMsg();
$pop3->disconnect();
for ($i = 1; $i <= $mailsum; $i++) {
// Just changed the code to close and re-open the POP3 session for
// each message; it used to try to retrieve everything in one
// session.
//
// We close and re-open for each message because POP3 won't
// delete mail until the client quits (so you can back out of
// accidental deletions in a real user client). This doesn't apply
// here, and as it stands if the mailbox gets very full, we end up
// hitting the mailbox over and over without changing anything,
// because eventually the session times out.
//
// As a side effect, $i doesn't really get used (we're always
// retrieving the first message).
//
// -Robin Powell, 8 Nov 2004
$pop3->connect($info["inbound_pop_server"]);
$pop3->login($info["inbound_pop_user"], $info["inbound_pop_password"]);
$aux = $pop3->getParsedHeaders(1);
// If the connection is done, or the mail has an error, or whatever,
// we try to delete the current mail (because something is wrong with it)
// and continue on. --rlpowell
if ($aux == FALSE) {
$pop3->deleteMsg(1);
continue;
}
if (!isset($aux["From"])) {
$aux['From'] = $aux['Return-path'];
}
preg_match('/<?([-!#$%&\'*+\\.\\/0-9=?A-Z^_`a-z{|}~]+@[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\\.[-!#$%&\'*+\\.\\/0-9=?A-Z^_`a-z{|}~]+)>?/', $aux["From"], $mail);
$email = $mail[1];
$full = $pop3->getMsg(1);
$message = $pop3->getBody(1);
// print( "<pre>" );
// print_r( $full );
// print( "</pre>" );
$output = mime::decode($full);
//unset ($parts);
//$this->parse_output($output, $parts, 0);
// print( "<pre>" );
// print_r( $output );
// print( "</pre>" );
if (isset($output["text"][0])) {
$body = $output["text"][0];
} elseif (isset($output['parts'][0]["text"][0])) {
$body = $output['parts'][0]["text"][0];
} elseif (isset($output['body'])) {
$body = $output['body'];
} else {
$body = "";
}
// print( "<pre>" );
// print_r( $body );
// print( "</pre>" );
// Remove 're:' and [forum]. -rlpowell
$title = trim(preg_replace("/[rR][eE]:/", "", preg_replace("/\\[[-A-Za-z _:]*\\]/", "", $output['header']['subject'])));
if (stristr($aux['Subject'], "=?iso-8859-1?") == $aux['Subject']) {
$title = utf8_encode($title);
}
//Todo: check permissions
$message_id = substr($output['header']["message-id"], 1, strlen($output['header']["message-id"]) - 2);
if (isset($output['header']["in-reply-to"])) {
$in_reply_to = substr($output['header']["in-reply-to"], 1, strlen($output['header']["in-reply-to"]) - 2);
} else {
$in_reply_to = '';
}
// Determine user from email
$userName = $this->getOne("select `login` from `users_users` where `email`=?", array($email));
if (!$userName) {
$user = '';
}
// Determine if the thread already exists.
$parentId = $this->getOne("select `threadId` from `tiki_comments` where\n\t\t `object`=? and `objectType` = 'forum' and\n\t\t `parentId`=0 and `title`=?", array($forumId, $title));
// print( "<pre>parentid:" );
// print_r( $parentId );
// print( "</pre>" );
if (!$parentId) {
// No thread already; create it.
$temp_msid = '';
$parentId = $this->post_new_comment('forum:' . $forumId, 0, $userName, $title, sprintf(tra("Use this thread to discuss the %s page."), "[tiki-index.php?page={$title}|{$title}]"), $temp_msid, $in_reply_to);
$this->register_forum_post($forumId, 0);
// First post is in reply to this one
$in_reply_to = $temp_msid;
}
// post
$threadid = $this->post_new_comment('forum:' . $forumId, $parentId, $userName, $title, $body, $message_id, $in_reply_to);
$this->register_forum_post($forumId, $parentId);
// Process attachments
if (array_key_exists('parts', $output) && count($output['parts']) > 1) {
foreach ($output['parts'] as $part) {
if (array_key_exists('disposition', $part) && $part['disposition'] == "attachment") {
if (strlen($part['d_parameters']['filename']) > 0) {
$part_name = $part['d_parameters']['filename'];
} else {
$part_name = "Unnamed File";
}
$forum_info = $this->get_forum($forumId);
$this->add_thread_attachment($forum_info, $threadid, '', $part['body'], $part_name, $part['type'], strlen($part['body']), 1);
}
}
}
// Deal with mail notifications.
if (array_key_exists('outbound_mails_reply_link', $info) && $info['outbound_mails_for_inbound_mails'] == 'y') {
//phpinfo();
include_once 'lib/notifications/notificationemaillib.php';
sendForumEmailNotification('forum_post_thread', $threadid, $info, $title, $body, $userName, $title, $message_id, $in_reply_to, $threadid, $parentId);
}
$pop3->deleteMsg(1);
$pop3->disconnect();
}
}
function process_inbound_mail($forumId)
{
global $prefs;
require_once "lib/webmail/net_pop3.php";
require_once "lib/mail/mimelib.php";
$info = $this->get_forum($forumId);
// for any reason my sybase test machine adds a space to
// the inbound_pop_server field in the table.
$info["inbound_pop_server"] = trim($info["inbound_pop_server"]);
if (!$info["inbound_pop_server"] || empty($info["inbound_pop_server"])) {
return;
}
$pop3 = new Net_POP3();
$pop3->connect($info["inbound_pop_server"]);
$pop3->login($info["inbound_pop_user"], $info["inbound_pop_password"]);
if (!$pop3) {
return;
}
$mailSum = $pop3->numMsg();
//we don't want the operation to time out... this would result in the same messages being imported over and over...
//(messages are only removed from the pop server on a gracefull connection termination... ie .not php or webserver a timeout)
//$maximport should be in a admin config screen, but I don't know how to do that yet.
$maxImport = 10;
if ($mailSum > $maxImport) {
$mailSum = $maxImport;
}
for ($i = 1; $i <= $mailSum; $i++) {
//echo 'loop ' . $i;
$aux = $pop3->getParsedHeaders($i);
// If the mail came from Tiki, we don't need to add it again
if (isset($aux['X-Tiki']) && $aux['X-Tiki'] == 'yes') {
$pop3->deleteMsg($i);
continue;
}
// If the connection is done, or the mail has an error, or whatever,
// we try to delete the current mail (because something is wrong with it)
// and continue on. --rlpowell
if ($aux == FALSE) {
$pop3->deleteMsg($i);
continue;
}
//echo '<pre>';
//print_r ($aux);
//echo '</pre>';
if (!isset($aux['From'])) {
if (isset($aux['Return-path'])) {
$aux['From'] = $aux['Return-path'];
} else {
$aux['From'] = "";
$aux['Return-path'] = "";
}
}
//try to get the date from the email:
$postDate = strtotime($aux['Date']);
if ($postDate == false) {
$postDate = $this->now;
}
//save the original email address, if we don't get a user match, then we
//can at least give some info about the poster.
$original_email = $aux["From"];
//fix mailman addresses, or there is no chance to get a match
$aux["From"] = str_replace(' at ', '@', $original_email);
preg_match('/<?([-!#$%&\'*+\\.\\/0-9=?A-Z^_`a-z{|}~]+@[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\\.[-!#$%&\'*+\\.\\/0-9=?A-Z^_`a-z{|}~]+)>?/', $aux["From"], $mail);
// should we throw out emails w/ invalid (possibly obfusicated) email addressses?
//this should be an admin option, but I don't know how to put it there yet.
$throwOutInvalidEmails = false;
if (!array_key_exists(1, $mail)) {
if ($throwOutInvalidEmails) {
continue;
}
}
$email = $mail[1];
$full = $pop3->getMsg($i);
$mimelib = new mime();
$output = $mimelib->decode($full);
$body = '';
if ($output['type'] == 'multipart/report') {
// mimelib doesn't seem to parse error reports properly
$pop3->deleteMsg($i);
// and we almost certainly don't want them in the forum
continue;
// so do what exactly? log them somewhere? TODO
}
require_once 'lib/htmlpurifier_tiki/HTMLPurifier.tiki.php';
if ($prefs['feature_forum_parse'] === 'y' && $prefs['forum_inbound_mail_parse_html'] === 'y') {
$body = $mimelib->getPartBody($output, 'html');
if ($body) {
// on some systems HTMLPurifier fails with smart quotes in the html
$body = $mimelib->cleanQuotes($body);
// some emails have invalid font and span tags that create incorrect purifying of lists
$body = preg_replace_callback('/\\<(ul|ol).*\\>(.*)\\<\\/(ul|ol)\\>/Umis', array($this, 'process_inbound_mail_cleanlists'), $body);
// Clean the string using HTML Purifier next
$body = HTMLPurifier($body);
// html emails require some speciaal handling
$body = preg_replace('/--(.*)--/', '~np~--$1--~/np~', $body);
// disable strikethough syntax
$body = preg_replace('/\\{(.*)\\}/', '~np~{$1}~/np~', $body);
// disable plugin type things
// special handling for MS links which contain underline tags in the label which wiki doesn't like
$body = preg_replace('/(\\<a .*\\>)\\<font .*\\>\\<u\\>(.*)\\<\\/u\\>\\<\\/font\\>\\<\\/a\\>/Umis', '$1$2</a>', $body);
$body = str_replace("<br /><br />", "<br /><br /><br />", $body);
// double linebreaks seem to work better as three?
$body = TikiLib::lib('edit')->parseToWiki($body);
$body = str_replace("\n\n", "\n", $body);
// for some reason emails seem to get line feeds quadrupled
$body = preg_replace('/\\[\\[(.*?)\\]\\]/', '[~np~~/np~[$1]]', $body);
// links surrounded by [square brackets] need help
}
}
if (!$body) {
$body = $mimelib->getPartBody($output, 'text');
if (empty($body)) {
// no text part so look for html
$body = $mimelib->getPartBody($output, 'html');
$body = HTMLPurifier($body);
$body = $this->htmldecode(strip_tags($body));
$body = str_replace("\n\n", "\n", $body);
// and again
$body = str_replace("\n\n", "\n", $body);
}
if ($prefs['feature_forum_parse'] === 'y') {
$body = preg_replace('/--(.*)--/', '~np~--$1--~/np~', $body);
// disable strikethough if...
$body = preg_replace('/\\{(.*)\\}/', '~np~\\{$1\\}~/np~', $body);
// disable plugin type things
}
$body = $mimelib->cleanQuotes($body);
}
if (!empty($info['outbound_mails_reply_link']) && $info['outbound_mails_reply_link'] === 'y') {
$body = preg_replace('/^.*?Reply Link\\: \\<[^\\>]*\\>.*\\r?\\n/m', '', $body);
// remove previous reply links to reduce clutter and confusion
// remove "empty" lines at the end
$lines = preg_split("/(\r\n|\n|\r)/", $body);
$body = '';
$len = count($lines) - 1;
$found = false;
for ($line = $len; $line >= 0; $line--) {
if ($found || !preg_match('/^\\s*\\>*\\s*[\\-]*\\s*$/', $lines[$line])) {
$body = "{$lines[$line]}\r\n{$body}";
$found = true;
}
}
}
// Remove 're:' and [forum]. -rlpowell
$title = trim(preg_replace("/[rR][eE]:/", "", preg_replace("/\\[[-A-Za-z _:]*\\]/", "", $output['header']['subject'])));
$title = $mimelib->cleanQuotes($title);
// trim off < and > from message-id
$message_id = substr($output['header']["message-id"], 1, strlen($output['header']["message-id"]) - 2);
if (isset($output['header']["in-reply-to"])) {
$in_reply_to = substr($output['header']["in-reply-to"], 1, strlen($output['header']["in-reply-to"]) - 2);
} else {
$in_reply_to = '';
}
// Determine user from email
$userName = $this->table('users_users')->fetchOne('login', array('email' => $email));
//use anonomus name feature if we don't have a real name
if (!$userName) {
$anonName = $original_email;
}
//Todo: check permissions
// Determine if the thread already exists first by looking for a mail this is a reply to.
if (!empty($in_reply_to)) {
$parentId = $this->table('tiki_comments')->fetchOne('threadId', array('object' => $forumId, 'objectType' => 'forum', 'message_id' => $in_reply_to));
} else {
$parentId = 0;
}
// if not, check if there's a topic with exactly this title
if (!$parentId) {
$parentId = $this->table('tiki_comments')->fetchOne('threadId', array('object' => $forumId, 'objectType' => 'forum', 'parentId' => 0, 'title' => $title));
}
if (!$parentId) {
// create a thread to discuss a wiki page if the feature is on AND the page exists
if ($prefs['feature_wiki_discuss'] === 'y' && TikiLib::lib('tiki')->page_exists($title)) {
// No thread already; create it.
$temp_msid = '';
$parentId = $this->post_new_comment('forum:' . $forumId, 0, $userName, $title, sprintf(tra("Use this thread to discuss the %s page."), "(({$title}))"), $temp_msid, $in_reply_to);
$this->register_forum_post($forumId, 0);
// First post is in reply to this one
$in_reply_to = $temp_msid;
} else {
$parentId = 0;
}
}
// post
$threadid = $this->post_new_comment('forum:' . $forumId, $parentId, $userName, $title, $body, $message_id, $in_reply_to, 'n', '', '', '', $anonName, $postDate);
$this->register_forum_post($forumId, $parentId);
// Process attachments
if (array_key_exists('parts', $output) && count($output['parts']) > 1) {
$forum_info = $this->get_forum($forumId);
if ($forum_info['att'] != 'att_no') {
$errors = array();
foreach ($output['parts'] as $part) {
if (array_key_exists('disposition', $part)) {
if ($part['disposition'] == 'attachment') {
if (!empty($part['d_parameters']['filename'])) {
$part_name = $part['d_parameters']['filename'];
} else {
if (preg_match('/filename=([^;]*)/', $part['d_parameters']['atend'], $mm)) {
// not sure what this is but it seems to have the filename in it
$part_name = $mm[1];
} else {
$part_name = "Unnamed File";
}
}
$this->add_thread_attachment($forum_info, $threadid, $errors, $part_name, $part['type'], strlen($part['body']), 1, '', '', $part['body']);
} elseif ($part['disposition'] == 'inline') {
if (!empty($part['parts'])) {
foreach ($part['parts'] as $p) {
$this->add_thread_attachment($forum_info, $threadid, $errors, '-', $p['type'], strlen($p['body']), 1, '', '', $p['body']);
}
} else {
if (!empty($part['body'])) {
$this->add_thread_attachment($forum_info, $threadid, $errors, '-', $part['type'], strlen($part['body']), 1, '', '', $part['body']);
}
}
}
}
}
}
}
// Deal with mail notifications.
if (array_key_exists('outbound_mails_reply_link', $info) && $info['outbound_mails_for_inbound_mails'] == 'y') {
include_once 'lib/notifications/notificationemaillib.php';
sendForumEmailNotification('forum_post_thread', $threadid, $info, $title, $body, $userName, $title, $message_id, $in_reply_to, $threadid, $parentId);
}
$pop3->deleteMsg($i);
}
$pop3->disconnect();
}
/* SOAP_Server_Email */
require_once 'SOAP/Server/Email.php';
/* Include a class to access POP3. */
require_once 'Net/POP3.php';
/* Create the SOAP Server object. */
$server = new SOAP_Server_Email();
/* Tell the server to translate to classes we provide if possible. */
$server->_auto_translation = true;
require_once './example_server.php';
$soapclass = new SOAP_Example_Server();
$server->addObjectMap($soapclass, 'urn:SOAP_Example_Server');
/* Connect to a POP3 server and read the messages. */
$pop3 = new Net_POP3();
if ($pop3->connect('localhost', 110)) {
if ($pop3->login('username', 'password')) {
$listing = $pop3->getListing();
/* Now loop through each message, and call the SOAP server with that
* message. */
foreach ($listing as $msg) {
$email = $pop3->getMsg($msg['msg_id']);
/* This is where we actually handle the SOAP response. The
* SOAP_Server_Email class we are using will send the SOAP
* response to the sender via email. */
if ($email) {
$server->client($email);
$pop3->deleteMsg($msg['msg_id']);
}
}
}
$pop3->disconnect();
}
function execute()
{
global $PIVOTX;
if (!$this->active) {
return;
}
$messages[] = "Checking email..";
// Create the class and fetch the list of available emails..
if ($this->cfg['use_imap']) {
$mail = new Mail();
$protocol = strtolower(substr($this->cfg['imap_protocol'], 0, 4));
if (str_replace($protocol, '', $this->cfg['imap_protocol']) == 's') {
$secure = true;
} else {
$secure = false;
}
$server = array('type' => $protocol, 'server' => $this->cfg['server'], 'secure' => $secure, 'mailbox' => $this->cfg['imap_mailbox'], 'username' => $this->cfg['username'], 'password' => $this->cfg['password']);
if (!$mail->connect($server)) {
debug("Moblog: No connection (using IMAP extension).");
exit(1);
} else {
$messages[] = "Moblog: OK connection (using IMAP extension).\n";
}
$mail->parse_messages();
if (is_array($mail->messages)) {
$listing = $mail->messages;
} else {
$listing = array();
}
} else {
$pop3 = new Net_POP3();
$ret = $pop3->connect($this->cfg['server'], $this->cfg['pop_port']);
if (!$ret) {
debug("Moblog: No connection.");
exit(1);
} elseif (PEAR::isError($ret = $pop3->login($this->cfg['username'], $this->cfg['password'], 'USER'))) {
debug("Moblog: error logging in: " . $ret->getMessage());
exit(1);
} else {
$messages[] = "Moblog: OK connection.\n";
}
$listing = $pop3->getListing();
}
$messages[] = count($listing) . " email found on the server.";
$regen = false;
// Then we iterate through the list..
foreach ($listing as $list_item) {
if ($this->cfg['use_imap']) {
$msg_id = $list_item['message_id'];
$email = $list_item['rawdata'];
} else {
$msg_id = $list_item['msg_id'];
$email = $pop3->getMsg($msg_id);
}
$messages[] = "fetched mail {$msg_id}";
if (!$this->cfg['leave_on_server']) {
if ($this->cfg['use_imap']) {
$mail->delete($list_item['msgno']);
} else {
$pop3->deleteMsg($msg_id);
}
$messages[] = "Message was deleted from the server..";
} else {
$messages[] = "Message was left on the server (if supported)..";
}
// Perhaps save a local copy..
if ($this->cfg['save_mail']) {
$maildir = $PIVOTX['paths']['db_path'] . 'mail/';
if (!file_exists($maildir)) {
makeDir($maildir);
}
$msg_id = str_replace(array('<', '>'), '', $msg_id);
$filename = $maildir . date("Ymd-His") . "-" . $msg_id . ".eml";
if ($fp = fopen($filename, "w")) {
fwrite($fp, $email);
$messages[] = "Local copy saved as: {$filename}";
fclose($fp);
} else {
$messages[] = "Alas! Woe is me! I couldn't save a local copy.";
}
}
$this->entry = array();
// Parse and post the email..
$this->parse_email($email);
$messages[] = $this->compose_entry();
$regen = true;
}
if ($this->cfg['use_imap']) {
$mail->close();
} else {
$pop3->disconnect();
}
if ($regen) {
// Clear cache?
// $messages[] = "Cleared cache after adding new moblog entry";
}
$messages[] = "Done!";
return $messages;
}
/**
* Gets all new mails from a given mail account
*
* @param MailAccount $account
* @return array
*/
private function getNewPOP3Mails(MailAccount $account, $max = 0) {
$pop3 = new Net_POP3();
$received = 0;
// Connect to mail server
if ($account->getIncomingSsl()) {
$pop3->connect("ssl://" . $account->getServer(), $account->getIncomingSslPort());
} else {
$pop3->connect($account->getServer());
}
if (PEAR::isError($ret=$pop3->login($account->getEmail(), self::ENCRYPT_DECRYPT($account->getPassword()), 'USER'))) {
throw new Exception($ret->getMessage());
}
$mailsToGet = array();
$summary = $pop3->getListing();
$tmp_uids_to_get = array();
$uids = MailContents::getUidsFromAccount($account->getId());
foreach ($summary as $k => $info) {
if (!in_array($info['uidl'], $uids) && !in_array($info['uidl'], $tmp_uids_to_get)) {
$mailsToGet[] = $k;
$tmp_uids_to_get[] = $info['uidl'];
}
}
if ($max == 0) $toGet = count($mailsToGet);
else $toGet = min(count($mailsToGet), $max);
// fetch newer mails first
$mailsToGet = array_reverse($mailsToGet, true);
$checked = 0;
foreach ($mailsToGet as $idx) {
if ($toGet <= $checked) break;
$content = $pop3->getMsg($idx+1); // message index is 1..N
if ($content != '') {
$uid = $summary[$idx]['uidl'];
try {
$stop_checking = self::SaveMail($content, $account, $uid);
$received++;
if ($stop_checking) break;
} catch (Exception $e) {
$mail_file = ROOT."/tmp/unsaved_mail_".$uid.".eml";
$res = file_put_contents($mail_file, $content);
if ($res === false) {
$mail_file = ROOT."/tmp/unsaved_mail_".gen_id().".eml";
$res = file_put_contents($mail_file, $content);
if ($res === false) Logger::log("Could not save mail, and original could not be saved as $mail_file, exception:\n".$e->getMessage());
else Logger::log("Could not save mail, original mail saved as $mail_file, exception:\n".$e->getMessage());
}
else Logger::log("Could not save mail, original mail saved as $mail_file, exception:\n".$e->getMessage());
}
unset($content);
$checked++;
}
}
$pop3->disconnect();
return $received;
}
