]> git.mxchange.org Git - friendica.git/blobdiff - include/onepoll.php
Merge pull request #2112 from rabuzarus/2811_group_side
[friendica.git] / include / onepoll.php
index bd20cfdb5300e5347f82170d4679d1650b9adc59..6ff7eae422e35063b1746d334cccc836a8fbeb76 100644 (file)
@@ -1,6 +1,7 @@
 <?php
 
 require_once("boot.php");
+require_once("include/follow.php");
 
 function RemoveReply($subject) {
        while (in_array(strtolower(substr($subject, 0, 3)), array("re:", "aw:")))
@@ -15,13 +16,13 @@ function onepoll_run(&$argv, &$argc){
        if(is_null($a)) {
                $a = new App;
        }
-  
+
        if(is_null($db)) {
-           @include(".htconfig.php");
-       require_once("include/dba.php");
-           $db = new dba($db_host, $db_user, $db_pass, $db_data);
-       unset($db_host, $db_user, $db_pass, $db_data);
-       };
+               @include(".htconfig.php");
+               require_once("include/dba.php");
+               $db = new dba($db_host, $db_user, $db_pass, $db_data);
+               unset($db_host, $db_user, $db_pass, $db_data);
+       };
 
 
        require_once('include/session.php');
@@ -42,7 +43,7 @@ function onepoll_run(&$argv, &$argc){
        load_hooks();
 
        logger('onepoll: start');
-       
+
        $manual_id  = 0;
        $generation = 0;
        $hub_update = false;
@@ -52,37 +53,87 @@ function onepoll_run(&$argv, &$argc){
        if(($argc > 1) && (intval($argv[1])))
                $contact_id = intval($argv[1]);
 
+       if(($argc > 2) && ($argv[2] == "force"))
+               $force = true;
+
        if(! $contact_id) {
                logger('onepoll: no contact');
                return;
        }
-       
+
+       $lockpath = get_lockpath();
+       if ($lockpath != '') {
+               $pidfile = new pidfile($lockpath, 'onepoll'.$contact_id);
+               if ($pidfile->is_already_running()) {
+                       logger("onepoll: Already running for contact ".$contact_id);
+                       if ($pidfile->running_time() > 9*60) {
+                               $pidfile->kill();
+                               logger("killed stale process");
+                       }
+                       exit;
+               }
+       }
 
        $d = datetime_convert();
 
        // Only poll from those with suitable relationships,
-       // and which have a polling address and ignore Diaspora since 
+       // and which have a polling address and ignore Diaspora since
        // we are unable to match those posts with a Diaspora GUID and prevent duplicates.
 
-       $contacts = q("SELECT `contact`.* FROM `contact` 
+       $contacts = q("SELECT `contact`.* FROM `contact`
                WHERE ( `rel` = %d OR `rel` = %d ) AND `poll` != ''
                AND NOT `network` IN ( '%s', '%s' )
                AND `contact`.`id` = %d
-               AND `self` = 0 AND `contact`.`blocked` = 0 AND `contact`.`readonly` = 0 
+               AND `self` = 0 AND `contact`.`blocked` = 0 AND `contact`.`readonly` = 0
                AND `contact`.`archive` = 0 LIMIT 1",
                intval(CONTACT_IS_SHARING),
                intval(CONTACT_IS_FRIEND),
-               dbesc(NETWORK_DIASPORA),
                dbesc(NETWORK_FACEBOOK),
+               dbesc(NETWORK_PUMPIO),
                intval($contact_id)
        );
 
-       if(! count($contacts)) {
+       if(! count($contacts))
                return;
-       }
 
        $contact = $contacts[0];
 
+       // load current friends if possible.
+       if (($contact['poco'] != "") AND ($contact['success_update'] > $contact['failure_update'])) {
+               $r = q("SELECT count(*) as total from glink
+                       where `cid` = %d and updated > UTC_TIMESTAMP() - INTERVAL 1 DAY",
+                       intval($contact['id'])
+               );
+               if (count($r))
+                       if (!$r[0]['total'])
+                               poco_load($contact['id'],$importer_uid,0,$contact['poco']);
+       }
+
+       // To-Do:
+       // - Check why we don't poll the Diaspora feed at the moment (some guid problem in the items?)
+       // - Check whether this is possible with Redmatrix
+       if ($contact["network"] == NETWORK_DIASPORA) {
+               if (poco_do_update($contact["created"], $contact["last-item"], $contact["failure_update"], $contact["success_update"])) {
+                       $last_updated = poco_last_updated($contact["url"]);
+                       $updated = datetime_convert();
+                       if ($last_updated) {
+                               q("UPDATE `contact` SET `last-item` = '%s', `last-update` = '%s', `success_update` = '%s' WHERE `id` = %d",
+                                       dbesc($last_updated),
+                                       dbesc($updated),
+                                       dbesc($updated),
+                                       intval($contact['id'])
+                               );
+                       } else {
+                               q("UPDATE `contact` SET `last-update` = '%s', `failure_update` = '%s' WHERE `id` = %d",
+                                       dbesc($updated),
+                                       dbesc($updated),
+                                       intval($contact['id'])
+                               );
+                       }
+               }
+               return;
+       }
+
        $xml = false;
 
        $t = $contact['last-update'];
@@ -100,8 +151,8 @@ function onepoll_run(&$argv, &$argc){
 
 
        $importer_uid = $contact['uid'];
-               
-       $r = q("SELECT `contact`.*, `user`.`page-flags` FROM `contact` LEFT JOIN `user` on `contact`.`uid` = `user`.`uid` WHERE `user`.`uid` = %d AND `contact`.`self` = 1 LIMIT 1",
+
+       $r = q("SELECT `contact`.*, `user`.`page-flags` FROM `contact` INNER JOIN `user` on `contact`.`uid` = `user`.`uid` WHERE `user`.`uid` = %d AND `contact`.`self` = 1 LIMIT 1",
                intval($importer_uid)
        );
        if(! count($r))
@@ -111,14 +162,28 @@ function onepoll_run(&$argv, &$argc){
 
        logger("onepoll: poll: ({$contact['id']}) IMPORTER: {$importer['name']}, CONTACT: {$contact['name']}");
 
-       $last_update = (($contact['last-update'] === '0000-00-00 00:00:00') 
+       $last_update = (($contact['last-update'] === '0000-00-00 00:00:00')
                ? datetime_convert('UTC','UTC','now - 7 days', ATOM_TIME)
                : datetime_convert('UTC','UTC',$contact['last-update'], ATOM_TIME)
        );
 
+       // Update the contact entry
+       if(($contact['network'] === NETWORK_OSTATUS) || ($contact['network'] === NETWORK_DIASPORA) || ($contact['network'] === NETWORK_DFRN)) {
+               if (!poco_reachable($contact['url'])) {
+                       logger("Skipping probably dead contact ".$contact['url']);
+                       return;
+               }
+
+               if (!update_contact($contact["id"])) {
+                       mark_for_death($contact);
+                       return;
+               } else
+                       unmark_for_death($contact);
+       }
+
        if($contact['network'] === NETWORK_DFRN) {
 
-               
+
                $idtosend = $orig_id = (($contact['dfrn-id']) ? $contact['dfrn-id'] : $contact['issued-id']);
                if(intval($contact['duplex']) && $contact['dfrn-id'])
                        $idtosend = '0:' . $orig_id;
@@ -131,12 +196,12 @@ function onepoll_run(&$argv, &$argc){
                // But this may be our first communication, so set the writable flag if it isn't set already.
 
                if(! intval($contact['writable']))
-                       q("update contact set writable = 1 where id = %d limit 1", intval($contact['id']));
+                       q("update contact set writable = 1 where id = %d", intval($contact['id']));
 
 
-               $url = $contact['poll'] . '?dfrn_id=' . $idtosend 
-                       . '&dfrn_version=' . DFRN_PROTOCOL_VERSION 
-                       . '&type=data&last_update=' . $last_update 
+               $url = $contact['poll'] . '?dfrn_id=' . $idtosend
+                       . '&dfrn_version=' . DFRN_PROTOCOL_VERSION
+                       . '&type=data&last_update=' . $last_update
                        . '&perm=' . $perm ;
 
                $handshake_xml = fetch_url($url);
@@ -149,13 +214,14 @@ function onepoll_run(&$argv, &$argc){
                        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. 
+                       // mean the software was uninstalled or the domain expired.
                        // Will keep trying for one month.
 
                        mark_for_death($contact);
 
                        // set the last-update so we don't keep polling
-                       $r = q("UPDATE `contact` SET `last-update` = '%s' WHERE `id` = %d LIMIT 1",
+                       $r = q("UPDATE `contact` SET `last-update` = '%s', `failure_update` = '%s' WHERE `id` = %d",
+                               dbesc(datetime_convert()),
                                dbesc(datetime_convert()),
                                intval($contact['id'])
                        );
@@ -163,12 +229,13 @@ function onepoll_run(&$argv, &$argc){
                        return;
                }
 
-               if(! strstr($handshake_xml,'<?xml')) {
+               if(! strstr($handshake_xml,'<')) {
                        logger('poller: response from ' . $url . ' did not contain XML.');
 
                        mark_for_death($contact);
 
-                       $r = q("UPDATE `contact` SET `last-update` = '%s' WHERE `id` = %d LIMIT 1",
+                       $r = q("UPDATE `contact` SET `last-update` = '%s', `failure_update` = '%s' WHERE `id` = %d",
+                               dbesc(datetime_convert()),
                                dbesc(datetime_convert()),
                                intval($contact['id'])
                        );
@@ -177,7 +244,7 @@ function onepoll_run(&$argv, &$argc){
 
 
                $res = parse_xml_string($handshake_xml);
-       
+
                if(intval($res->status) == 1) {
                        logger("poller: $url replied status 1 - marking for death ");
 
@@ -185,7 +252,8 @@ function onepoll_run(&$argv, &$argc){
                        // set the last-update so we don't keep polling
 
 
-                       $r = q("UPDATE `contact` SET `last-update` = '%s' WHERE `id` = %d LIMIT 1",
+                       $r = q("UPDATE `contact` SET `last-update` = '%s', `failure_update` = '%s' WHERE `id` = %d",
+                               dbesc(datetime_convert()),
                                dbesc(datetime_convert()),
                                intval($contact['id'])
                        );
@@ -202,7 +270,7 @@ function onepoll_run(&$argv, &$argc){
                        return;
 
                if(((float) $res->dfrn_version > 2.21) && ($contact['poco'] == '')) {
-                       q("update contact set poco = '%s' where id = %d limit 1",
+                       q("update contact set poco = '%s' where id = %d",
                                dbesc(str_replace('/profile/','/poco/', $contact['url'])),
                                intval($contact['id'])
                        );
@@ -230,8 +298,8 @@ function onepoll_run(&$argv, &$argc){
                        $final_dfrn_id = substr($final_dfrn_id,2);
 
                if($final_dfrn_id != $orig_id) {
-                       logger('poller: ID did not decode: ' . $contact['id'] . ' orig: ' . $orig_id . ' final: ' . $final_dfrn_id);    
-                       // did not decode properly - cannot trust this site 
+                       logger('poller: ID did not decode: ' . $contact['id'] . ' orig: ' . $orig_id . ' final: ' . $final_dfrn_id);
+                       // did not decode properly - cannot trust this site
                        return;
                }
 
@@ -242,7 +310,7 @@ function onepoll_run(&$argv, &$argc){
                $xml = post_url($contact['poll'],$postvars);
 
        }
-       elseif(($contact['network'] === NETWORK_OSTATUS) 
+       elseif(($contact['network'] === NETWORK_OSTATUS)
                || ($contact['network'] === NETWORK_DIASPORA)
                || ($contact['network'] === NETWORK_FEED) ) {
 
@@ -252,11 +320,12 @@ function onepoll_run(&$argv, &$argc){
 
                $stat_writeable = ((($contact['notify']) && ($contact['rel'] == CONTACT_IS_FOLLOWER || $contact['rel'] == CONTACT_IS_FRIEND)) ? 1 : 0);
 
-               if($contact['network'] === NETWORK_OSTATUS && get_pconfig($importer_uid,'system','ostatus_autofriend'))
+               // Contacts from OStatus are always writable
+               if($contact['network'] === NETWORK_OSTATUS)
                        $stat_writeable = 1;
 
                if($stat_writeable != $contact['writable']) {
-                       q("UPDATE `contact` SET `writable` = %d WHERE `id` = %d LIMIT 1",
+                       q("UPDATE `contact` SET `writable` = %d WHERE `id` = %d",
                                intval($stat_writeable),
                                intval($contact['id'])
                        );
@@ -271,13 +340,13 @@ function onepoll_run(&$argv, &$argc){
        }
        elseif($contact['network'] === NETWORK_MAIL || $contact['network'] === NETWORK_MAIL2) {
 
-               logger("onepoll: mail: Fetching", LOGGER_DEBUG);
+               logger("Mail: Fetching", LOGGER_DEBUG);
 
                $mail_disabled = ((function_exists('imap_open') && (! get_config('system','imap_disabled'))) ? 0 : 1);
                if($mail_disabled)
                        return;
 
-               logger("onepoll: Mail: Enabled", LOGGER_DEBUG);
+               logger("Mail: Enabled", LOGGER_DEBUG);
 
                $mbox = null;
                $x = q("SELECT `prvkey` FROM `user` WHERE `uid` = %d LIMIT 1",
@@ -294,12 +363,14 @@ function onepoll_run(&$argv, &$argc){
                        unset($password);
                        logger("Mail: Connect to " . $mailconf[0]['user']);
                        if($mbox) {
-                               q("UPDATE `mailacct` SET `last_check` = '%s' WHERE `id` = %d AND `uid` = %d LIMIT 1",
+                               q("UPDATE `mailacct` SET `last_check` = '%s' WHERE `id` = %d AND `uid` = %d",
                                        dbesc(datetime_convert()),
                                        intval($mailconf[0]['id']),
                                        intval($importer_uid)
                                );
-                       }
+                               logger("Mail: Connected to " . $mailconf[0]['user']);
+                       } else
+                               logger("Mail: Connection error ".$mailconf[0]['user']." ".print_r(imap_errors(), true));
                }
                if($mbox) {
 
@@ -319,6 +390,8 @@ function onepoll_run(&$argv, &$argc){
                                                logger("Mail: Parsing mail ".$msg_uid, LOGGER_DATA);
 
                                                $datarray = array();
+                                               $datarray['verb'] = ACTIVITY_POST;
+                                               $datarray['object-type'] = ACTIVITY_OBJ_NOTE;
        //                                      $meta = email_msg_meta($mbox,$msg_uid);
        //                                      $headers = email_msg_headers($mbox,$msg_uid);
 
@@ -336,7 +409,7 @@ function onepoll_run(&$argv, &$argc){
                                                        // Only delete when mails aren't automatically moved or deleted
                                                        if (($mailconf[0]['action'] != 1) AND ($mailconf[0]['action'] != 3))
                                                                if($meta->deleted && ! $r[0]['deleted']) {
-                                                                       q("UPDATE `item` SET `deleted` = 1, `changed` = '%s' WHERE `id` = %d LIMIT 1",
+                                                                       q("UPDATE `item` SET `deleted` = 1, `changed` = '%s' WHERE `id` = %d",
                                                                                dbesc(datetime_convert()),
                                                                                intval($r[0]['id'])
                                                                        );
@@ -412,7 +485,6 @@ function onepoll_run(&$argv, &$argc){
 
                                                // If it seems to be a reply but a header couldn't be found take the last message with matching subject
                                                if(!x($datarray,'parent-uri') and $reply) {
-                                                       //$r = q("SELECT `uri` , `parent-uri` FROM `item` WHERE MATCH (`title`) AGAINST ('".'"%s"'."' IN BOOLEAN MODE) AND `uid` = %d ORDER BY `created` DESC LIMIT 1",
                                                        $r = q("SELECT `uri` , `parent-uri` FROM `item` WHERE `title` = \"%s\" AND `uid` = %d ORDER BY `created` DESC LIMIT 1",
                                                                dbesc(protect_sprintf($datarray['title'])),
                                                                intval($importer_uid));
@@ -485,7 +557,7 @@ function onepoll_run(&$argv, &$argc){
                                                        dbesc($datarray['parent-uri']),
                                                        intval($importer_uid)
                                                );
-                                               q("UPDATE `item` SET `last-child` = 1 WHERE `id` = %d LIMIT 1",
+                                               q("UPDATE `item` SET `last-child` = 1 WHERE `id` = %d",
                                                        intval($stored_item)
                                                );
                                                switch ($mailconf[0]['action']) {
@@ -509,20 +581,27 @@ function onepoll_run(&$argv, &$argc){
                                                }
                                        }
                                }
-                       }
+                       } else
+                               logger("Mail: no mails for ".$mailconf[0]['user']);
+
+                       logger("Mail: closing connection for ".$mailconf[0]['user']);
                        imap_close($mbox);
                }
        }
        elseif($contact['network'] === NETWORK_FACEBOOK) {
                // This is picked up by the Facebook plugin on a cron hook.
                // Ignored here.
+       } elseif($contact['network'] === NETWORK_PUMPIO) {
+               // This is picked up by the pump.io plugin on a cron hook.
+               // Ignored here.
        }
 
        if($xml) {
                logger('poller: received xml : ' . $xml, LOGGER_DATA);
-               if((! strstr($xml,'<?xml')) && (! strstr($xml,'<rss'))) {
+               if(! strstr($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",
+                       $r = q("UPDATE `contact` SET `last-update` = '%s',  `failure_update` = '%s' WHERE `id` = %d",
+                               dbesc(datetime_convert()),
                                dbesc(datetime_convert()),
                                intval($contact['id'])
                        );
@@ -530,21 +609,27 @@ function onepoll_run(&$argv, &$argc){
                }
 
 
-               consume_feed($xml,$importer,$contact,$hub,1,1);
+               logger("Consume feed of contact ".$contact['id']);
 
+               consume_feed($xml,$importer,$contact,$hub,1,1);
 
                // 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,2);
 
                $hubmode = 'subscribe';
                if($contact['network'] === NETWORK_DFRN || $contact['blocked'] || $contact['readonly'])
                        $hubmode = 'unsubscribe';
 
-               if($contact['network'] === NETWORK_OSTATUS && (! $contact['hub-verify']))
+               if(($contact['network'] === NETWORK_OSTATUS ||  $contact['network'] == NETWORK_FEED) && (! $contact['hub-verify']))
+                       $hub_update = true;
+
+               if ($force)
                        $hub_update = true;
 
-               if((strlen($hub)) && ($hub_update) && ($contact['rel'] != CONTACT_IS_FOLLOWER)) {
+               logger("Contact ".$contact['id']." returned hub: ".$hub." Network: ".$contact['network']." Relation: ".$contact['rel']." Update: ".$hub_update);
+
+               if((strlen($hub)) && ($hub_update) && (($contact['rel'] != CONTACT_IS_FOLLOWER) || $contact['network'] == NETWORK_FEED) ) {
                        logger('poller: hub ' . $hubmode . ' : ' . $hub . ' contact name : ' . $contact['name'] . ' local user : ' . $importer['name']);
                        $hubs = explode(',', $hub);
                        if(count($hubs)) {
@@ -556,35 +641,44 @@ function onepoll_run(&$argv, &$argc){
                                }
                        }
                }
-       }
 
-       $updated = datetime_convert();
+               $updated = datetime_convert();
 
-       $r = q("UPDATE `contact` SET `last-update` = '%s', `success_update` = '%s' WHERE `id` = %d LIMIT 1",
-               dbesc($updated),
-               dbesc($updated),
-               intval($contact['id'])
-       );
+               $r = q("UPDATE `contact` SET `last-update` = '%s', `success_update` = '%s' WHERE `id` = %d",
+                       dbesc($updated),
+                       dbesc($updated),
+                       intval($contact['id'])
+               );
 
+               q("UPDATE `gcontact` SET `last_contact` = '%s' WHERE `nurl` = '%s'",
+                       dbesc($updated),
+                       dbesc($contact['nurl'])
+               );
 
-       // load current friends if possible.
+       } elseif (in_array($contact["network"], array(NETWORK_DFRN, NETWORK_DIASPORA, NETWORK_OSTATUS, NETWORK_FEED))) {
+               $updated = datetime_convert();
 
-       if($contact['poco']) {  
-               $r = q("SELECT count(*) as total from glink 
-                       where `cid` = %d and updated > UTC_TIMESTAMP() - INTERVAL 1 DAY",
+               $r = q("UPDATE `contact` SET `last-update` = '%s', `failure_update` = '%s' WHERE `id` = %d",
+                       dbesc($updated),
+                       dbesc($updated),
+                       intval($contact['id'])
+               );
+
+               q("UPDATE `gcontact` SET `last_failure` = '%s' WHERE `nurl` = '%s'",
+                       dbesc($updated),
+                       dbesc($contact['nurl'])
+               );
+       } else {
+               $r = q("UPDATE `contact` SET `last-update` = '%s' WHERE `id` = %d",
+                       dbesc($updated),
                        intval($contact['id'])
                );
-       }
-       if(count($r)) {
-               if(! $r[0]['total']) {
-                       poco_load($contact['id'],$importer_uid,0,$contact['poco']);
-               }
        }
 
        return;
 }
 
 if (array_search(__file__,get_included_files())===0){
-  onepoll_run($argv,$argc);
-  killme();
+       onepoll_run($_SERVER["argv"],$_SERVER["argc"]);
+       killme();
 }