src/Model/GContact.php

   1 <?php
   2 /**
   3  * @copyright Copyright (C) 2020, Friendica
   4  *
   5  * @license GNU AGPL version 3 or any later version
   6  *
   7  * This program is free software: you can redistribute it and/or modify
   8  * it under the terms of the GNU Affero General Public License as
   9  * published by the Free Software Foundation, either version 3 of the
  10  * License, or (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU Affero General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Affero General Public License
  18  * along with this program.  If not, see <https://www.gnu.org/licenses/>.
  19  *
  20  */
  21
  22 namespace Friendica\Model;
  23
  24 use DOMDocument;
  25 use DOMXPath;
  26 use Exception;
  27 use Friendica\Core\Logger;
  28 use Friendica\Core\Protocol;
  29 use Friendica\Core\System;
  30 use Friendica\Core\Search;
  31 use Friendica\Core\Worker;
  32 use Friendica\Database\DBA;
  33 use Friendica\DI;
  34 use Friendica\Network\Probe;
  35 use Friendica\Protocol\ActivityPub;
  36 use Friendica\Protocol\PortableContact;
  37 use Friendica\Util\DateTimeFormat;
  38 use Friendica\Util\Network;
  39 use Friendica\Util\Strings;
  40
  41 /**
  42  * This class handles GlobalContact related functions
  43  */
  44 class GContact
  45 {
  46         /**
  47          * No discovery of followers/followings
  48          */
  49         const DISCOVERY_NONE = 0;
  50         /**
  51          * Only discover followers/followings from direct contacts
  52          */
  53         const DISCOVERY_DIRECT = 1;
  54         /**
  55          * Recursive discovery of followers/followings
  56          */
  57         const DISCOVERY_RECURSIVE = 2;
  58
  59         /**
  60          * Search global contact table by nick or name
  61          *
  62          * @param string $search Name or nick
  63          * @param string $mode   Search mode (e.g. "community")
  64          *
  65          * @return array with search results
  66          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
  67          */
  68         public static function searchByName($search, $mode = '')
  69         {
  70                 if (empty($search)) {
  71                         return [];
  72                 }
  73
  74                 // check supported networks
  75                 if (DI::config()->get('system', 'diaspora_enabled')) {
  76                         $diaspora = Protocol::DIASPORA;
  77                 } else {
  78                         $diaspora = Protocol::DFRN;
  79                 }
  80
  81                 if (!DI::config()->get('system', 'ostatus_disabled')) {
  82                         $ostatus = Protocol::OSTATUS;
  83                 } else {
  84                         $ostatus = Protocol::DFRN;
  85                 }
  86
  87                 // check if we search only communities or every contact
  88                 if ($mode === 'community') {
  89                         $extra_sql = ' AND `community`';
  90                 } else {
  91                         $extra_sql = '';
  92                 }
  93
  94                 $search .= '%';
  95
  96                 $results = DBA::p("SELECT `nurl` FROM `gcontact`
  97                         WHERE NOT `hide` AND `network` IN (?, ?, ?, ?) AND
  98                                 ((`last_contact` >= `last_failure`) OR (`updated` >= `last_failure`)) AND
  99                                 (`addr` LIKE ? OR `name` LIKE ? OR `nick` LIKE ?) $extra_sql
 100                                 GROUP BY `nurl` ORDER BY `nurl` DESC LIMIT 1000",
 101                         Protocol::DFRN, Protocol::ACTIVITYPUB, $ostatus, $diaspora, $search, $search, $search
 102                 );
 103
 104                 $gcontacts = [];
 105                 while ($result = DBA::fetch($results)) {
 106                         $urlparts = parse_url($result['nurl']);
 107
 108                         // Ignore results that look strange.
 109                         // For historic reasons the gcontact table does contain some garbage.
 110                         if (empty($result['nurl']) || !empty($urlparts['query']) || !empty($urlparts['fragment'])) {
 111                                 continue;
 112                         }
 113
 114                         $gcontacts[] = Contact::getDetailsByURL($result['nurl'], local_user());
 115                 }
 116                 DBA::close($results);
 117                 return $gcontacts;
 118         }
 119
 120         /**
 121          * Link the gcontact entry with user, contact and global contact
 122          *
 123          * @param integer $gcid Global contact ID
 124          * @param integer $uid  User ID
 125          * @param integer $cid  Contact ID
 126          * @param integer $zcid Global Contact ID
 127          * @return void
 128          * @throws Exception
 129          */
 130         public static function link($gcid, $uid = 0, $cid = 0, $zcid = 0)
 131         {
 132                 if ($gcid <= 0) {
 133                         return;
 134                 }
 135
 136                 $condition = ['cid' => $cid, 'uid' => $uid, 'gcid' => $gcid, 'zcid' => $zcid];
 137                 DBA::update('glink', ['updated' => DateTimeFormat::utcNow()], $condition, true);
 138         }
 139
 140         /**
 141          * Sanitize the given gcontact data
 142          *
 143          * Generation:
 144          *  0: No definition
 145          *  1: Profiles on this server
 146          *  2: Contacts of profiles on this server
 147          *  3: Contacts of contacts of profiles on this server
 148          *  4: ...
 149          *
 150          * @param array $gcontact array with gcontact data
 151          * @return array $gcontact
 152          * @throws Exception
 153          */
 154         public static function sanitize($gcontact)
 155         {
 156                 if (empty($gcontact['url'])) {
 157                         throw new Exception('URL is empty');
 158                 }
 159
 160                 $gcontact['server_url'] = $gcontact['server_url'] ?? '';
 161
 162                 $urlparts = parse_url($gcontact['url']);
 163                 if (empty($urlparts['scheme'])) {
 164                         throw new Exception('This (' . $gcontact['url'] . ") doesn't seem to be an url.");
 165                 }
 166
 167                 if (in_array($urlparts['host'], ['twitter.com', 'identi.ca'])) {
 168                         throw new Exception('Contact from a non federated network ignored. (' . $gcontact['url'] . ')');
 169                 }
 170
 171                 // Don't store the statusnet connector as network
 172                 // We can't simply set this to Protocol::OSTATUS since the connector could have fetched posts from friendica as well
 173                 if ($gcontact['network'] == Protocol::STATUSNET) {
 174                         $gcontact['network'] = '';
 175                 }
 176
 177                 // Assure that there are no parameter fragments in the profile url
 178                 if (empty($gcontact['*network']) || in_array($gcontact['network'], Protocol::FEDERATED)) {
 179                         $gcontact['url'] = self::cleanContactUrl($gcontact['url']);
 180                 }
 181
 182                 // The global contacts should contain the original picture, not the cached one
 183                 if (($gcontact['generation'] != 1) && stristr(Strings::normaliseLink($gcontact['photo']), Strings::normaliseLink(DI::baseUrl() . '/photo/'))) {
 184                         $gcontact['photo'] = '';
 185                 }
 186
 187                 if (empty($gcontact['network'])) {
 188                         $gcontact['network'] = '';
 189
 190                         $condition = ["`uid` = 0 AND `nurl` = ? AND `network` != '' AND `network` != ?",
 191                                 Strings::normaliseLink($gcontact['url']), Protocol::STATUSNET];
 192                         $contact = DBA::selectFirst('contact', ['network'], $condition);
 193                         if (DBA::isResult($contact)) {
 194                                 $gcontact['network'] = $contact['network'];
 195                         }
 196
 197                         if (($gcontact['network'] == '') || ($gcontact['network'] == Protocol::OSTATUS)) {
 198                                 $condition = ["`uid` = 0 AND `alias` IN (?, ?) AND `network` != '' AND `network` != ?",
 199                                         $gcontact['url'], Strings::normaliseLink($gcontact['url']), Protocol::STATUSNET];
 200                                 $contact = DBA::selectFirst('contact', ['network'], $condition);
 201                                 if (DBA::isResult($contact)) {
 202                                         $gcontact['network'] = $contact['network'];
 203                                 }
 204                         }
 205                 }
 206
 207                 $fields = ['network', 'updated', 'server_url', 'url', 'addr'];
 208                 $gcnt = DBA::selectFirst('gcontact', $fields, ['nurl' => Strings::normaliseLink($gcontact['url'])]);
 209                 if (DBA::isResult($gcnt)) {
 210                         if (!isset($gcontact['network']) && ($gcnt['network'] != Protocol::STATUSNET)) {
 211                                 $gcontact['network'] = $gcnt['network'];
 212                         }
 213                         if ($gcontact['updated'] <= DBA::NULL_DATETIME) {
 214                                 $gcontact['updated'] = $gcnt['updated'];
 215                         }
 216                         if (!isset($gcontact['server_url']) && (Strings::normaliseLink($gcnt['server_url']) != Strings::normaliseLink($gcnt['url']))) {
 217                                 $gcontact['server_url'] = $gcnt['server_url'];
 218                         }
 219                         if (!isset($gcontact['addr'])) {
 220                                 $gcontact['addr'] = $gcnt['addr'];
 221                         }
 222                 }
 223
 224                 if ((!isset($gcontact['network']) || !isset($gcontact['name']) || !isset($gcontact['addr']) || !isset($gcontact['photo']) || !isset($gcontact['server_url']))
 225                         && GServer::reachable($gcontact['url'], $gcontact['server_url'], $gcontact['network'], false)
 226                 ) {
 227                         $data = Probe::uri($gcontact['url']);
 228
 229                         if ($data['network'] == Protocol::PHANTOM) {
 230                                 throw new Exception('Probing for URL ' . $gcontact['url'] . ' failed');
 231                         }
 232
 233                         $orig_profile = $gcontact['url'];
 234
 235                         $gcontact['server_url'] = $data['baseurl'];
 236
 237                         $gcontact = array_merge($gcontact, $data);
 238                 }
 239
 240                 if (!isset($gcontact['name']) || !isset($gcontact['photo'])) {
 241                         throw new Exception('No name and photo for URL '.$gcontact['url']);
 242                 }
 243
 244                 if (!in_array($gcontact['network'], Protocol::FEDERATED)) {
 245                         throw new Exception('No federated network (' . $gcontact['network'] . ') detected for URL ' . $gcontact['url']);
 246                 }
 247
 248                 if (empty($gcontact['server_url'])) {
 249                         // We check the server url to be sure that it is a real one
 250                         $server_url = self::getBasepath($gcontact['url']);
 251
 252                         // We are now sure that it is a correct URL. So we use it in the future
 253                         if ($server_url != '') {
 254                                 $gcontact['server_url'] = $server_url;
 255                         }
 256                 }
 257
 258                 // The server URL doesn't seem to be valid, so we don't store it.
 259                 if (!GServer::check($gcontact['server_url'], $gcontact['network'])) {
 260                         $gcontact['server_url'] = '';
 261                 }
 262
 263                 return $gcontact;
 264         }
 265
 266         /**
 267          * @param integer $uid id
 268          * @param integer $cid id
 269          * @return integer
 270          * @throws Exception
 271          */
 272         public static function countCommonFriends($uid, $cid)
 273         {
 274                 $r = q(
 275                         "SELECT count(*) as `total`
 276                         FROM `glink` INNER JOIN `gcontact` on `glink`.`gcid` = `gcontact`.`id`
 277                         WHERE `glink`.`cid` = %d AND `glink`.`uid` = %d AND
 278                         ((`gcontact`.`last_contact` >= `gcontact`.`last_failure`) OR
 279                         (`gcontact`.`updated` >= `gcontact`.`last_failure`))
 280                         AND `gcontact`.`nurl` IN (select nurl from contact where uid = %d and self = 0 and blocked = 0 and hidden = 0 and id != %d) ",
 281                         intval($cid),
 282                         intval($uid),
 283                         intval($uid),
 284                         intval($cid)
 285                 );
 286
 287                 if (DBA::isResult($r)) {
 288                         return $r[0]['total'];
 289                 }
 290                 return 0;
 291         }
 292
 293         /**
 294          * @param integer $uid  id
 295          * @param integer $zcid zcid
 296          * @return integer
 297          * @throws Exception
 298          */
 299         public static function countCommonFriendsZcid($uid, $zcid)
 300         {
 301                 $r = q(
 302                         "SELECT count(*) as `total`
 303                         FROM `glink` INNER JOIN `gcontact` on `glink`.`gcid` = `gcontact`.`id`
 304                         where `glink`.`zcid` = %d
 305                         and `gcontact`.`nurl` in (select nurl from contact where uid = %d and self = 0 and blocked = 0 and hidden = 0) ",
 306                         intval($zcid),
 307                         intval($uid)
 308                 );
 309
 310                 if (DBA::isResult($r)) {
 311                         return $r[0]['total'];
 312                 }
 313
 314                 return 0;
 315         }
 316
 317         /**
 318          * @param integer $uid     user
 319          * @param integer $cid     cid
 320          * @param integer $start   optional, default 0
 321          * @param integer $limit   optional, default 9999
 322          * @param boolean $shuffle optional, default false
 323          * @return object
 324          * @throws Exception
 325          */
 326         public static function commonFriends($uid, $cid, $start = 0, $limit = 9999, $shuffle = false)
 327         {
 328                 if ($shuffle) {
 329                         $sql_extra = " order by rand() ";
 330                 } else {
 331                         $sql_extra = " order by `gcontact`.`name` asc ";
 332                 }
 333
 334                 $r = q(
 335                         "SELECT `gcontact`.*, `contact`.`id` AS `cid`
 336                         FROM `glink`
 337                         INNER JOIN `gcontact` ON `glink`.`gcid` = `gcontact`.`id`
 338                         INNER JOIN `contact` ON `gcontact`.`nurl` = `contact`.`nurl`
 339                         WHERE `glink`.`cid` = %d and `glink`.`uid` = %d
 340                                 AND `contact`.`uid` = %d AND `contact`.`self` = 0 AND `contact`.`blocked` = 0
 341                                 AND `contact`.`hidden` = 0 AND `contact`.`id` != %d
 342                                 AND ((`gcontact`.`last_contact` >= `gcontact`.`last_failure`) OR (`gcontact`.`updated` >= `gcontact`.`last_failure`))
 343                                 $sql_extra LIMIT %d, %d",
 344                         intval($cid),
 345                         intval($uid),
 346                         intval($uid),
 347                         intval($cid),
 348                         intval($start),
 349                         intval($limit)
 350                 );
 351
 352                 /// @TODO Check all calling-findings of this function if they properly use DBA::isResult()
 353                 return $r;
 354         }
 355
 356         /**
 357          * @param integer $uid     user
 358          * @param integer $zcid    zcid
 359          * @param integer $start   optional, default 0
 360          * @param integer $limit   optional, default 9999
 361          * @param boolean $shuffle optional, default false
 362          * @return object
 363          * @throws Exception
 364          */
 365         public static function commonFriendsZcid($uid, $zcid, $start = 0, $limit = 9999, $shuffle = false)
 366         {
 367                 if ($shuffle) {
 368                         $sql_extra = " order by rand() ";
 369                 } else {
 370                         $sql_extra = " order by `gcontact`.`name` asc ";
 371                 }
 372
 373                 $r = q(
 374                         "SELECT `gcontact`.*
 375                         FROM `glink` INNER JOIN `gcontact` on `glink`.`gcid` = `gcontact`.`id`
 376                         where `glink`.`zcid` = %d
 377                         and `gcontact`.`nurl` in (select nurl from contact where uid = %d and self = 0 and blocked = 0 and hidden = 0)
 378                         $sql_extra limit %d, %d",
 379                         intval($zcid),
 380                         intval($uid),
 381                         intval($start),
 382                         intval($limit)
 383                 );
 384
 385                 /// @TODO Check all calling-findings of this function if they properly use DBA::isResult()
 386                 return $r;
 387         }
 388
 389         /**
 390          * @param integer $uid user
 391          * @param integer $cid cid
 392          * @return integer
 393          * @throws Exception
 394          */
 395         public static function countAllFriends($uid, $cid)
 396         {
 397                 $r = q(
 398                         "SELECT count(*) as `total`
 399                         FROM `glink` INNER JOIN `gcontact` on `glink`.`gcid` = `gcontact`.`id`
 400                         where `glink`.`cid` = %d and `glink`.`uid` = %d AND
 401                         ((`gcontact`.`last_contact` >= `gcontact`.`last_failure`) OR (`gcontact`.`updated` >= `gcontact`.`last_failure`))",
 402                         intval($cid),
 403                         intval($uid)
 404                 );
 405
 406                 if (DBA::isResult($r)) {
 407                         return $r[0]['total'];
 408                 }
 409
 410                 return 0;
 411         }
 412
 413         /**
 414          * @param integer $uid   user
 415          * @param integer $cid   cid
 416          * @param integer $start optional, default 0
 417          * @param integer $limit optional, default 80
 418          * @return array
 419          * @throws Exception
 420          */
 421         public static function allFriends($uid, $cid, $start = 0, $limit = 80)
 422         {
 423                 $r = q(
 424                         "SELECT `gcontact`.*, `contact`.`id` AS `cid`
 425                         FROM `glink`
 426                         INNER JOIN `gcontact` on `glink`.`gcid` = `gcontact`.`id`
 427                         LEFT JOIN `contact` ON `contact`.`nurl` = `gcontact`.`nurl` AND `contact`.`uid` = %d
 428                         WHERE `glink`.`cid` = %d AND `glink`.`uid` = %d AND
 429                         ((`gcontact`.`last_contact` >= `gcontact`.`last_failure`) OR (`gcontact`.`updated` >= `gcontact`.`last_failure`))
 430                         ORDER BY `gcontact`.`name` ASC LIMIT %d, %d ",
 431                         intval($uid),
 432                         intval($cid),
 433                         intval($uid),
 434                         intval($start),
 435                         intval($limit)
 436                 );
 437
 438                 /// @TODO Check all calling-findings of this function if they properly use DBA::isResult()
 439                 return $r;
 440         }
 441
 442         /**
 443          * @param int     $uid   user
 444          * @param integer $start optional, default 0
 445          * @param integer $limit optional, default 80
 446          * @return array
 447          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 448          */
 449         public static function suggestionQuery($uid, $start = 0, $limit = 80)
 450         {
 451                 if (!$uid) {
 452                         return [];
 453                 }
 454
 455                 $network = [Protocol::DFRN, Protocol::ACTIVITYPUB];
 456
 457                 if (DI::config()->get('system', 'diaspora_enabled')) {
 458                         $network[] = Protocol::DIASPORA;
 459                 }
 460
 461                 if (!DI::config()->get('system', 'ostatus_disabled')) {
 462                         $network[] = Protocol::OSTATUS;
 463                 }
 464
 465                 $sql_network = "'" . implode("', '", $network) . "'";
 466
 467                 /// @todo This query is really slow
 468                 // By now we cache the data for five minutes
 469                 $r = q(
 470                         "SELECT count(glink.gcid) as `total`, gcontact.* from gcontact
 471                         INNER JOIN `glink` ON `glink`.`gcid` = `gcontact`.`id`
 472                         where uid = %d and not gcontact.nurl in ( select nurl from contact where uid = %d )
 473                         AND NOT `gcontact`.`name` IN (SELECT `name` FROM `contact` WHERE `uid` = %d)
 474                         AND NOT `gcontact`.`id` IN (SELECT `gcid` FROM `gcign` WHERE `uid` = %d)
 475                         AND `gcontact`.`updated` >= '%s' AND NOT `gcontact`.`hide`
 476                         AND `gcontact`.`last_contact` >= `gcontact`.`last_failure`
 477                         AND `gcontact`.`network` IN (%s)
 478                         GROUP BY `glink`.`gcid` ORDER BY `gcontact`.`updated` DESC,`total` DESC LIMIT %d, %d",
 479                         intval($uid),
 480                         intval($uid),
 481                         intval($uid),
 482                         intval($uid),
 483                         DBA::NULL_DATETIME,
 484                         $sql_network,
 485                         intval($start),
 486                         intval($limit)
 487                 );
 488
 489                 if (DBA::isResult($r) && count($r) >= ($limit -1)) {
 490                         return $r;
 491                 }
 492
 493                 $r2 = q(
 494                         "SELECT gcontact.* FROM gcontact
 495                         INNER JOIN `glink` ON `glink`.`gcid` = `gcontact`.`id`
 496                         WHERE `glink`.`uid` = 0 AND `glink`.`cid` = 0 AND `glink`.`zcid` = 0 AND NOT `gcontact`.`nurl` IN (SELECT `nurl` FROM `contact` WHERE `uid` = %d)
 497                         AND NOT `gcontact`.`name` IN (SELECT `name` FROM `contact` WHERE `uid` = %d)
 498                         AND NOT `gcontact`.`id` IN (SELECT `gcid` FROM `gcign` WHERE `uid` = %d)
 499                         AND `gcontact`.`updated` >= '%s'
 500                         AND `gcontact`.`last_contact` >= `gcontact`.`last_failure`
 501                         AND `gcontact`.`network` IN (%s)
 502                         ORDER BY rand() LIMIT %d, %d",
 503                         intval($uid),
 504                         intval($uid),
 505                         intval($uid),
 506                         DBA::NULL_DATETIME,
 507                         $sql_network,
 508                         intval($start),
 509                         intval($limit)
 510                 );
 511
 512                 $list = [];
 513                 foreach ($r2 as $suggestion) {
 514                         $list[$suggestion['nurl']] = $suggestion;
 515                 }
 516
 517                 foreach ($r as $suggestion) {
 518                         $list[$suggestion['nurl']] = $suggestion;
 519                 }
 520
 521                 while (sizeof($list) > ($limit)) {
 522                         array_pop($list);
 523                 }
 524
 525                 return $list;
 526         }
 527
 528         /**
 529          * @return void
 530          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 531          */
 532         public static function updateSuggestions()
 533         {
 534                 $done = [];
 535
 536                 /// @TODO Check if it is really neccessary to poll the own server
 537                 PortableContact::loadWorker(0, 0, 0, DI::baseUrl() . '/poco');
 538
 539                 $done[] = DI::baseUrl() . '/poco';
 540
 541                 if (strlen(DI::config()->get('system', 'directory'))) {
 542                         $x = Network::fetchUrl(Search::getGlobalDirectory() . '/pubsites');
 543                         if (!empty($x)) {
 544                                 $j = json_decode($x);
 545                                 if (!empty($j->entries)) {
 546                                         foreach ($j->entries as $entry) {
 547                                                 GServer::check($entry->url);
 548
 549                                                 $url = $entry->url . '/poco';
 550                                                 if (!in_array($url, $done)) {
 551                                                         PortableContact::loadWorker(0, 0, 0, $url);
 552                                                         $done[] = $url;
 553                                                 }
 554                                         }
 555                                 }
 556                         }
 557                 }
 558
 559                 // Query your contacts from Friendica and Redmatrix/Hubzilla for their contacts
 560                 $contacts = DBA::p("SELECT DISTINCT(`poco`) AS `poco` FROM `contact` WHERE `network` IN (?, ?)", Protocol::DFRN, Protocol::DIASPORA);
 561                 while ($contact = DBA::fetch($contacts)) {
 562                         $base = substr($contact['poco'], 0, strrpos($contact['poco'], '/'));
 563                         if (!in_array($base, $done)) {
 564                                 PortableContact::loadWorker(0, 0, 0, $base);
 565                         }
 566                 }
 567                 DBA::close($contacts);
 568         }
 569
 570         /**
 571          * Removes unwanted parts from a contact url
 572          *
 573          * @param string $url Contact url
 574          *
 575          * @return string Contact url with the wanted parts
 576          * @throws Exception
 577          */
 578         public static function cleanContactUrl($url)
 579         {
 580                 $parts = parse_url($url);
 581
 582                 if (empty($parts['scheme']) || empty($parts['host'])) {
 583                         return $url;
 584                 }
 585
 586                 $new_url = $parts['scheme'] . '://' . $parts['host'];
 587
 588                 if (!empty($parts['port'])) {
 589                         $new_url .= ':' . $parts['port'];
 590                 }
 591
 592                 if (!empty($parts['path'])) {
 593                         $new_url .= $parts['path'];
 594                 }
 595
 596                 if ($new_url != $url) {
 597                         Logger::info('Cleaned contact url', ['url' => $url, 'new_url' => $new_url, 'callstack' => System::callstack()]);
 598                 }
 599
 600                 return $new_url;
 601         }
 602
 603         /**
 604          * Fetch the gcontact id, add an entry if not existed
 605          *
 606          * @param array $contact contact array
 607          *
 608          * @return bool|int Returns false if not found, integer if contact was found
 609          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 610          * @throws \ImagickException
 611          */
 612         public static function getId($contact)
 613         {
 614                 $gcontact_id = 0;
 615
 616                 if (empty($contact['network'])) {
 617                         Logger::notice('Empty network', ['url' => $contact['url'], 'callstack' => System::callstack()]);
 618                         return false;
 619                 }
 620
 621                 if (in_array($contact['network'], [Protocol::PHANTOM])) {
 622                         Logger::notice('Invalid network', ['url' => $contact['url'], 'callstack' => System::callstack()]);
 623                         return false;
 624                 }
 625
 626                 if ($contact['network'] == Protocol::STATUSNET) {
 627                         $contact['network'] = Protocol::OSTATUS;
 628                 }
 629
 630                 // All new contacts are hidden by default
 631                 if (!isset($contact['hide'])) {
 632                         $contact['hide'] = true;
 633                 }
 634
 635                 // Remove unwanted parts from the contact url (e.g. '?zrl=...')
 636                 if (in_array($contact['network'], Protocol::FEDERATED)) {
 637                         $contact['url'] = self::cleanContactUrl($contact['url']);
 638                 }
 639
 640                 DBA::lock('gcontact');
 641                 $fields = ['id', 'last_contact', 'last_failure', 'network'];
 642                 $gcnt = DBA::selectFirst('gcontact', $fields, ['nurl' => Strings::normaliseLink($contact['url'])]);
 643                 if (DBA::isResult($gcnt)) {
 644                         $gcontact_id = $gcnt['id'];
 645                 } else {
 646                         $contact['location'] = $contact['location'] ?? '';
 647                         $contact['about'] = $contact['about'] ?? '';
 648                         $contact['generation'] = $contact['generation'] ?? 0;
 649
 650                         $fields = ['name' => $contact['name'], 'nick' => $contact['nick'] ?? '', 'addr' => $contact['addr'] ?? '', 'network' => $contact['network'],
 651                                 'url' => $contact['url'], 'nurl' => Strings::normaliseLink($contact['url']), 'photo' => $contact['photo'],
 652                                 'created' => DateTimeFormat::utcNow(), 'updated' => DateTimeFormat::utcNow(), 'location' => $contact['location'],
 653                                 'about' => $contact['about'], 'hide' => $contact['hide'], 'generation' => $contact['generation']];
 654
 655                         DBA::insert('gcontact', $fields);
 656
 657                         $condition = ['nurl' => Strings::normaliseLink($contact['url'])];
 658                         $cnt = DBA::selectFirst('gcontact', ['id', 'network'], $condition, ['order' => ['id']]);
 659                         if (DBA::isResult($cnt)) {
 660                                 $gcontact_id = $cnt['id'];
 661                         }
 662                 }
 663                 DBA::unlock();
 664
 665                 return $gcontact_id;
 666         }
 667
 668         /**
 669          * Updates the gcontact table from a given array
 670          *
 671          * @param array $contact contact array
 672          *
 673          * @return bool|int Returns false if not found, integer if contact was found
 674          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 675          * @throws \ImagickException
 676          */
 677         public static function update($contact)
 678         {
 679                 // Check for invalid "contact-type" value
 680                 if (isset($contact['contact-type']) && (intval($contact['contact-type']) < 0)) {
 681                         $contact['contact-type'] = 0;
 682                 }
 683
 684                 /// @todo update contact table as well
 685
 686                 $gcontact_id = self::getId($contact);
 687
 688                 if (!$gcontact_id) {
 689                         return false;
 690                 }
 691
 692                 $public_contact = DBA::selectFirst('gcontact', [
 693                         'name', 'nick', 'photo', 'location', 'about', 'addr', 'generation', 'birthday', 'keywords', 'gsid',
 694                         'contact-type', 'hide', 'nsfw', 'network', 'alias', 'notify', 'server_url', 'connect', 'updated', 'url'
 695                 ], ['id' => $gcontact_id]);
 696
 697                 if (!DBA::isResult($public_contact)) {
 698                         return false;
 699                 }
 700
 701                 // Get all field names
 702                 $fields = [];
 703                 foreach ($public_contact as $field => $data) {
 704                         $fields[$field] = $data;
 705                 }
 706
 707                 unset($fields['url']);
 708                 unset($fields['updated']);
 709                 unset($fields['hide']);
 710
 711                 // Bugfix: We had an error in the storing of keywords which lead to the "0"
 712                 // This value is still transmitted via poco.
 713                 if (isset($contact['keywords']) && ($contact['keywords'] == '0')) {
 714                         unset($contact['keywords']);
 715                 }
 716
 717                 if (isset($public_contact['keywords']) && ($public_contact['keywords'] == '0')) {
 718                         $public_contact['keywords'] = '';
 719                 }
 720
 721                 // assign all unassigned fields from the database entry
 722                 foreach ($fields as $field => $data) {
 723                         if (empty($contact[$field])) {
 724                                 $contact[$field] = $public_contact[$field];
 725                         }
 726                 }
 727
 728                 if (!isset($contact['hide'])) {
 729                         $contact['hide'] = $public_contact['hide'];
 730                 }
 731
 732                 $fields['hide'] = $public_contact['hide'];
 733
 734                 if ($contact['network'] == Protocol::STATUSNET) {
 735                         $contact['network'] = Protocol::OSTATUS;
 736                 }
 737
 738                 if (!isset($contact['updated'])) {
 739                         $contact['updated'] = DateTimeFormat::utcNow();
 740                 }
 741
 742                 if ($contact['network'] == Protocol::TWITTER) {
 743                         $contact['server_url'] = 'http://twitter.com';
 744                 }
 745
 746                 if (empty($contact['server_url'])) {
 747                         $data = Probe::uri($contact['url']);
 748                         if ($data['network'] != Protocol::PHANTOM) {
 749                                 $contact['server_url'] = $data['baseurl'];
 750                         }
 751                 } else {
 752                         $contact['server_url'] = Strings::normaliseLink($contact['server_url']);
 753                 }
 754
 755                 if (!empty($contact['server_url']) && empty($contact['gsid'])) {
 756                         $contact['gsid'] = GServer::getID($contact['server_url']);
 757                 }
 758
 759                 if (empty($contact['addr']) && !empty($contact['server_url']) && !empty($contact['nick'])) {
 760                         $hostname = str_replace('http://', '', $contact['server_url']);
 761                         $contact['addr'] = $contact['nick'] . '@' . $hostname;
 762                 }
 763
 764                 // Check if any field changed
 765                 $update = false;
 766                 unset($fields['generation']);
 767
 768                 if ((($contact['generation'] > 0) && ($contact['generation'] <= $public_contact['generation'])) || ($public_contact['generation'] == 0)) {
 769                         foreach ($fields as $field => $data) {
 770                                 if ($contact[$field] != $public_contact[$field]) {
 771                                         Logger::debug('Difference found.', ['contact' => $contact['url'], 'field' => $field, 'new' => $contact[$field], 'old' => $public_contact[$field]]);
 772                                         $update = true;
 773                                 }
 774                         }
 775
 776                         if ($contact['generation'] < $public_contact['generation']) {
 777                                 Logger::debug('Difference found.', ['contact' => $contact['url'], 'field' => 'generation', 'new' => $contact['generation'], 'old' => $public_contact['generation']]);
 778                                 $update = true;
 779                         }
 780                 }
 781
 782                 if ($update) {
 783                         Logger::debug('Update gcontact.', ['contact' => $contact['url']]);
 784                         $condition = ["`nurl` = ? AND (`generation` = 0 OR `generation` >= ?)",
 785                                         Strings::normaliseLink($contact['url']), $contact['generation']];
 786                         $contact['updated'] = DateTimeFormat::utc($contact['updated']);
 787
 788                         $updated = [
 789                                 'photo' => $contact['photo'], 'name' => $contact['name'],
 790                                 'nick' => $contact['nick'], 'addr' => $contact['addr'],
 791                                 'network' => $contact['network'], 'birthday' => $contact['birthday'],
 792                                 'keywords' => $contact['keywords'],
 793                                 'hide' => $contact['hide'], 'nsfw' => $contact['nsfw'],
 794                                 'contact-type' => $contact['contact-type'], 'alias' => $contact['alias'],
 795                                 'notify' => $contact['notify'], 'url' => $contact['url'],
 796                                 'location' => $contact['location'], 'about' => $contact['about'],
 797                                 'generation' => $contact['generation'], 'updated' => $contact['updated'],
 798                                 'server_url' => $contact['server_url'], 'connect' => $contact['connect'],
 799                                 'gsid' => $contact['gsid']
 800                         ];
 801
 802                         DBA::update('gcontact', $updated, $condition, $fields);
 803                 }
 804
 805                 return $gcontact_id;
 806         }
 807
 808         /**
 809          * Set the last date that the contact had posted something
 810          *
 811          * @param string $data  Probing result
 812          * @param bool   $force force updating
 813          */
 814         public static function setLastUpdate(array $data, bool $force = false)
 815         {
 816                 // Fetch the global contact
 817                 $gcontact = DBA::selectFirst('gcontact', ['created', 'updated', 'last_contact', 'last_failure'],
 818                         ['nurl' => Strings::normaliseLink($data['url'])]);
 819                 if (!DBA::isResult($gcontact)) {
 820                         return;
 821                 }
 822
 823                 if (!$force && !GServer::updateNeeded($gcontact['created'], $gcontact['updated'], $gcontact['last_failure'], $gcontact['last_contact'])) {
 824                         Logger::info("Don't update profile", ['url' => $data['url'], 'updated' => $gcontact['updated']]);
 825                         return;
 826                 }
 827
 828                 if (self::updateFromNoScrape($data)) {
 829                         return;
 830                 }
 831
 832                 if (!empty($data['outbox'])) {
 833                         self::updateFromOutbox($data['outbox'], $data);
 834                 } elseif (!empty($data['poll']) && ($data['network'] == Protocol::ACTIVITYPUB)) {
 835                         self::updateFromOutbox($data['poll'], $data);
 836                 } elseif (!empty($data['poll'])) {
 837                         self::updateFromFeed($data);
 838                 }
 839         }
 840
 841         /**
 842          * Update a global contact via the "noscrape" endpoint
 843          *
 844          * @param string $data Probing result
 845          *
 846          * @return bool 'true' if update was successful or the server was unreachable
 847          */
 848         private static function updateFromNoScrape(array $data)
 849         {
 850                 // Check the 'noscrape' endpoint when it is a Friendica server
 851                 $gserver = DBA::selectFirst('gserver', ['noscrape'], ["`nurl` = ? AND `noscrape` != ''",
 852                 Strings::normaliseLink($data['baseurl'])]);
 853                 if (!DBA::isResult($gserver)) {
 854                         return false;
 855                 }
 856
 857                 $curlResult = Network::curl($gserver['noscrape'] . '/' . $data['nick']);
 858
 859                 if ($curlResult->isSuccess() && !empty($curlResult->getBody())) {
 860                         $noscrape = json_decode($curlResult->getBody(), true);
 861                         if (!empty($noscrape) && !empty($noscrape['updated'])) {
 862                                 $noscrape['updated'] = DateTimeFormat::utc($noscrape['updated'], DateTimeFormat::MYSQL);
 863                                 $fields = ['last_contact' => DateTimeFormat::utcNow(), 'updated' => $noscrape['updated']];
 864                                 DBA::update('gcontact', $fields, ['nurl' => Strings::normaliseLink($data['url'])]);
 865                                 return true;
 866                         }
 867                 } elseif ($curlResult->isTimeout()) {
 868                         // On a timeout return the existing value, but mark the contact as failure
 869                         $fields = ['last_failure' => DateTimeFormat::utcNow()];
 870                         DBA::update('gcontact', $fields, ['nurl' => Strings::normaliseLink($data['url'])]);
 871                         return true;
 872                 }
 873                 return false;
 874         }
 875
 876         /**
 877          * Update a global contact via an ActivityPub Outbox
 878          *
 879          * @param string $feed
 880          * @param array  $data Probing result
 881          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 882          */
 883         private static function updateFromOutbox(string $feed, array $data)
 884         {
 885                 $outbox = ActivityPub::fetchContent($feed);
 886                 if (empty($outbox)) {
 887                         return;
 888                 }
 889
 890                 if (!empty($outbox['orderedItems'])) {
 891                         $items = $outbox['orderedItems'];
 892                 } elseif (!empty($outbox['first']['orderedItems'])) {
 893                         $items = $outbox['first']['orderedItems'];
 894                 } elseif (!empty($outbox['first']['href']) && ($outbox['first']['href'] != $feed)) {
 895                         self::updateFromOutbox($outbox['first']['href'], $data);
 896                         return;
 897                 } elseif (!empty($outbox['first'])) {
 898                         if (is_string($outbox['first']) && ($outbox['first'] != $feed)) {
 899                                 self::updateFromOutbox($outbox['first'], $data);
 900                         } else {
 901                                 Logger::warning('Unexpected data', ['outbox' => $outbox]);
 902                         }
 903                         return;
 904                 } else {
 905                         $items = [];
 906                 }
 907
 908                 $last_updated = '';
 909                 foreach ($items as $activity) {
 910                         if (!empty($activity['published'])) {
 911                                 $published =  DateTimeFormat::utc($activity['published']);
 912                         } elseif (!empty($activity['object']['published'])) {
 913                                 $published =  DateTimeFormat::utc($activity['object']['published']);
 914                         } else {
 915                                 continue;
 916                         }
 917
 918                         if ($last_updated < $published) {
 919                                 $last_updated = $published;
 920                         }
 921                 }
 922
 923                 if (empty($last_updated)) {
 924                         return;
 925                 }
 926
 927                 $fields = ['last_contact' => DateTimeFormat::utcNow(), 'updated' => $last_updated];
 928                 DBA::update('gcontact', $fields, ['nurl' => Strings::normaliseLink($data['url'])]);
 929         }
 930
 931         /**
 932          * Update a global contact via an XML feed
 933          *
 934          * @param string $data Probing result
 935          */
 936         private static function updateFromFeed(array $data)
 937         {
 938                 // Search for the newest entry in the feed
 939                 $curlResult = Network::curl($data['poll']);
 940                 if (!$curlResult->isSuccess()) {
 941                         $fields = ['last_failure' => DateTimeFormat::utcNow()];
 942                         DBA::update('gcontact', $fields, ['nurl' => Strings::normaliseLink($data['url'])]);
 943
 944                         Logger::info("Profile wasn't reachable (no feed)", ['url' => $data['url']]);
 945                         return;
 946                 }
 947
 948                 $doc = new DOMDocument();
 949                 @$doc->loadXML($curlResult->getBody());
 950
 951                 $xpath = new DOMXPath($doc);
 952                 $xpath->registerNamespace('atom', 'http://www.w3.org/2005/Atom');
 953
 954                 $entries = $xpath->query('/atom:feed/atom:entry');
 955
 956                 $last_updated = '';
 957
 958                 foreach ($entries as $entry) {
 959                         $published_item = $xpath->query('atom:published/text()', $entry)->item(0);
 960                         $updated_item   = $xpath->query('atom:updated/text()'  , $entry)->item(0);
 961                         $published      = !empty($published_item->nodeValue) ? DateTimeFormat::utc($published_item->nodeValue) : null;
 962                         $updated        = !empty($updated_item->nodeValue) ? DateTimeFormat::utc($updated_item->nodeValue) : null;
 963
 964                         if (empty($published) || empty($updated)) {
 965                                 Logger::notice('Invalid entry for XPath.', ['entry' => $entry, 'url' => $data['url']]);
 966                                 continue;
 967                         }
 968
 969                         if ($last_updated < $published) {
 970                                 $last_updated = $published;
 971                         }
 972
 973                         if ($last_updated < $updated) {
 974                                 $last_updated = $updated;
 975                         }
 976                 }
 977
 978                 if (empty($last_updated)) {
 979                         return;
 980                 }
 981
 982                 $fields = ['last_contact' => DateTimeFormat::utcNow(), 'updated' => $last_updated];
 983                 DBA::update('gcontact', $fields, ['nurl' => Strings::normaliseLink($data['url'])]);
 984         }
 985         /**
 986          * Updates the gcontact entry from a given public contact id
 987          *
 988          * @param integer $cid contact id
 989          * @return void
 990          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
 991          * @throws \ImagickException
 992          */
 993         public static function updateFromPublicContactID($cid)
 994         {
 995                 self::updateFromPublicContact(['id' => $cid]);
 996         }
 997
 998         /**
 999          * Updates the gcontact entry from a given public contact url
1000          *
1001          * @param string $url contact url
1002          * @return integer gcontact id
1003          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1004          * @throws \ImagickException
1005          */
1006         public static function updateFromPublicContactURL($url)
1007         {
1008                 return self::updateFromPublicContact(['nurl' => Strings::normaliseLink($url)]);
1009         }
1010
1011         /**
1012          * Helper function for updateFromPublicContactID and updateFromPublicContactURL
1013          *
1014          * @param array $condition contact condition
1015          * @return integer gcontact id
1016          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1017          * @throws \ImagickException
1018          */
1019         private static function updateFromPublicContact($condition)
1020         {
1021                 $fields = ['name', 'nick', 'url', 'nurl', 'location', 'about', 'keywords',
1022                         'bd', 'contact-type', 'network', 'addr', 'notify', 'alias', 'archive', 'term-date',
1023                         'created', 'updated', 'avatar', 'success_update', 'failure_update', 'forum', 'prv',
1024                         'baseurl', 'gsid', 'sensitive', 'unsearchable'];
1025
1026                 $contact = DBA::selectFirst('contact', $fields, array_merge($condition, ['uid' => 0, 'network' => Protocol::FEDERATED]));
1027                 if (!DBA::isResult($contact)) {
1028                         return 0;
1029                 }
1030
1031                 $fields = ['name', 'nick', 'url', 'nurl', 'location', 'about', 'keywords', 'generation',
1032                         'birthday', 'contact-type', 'network', 'addr', 'notify', 'alias', 'archived', 'archive_date',
1033                         'created', 'updated', 'photo', 'last_contact', 'last_failure', 'community', 'connect',
1034                         'server_url', 'gsid', 'nsfw', 'hide', 'id'];
1035
1036                 $old_gcontact = DBA::selectFirst('gcontact', $fields, ['nurl' => $contact['nurl']]);
1037                 $do_insert = !DBA::isResult($old_gcontact);
1038                 if ($do_insert) {
1039                         $old_gcontact = [];
1040                 }
1041
1042                 $gcontact = [];
1043
1044                 // These fields are identical in both contact and gcontact
1045                 $fields = ['name', 'nick', 'url', 'nurl', 'location', 'about', 'keywords', 'gsid',
1046                         'contact-type', 'network', 'addr', 'notify', 'alias', 'created', 'updated'];
1047
1048                 foreach ($fields as $field) {
1049                         $gcontact[$field] = $contact[$field];
1050                 }
1051
1052                 // These fields are having different names but the same content
1053                 $gcontact['server_url'] = $contact['baseurl'] ?? ''; // "baseurl" can be null, "server_url" not
1054                 $gcontact['nsfw'] = $contact['sensitive'];
1055                 $gcontact['hide'] = $contact['unsearchable'];
1056                 $gcontact['archived'] = $contact['archive'];
1057                 $gcontact['archive_date'] = $contact['term-date'];
1058                 $gcontact['birthday'] = $contact['bd'];
1059                 $gcontact['photo'] = $contact['avatar'];
1060                 $gcontact['last_contact'] = $contact['success_update'];
1061                 $gcontact['last_failure'] = $contact['failure_update'];
1062                 $gcontact['community'] = ($contact['forum'] || $contact['prv']);
1063
1064                 foreach (['last_contact', 'last_failure', 'updated'] as $field) {
1065                         if (!empty($old_gcontact[$field]) && ($old_gcontact[$field] >= $gcontact[$field])) {
1066                                 unset($gcontact[$field]);
1067                         }
1068                 }
1069
1070                 if (!$gcontact['archived']) {
1071                         $gcontact['archive_date'] = DBA::NULL_DATETIME;
1072                 }
1073
1074                 if (!empty($old_gcontact['created']) && ($old_gcontact['created'] > DBA::NULL_DATETIME)
1075                         && ($old_gcontact['created'] <= $gcontact['created'])) {
1076                         unset($gcontact['created']);
1077                 }
1078
1079                 if (empty($gcontact['birthday']) && ($gcontact['birthday'] <= DBA::NULL_DATETIME)) {
1080                         unset($gcontact['birthday']);
1081                 }
1082
1083                 if (empty($old_gcontact['generation']) || ($old_gcontact['generation'] > 2)) {
1084                         $gcontact['generation'] = 2; // We fetched the data directly from the other server
1085                 }
1086
1087                 if (!$do_insert) {
1088                         DBA::update('gcontact', $gcontact, ['nurl' => $contact['nurl']], $old_gcontact);
1089                         return $old_gcontact['id'];
1090                 } elseif (!$gcontact['archived']) {
1091                         DBA::insert('gcontact', $gcontact);
1092                         return DBA::lastInsertId();
1093                 }
1094         }
1095
1096         /**
1097          * Updates the gcontact entry from probe
1098          *
1099          * @param string  $url   profile link
1100          * @param boolean $force Optional forcing of network probing (otherwise we use the cached data)
1101          *
1102          * @return boolean 'true' when contact had been updated
1103          *
1104          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1105          * @throws \ImagickException
1106          */
1107         public static function updateFromProbe($url, $force = false)
1108         {
1109                 $data = Probe::uri($url, $force);
1110
1111                 if (in_array($data['network'], [Protocol::PHANTOM])) {
1112                         $fields = ['last_failure' => DateTimeFormat::utcNow()];
1113                         DBA::update('gcontact', $fields, ['nurl' => Strings::normaliseLink($url)]);
1114                         Logger::info('Invalid network for contact', ['url' => $data['url'], 'callstack' => System::callstack()]);
1115                         return false;
1116                 }
1117
1118                 $data['server_url'] = $data['baseurl'];
1119
1120                 self::update($data);
1121
1122                 // Set the date of the latest post
1123                 self::setLastUpdate($data, $force);
1124
1125                 return true;
1126         }
1127
1128         /**
1129          * Update the gcontact entry for a given user id
1130          *
1131          * @param int $uid User ID
1132          * @return bool
1133          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1134          * @throws \ImagickException
1135          */
1136         public static function updateForUser($uid)
1137         {
1138                 $profile = Profile::getByUID($uid);
1139                 if (empty($profile)) {
1140                         Logger::error('Cannot find profile', ['uid' => $uid]);
1141                         return false;
1142                 }
1143
1144                 $user = User::getOwnerDataById($uid);
1145                 if (empty($user)) {
1146                         Logger::error('Cannot find user', ['uid' => $uid]);
1147                         return false;
1148                 }
1149
1150                 $userdata = array_merge($profile, $user);
1151
1152                 $location = Profile::formatLocation(
1153                         ['locality' => $userdata['locality'], 'region' => $userdata['region'], 'country-name' => $userdata['country-name']]
1154                 );
1155
1156                 $gcontact = ['name' => $userdata['name'], 'location' => $location, 'about' => $userdata['about'],
1157                                 'keywords' => $userdata['pub_keywords'],
1158                                 'birthday' => $userdata['dob'], 'photo' => $userdata['photo'],
1159                                 "notify" => $userdata['notify'], 'url' => $userdata['url'],
1160                                 "hide" => !$userdata['net-publish'],
1161                                 'nick' => $userdata['nickname'], 'addr' => $userdata['addr'],
1162                                 "connect" => $userdata['addr'], "server_url" => DI::baseUrl(),
1163                                 "generation" => 1, 'network' => Protocol::DFRN];
1164
1165                 self::update($gcontact);
1166         }
1167
1168         /**
1169          * Get the basepath for a given contact link
1170          *
1171          * @param string $url The gcontact link
1172          * @param boolean $dont_update Don't update the contact
1173          *
1174          * @return string basepath
1175          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1176          * @throws \ImagickException
1177          */
1178         public static function getBasepath($url, $dont_update = false)
1179         {
1180                 $gcontact = DBA::selectFirst('gcontact', ['server_url'], ['nurl' => Strings::normaliseLink($url)]);
1181                 if (!empty($gcontact['server_url'])) {
1182                         return $gcontact['server_url'];
1183                 } elseif ($dont_update) {
1184                         return '';
1185                 }
1186
1187                 self::updateFromProbe($url, true);
1188
1189                 // Fetch the result
1190                 $gcontact = DBA::selectFirst('gcontact', ['server_url'], ['nurl' => Strings::normaliseLink($url)]);
1191                 if (empty($gcontact['server_url'])) {
1192                         Logger::info('No baseurl for gcontact', ['url' => $url]);
1193                         return '';
1194                 }
1195
1196                 Logger::info('Found baseurl for gcontact', ['url' => $url, 'baseurl' => $gcontact['server_url']]);
1197                 return $gcontact['server_url'];
1198         }
1199
1200         /**
1201          * Fetches users of given GNU Social server
1202          *
1203          * If the "Statistics" addon is enabled (See http://gstools.org/ for details) we query user data with this.
1204          *
1205          * @param string $server Server address
1206          * @return bool
1207          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1208          * @throws \ImagickException
1209          */
1210         public static function fetchGsUsers($server)
1211         {
1212                 Logger::info('Fetching users from GNU Social server', ['server' => $server]);
1213
1214                 $url = $server . '/main/statistics';
1215
1216                 $curlResult = Network::curl($url);
1217                 if (!$curlResult->isSuccess()) {
1218                         return false;
1219                 }
1220
1221                 $statistics = json_decode($curlResult->getBody());
1222
1223                 if (!empty($statistics->config->instance_address)) {
1224                         if (!empty($statistics->config->instance_with_ssl)) {
1225                                 $server = 'https://';
1226                         } else {
1227                                 $server = 'http://';
1228                         }
1229
1230                         $server .= $statistics->config->instance_address;
1231
1232                         $hostname = $statistics->config->instance_address;
1233                 } elseif (!empty($statistics->instance_address)) {
1234                         if (!empty($statistics->instance_with_ssl)) {
1235                                 $server = 'https://';
1236                         } else {
1237                                 $server = 'http://';
1238                         }
1239
1240                         $server .= $statistics->instance_address;
1241
1242                         $hostname = $statistics->instance_address;
1243                 }
1244
1245                 if (!empty($statistics->users)) {
1246                         foreach ($statistics->users as $nick => $user) {
1247                                 $profile_url = $server . '/' . $user->nickname;
1248
1249                                 $contact = ['url' => $profile_url,
1250                                                 'name' => $user->fullname,
1251                                                 'addr' => $user->nickname . '@' . $hostname,
1252                                                 'nick' => $user->nickname,
1253                                                 "network" => Protocol::OSTATUS,
1254                                                 'photo' => DI::baseUrl() . '/images/person-300.jpg'];
1255
1256                                 if (isset($user->bio)) {
1257                                         $contact['about'] = $user->bio;
1258                                 }
1259
1260                                 self::getId($contact);
1261                         }
1262                 }
1263         }
1264
1265         /**
1266          * Asking GNU Social server on a regular base for their user data
1267          *
1268          * @return void
1269          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1270          * @throws \ImagickException
1271          */
1272         public static function discoverGsUsers()
1273         {
1274                 $requery_days = intval(DI::config()->get('system', 'poco_requery_days'));
1275
1276                 $last_update = date("c", time() - (60 * 60 * 24 * $requery_days));
1277
1278                 $r = DBA::select('gserver', ['nurl', 'url'], [
1279                         '`network` = ?
1280                         AND `last_contact` >= `last_failure`
1281                         AND `last_poco_query` < ?',
1282                         Protocol::OSTATUS,
1283                         $last_update
1284                 ], [
1285                         'limit' => 5,
1286                         'order' => ['RAND()']
1287                 ]);
1288
1289                 if (!DBA::isResult($r)) {
1290                         return;
1291                 }
1292
1293                 foreach ($r as $server) {
1294                         self::fetchGsUsers($server['url']);
1295                         DBA::update('gserver', ['last_poco_query' => DateTimeFormat::utcNow()], ['nurl' => $server['nurl']]);
1296                 }
1297         }
1298
1299         /**
1300          * Fetches the followers of a given profile and adds them
1301          *
1302          * @param string $url URL of a profile
1303          * @return void
1304          */
1305         public static function discoverFollowers(string $url)
1306         {
1307                 $gcontact = DBA::selectFirst('gcontact', ['id', 'last_discovery'], ['nurl' => Strings::normaliseLink(($url))]);
1308                 if (!DBA::isResult($gcontact)) {
1309                         return;
1310                 }
1311
1312                 if ($gcontact['last_discovery'] > DateTimeFormat::utc('now - 1 month')) {
1313                         Logger::info('Last discovery was less then a month before.', ['url' => $url, 'discovery' => $gcontact['last_discovery']]);
1314                         return;
1315                 }
1316
1317                 $gcid = $gcontact['id'];
1318
1319                 $apcontact = APContact::getByURL($url);
1320
1321                 if (!empty($apcontact['followers']) && is_string($apcontact['followers'])) {
1322                         $followers = ActivityPub::fetchItems($apcontact['followers']);
1323                 } else {
1324                         $followers = [];
1325                 }
1326
1327                 if (!empty($apcontact['following']) && is_string($apcontact['following'])) {
1328                         $followings = ActivityPub::fetchItems($apcontact['following']);
1329                 } else {
1330                         $followings = [];
1331                 }
1332
1333                 if (!empty($followers) || !empty($followings)) {
1334                         if (!empty($followers)) {
1335                                 // Clear the follower list, since it will be recreated in the next step
1336                                 DBA::update('gfollower', ['deleted' => true], ['gcid' => $gcid]);
1337                         }
1338
1339                         $contacts = [];
1340                         foreach (array_merge($followers, $followings) as $contact) {
1341                                 if (is_string($contact)) {
1342                                         $contacts[] = $contact;
1343                                 } elseif (!empty($contact['url']) && is_string($contact['url'])) {
1344                                         $contacts[] = $contact['url'];
1345                                 }
1346                         }
1347                         $contacts = array_unique($contacts);
1348
1349                         Logger::info('Discover AP contacts', ['url' => $url, 'contacts' => count($contacts)]);
1350                         foreach ($contacts as $contact) {
1351                                 $gcontact = DBA::selectFirst('gcontact', ['id'], ['nurl' => Strings::normaliseLink(($contact))]);
1352                                 if (DBA::isResult($gcontact)) {
1353                                         $fields = [];
1354                                         if (in_array($contact, $followers)) {
1355                                                 $fields = ['gcid' => $gcid, 'follower-gcid' => $gcontact['id']];
1356                                         } elseif (in_array($contact, $followings)) {
1357                                                 $fields = ['gcid' => $gcontact['id'], 'follower-gcid' => $gcid];
1358                                         }
1359
1360                                         if (!empty($fields)) {
1361                                                 Logger::info('Set relation between contacts', $fields);
1362                                                 DBA::update('gfollower', ['deleted' => false], $fields, true);
1363                                                 continue;
1364                                         }
1365                                 }
1366
1367                                 if (!Network::isUrlBlocked($contact)) {
1368                                         Logger::info('Discover new AP contact', ['url' => $contact]);
1369                                         Worker::add(PRIORITY_LOW, 'UpdateGContact', $contact, 'nodiscover');
1370                                 } else {
1371                                         Logger::info('No discovery, the URL is blocked.', ['url' => $contact]);
1372                                 }
1373                         }
1374                         if (!empty($followers)) {
1375                                 // Delete all followers that aren't undeleted
1376                                 DBA::delete('gfollower', ['gcid' => $gcid, 'deleted' => true]);
1377                         }
1378
1379                         DBA::update('gcontact', ['last_discovery' => DateTimeFormat::utcNow()], ['id' => $gcid]);
1380                         Logger::info('AP contacts discovery finished, last discovery set', ['url' => $url]);
1381                         return;
1382                 }
1383
1384                 $data = Probe::uri($url);
1385                 if (empty($data['poco'])) {
1386                         return;
1387                 }
1388
1389                 $curlResult = Network::curl($data['poco']);
1390                 if (!$curlResult->isSuccess()) {
1391                         return;
1392                 }
1393                 $poco = json_decode($curlResult->getBody(), true);
1394                 if (empty($poco['entry'])) {
1395                         return;
1396                 }
1397
1398                 Logger::info('PoCo Discovery started', ['url' => $url, 'contacts' => count($poco['entry'])]);
1399
1400                 foreach ($poco['entry'] as $entries) {
1401                         if (!empty($entries['urls'])) {
1402                                 foreach ($entries['urls'] as $entry) {
1403                                         if ($entry['type'] == 'profile') {
1404                                                 if (DBA::exists('gcontact', ['nurl' => Strings::normaliseLink(($entry['value']))])) {
1405                                                         continue;
1406                                                 }
1407                                                 if (!Network::isUrlBlocked($entry['value'])) {
1408                                                         Logger::info('Discover new PoCo contact', ['url' => $entry['value']]);
1409                                                         Worker::add(PRIORITY_LOW, 'UpdateGContact', $entry['value'], 'nodiscover');
1410                                                 } else {
1411                                                         Logger::info('No discovery, the URL is blocked.', ['url' => $entry['value']]);
1412                                                 }
1413                                         }
1414                                 }
1415                         }
1416                 }
1417
1418                 DBA::update('gcontact', ['last_discovery' => DateTimeFormat::utcNow()], ['id' => $gcid]);
1419                 Logger::info('PoCo Discovery finished', ['url' => $url]);
1420         }
1421
1422         /**
1423          * Returns a random, global contact of the current node
1424          *
1425          * @return string The profile URL
1426          * @throws Exception
1427          */
1428         public static function getRandomUrl()
1429         {
1430                 $r = DBA::selectFirst('gcontact', ['url'], [
1431                         '`network` = ?
1432                         AND `last_contact` >= `last_failure`
1433                         AND `updated` > ?',
1434                         Protocol::DFRN,
1435                         DateTimeFormat::utc('now - 1 month'),
1436                 ], ['order' => ['RAND()']]);
1437
1438                 if (DBA::isResult($r)) {
1439                         return $r['url'];
1440                 }
1441
1442                 return '';
1443         }
1444 }