From: Friendika <info@friendika.com>
Date: Sat, 16 Apr 2011 06:40:43 +0000 (-0700)
Subject: more work on email contacts
X-Git-Url: https://git.mxchange.org/?a=commitdiff_plain;h=27cbb830a7bd72f13181acc5999a6bed4f74f5ae;p=friendica.git
more work on email contacts
---
diff --git a/boot.php b/boot.php
index 0c2c3163b5..eeaf513984 100644
--- a/boot.php
+++ b/boot.php
@@ -4,7 +4,7 @@ set_time_limit(0);
define ( 'FRIENDIKA_VERSION', '2.1.950' );
define ( 'DFRN_PROTOCOL_VERSION', '2.21' );
-define ( 'DB_UPDATE_VERSION', 1051 );
+define ( 'DB_UPDATE_VERSION', 1052 );
define ( 'EOL', "<br />\r\n" );
define ( 'ATOM_TIME', 'Y-m-d\TH:i:s\Z' );
diff --git a/database.sql b/database.sql
index b88e5e5ff9..e134d74381 100644
--- a/database.sql
+++ b/database.sql
@@ -64,6 +64,7 @@ CREATE TABLE IF NOT EXISTS `contact` (
`issued-id` char(255) NOT NULL,
`dfrn-id` char(255) NOT NULL,
`url` char(255) NOT NULL,
+ `addr` char(255) NOT NULL,
`alias` char(255) NOT NULL,
`pubkey` text NOT NULL,
`prvkey` text NOT NULL,
@@ -508,6 +509,9 @@ CREATE TABLE IF NOT EXISTS `mailacct` (
`id` INT NOT NULL AUTO_INCREMENT PRIMARY KEY ,
`uid` INT NOT NULL,
`server` CHAR( 255 ) NOT NULL ,
+`port` INT NOT NULL,
+`ssltype` CHAR( 16 ) NOT NULL,
+`mailbox` CHAR( 255 ) NOT NULL,
`user` CHAR( 255 ) NOT NULL ,
`pass` CHAR( 255 ) NOT NULL ,
`reply_to` CHAR( 255 ) NOT NULL ,
diff --git a/include/email.php b/include/email.php
new file mode 100644
index 0000000000..c7a006da0b
--- /dev/null
+++ b/include/email.php
@@ -0,0 +1,110 @@
+<?php
+
+function email_connect($mailbox,$username,$password) {
+ if(! (local_user() && function_exists('imap_open')))
+ return false;
+
+ $mbox = imap_open($mailbox,$username,$password);
+
+ return $mbox;
+}
+
+function email_poll($mbox,$email_addr) {
+
+ if(! ($mbox && $email_addr))
+ return false;
+
+ $search = imap_search($mbox,'FROM "' . $email_addr . '"', SE_UID);
+ return $search;
+}
+
+
+function construct_mailbox_name($mailacct) {
+ $ret = '{' . $mailacct['server'] . (($mailacct['port']) ? ':' . $mailacct['port'] : '');
+ $ret .= (($mailacct['ssltype']) ? '/' . $mailacct['ssltype'] . '/novalidate-cert' : '');
+ $ret .= '}' . $mailacct['mailbox'];
+ return $ret;
+}
+
+
+function getmsg($mbox,$mid) {
+ // input $mbox = IMAP stream, $mid = message id
+ // output all the following:
+ global $charset,$htmlmsg,$plainmsg,$attachments;
+ $htmlmsg = $plainmsg = $charset = '';
+ $attachments = array();
+
+ // HEADER
+ $h = imap_header($mbox,$mid);
+ // add code here to get date, from, to, cc, subject...
+
+ // BODY
+ $s = imap_fetchstructure($mbox,$mid);
+ if (!$s->parts) // simple
+ getpart($mbox,$mid,$s,0); // pass 0 as part-number
+ else { // multipart: cycle through each part
+ foreach ($s->parts as $partno0=>$p)
+ getpart($mbox,$mid,$p,$partno0+1);
+ }
+}
+
+function getpart($mbox,$mid,$p,$partno) {
+ // $partno = '1', '2', '2.1', '2.1.3', etc for multipart, 0 if simple
+ global $htmlmsg,$plainmsg,$charset,$attachments;
+
+ // DECODE DATA
+ $data = ($partno)?
+ imap_fetchbody($mbox,$mid,$partno): // multipart
+ imap_body($mbox,$mid); // simple
+ // Any part may be encoded, even plain text messages, so check everything.
+ if ($p->encoding==4)
+ $data = quoted_printable_decode($data);
+ elseif ($p->encoding==3)
+ $data = base64_decode($data);
+
+ // PARAMETERS
+ // get all parameters, like charset, filenames of attachments, etc.
+ $params = array();
+ if ($p->parameters)
+ foreach ($p->parameters as $x)
+ $params[strtolower($x->attribute)] = $x->value;
+ if ($p->dparameters)
+ foreach ($p->dparameters as $x)
+ $params[strtolower($x->attribute)] = $x->value;
+
+ // ATTACHMENT
+ // Any part with a filename is an attachment,
+ // so an attached text file (type 0) is not mistaken as the message.
+ if ($params['filename'] || $params['name']) {
+ // filename may be given as 'Filename' or 'Name' or both
+ $filename = ($params['filename'])? $params['filename'] : $params['name'];
+ // filename may be encoded, so see imap_mime_header_decode()
+ $attachments[$filename] = $data; // this is a problem if two files have same name
+ }
+
+ // TEXT
+ if ($p->type==0 && $data) {
+ // Messages may be split in different parts because of inline attachments,
+ // so append parts together with blank row.
+ if (strtolower($p->subtype)=='plain')
+ $plainmsg .= trim($data) ."\n\n";
+ else
+ $htmlmsg .= $data ."<br><br>";
+ $charset = $params['charset']; // assume all parts are same charset
+ }
+
+ // EMBEDDED MESSAGE
+ // Many bounce notifications embed the original message as type 2,
+ // but AOL uses type 1 (multipart), which is not handled here.
+ // There are no PHP functions to parse embedded messages,
+ // so this just appends the raw source to the main message.
+ elseif ($p->type==2 && $data) {
+ $plainmsg .= $data."\n\n";
+ }
+
+ // SUBPART RECURSION
+ if ($p->parts) {
+ foreach ($p->parts as $partno0=>$p2)
+ getpart($mbox,$mid,$p2,$partno.'.'.($partno0+1)); // 1.2, 1.2.1, etc.
+ }
+}
\ No newline at end of file
diff --git a/include/imap.php b/include/imap.php
deleted file mode 100644
index 018727639a..0000000000
--- a/include/imap.php
+++ /dev/null
@@ -1,107 +0,0 @@
-<?php
-
-
-function f9_imap_connect($mailbox,$username,$password) {
-
- if(! (local_user() && function_exists('imap_open')))
- return false;
-
- $mbox = imap_open($mailbox,$username,$password);
-
- return $mbox;
-
-}
-
-
-function f9_imap_poll_from($mbox,$str) {
-
- if(! ($mbox && $str))
- return false;
-
- $search = imap_search($mbox,'FROM "' . $str . '"', SE_UID);
-
- return $search;
-}
-
-
-function getmsg($mbox,$mid) {
- // input $mbox = IMAP stream, $mid = message id
- // output all the following:
- global $charset,$htmlmsg,$plainmsg,$attachments;
- $htmlmsg = $plainmsg = $charset = '';
- $attachments = array();
-
- // HEADER
- $h = imap_header($mbox,$mid);
- // add code here to get date, from, to, cc, subject...
-
- // BODY
- $s = imap_fetchstructure($mbox,$mid);
- if (!$s->parts) // simple
- getpart($mbox,$mid,$s,0); // pass 0 as part-number
- else { // multipart: cycle through each part
- foreach ($s->parts as $partno0=>$p)
- getpart($mbox,$mid,$p,$partno0+1);
- }
-}
-
-function getpart($mbox,$mid,$p,$partno) {
- // $partno = '1', '2', '2.1', '2.1.3', etc for multipart, 0 if simple
- global $htmlmsg,$plainmsg,$charset,$attachments;
-
- // DECODE DATA
- $data = ($partno)?
- imap_fetchbody($mbox,$mid,$partno): // multipart
- imap_body($mbox,$mid); // simple
- // Any part may be encoded, even plain text messages, so check everything.
- if ($p->encoding==4)
- $data = quoted_printable_decode($data);
- elseif ($p->encoding==3)
- $data = base64_decode($data);
-
- // PARAMETERS
- // get all parameters, like charset, filenames of attachments, etc.
- $params = array();
- if ($p->parameters)
- foreach ($p->parameters as $x)
- $params[strtolower($x->attribute)] = $x->value;
- if ($p->dparameters)
- foreach ($p->dparameters as $x)
- $params[strtolower($x->attribute)] = $x->value;
-
- // ATTACHMENT
- // Any part with a filename is an attachment,
- // so an attached text file (type 0) is not mistaken as the message.
- if ($params['filename'] || $params['name']) {
- // filename may be given as 'Filename' or 'Name' or both
- $filename = ($params['filename'])? $params['filename'] : $params['name'];
- // filename may be encoded, so see imap_mime_header_decode()
- $attachments[$filename] = $data; // this is a problem if two files have same name
- }
-
- // TEXT
- if ($p->type==0 && $data) {
- // Messages may be split in different parts because of inline attachments,
- // so append parts together with blank row.
- if (strtolower($p->subtype)=='plain')
- $plainmsg. = trim($data) ."\n\n";
- else
- $htmlmsg. = $data ."<br><br>";
- $charset = $params['charset']; // assume all parts are same charset
- }
-
- // EMBEDDED MESSAGE
- // Many bounce notifications embed the original message as type 2,
- // but AOL uses type 1 (multipart), which is not handled here.
- // There are no PHP functions to parse embedded messages,
- // so this just appends the raw source to the main message.
- elseif ($p->type==2 && $data) {
- $plainmsg. = $data."\n\n";
- }
-
- // SUBPART RECURSION
- if ($p->parts) {
- foreach ($p->parts as $partno0=>$p2)
- getpart($mbox,$mid,$p2,$partno.'.'.($partno0+1)); // 1.2, 1.2.1, etc.
- }
-}
\ No newline at end of file
diff --git a/include/poller.php b/include/poller.php
index b878ef2954..37109f17d4 100644
--- a/include/poller.php
+++ b/include/poller.php
@@ -1,4 +1,5 @@
<?php
+
require_once("boot.php");
function poller_run($argv, $argc){
@@ -15,11 +16,14 @@ function poller_run($argv, $argc){
unset($db_host, $db_user, $db_pass, $db_data);
};
+ $mbox = null;
+
require_once('session.php');
require_once('datetime.php');
require_once('simplepie/simplepie.inc');
require_once('include/items.php');
require_once('include/Contact.php');
+ require_once('include/email.php');
$a->set_baseurl(get_config('system','url'));
@@ -85,6 +89,9 @@ function poller_run($argv, $argc){
continue;
foreach($res as $contact) {
+
+ $xml = false;
+
if($manual_id)
$contact['last-update'] = '0000-00-00 00:00:00';
@@ -158,7 +165,7 @@ function poller_run($argv, $argc){
: datetime_convert('UTC','UTC',$contact['last-update'], ATOM_TIME)
);
- if($contact['network'] === 'dfrn') {
+ if($contact['network'] === NETWORK_DFRN) {
$idtosend = $orig_id = (($contact['dfrn-id']) ? $contact['dfrn-id'] : $contact['issued-id']);
@@ -175,12 +182,12 @@ function poller_run($argv, $argc){
. '&type=data&last_update=' . $last_update
. '&perm=' . $perm ;
- $xml = fetch_url($url);
+ $handshake_xml = fetch_url($url);
- logger('poller: handshake with url ' . $url . ' returns xml: ' . $xml, LOGGER_DATA);
+ logger('poller: handshake with url ' . $url . ' returns xml: ' . $handshake_xml, LOGGER_DATA);
- if(! $xml) {
+ if(! $handshake_xml) {
logger("poller: $url appears to be dead - marking for death ");
// dead connection - might be a transient event, or this might
// mean the software was uninstalled or the domain expired.
@@ -197,7 +204,7 @@ function poller_run($argv, $argc){
continue;
}
- if(! strstr($xml,'<?xml')) {
+ if(! strstr($handshake_xml,'<?xml')) {
logger('poller: response from ' . $url . ' did not contain XML.');
$r = q("UPDATE `contact` SET `last-update` = '%s' WHERE `id` = %d LIMIT 1",
dbesc(datetime_convert()),
@@ -207,7 +214,7 @@ function poller_run($argv, $argc){
}
- $res = parse_xml_string($xml);
+ $res = parse_xml_string($handshake_xml);
if(intval($res->status) == 1) {
logger("poller: $url replied status 1 - marking for death ");
@@ -265,52 +272,82 @@ function poller_run($argv, $argc){
$xml = post_url($contact['poll'],$postvars);
}
- else {
+ elseif(($contact['network'] === NETWORK_OSTATUS)
+ || ($contact['network'] === NETWORK_DIASPORA)
+ || ($contact['network'] === NETWORK_FEED) ) {
- // $contact['network'] !== 'dfrn'
+ // Upgrading DB fields from an older Friendika version
+ // Will only do this once per notify-enabled OStatus contact
if(($contact['notify']) && (! $contact['writable'])) {
q("UPDATE `contact` SET `writable` = 1 WHERE `id` = %d LIMIT 1",
intval($contact['id'])
);
}
+
$xml = fetch_url($contact['poll']);
}
-
- logger('poller: received xml : ' . $xml, LOGGER_DATA);
-
- if(! strstr($xml,'<?xml')) {
- logger('poller: post_handshake: response from ' . $url . ' did not contain XML.');
- $r = q("UPDATE `contact` SET `last-update` = '%s' WHERE `id` = %d LIMIT 1",
- dbesc(datetime_convert()),
- intval($contact['id'])
- );
- continue;
+ elseif($contact['network'] === NETWORK_MAIL) {
+ if(! $mbox) {
+ $x = q("SELECT `prvkey` FROM `user` WHERE `uid` = $d LIMIT 1",
+ intval($importer_uid)
+ );
+ $r = q("SELECT * FROM `mailacct` WHERE `uid` = %d LIMIT 1",
+ intval($importer_uid)
+ );
+ if(count($x) && count($r)) {
+ $mailbox = construct_mailbox_name($r[0]);
+ $password = '';
+ openssl_private_decrypt($r[0]['pass'],$password,$x[0]['prvkey']);
+ $mbox = email_connect($mailbox,$r[0]['user'],$password);
+ unset($password);
+ }
+ }
+ if($mbox) {
+ $msgs = email_poll($mbox,$contact['addr']);
+ if(count($msgs)) {
+ // TODO: loop through, fetch, check duplicates, and import
+ }
+ }
+ }
+ elseif($contact['network'] === NETWORK_FACEBOOK) {
+ // TODO: work in progress
}
+ if($xml) {
+ logger('poller: received xml : ' . $xml, LOGGER_DATA);
- consume_feed($xml,$importer,$contact,$hub,1, true);
-
- // do it twice. Ensures that children of parents which may be later in the stream aren't tossed
+ if(! strstr($xml,'<?xml')) {
+ logger('poller: post_handshake: response from ' . $url . ' did not contain XML.');
+ $r = q("UPDATE `contact` SET `last-update` = '%s' WHERE `id` = %d LIMIT 1",
+ dbesc(datetime_convert()),
+ intval($contact['id'])
+ );
+ continue;
+ }
- consume_feed($xml,$importer,$contact,$hub,1);
+ consume_feed($xml,$importer,$contact,$hub,1, true);
- if((strlen($hub)) && ($hub_update)
- && (($contact['rel'] == REL_BUD) || (($contact['network'] === 'stat') && (! $contact['readonly'])))) {
- logger('poller: subscribing to hub(s) : ' . $hub . ' contact name : ' . $contact['name'] . ' local user : ' . $importer['name']);
- $hubs = explode(',', $hub);
- if(count($hubs)) {
- foreach($hubs as $h) {
- $h = trim($h);
- if(! strlen($h))
- continue;
- subscribe_to_hub($h,$importer,$contact);
+ // do it twice. Ensures that children of parents which may be later in the stream aren't tossed
+
+ consume_feed($xml,$importer,$contact,$hub,1);
+
+
+ if((strlen($hub)) && ($hub_update) && (($contact['rel'] == REL_BUD) || (($contact['network'] === NETWORK_OSTATUS) && (! $contact['readonly'])))) {
+ logger('poller: subscribing to hub(s) : ' . $hub . ' contact name : ' . $contact['name'] . ' local user : ' . $importer['name']);
+ $hubs = explode(',', $hub);
+ if(count($hubs)) {
+ foreach($hubs as $h) {
+ $h = trim($h);
+ if(! strlen($h))
+ continue;
+ subscribe_to_hub($h,$importer,$contact);
+ }
}
}
}
-
$updated = datetime_convert();
$r = q("UPDATE `contact` SET `last-update` = '%s', `success_update` = '%s' WHERE `id` = %d LIMIT 1",
diff --git a/update.php b/update.php
index 763b8f267a..35f4364e40 100644
--- a/update.php
+++ b/update.php
@@ -460,3 +460,12 @@ function update_1050() {
) ENGINE = MYISAM ");
}
+
+function update_1051() {
+ q("ALTER TABLE `mailacct` ADD `port` INT NOT NULL AFTER `server` ,
+ ADD `ssltype` CHAR( 16 ) NOT NULL AFTER `port` ,
+ ADD `mailbox` CHAR( 255 ) NOT NULL AFTER `ssltype` ");
+
+ q("ALTER TABLE `contact` ADD `addr` CHAR( 255 ) NOT NULL AFTER `url` ");
+}
+