]> git.mxchange.org Git - friendica.git/blob - src/Protocol/Feed.php
Merge pull request #1 from friendica/develop
[friendica.git] / src / Protocol / Feed.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\Protocol;
23
24 use DOMDocument;
25 use DOMXPath;
26 use Friendica\Content\PageInfo;
27 use Friendica\Content\Text\BBCode;
28 use Friendica\Content\Text\HTML;
29 use Friendica\Core\Cache\Duration;
30 use Friendica\Core\Logger;
31 use Friendica\Core\Protocol;
32 use Friendica\Database\DBA;
33 use Friendica\DI;
34 use Friendica\Model\Contact;
35 use Friendica\Model\Item;
36 use Friendica\Model\Tag;
37 use Friendica\Model\User;
38 use Friendica\Util\DateTimeFormat;
39 use Friendica\Util\Network;
40 use Friendica\Util\ParseUrl;
41 use Friendica\Util\Strings;
42 use Friendica\Util\XML;
43
44 /**
45  * This class contain functions to import feeds (RSS/RDF/Atom)
46  */
47 class Feed
48 {
49         /**
50          * consume - process atom feed and update anything/everything we might need to update
51          *
52          * $xml = the (atom) feed to consume - RSS isn't as fully supported but may work for simple feeds.
53          *
54          * $importer = the contact_record (joined to user_record) of the local user who owns this relationship.
55          *             It is this person's stuff that is going to be updated.
56          * $contact =  the person who is sending us stuff. If not set, we MAY be processing a "follow" activity
57          *             from an external network and MAY create an appropriate contact record. Otherwise, we MUST
58          *             have a contact record.
59          * $hub = should we find a hub declation in the feed, pass it back to our calling process, who might (or
60          *        might not) try and subscribe to it.
61          * $datedir sorts in reverse order
62          * $pass - by default ($pass = 0) we cannot guarantee that a parent item has been
63          *      imported prior to its children being seen in the stream unless we are certain
64          *      of how the feed is arranged/ordered.
65          * With $pass = 1, we only pull parent items out of the stream.
66          * With $pass = 2, we only pull children (comments/likes).
67          *
68          * So running this twice, first with pass 1 and then with pass 2 will do the right
69          * thing regardless of feed ordering. This won't be adequate in a fully-threaded
70          * model where comments can have sub-threads. That would require some massive sorting
71          * to get all the feed items into a mostly linear ordering, and might still require
72          * recursion.
73          *
74          * @param       $xml
75          * @param array $importer
76          * @param array $contact
77          * @param       $hub
78          * @throws ImagickException
79          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
80          */
81         public static function consume($xml, array $importer, array $contact, &$hub)
82         {
83                 if ($contact['network'] === Protocol::OSTATUS) {
84                         Logger::info('Consume OStatus messages');
85                         OStatus::import($xml, $importer, $contact, $hub);
86
87                         return;
88                 }
89
90                 if ($contact['network'] === Protocol::FEED) {
91                         Logger::info('Consume feeds');
92                         self::import($xml, $importer, $contact);
93
94                         return;
95                 }
96
97                 if ($contact['network'] === Protocol::DFRN) {
98                         Logger::info('Consume DFRN messages');
99                         $dfrn_importer = DFRN::getImporter($contact['id'], $importer['uid']);
100                         if (!empty($dfrn_importer)) {
101                                 Logger::info('Now import the DFRN feed');
102                                 DFRN::import($xml, $dfrn_importer, true);
103                                 return;
104                         }
105                 }
106         }
107
108         /**
109          * Read a RSS/RDF/Atom feed and create an item entry for it
110          *
111          * @param string $xml      The feed data
112          * @param array  $importer The user record of the importer
113          * @param array  $contact  The contact record of the feed
114          *
115          * @return array Returns the header and the first item in dry run mode
116          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
117          */
118         public static function import($xml, array $importer = [], array $contact = [])
119         {
120                 $dryRun = empty($importer) && empty($contact);
121
122                 if ($dryRun) {
123                         Logger::info("Test Atom/RSS feed");
124                 } else {
125                         Logger::info("Import Atom/RSS feed '" . $contact["name"] . "' (Contact " . $contact["id"] . ") for user " . $importer["uid"]);
126                 }
127
128                 if (empty($xml)) {
129                         Logger::info('XML is empty.');
130                         return [];
131                 }
132
133                 if (!empty($contact['poll'])) {
134                         $basepath = $contact['poll'];
135                 } elseif (!empty($contact['url'])) {
136                         $basepath = $contact['url'];
137                 } else {
138                         $basepath = '';
139                 }
140
141                 $doc = new DOMDocument();
142                 @$doc->loadXML(trim($xml));
143                 $xpath = new DOMXPath($doc);
144                 $xpath->registerNamespace('atom', ActivityNamespace::ATOM1);
145                 $xpath->registerNamespace('dc', "http://purl.org/dc/elements/1.1/");
146                 $xpath->registerNamespace('content', "http://purl.org/rss/1.0/modules/content/");
147                 $xpath->registerNamespace('rdf', "http://www.w3.org/1999/02/22-rdf-syntax-ns#");
148                 $xpath->registerNamespace('rss', "http://purl.org/rss/1.0/");
149                 $xpath->registerNamespace('media', "http://search.yahoo.com/mrss/");
150                 $xpath->registerNamespace('poco', ActivityNamespace::POCO);
151
152                 $author = [];
153                 $entries = null;
154
155                 // Is it RDF?
156                 if ($xpath->query('/rdf:RDF/rss:channel')->length > 0) {
157                         $author["author-link"] = XML::getFirstNodeValue($xpath, '/rdf:RDF/rss:channel/rss:link/text()');
158                         $author["author-name"] = XML::getFirstNodeValue($xpath, '/rdf:RDF/rss:channel/rss:title/text()');
159
160                         if (empty($author["author-name"])) {
161                                 $author["author-name"] = XML::getFirstNodeValue($xpath, '/rdf:RDF/rss:channel/rss:description/text()');
162                         }
163                         $entries = $xpath->query('/rdf:RDF/rss:item');
164                 }
165
166                 // Is it Atom?
167                 if ($xpath->query('/atom:feed')->length > 0) {
168                         $alternate = XML::getFirstAttributes($xpath, "atom:link[@rel='alternate']");
169                         if (is_object($alternate)) {
170                                 foreach ($alternate AS $attribute) {
171                                         if ($attribute->name == "href") {
172                                                 $author["author-link"] = $attribute->textContent;
173                                         }
174                                 }
175                         }
176
177                         if (empty($author["author-link"])) {
178                                 $self = XML::getFirstAttributes($xpath, "atom:link[@rel='self']");
179                                 if (is_object($self)) {
180                                         foreach ($self AS $attribute) {
181                                                 if ($attribute->name == "href") {
182                                                         $author["author-link"] = $attribute->textContent;
183                                                 }
184                                         }
185                                 }
186                         }
187
188                         if (empty($author["author-link"])) {
189                                 $author["author-link"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:id/text()');
190                         }
191                         $author["author-avatar"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:logo/text()');
192
193                         $author["author-name"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:title/text()');
194
195                         if (empty($author["author-name"])) {
196                                 $author["author-name"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:subtitle/text()');
197                         }
198
199                         if (empty($author["author-name"])) {
200                                 $author["author-name"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:author/atom:name/text()');
201                         }
202
203                         $value = XML::getFirstNodeValue($xpath, 'atom:author/poco:displayName/text()');
204                         if ($value != "") {
205                                 $author["author-name"] = $value;
206                         }
207
208                         if ($dryRun) {
209                                 $author["author-id"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:author/atom:id/text()');
210
211                                 // See https://tools.ietf.org/html/rfc4287#section-3.2.2
212                                 $value = XML::getFirstNodeValue($xpath, 'atom:author/atom:uri/text()');
213                                 if ($value != "") {
214                                         $author["author-link"] = $value;
215                                 }
216
217                                 $value = XML::getFirstNodeValue($xpath, 'atom:author/poco:preferredUsername/text()');
218                                 if ($value != "") {
219                                         $author["author-nick"] = $value;
220                                 }
221
222                                 $value = XML::getFirstNodeValue($xpath, 'atom:author/poco:address/poco:formatted/text()');
223                                 if ($value != "") {
224                                         $author["author-location"] = $value;
225                                 }
226
227                                 $value = XML::getFirstNodeValue($xpath, 'atom:author/poco:note/text()');
228                                 if ($value != "") {
229                                         $author["author-about"] = $value;
230                                 }
231
232                                 $avatar = XML::getFirstAttributes($xpath, "atom:author/atom:link[@rel='avatar']");
233                                 if (is_object($avatar)) {
234                                         foreach ($avatar AS $attribute) {
235                                                 if ($attribute->name == "href") {
236                                                         $author["author-avatar"] = $attribute->textContent;
237                                                 }
238                                         }
239                                 }
240                         }
241
242                         $author["edited"] = $author["created"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:updated/text()');
243
244                         $author["app"] = XML::getFirstNodeValue($xpath, '/atom:feed/atom:generator/text()');
245
246                         $entries = $xpath->query('/atom:feed/atom:entry');
247                 }
248
249                 // Is it RSS?
250                 if ($xpath->query('/rss/channel')->length > 0) {
251                         $author["author-link"] = XML::getFirstNodeValue($xpath, '/rss/channel/link/text()');
252
253                         $author["author-name"] = XML::getFirstNodeValue($xpath, '/rss/channel/title/text()');
254                         $author["author-avatar"] = XML::getFirstNodeValue($xpath, '/rss/channel/image/url/text()');
255
256                         if (empty($author["author-name"])) {
257                                 $author["author-name"] = XML::getFirstNodeValue($xpath, '/rss/channel/copyright/text()');
258                         }
259
260                         if (empty($author["author-name"])) {
261                                 $author["author-name"] = XML::getFirstNodeValue($xpath, '/rss/channel/description/text()');
262                         }
263
264                         $author["edited"] = $author["created"] = XML::getFirstNodeValue($xpath, '/rss/channel/pubDate/text()');
265
266                         $author["app"] = XML::getFirstNodeValue($xpath, '/rss/channel/generator/text()');
267
268                         $entries = $xpath->query('/rss/channel/item');
269                 }
270
271                 if (!$dryRun) {
272                         $author["author-link"] = $contact["url"];
273
274                         if (empty($author["author-name"])) {
275                                 $author["author-name"] = $contact["name"];
276                         }
277
278                         $author["author-avatar"] = $contact["thumb"];
279
280                         $author["owner-link"] = $contact["url"];
281                         $author["owner-name"] = $contact["name"];
282                         $author["owner-avatar"] = $contact["thumb"];
283                 }
284
285                 $header = [];
286                 $header["uid"] = $importer["uid"] ?? 0;
287                 $header["network"] = Protocol::FEED;
288                 $header["wall"] = 0;
289                 $header["origin"] = 0;
290                 $header["gravity"] = GRAVITY_PARENT;
291                 $header["private"] = Item::PUBLIC;
292                 $header["verb"] = Activity::POST;
293                 $header["object-type"] = Activity\ObjectType::NOTE;
294
295                 $header["contact-id"] = $contact["id"] ?? 0;
296
297                 if (!is_object($entries)) {
298                         Logger::info("There are no entries in this feed.");
299                         return [];
300                 }
301
302                 $items = [];
303                 $creation_dates = [];
304
305                 // Limit the number of items that are about to be fetched
306                 $total_items = ($entries->length - 1);
307                 $max_items = DI::config()->get('system', 'max_feed_items');
308                 if (($max_items > 0) && ($total_items > $max_items)) {
309                         $total_items = $max_items;
310                 }
311
312                 // Importing older entries first
313                 for ($i = $total_items; $i >= 0; --$i) {
314                         $entry = $entries->item($i);
315
316                         $item = array_merge($header, $author);
317
318                         $alternate = XML::getFirstAttributes($xpath, "atom:link[@rel='alternate']", $entry);
319                         if (!is_object($alternate)) {
320                                 $alternate = XML::getFirstAttributes($xpath, "atom:link", $entry);
321                         }
322                         if (is_object($alternate)) {
323                                 foreach ($alternate AS $attribute) {
324                                         if ($attribute->name == "href") {
325                                                 $item["plink"] = $attribute->textContent;
326                                         }
327                                 }
328                         }
329
330                         if (empty($item["plink"])) {
331                                 $item["plink"] = XML::getFirstNodeValue($xpath, 'link/text()', $entry);
332                         }
333
334                         if (empty($item["plink"])) {
335                                 $item["plink"] = XML::getFirstNodeValue($xpath, 'rss:link/text()', $entry);
336                         }
337
338                         $item["uri"] = XML::getFirstNodeValue($xpath, 'atom:id/text()', $entry);
339
340                         if (empty($item["uri"])) {
341                                 $item["uri"] = XML::getFirstNodeValue($xpath, 'guid/text()', $entry);
342                         }
343
344                         if (empty($item["uri"])) {
345                                 $item["uri"] = $item["plink"];
346                         }
347
348                         // Add the base path if missing
349                         $item["uri"] = Network::addBasePath($item["uri"], $basepath);
350                         $item["plink"] = Network::addBasePath($item["plink"], $basepath);
351
352                         $orig_plink = $item["plink"];
353
354                         $item["plink"] = DI::httpRequest()->finalUrl($item["plink"]);
355
356                         $item["parent-uri"] = $item["uri"];
357
358                         $item["title"] = XML::getFirstNodeValue($xpath, 'atom:title/text()', $entry);
359
360                         if (empty($item["title"])) {
361                                 $item["title"] = XML::getFirstNodeValue($xpath, 'title/text()', $entry);
362                         }
363                         if (empty($item["title"])) {
364                                 $item["title"] = XML::getFirstNodeValue($xpath, 'rss:title/text()', $entry);
365                         }
366
367                         $item["title"] = html_entity_decode($item["title"], ENT_QUOTES, 'UTF-8');
368
369                         $published = XML::getFirstNodeValue($xpath, 'atom:published/text()', $entry);
370
371                         if (empty($published)) {
372                                 $published = XML::getFirstNodeValue($xpath, 'pubDate/text()', $entry);
373                         }
374
375                         if (empty($published)) {
376                                 $published = XML::getFirstNodeValue($xpath, 'dc:date/text()', $entry);
377                         }
378
379                         $updated = XML::getFirstNodeValue($xpath, 'atom:updated/text()', $entry);
380
381                         if (empty($updated) && !empty($published)) {
382                                 $updated = $published;
383                         }
384
385                         if (empty($published) && !empty($updated)) {
386                                 $published = $updated;
387                         }
388
389                         if ($published != "") {
390                                 $item["created"] = $published;
391                         }
392
393                         if ($updated != "") {
394                                 $item["edited"] = $updated;
395                         }
396
397                         if (!$dryRun) {
398                                 $condition = ["`uid` = ? AND `uri` = ? AND `network` IN (?, ?)",
399                                         $importer["uid"], $item["uri"], Protocol::FEED, Protocol::DFRN];
400                                 $previous = Item::selectFirst(['id', 'created'], $condition);
401                                 if (DBA::isResult($previous)) {
402                                         // Use the creation date when the post had been stored. It can happen this date changes in the feed.
403                                         $creation_dates[] = $previous['created'];
404                                         Logger::info("Item with uri " . $item["uri"] . " for user " . $importer["uid"] . " already existed under id " . $previous["id"]);
405                                         continue;
406                                 }
407                                 $creation_dates[] = DateTimeFormat::utc($item['created']);
408                         }
409
410                         $creator = XML::getFirstNodeValue($xpath, 'author/text()', $entry);
411
412                         if (empty($creator)) {
413                                 $creator = XML::getFirstNodeValue($xpath, 'atom:author/atom:name/text()', $entry);
414                         }
415
416                         if (empty($creator)) {
417                                 $creator = XML::getFirstNodeValue($xpath, 'dc:creator/text()', $entry);
418                         }
419
420                         if ($creator != "") {
421                                 $item["author-name"] = $creator;
422                         }
423
424                         $creator = XML::getFirstNodeValue($xpath, 'dc:creator/text()', $entry);
425
426                         if ($creator != "") {
427                                 $item["author-name"] = $creator;
428                         }
429
430                         /// @TODO ?
431                         // <category>Ausland</category>
432                         // <media:thumbnail width="152" height="76" url="http://www.taz.de/picture/667875/192/14388767.jpg"/>
433
434                         $attachments = [];
435
436                         $enclosures = $xpath->query("enclosure|atom:link[@rel='enclosure']", $entry);
437                         foreach ($enclosures AS $enclosure) {
438                                 $href = "";
439                                 $length = "";
440                                 $type = "";
441
442                                 foreach ($enclosure->attributes AS $attribute) {
443                                         if (in_array($attribute->name, ["url", "href"])) {
444                                                 $href = $attribute->textContent;
445                                         } elseif ($attribute->name == "length") {
446                                                 $length = $attribute->textContent;
447                                         } elseif ($attribute->name == "type") {
448                                                 $type = $attribute->textContent;
449                                         }
450                                 }
451
452                                 if (!empty($item["attach"])) {
453                                         $item["attach"] .= ',';
454                                 } else {
455                                         $item["attach"] = '';
456                                 }
457
458                                 $attachments[] = ["link" => $href, "type" => $type, "length" => $length];
459
460                                 $item["attach"] .= '[attach]href="' . $href . '" length="' . $length . '" type="' . $type . '"[/attach]';
461                         }
462
463                         $taglist = [];
464                         $categories = $xpath->query("category", $entry);
465                         foreach ($categories AS $category) {
466                                 $taglist[] = $category->nodeValue;
467                         }
468
469                         $body = trim(XML::getFirstNodeValue($xpath, 'atom:content/text()', $entry));
470
471                         if (empty($body)) {
472                                 $body = trim(XML::getFirstNodeValue($xpath, 'content:encoded/text()', $entry));
473                         }
474
475                         $summary = trim(XML::getFirstNodeValue($xpath, 'atom:summary/text()', $entry));
476
477                         if (empty($summary)) {
478                                 $summary = trim(XML::getFirstNodeValue($xpath, 'description/text()', $entry));
479                         }
480
481                         if (empty($body)) {
482                                 $body = $summary;
483                                 $summary = '';
484                         }
485
486                         if ($body == $summary) {
487                                 $summary = '';
488                         }
489
490                         // remove the content of the title if it is identically to the body
491                         // This helps with auto generated titles e.g. from tumblr
492                         if (self::titleIsBody($item["title"], $body)) {
493                                 $item["title"] = "";
494                         }
495                         $item["body"] = HTML::toBBCode($body, $basepath);
496
497                         if (($item["body"] == '') && ($item["title"] != '')) {
498                                 $item["body"] = $item["title"];
499                                 $item["title"] = '';
500                         }
501
502                         if ($dryRun) {
503                                 $items[] = $item;
504                                 break;
505                         } elseif (!Item::isValid($item)) {
506                                 Logger::info('Feed is invalid', ['created' => $item['created'], 'uid' => $item['uid'], 'uri' => $item['uri']]);
507                                 continue;
508                         }
509
510                         $preview = '';
511                         if (!empty($contact["fetch_further_information"]) && ($contact["fetch_further_information"] < 3)) {
512                                 // Handle enclosures and treat them as preview picture
513                                 foreach ($attachments AS $attachment) {
514                                         if ($attachment["type"] == "image/jpeg") {
515                                                 $preview = $attachment["link"];
516                                         }
517                                 }
518
519                                 // Remove a possible link to the item itself
520                                 $item["body"] = str_replace($item["plink"], '', $item["body"]);
521                                 $item["body"] = trim(preg_replace('/\[url\=\](\w+.*?)\[\/url\]/i', '', $item["body"]));
522
523                                 // Replace the content when the title is longer than the body
524                                 $replace = (strlen($item["title"]) > strlen($item["body"]));
525
526                                 // Replace it, when there is an image in the body
527                                 if (strstr($item["body"], '[/img]')) {
528                                         $replace = true;
529                                 }
530
531                                 // Replace it, when there is a link in the body
532                                 if (strstr($item["body"], '[/url]')) {
533                                         $replace = true;
534                                 }
535
536                                 if ($replace) {
537                                         $item["body"] = trim($item["title"]);
538                                 }
539
540                                 $data = ParseUrl::getSiteinfoCached($item['plink'], true);
541                                 if (!empty($data['text']) && !empty($data['title']) && (mb_strlen($item['body']) < mb_strlen($data['text']))) {
542                                         // When the fetched page info text is longer than the body, we do try to enhance the body
543                                         if (!empty($item['body']) && (strpos($data['title'], $item['body']) === false) && (strpos($data['text'], $item['body']) === false)) {
544                                                 // The body is not part of the fetched page info title or page info text. So we add the text to the body
545                                                 $item['body'] .= "\n\n" . $data['text'];
546                                         } else {
547                                                 // Else we replace the body with the page info text
548                                                 $item['body'] = $data['text'];
549                                         }
550                                 }
551
552                                 // We always strip the title since it will be added in the page information
553                                 $item["title"] = "";
554                                 $item["body"] = $item["body"] . "\n" . PageInfo::getFooterFromUrl($item["plink"], false, $preview, ($contact["fetch_further_information"] == 2), $contact["ffi_keyword_denylist"] ?? '');
555                                 $taglist = $contact["fetch_further_information"] == 2 ? PageInfo::getTagsFromUrl($item["plink"], $preview, $contact["ffi_keyword_denylist"] ?? '') : [];
556                                 $item["object-type"] = Activity\ObjectType::BOOKMARK;
557                                 unset($item["attach"]);
558                         } else {
559                                 if (!empty($summary)) {
560                                         $item["body"] = '[abstract]' . HTML::toBBCode($summary, $basepath) . "[/abstract]\n" . $item["body"];
561                                 }
562
563                                 if (!empty($contact["fetch_further_information"]) && ($contact["fetch_further_information"] == 3)) {
564                                         if (empty($taglist)) {
565                                                 $taglist = PageInfo::getTagsFromUrl($item["plink"], $preview, $contact["ffi_keyword_denylist"] ?? '');
566                                         }
567                                         $item["body"] .= "\n" . self::tagToString($taglist);
568                                 } else {
569                                         $taglist = [];
570                                 }
571
572                                 // Add the link to the original feed entry if not present in feed
573                                 if (($item['plink'] != '') && !strstr($item["body"], $item['plink'])) {
574                                         $item["body"] .= "[hr][url]" . $item['plink'] . "[/url]";
575                                 }
576                         }
577
578                         Logger::info('Stored feed', ['item' => $item]);
579
580                         $notify = Item::isRemoteSelf($contact, $item);
581
582                         // Distributed items should have a well formatted URI.
583                         // Additionally we have to avoid conflicts with identical URI between imported feeds and these items.
584                         if ($notify) {
585                                 $item['guid'] = Item::guidFromUri($orig_plink, DI::baseUrl()->getHostname());
586                                 unset($item['uri']);
587                                 unset($item['parent-uri']);
588
589                                 // Set the delivery priority for "remote self" to "medium"
590                                 $notify = PRIORITY_MEDIUM;
591                         }
592
593                         $id = Item::insert($item, $notify);
594
595                         Logger::info("Feed for contact " . $contact["url"] . " stored under id " . $id);
596
597                         if (!empty($id) && !empty($taglist)) {
598                                 $feeditem = Item::selectFirst(['uri-id'], ['id' => $id]);
599                                 foreach ($taglist as $tag) {
600                                         Tag::store($feeditem['uri-id'], Tag::HASHTAG, $tag);
601                                 }
602                         }
603                 }
604
605                 if (!$dryRun && DI::config()->get('system', 'adjust_poll_frequency')) {
606                         self::adjustPollFrequency($contact, $creation_dates);
607                 }
608
609                 return ["header" => $author, "items" => $items];
610         }
611
612         /**
613          * Automatically adjust the poll frequency according to the post frequency
614          *
615          * @param array $contact
616          * @param array $creation_dates
617          * @return void
618          */
619         private static function adjustPollFrequency(array $contact, array $creation_dates)
620         {
621                 if ($contact['network'] != Protocol::FEED) {
622                         Logger::info('Contact is no feed, skip.', ['id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url'], 'network' => $contact['network']]);
623                         return;
624                 }
625
626                 if (!empty($creation_dates)) {
627                         // Count the post frequency and the earliest and latest post date
628                         $frequency = [];
629                         $oldest = time();
630                         $newest = 0;
631                         $oldest_date = $newest_date = '';
632
633                         foreach ($creation_dates as $date) {
634                                 $timestamp = strtotime($date);
635                                 $day = intdiv($timestamp, 86400);
636                                 $hour = $timestamp % 86400;
637
638                                 // Only have a look at values from the last seven days
639                                 if (((time() / 86400) - $day) < 7) {
640                                         if (empty($frequency[$day])) {
641                                                 $frequency[$day] = ['count' => 1, 'low' => $hour, 'high' => $hour];
642                                         } else {
643                                                 ++$frequency[$day]['count'];
644                                                 if ($frequency[$day]['low'] > $hour) {
645                                                         $frequency[$day]['low'] = $hour;
646                                                 }
647                                                 if ($frequency[$day]['high'] < $hour) {
648                                                         $frequency[$day]['high'] = $hour;
649                                                 }
650                                         }
651                                 }
652                                 if ($oldest > $day) {
653                                         $oldest = $day;
654                                         $oldest_date = $date;
655                                 }
656                         
657                                 if ($newest < $day) {
658                                         $newest = $day;
659                                         $newest_date = $date;
660                                 }
661                         }
662
663                         if (count($creation_dates) == 1) {
664                                 Logger::info('Feed had posted a single time, switching to daily polling', ['newest' => $newest_date, 'id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url']]);
665                                 $priority = 8; // Poll once a day
666                         }
667
668                         if (empty($priority) && (((time() / 86400) - $newest) > 730)) {
669                                 Logger::info('Feed had not posted for two years, switching to monthly polling', ['newest' => $newest_date, 'id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url']]);
670                                 $priority = 10; // Poll every month
671                         }
672
673                         if (empty($priority) && (((time() / 86400) - $newest) > 365)) {
674                                 Logger::info('Feed had not posted for a year, switching to weekly polling', ['newest' => $newest_date, 'id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url']]);
675                                 $priority = 9; // Poll every week
676                         }
677
678                         if (empty($priority) && empty($frequency)) {
679                                 Logger::info('Feed had not posted for at least a week, switching to daily polling', ['newest' => $newest_date, 'id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url']]);
680                                 $priority = 8; // Poll once a day
681                         }
682
683                         if (empty($priority)) {
684                                 // Calculate the highest "posts per day" value
685                                 $max = 0;
686                                 foreach ($frequency as $entry) {
687                                         if (($entry['count'] == 1) || ($entry['high'] == $entry['low'])) {
688                                                 continue;
689                                         }
690
691                                         // We take the earliest and latest post day and interpolate the number of post per day
692                                         // that would had been created with this post frequency
693
694                                         // Assume at least four hours between oldest and newest post per day - should be okay for news outlets
695                                         $duration = max($entry['high'] - $entry['low'], 14400);
696                                         $ppd = (86400 / $duration) * $entry['count'];
697                                         if ($ppd > $max) {
698                                                 $max = $ppd;
699                                         }
700                                 }
701                                 if ($max > 48) {
702                                         $priority = 1; // Poll every quarter hour
703                                 } elseif ($max > 24) {
704                                         $priority = 2; // Poll half an hour
705                                 } elseif ($max > 12) {
706                                         $priority = 3; // Poll hourly
707                                 } elseif ($max > 8) {
708                                         $priority = 4; // Poll every two hours
709                                 } elseif ($max > 4) {
710                                         $priority = 5; // Poll every three hours
711                                 } elseif ($max > 2) {
712                                         $priority = 6; // Poll every six hours
713                                 } else {
714                                         $priority = 7; // Poll twice a day
715                                 }
716                                 Logger::info('Calculated priority by the posts per day', ['priority' => $priority, 'max' => round($max, 2), 'id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url']]);
717                         }
718                 } else {
719                         Logger::info('No posts, switching to daily polling', ['id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url']]);
720                         $priority = 8; // Poll once a day
721                 }
722
723                 if ($contact['rating'] != $priority) {
724                         Logger::notice('Adjusting priority', ['old' => $contact['rating'], 'new' => $priority, 'id' => $contact['id'], 'uid' => $contact['uid'], 'url' => $contact['url']]);
725                         DBA::update('contact', ['rating' => $priority], ['id' => $contact['id']]);
726                 }
727         }
728
729         /**
730          * Convert a tag array to a tag string
731          *
732          * @param array $tags
733          * @return string tag string
734          */
735         private static function tagToString(array $tags)
736         {
737                 $tagstr = '';
738
739                 foreach ($tags as $tag) {
740                         if ($tagstr != "") {
741                                 $tagstr .= ", ";
742                         }
743         
744                         $tagstr .= "#[url=" . DI::baseUrl() . "/search?tag=" . urlencode($tag) . "]" . $tag . "[/url]";
745                 }
746
747                 return $tagstr;
748         }
749
750         private static function titleIsBody($title, $body)
751         {
752                 $title = strip_tags($title);
753                 $title = trim($title);
754                 $title = html_entity_decode($title, ENT_QUOTES, 'UTF-8');
755                 $title = str_replace(["\n", "\r", "\t", " "], ["", "", "", ""], $title);
756
757                 $body = strip_tags($body);
758                 $body = trim($body);
759                 $body = html_entity_decode($body, ENT_QUOTES, 'UTF-8');
760                 $body = str_replace(["\n", "\r", "\t", " "], ["", "", "", ""], $body);
761
762                 if (strlen($title) < strlen($body)) {
763                         $body = substr($body, 0, strlen($title));
764                 }
765
766                 if (($title != $body) && (substr($title, -3) == "...")) {
767                         $pos = strrpos($title, "...");
768                         if ($pos > 0) {
769                                 $title = substr($title, 0, $pos);
770                                 $body = substr($body, 0, $pos);
771                         }
772                 }
773                 return ($title == $body);
774         }
775
776         /**
777          * Creates the Atom feed for a given nickname
778          *
779          * Supported filters:
780          * - activity (default): all the public posts
781          * - posts: all the public top-level posts
782          * - comments: all the public replies
783          *
784          * Updates the provided last_update parameter if the result comes from the
785          * cache or it is empty
786          *
787          * @param string  $owner_nick  Nickname of the feed owner
788          * @param string  $last_update Date of the last update
789          * @param integer $max_items   Number of maximum items to fetch
790          * @param string  $filter      Feed items filter (activity, posts or comments)
791          * @param boolean $nocache     Wether to bypass caching
792          *
793          * @return string Atom feed
794          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
795          * @throws \ImagickException
796          */
797         public static function atom($owner_nick, $last_update, $max_items = 300, $filter = 'activity', $nocache = false)
798         {
799                 $stamp = microtime(true);
800
801                 $owner = User::getOwnerDataByNick($owner_nick);
802                 if (!$owner) {
803                         return;
804                 }
805
806                 $cachekey = "feed:feed:" . $owner_nick . ":" . $filter . ":" . $last_update;
807
808                 $previous_created = $last_update;
809
810                 // Don't cache when the last item was posted less then 15 minutes ago (Cache duration)
811                 if ((time() - strtotime($owner['last-item'])) < 15*60) {
812                         $result = DI::cache()->get($cachekey);
813                         if (!$nocache && !is_null($result)) {
814                                 Logger::info('Cached feed duration', ['seconds' => number_format(microtime(true) - $stamp, 3), 'nick' => $owner_nick, 'filter' => $filter, 'created' => $previous_created]);
815                                 return $result['feed'];
816                         }
817                 }
818
819                 $check_date = empty($last_update) ? '' : DateTimeFormat::utc($last_update);
820                 $authorid = Contact::getIdForURL($owner["url"]);
821
822                 $condition = ["`uid` = ? AND `received` > ? AND NOT `deleted` AND `gravity` IN (?, ?)
823                         AND `private` != ? AND `visible` AND `wall` AND `parent-network` IN (?, ?, ?, ?)",
824                         $owner["uid"], $check_date, GRAVITY_PARENT, GRAVITY_COMMENT,
825                         Item::PRIVATE, Protocol::ACTIVITYPUB,
826                         Protocol::OSTATUS, Protocol::DFRN, Protocol::DIASPORA];
827
828                 if ($filter === 'comments') {
829                         $condition[0] .= " AND `object-type` = ? ";
830                         $condition[] = Activity\ObjectType::COMMENT;
831                 }
832
833                 if ($owner['account-type'] != User::ACCOUNT_TYPE_COMMUNITY) {
834                         $condition[0] .= " AND `contact-id` = ? AND `author-id` = ?";
835                         $condition[] = $owner["id"];
836                         $condition[] = $authorid;
837                 }
838
839                 $params = ['order' => ['received' => true], 'limit' => $max_items];
840
841                 if ($filter === 'posts') {
842                         $ret = Item::selectThread([], $condition, $params);
843                 } else {
844                         $ret = Item::select([], $condition, $params);
845                 }
846
847                 $items = Item::inArray($ret);
848
849                 $doc = new DOMDocument('1.0', 'utf-8');
850                 $doc->formatOutput = true;
851
852                 $root = self::addHeader($doc, $owner, $filter);
853
854                 foreach ($items as $item) {
855                         $entry = self::entry($doc, $item, $owner);
856                         $root->appendChild($entry);
857
858                         if ($last_update < $item['created']) {
859                                 $last_update = $item['created'];
860                         }
861                 }
862
863                 $feeddata = trim($doc->saveXML());
864
865                 $msg = ['feed' => $feeddata, 'last_update' => $last_update];
866                 DI::cache()->set($cachekey, $msg, Duration::QUARTER_HOUR);
867
868                 Logger::info('Feed duration', ['seconds' => number_format(microtime(true) - $stamp, 3), 'nick' => $owner_nick, 'filter' => $filter, 'created' => $previous_created]);
869
870                 return $feeddata;
871         }
872
873         /**
874          * Adds the header elements to the XML document
875          *
876          * @param DOMDocument $doc       XML document
877          * @param array       $owner     Contact data of the poster
878          * @param string      $filter    The related feed filter (activity, posts or comments)
879          *
880          * @return object header root element
881          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
882          */
883         private static function addHeader(DOMDocument $doc, array $owner, $filter)
884         {
885                 $root = $doc->createElementNS(ActivityNamespace::ATOM1, 'feed');
886                 $doc->appendChild($root);
887
888                 $title = '';
889                 $selfUri = '/feed/' . $owner["nick"] . '/';
890                 switch ($filter) {
891                         case 'activity':
892                                 $title = DI::l10n()->t('%s\'s timeline', $owner['name']);
893                                 $selfUri .= $filter;
894                                 break;
895                         case 'posts':
896                                 $title = DI::l10n()->t('%s\'s posts', $owner['name']);
897                                 break;
898                         case 'comments':
899                                 $title = DI::l10n()->t('%s\'s comments', $owner['name']);
900                                 $selfUri .= $filter;
901                                 break;
902                 }
903
904                 $attributes = ["uri" => "https://friendi.ca", "version" => FRIENDICA_VERSION . "-" . DB_UPDATE_VERSION];
905                 XML::addElement($doc, $root, "generator", FRIENDICA_PLATFORM, $attributes);
906                 XML::addElement($doc, $root, "id", DI::baseUrl() . "/profile/" . $owner["nick"]);
907                 XML::addElement($doc, $root, "title", $title);
908                 XML::addElement($doc, $root, "subtitle", sprintf("Updates from %s on %s", $owner["name"], DI::config()->get('config', 'sitename')));
909                 XML::addElement($doc, $root, "logo", $owner["photo"]);
910                 XML::addElement($doc, $root, "updated", DateTimeFormat::utcNow(DateTimeFormat::ATOM));
911
912                 $author = self::addAuthor($doc, $owner);
913                 $root->appendChild($author);
914
915                 $attributes = ["href" => $owner["url"], "rel" => "alternate", "type" => "text/html"];
916                 XML::addElement($doc, $root, "link", "", $attributes);
917
918                 OStatus::hublinks($doc, $root, $owner["nick"]);
919
920                 $attributes = ["href" => DI::baseUrl() . $selfUri, "rel" => "self", "type" => "application/atom+xml"];
921                 XML::addElement($doc, $root, "link", "", $attributes);
922
923                 return $root;
924         }
925
926         /**
927          * Adds the author element to the XML document
928          *
929          * @param DOMDocument $doc          XML document
930          * @param array       $owner        Contact data of the poster
931          *
932          * @return \DOMElement author element
933          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
934          */
935         private static function addAuthor(DOMDocument $doc, array $owner)
936         {
937                 $author = $doc->createElement("author");
938                 XML::addElement($doc, $author, "uri", $owner["url"]);
939                 XML::addElement($doc, $author, "name", $owner["nick"]);
940                 XML::addElement($doc, $author, "email", $owner["addr"]);
941
942                 return $author;
943         }
944
945         /**
946          * Adds an entry element to the XML document
947          *
948          * @param DOMDocument $doc       XML document
949          * @param array       $item      Data of the item that is to be posted
950          * @param array       $owner     Contact data of the poster
951          * @param bool        $toplevel  optional default false
952          *
953          * @return \DOMElement Entry element
954          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
955          * @throws \ImagickException
956          */
957         private static function entry(DOMDocument $doc, array $item, array $owner)
958         {
959                 $xml = null;
960
961                 $repeated_guid = OStatus::getResharedGuid($item);
962                 if ($repeated_guid != "") {
963                         $xml = self::reshareEntry($doc, $item, $owner, $repeated_guid);
964                 }
965
966                 if ($xml) {
967                         return $xml;
968                 }
969
970                 return self::noteEntry($doc, $item, $owner);
971         }
972
973                 /**
974          * Adds an entry element with reshared content
975          *
976          * @param DOMDocument $doc           XML document
977          * @param array       $item          Data of the item that is to be posted
978          * @param array       $owner         Contact data of the poster
979          * @param string      $repeated_guid guid
980          * @param bool        $toplevel      Is it for en entry element (false) or a feed entry (true)?
981          *
982          * @return bool Entry element
983          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
984          * @throws \ImagickException
985          */
986         private static function reshareEntry(DOMDocument $doc, array $item, array $owner, $repeated_guid)
987         {
988                 if (($item['gravity'] != GRAVITY_PARENT) && (Strings::normaliseLink($item["author-link"]) != Strings::normaliseLink($owner["url"]))) {
989                         Logger::info('Feed entry author does not match feed owner', ['owner' => $owner["url"], 'author' => $item["author-link"]]);
990                 }
991
992                 $entry = OStatus::entryHeader($doc, $owner, $item, false);
993
994                 $condition = ['uid' => $owner["uid"], 'guid' => $repeated_guid, 'private' => [Item::PUBLIC, Item::UNLISTED],
995                         'network' => Protocol::FEDERATED];
996                 $repeated_item = Item::selectFirst([], $condition);
997                 if (!DBA::isResult($repeated_item)) {
998                         return false;
999                 }
1000
1001                 self::entryContent($doc, $entry, $item, self::getTitle($repeated_item), Activity::SHARE, false);
1002
1003                 self::entryFooter($doc, $entry, $item, $owner);
1004
1005                 return $entry;
1006         }
1007
1008         /**
1009          * Adds a regular entry element
1010          *
1011          * @param DOMDocument $doc       XML document
1012          * @param array       $item      Data of the item that is to be posted
1013          * @param array       $owner     Contact data of the poster
1014          * @param bool        $toplevel  Is it for en entry element (false) or a feed entry (true)?
1015          *
1016          * @return \DOMElement Entry element
1017          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1018          * @throws \ImagickException
1019          */
1020         private static function noteEntry(DOMDocument $doc, array $item, array $owner)
1021         {
1022                 if (($item['gravity'] != GRAVITY_PARENT) && (Strings::normaliseLink($item["author-link"]) != Strings::normaliseLink($owner["url"]))) {
1023                         Logger::info('Feed entry author does not match feed owner', ['owner' => $owner["url"], 'author' => $item["author-link"]]);
1024                 }
1025
1026                 $entry = OStatus::entryHeader($doc, $owner, $item, false);
1027
1028                 self::entryContent($doc, $entry, $item, self::getTitle($item), '', true);
1029
1030                 self::entryFooter($doc, $entry, $item, $owner);
1031
1032                 return $entry;
1033         }
1034
1035         /**
1036          * Adds elements to the XML document
1037          *
1038          * @param DOMDocument $doc       XML document
1039          * @param \DOMElement $entry     Entry element where the content is added
1040          * @param array       $item      Data of the item that is to be posted
1041          * @param array       $owner     Contact data of the poster
1042          * @param string      $title     Title for the post
1043          * @param string      $verb      The activity verb
1044          * @param bool        $complete  Add the "status_net" element?
1045          * @param bool        $feed_mode Behave like a regular feed for users if true
1046          * @return void
1047          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1048          */
1049         private static function entryContent(DOMDocument $doc, \DOMElement $entry, array $item, $title, $verb = "", $complete = true)
1050         {
1051                 if ($verb == "") {
1052                         $verb = OStatus::constructVerb($item);
1053                 }
1054
1055                 XML::addElement($doc, $entry, "id", $item["uri"]);
1056                 XML::addElement($doc, $entry, "title", html_entity_decode($title, ENT_QUOTES, 'UTF-8'));
1057
1058                 $body = OStatus::formatPicturePost($item['body']);
1059
1060                 $body = BBCode::convert($body, false, BBCode::OSTATUS);
1061
1062                 XML::addElement($doc, $entry, "content", $body, ["type" => "html"]);
1063
1064                 XML::addElement($doc, $entry, "link", "", ["rel" => "alternate", "type" => "text/html",
1065                                                                 "href" => DI::baseUrl()."/display/".$item["guid"]]
1066                 );
1067
1068                 XML::addElement($doc, $entry, "published", DateTimeFormat::utc($item["created"]."+00:00", DateTimeFormat::ATOM));
1069                 XML::addElement($doc, $entry, "updated", DateTimeFormat::utc($item["edited"]."+00:00", DateTimeFormat::ATOM));
1070         }
1071
1072         /**
1073          * Adds the elements at the foot of an entry to the XML document
1074          *
1075          * @param DOMDocument $doc       XML document
1076          * @param object      $entry     The entry element where the elements are added
1077          * @param array       $item      Data of the item that is to be posted
1078          * @param array       $owner     Contact data of the poster
1079          * @param bool        $complete  default true
1080          * @return void
1081          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
1082          */
1083         private static function entryFooter(DOMDocument $doc, $entry, array $item, array $owner)
1084         {
1085                 $mentioned = [];
1086
1087                 if ($item['gravity'] != GRAVITY_PARENT) {
1088                         $parent = Item::selectFirst(['guid', 'author-link', 'owner-link'], ['id' => $item['parent']]);
1089                         $parent_item = (($item['thr-parent']) ? $item['thr-parent'] : $item['parent-uri']);
1090
1091                         $thrparent = Item::selectFirst(['guid', 'author-link', 'owner-link', 'plink'], ['uid' => $owner["uid"], 'uri' => $parent_item]);
1092
1093                         if (DBA::isResult($thrparent)) {
1094                                 $mentioned[$thrparent["author-link"]] = $thrparent["author-link"];
1095                                 $mentioned[$thrparent["owner-link"]] = $thrparent["owner-link"];
1096                                 $parent_plink = $thrparent["plink"];
1097                         } else {
1098                                 $mentioned[$parent["author-link"]] = $parent["author-link"];
1099                                 $mentioned[$parent["owner-link"]] = $parent["owner-link"];
1100                                 $parent_plink = DI::baseUrl()."/display/".$parent["guid"];
1101                         }
1102
1103                         $attributes = [
1104                                         "ref" => $parent_item,
1105                                         "href" => $parent_plink];
1106                         XML::addElement($doc, $entry, "thr:in-reply-to", "", $attributes);
1107
1108                         $attributes = [
1109                                         "rel" => "related",
1110                                         "href" => $parent_plink];
1111                         XML::addElement($doc, $entry, "link", "", $attributes);
1112                 }
1113
1114                 // uri-id isn't present for follow entry pseudo-items
1115                 $tags = Tag::getByURIId($item['uri-id'] ?? 0);
1116                 foreach ($tags as $tag) {
1117                         $mentioned[$tag['url']] = $tag['url'];
1118                 }
1119
1120                 foreach ($tags as $tag) {
1121                         if ($tag['type'] == Tag::HASHTAG) {
1122                                 XML::addElement($doc, $entry, "category", "", ["term" => $tag['name']]);
1123                         }
1124                 }
1125
1126                 OStatus::getAttachment($doc, $entry, $item);
1127         }
1128
1129         /**
1130          * Fetch or create title for feed entry
1131          *
1132          * @param array $item
1133          * @return string title
1134          */
1135         private static function getTitle(array $item)
1136         {
1137                 if ($item['title'] != '') {
1138                         return BBCode::convert($item['title'], false, BBCode::OSTATUS);
1139                 }
1140
1141                 // Fetch information about the post
1142                 $siteinfo = BBCode::getAttachedData($item["body"]);
1143                 if (isset($siteinfo["title"])) {
1144                         return $siteinfo["title"];
1145                 }
1146
1147                 // If no bookmark is found then take the first line
1148                 // Remove the share element before fetching the first line
1149                 $title = trim(preg_replace("/\[share.*?\](.*?)\[\/share\]/ism","\n$1\n",$item['body']));
1150
1151                 $title = HTML::toPlaintext(BBCode::convert($title, false), 0, true)."\n";
1152                 $pos = strpos($title, "\n");
1153                 $trailer = "";
1154                 if (($pos == 0) || ($pos > 100)) {
1155                         $pos = 100;
1156                         $trailer = "...";
1157                 }
1158
1159                 return substr($title, 0, $pos) . $trailer;
1160         }
1161 }