]> git.mxchange.org Git - friendica.git/blob - include/bbcode.php
Merge pull request #4337 from MrPetovan/task/4265-move-datetimepicker-to-composer
[friendica.git] / include / bbcode.php
1 <?php
2 /**
3  * @file include/bbcode.php
4  */
5 use Friendica\App;
6 use Friendica\Content\Smilies;
7 use Friendica\Content\OEmbed;
8 use Friendica\Content\Text\BBCode;
9 use Friendica\Core\Addon;
10 use Friendica\Core\Cache;
11 use Friendica\Core\L10n;
12 use Friendica\Core\System;
13 use Friendica\Core\Config;
14 use Friendica\Model\Contact;
15 use Friendica\Util\Map;
16
17 require_once 'include/event.php';
18 require_once 'mod/proxy.php';
19
20 function bb_PictureCacheExt($matches) {
21         if (strpos($matches[3], "data:image/") === 0) {
22                 return $matches[0];
23         }
24
25         $matches[3] = proxy_url($matches[3]);
26         return "[img=" . $matches[1] . "x" . $matches[2] . "]" . $matches[3] . "[/img]";
27 }
28
29 function bb_PictureCache($matches) {
30         if (strpos($matches[1], "data:image/") === 0) {
31                 return $matches[0];
32         }
33
34         $matches[1] = proxy_url($matches[1]);
35         return "[img]" . $matches[1] . "[/img]";
36 }
37
38 function bb_map_coords($match) {
39         // the extra space in the following line is intentional
40         return str_replace($match[0], '<div class="map"  >' . Map::byCoordinates(str_replace('/', ' ', $match[1])) . '</div>', $match[0]);
41 }
42 function bb_map_location($match) {
43         // the extra space in the following line is intentional
44         return str_replace($match[0], '<div class="map"  >' . Map::byLocation($match[1]) . '</div>', $match[0]);
45 }
46
47 /**
48  * Processes [attachment] tags
49  *
50  * Note: Can produce a [bookmark] tag in the returned string
51  *
52  * @brief Processes [attachment] tags
53  * @param string $return
54  * @param bool|int $simplehtml
55  * @param bool $tryoembed
56  * @return string
57  */
58 function bb_attachment($return, $simplehtml = false, $tryoembed = true)
59 {
60         $data = BBCode::getAttachmentData($return);
61         if (!$data) {
62                 return $return;
63         }
64
65         if (isset($data["title"])) {
66                 $data["title"] = strip_tags($data["title"]);
67                 $data["title"] = str_replace(["http://", "https://"], "", $data["title"]);
68         }
69
70         if (((strpos($data["text"], "[img=") !== false) || (strpos($data["text"], "[img]") !== false) || Config::get('system', 'always_show_preview')) && ($data["image"] != "")) {
71                 $data["preview"] = $data["image"];
72                 $data["image"] = "";
73         }
74
75         $return = '';
76         if ($simplehtml == 7) {
77                 $return = style_url_for_mastodon($data["url"]);
78         } elseif (($simplehtml != 4) && ($simplehtml != 0)) {
79                 $return = sprintf('<a href="%s" target="_blank">%s</a><br>', $data["url"], $data["title"]);
80         } else {
81                 try {
82                         if ($tryoembed && OEmbed::isAllowedURL($data['url'])) {
83                                 $return = OEmbed::getHTML($data['url'], $data['title']);
84                         } else {
85                                 throw new Exception('OEmbed is disabled for this attachment.');
86                         }
87                 } catch (Exception $e) {
88                         if ($simplehtml != 4) {
89                                 $return = sprintf('<div class="type-%s">', $data["type"]);
90                         }
91
92                         if ($data["image"] != "") {
93                                 $return .= sprintf('<a href="%s" target="_blank"><img src="%s" alt="" title="%s" class="attachment-image" /></a><br />', $data["url"], proxy_url($data["image"]), $data["title"]);
94                         } elseif ($data["preview"] != "") {
95                                 $return .= sprintf('<a href="%s" target="_blank"><img src="%s" alt="" title="%s" class="attachment-preview" /></a><br />', $data["url"], proxy_url($data["preview"]), $data["title"]);
96                         }
97
98                         if (($data["type"] == "photo") && ($data["url"] != "") && ($data["image"] != "")) {
99                                 $return .= sprintf('<a href="%s" target="_blank"><img src="%s" alt="" title="%s" class="attachment-image" /></a>', $data["url"], proxy_url($data["image"]), $data["title"]);
100                         } else {
101                                 $return .= sprintf('<h4><a href="%s">%s</a></h4>', $data['url'], $data['title']);
102                         }
103
104                         if ($data["description"] != "" && $data["description"] != $data["title"]) {
105                                 $return .= sprintf('<blockquote>%s</blockquote>', trim(bbcode($data["description"])));
106                         }
107
108                         if ($data["type"] == "link") {
109                                 $return .= sprintf('<sup><a href="%s">%s</a></sup>', $data['url'], parse_url($data['url'], PHP_URL_HOST));
110                         }
111
112                         if ($simplehtml != 4) {
113                                 $return .= '</div>';
114                         }
115                 }
116         }
117
118         return trim($data["text"] . ' ' . $return . ' ' . $data["after"]);
119 }
120
121 function bb_remove_share_information($Text, $plaintext = false, $nolink = false) {
122
123         $data = BBCode::getAttachmentData($Text);
124
125         if (!$data) {
126                 return $Text;
127         } elseif ($nolink) {
128                 return $data["text"] . $data["after"];
129         }
130
131         $title = htmlentities($data["title"], ENT_QUOTES, 'UTF-8', false);
132         $text = htmlentities($data["text"], ENT_QUOTES, 'UTF-8', false);
133         if ($plaintext || (($title != "") && strstr($text, $title))) {
134                 $data["title"] = $data["url"];
135         } elseif (($text != "") && strstr($title, $text)) {
136                 $data["text"] = $data["title"];
137                 $data["title"] = $data["url"];
138         }
139
140         if (($data["text"] == "") && ($data["title"] != "") && ($data["url"] == "")) {
141                 return $data["title"] . $data["after"];
142         }
143
144         // If the link already is included in the post, don't add it again
145         if (($data["url"] != "") && strpos($data["text"], $data["url"])) {
146                 return $data["text"] . $data["after"];
147         }
148
149         $text = $data["text"];
150
151         if (($data["url"] != "") && ($data["title"] != "")) {
152                 $text .= "\n[url=" . $data["url"] . "]" . $data["title"] . "[/url]";
153         } elseif (($data["url"] != "")) {
154                 $text .= "\n" . $data["url"];
155         }
156
157         return $text . "\n" . $data["after"];
158 }
159
160 function bb_cleanstyle($st) {
161         return "<span style=\"" . cleancss($st[1]) . ";\">" . $st[2] . "</span>";
162 }
163
164 function bb_cleanclass($st) {
165         return "<span class=\"" . cleancss($st[1]) . "\">" . $st[2] . "</span>";
166 }
167
168 function cleancss($input) {
169
170         $cleaned = "";
171
172         $input = strtolower($input);
173
174         for ($i = 0; $i < strlen($input); $i++) {
175                 $char = substr($input, $i, 1);
176
177                 if (($char >= "a") && ($char <= "z")) {
178                         $cleaned .= $char;
179                 }
180
181                 if (!(strpos(" #;:0123456789-_.%", $char) === false)) {
182                         $cleaned .= $char;
183                 }
184         }
185
186         return $cleaned;
187 }
188
189 /**
190  * @brief Converts [url] BBCodes in a format that looks fine on Mastodon. (callback function)
191  * @param array $match Array with the matching values
192  * @return string reformatted link including HTML codes
193  */
194 function bb_style_url($match) {
195         $url = $match[1];
196
197         if (isset($match[2]) && ($match[1] != $match[2])) {
198                 return $match[0];
199         }
200
201         $parts = parse_url($url);
202         if (!isset($parts['scheme'])) {
203                 return $match[0];
204         }
205
206         return style_url_for_mastodon($url);
207 }
208
209 /**
210  * @brief Converts [url] BBCodes in a format that looks fine on Mastodon and GNU Social.
211  * @param string $url URL that is about to be reformatted
212  * @return string reformatted link including HTML codes
213  */
214 function style_url_for_mastodon($url) {
215         $styled_url = $url;
216
217         $parts = parse_url($url);
218         $scheme = $parts['scheme'].'://';
219         $styled_url = str_replace($scheme, '', $styled_url);
220
221         $html = '<a href="%s" class="attachment" rel="nofollow noopener" target="_blank">'.
222                  '<span class="invisible">%s</span>';
223
224         if (strlen($styled_url) > 30) {
225                 $html .= '<span class="ellipsis">%s</span>'.
226                         '<span class="invisible">%s</span></a>';
227
228                 $ellipsis = substr($styled_url, 0, 30);
229                 $rest = substr($styled_url, 30);
230                 return sprintf($html, $url, $scheme, $ellipsis, $rest);
231         } else {
232                 $html .= '%s</a>';
233                 return sprintf($html, $url, $scheme, $styled_url);
234         }
235 }
236
237 function stripcode_br_cb($s) {
238         return '[code]' . str_replace('<br />', '', $s[1]) . '[/code]';
239 }
240
241 /*
242  * [noparse][i]italic[/i][/noparse] turns into
243  * [noparse][ i ]italic[ /i ][/noparse],
244  * to hide them from parser.
245  */
246 function bb_spacefy($st) {
247         $whole_match = $st[0];
248         $captured = $st[1];
249         $spacefied = preg_replace("/\[(.*?)\]/", "[ $1 ]", $captured);
250         $new_str = str_replace($captured, $spacefied, $whole_match);
251         return $new_str;
252 }
253
254 /*
255  * The previously spacefied [noparse][ i ]italic[ /i ][/noparse],
256  * now turns back and the [noparse] tags are trimed
257  * returning [i]italic[/i]
258  */
259 function bb_unspacefy_and_trim($st) {
260         $captured = $st[1];
261         $unspacefied = preg_replace("/\[ (.*?)\ ]/", "[$1]", $captured);
262         return $unspacefied;
263 }
264
265 function bb_find_open_close($s, $open, $close, $occurence = 1) {
266         if ($occurence < 1) {
267                 $occurence = 1;
268         }
269
270         $start_pos = -1;
271         for ($i = 1; $i <= $occurence; $i++) {
272                 if ($start_pos !== false) {
273                         $start_pos = strpos($s, $open, $start_pos + 1);
274                 }
275         }
276
277         if ($start_pos === false) {
278                 return false;
279         }
280
281         $end_pos = strpos($s, $close, $start_pos);
282
283         if ($end_pos === false) {
284                 return false;
285         }
286
287         $res = [ 'start' => $start_pos, 'end' => $end_pos ];
288
289         return $res;
290 }
291
292 function get_bb_tag_pos($s, $name, $occurence = 1) {
293         if ($occurence < 1) {
294                 $occurence = 1;
295         }
296
297         $start_open = -1;
298         for ($i = 1; $i <= $occurence; $i++) {
299                 if ($start_open !== false) {
300                         $start_open = strpos($s, '[' . $name, $start_open + 1); // allow [name= type tags
301                 }
302         }
303
304         if ($start_open === false) {
305                 return false;
306         }
307
308         $start_equal = strpos($s, '=', $start_open);
309         $start_close = strpos($s, ']', $start_open);
310
311         if ($start_close === false) {
312                 return false;
313         }
314
315         $start_close++;
316
317         $end_open = strpos($s, '[/' . $name . ']', $start_close);
318
319         if ($end_open === false) {
320                 return false;
321         }
322
323         $res = [
324                 'start' => [
325                         'open'  => $start_open,
326                         'close' => $start_close
327                 ],
328                 'end'   => [
329                         'open'  => $end_open,
330                         'close' => $end_open + strlen('[/' . $name . ']')
331                 ],
332         ];
333
334         if ($start_equal !== false) {
335                 $res['start']['equal'] = $start_equal + 1;
336         }
337
338         return $res;
339 }
340
341 function bb_tag_preg_replace($pattern, $replace, $name, $s) {
342
343         $string = $s;
344
345         $occurence = 1;
346         $pos = get_bb_tag_pos($string, $name, $occurence);
347         while ($pos !== false && $occurence < 1000) {
348                 $start = substr($string, 0, $pos['start']['open']);
349                 $subject = substr($string, $pos['start']['open'], $pos['end']['close'] - $pos['start']['open']);
350                 $end = substr($string, $pos['end']['close']);
351                 if ($end === false) {
352                         $end = '';
353                 }
354
355                 $subject = preg_replace($pattern, $replace, $subject);
356                 $string = $start . $subject . $end;
357
358                 $occurence++;
359                 $pos = get_bb_tag_pos($string, $name, $occurence);
360         }
361
362         return $string;
363 }
364
365 function bb_extract_images($body) {
366
367         $saved_image = [];
368         $orig_body = $body;
369         $new_body = '';
370
371         $cnt = 0;
372         $img_start = strpos($orig_body, '[img');
373         $img_st_close = ($img_start !== false ? strpos(substr($orig_body, $img_start), ']') : false);
374         $img_end = ($img_start !== false ? strpos(substr($orig_body, $img_start), '[/img]') : false);
375         while (($img_st_close !== false) && ($img_end !== false)) {
376
377                 $img_st_close++; // make it point to AFTER the closing bracket
378                 $img_end += $img_start;
379
380                 if (! strcmp(substr($orig_body, $img_start + $img_st_close, 5), 'data:')) {
381                         // This is an embedded image
382
383                         $saved_image[$cnt] = substr($orig_body, $img_start + $img_st_close, $img_end - ($img_start + $img_st_close));
384                         $new_body = $new_body . substr($orig_body, 0, $img_start) . '[$#saved_image' . $cnt . '#$]';
385
386                         $cnt++;
387                 } else {
388                         $new_body = $new_body . substr($orig_body, 0, $img_end + strlen('[/img]'));
389                 }
390
391                 $orig_body = substr($orig_body, $img_end + strlen('[/img]'));
392
393                 if ($orig_body === false) {
394                         // in case the body ends on a closing image tag
395                         $orig_body = '';
396                 }
397
398                 $img_start = strpos($orig_body, '[img');
399                 $img_st_close = ($img_start !== false ? strpos(substr($orig_body, $img_start), ']') : false);
400                 $img_end = ($img_start !== false ? strpos(substr($orig_body, $img_start), '[/img]') : false);
401         }
402
403         $new_body = $new_body . $orig_body;
404
405         return ['body' => $new_body, 'images' => $saved_image];
406 }
407
408 function bb_replace_images($body, $images) {
409
410         $newbody = $body;
411
412         $cnt = 0;
413         foreach ($images as $image) {
414                 // We're depending on the property of 'foreach' (specified on the PHP website) that
415                 // it loops over the array starting from the first element and going sequentially
416                 // to the last element
417                 $newbody = str_replace('[$#saved_image' . $cnt . '#$]', '<img src="' . proxy_url($image) .'" alt="' . L10n::t('Image/photo') . '" />', $newbody);
418                 $cnt++;
419         }
420
421         return $newbody;
422 }
423
424 /**
425  * Processes [share] tags
426  *
427  * Note: Can produce a [bookmark] tag in the output
428  *
429  * @brief Processes [share] tags
430  * @param array    $share      preg_match_callback result array
431  * @param bool|int $simplehtml
432  * @return string
433  */
434 function bb_ShareAttributes($share, $simplehtml)
435 {
436         $attributes = $share[2];
437
438         $author = "";
439         preg_match("/author='(.*?)'/ism", $attributes, $matches);
440         if (x($matches, 1)) {
441                 $author = html_entity_decode($matches[1], ENT_QUOTES, 'UTF-8');
442         }
443
444         preg_match('/author="(.*?)"/ism', $attributes, $matches);
445         if (x($matches, 1)) {
446                 $author = $matches[1];
447         }
448
449         $profile = "";
450         preg_match("/profile='(.*?)'/ism", $attributes, $matches);
451         if (x($matches, 1)) {
452                 $profile = $matches[1];
453         }
454
455         preg_match('/profile="(.*?)"/ism', $attributes, $matches);
456         if (x($matches, 1)) {
457                 $profile = $matches[1];
458         }
459
460         $avatar = "";
461         preg_match("/avatar='(.*?)'/ism", $attributes, $matches);
462         if (x($matches, 1)) {
463                 $avatar = $matches[1];
464         }
465
466         preg_match('/avatar="(.*?)"/ism', $attributes, $matches);
467         if (x($matches, 1)) {
468                 $avatar = $matches[1];
469         }
470
471         $link = "";
472         preg_match("/link='(.*?)'/ism", $attributes, $matches);
473         if (x($matches, 1)) {
474                 $link = $matches[1];
475         }
476
477         preg_match('/link="(.*?)"/ism', $attributes, $matches);
478         if (x($matches, 1)) {
479                 $link = $matches[1];
480         }
481
482         $posted = "";
483
484         preg_match("/posted='(.*?)'/ism", $attributes, $matches);
485         if (x($matches, 1)) {
486                 $posted = $matches[1];
487         }
488
489         preg_match('/posted="(.*?)"/ism', $attributes, $matches);
490         if (x($matches, 1)) {
491                 $posted = $matches[1];
492         }
493
494         // We only call this so that a previously unknown contact can be added.
495         // This is important for the function "get_contact_details_by_url".
496         // This function then can fetch an entry from the contact table.
497         Contact::getIdForURL($profile, 0);
498
499         $data = Contact::getDetailsByURL($profile);
500
501         if (x($data, "name") && x($data, "addr")) {
502                 $userid_compact = $data["name"] . " (" . $data["addr"] . ")";
503         } else {
504                 $userid_compact = GetProfileUsername($profile, $author, true);
505         }
506
507         if (x($data, "addr")) {
508                 $userid = $data["addr"];
509         } else {
510                 $userid = GetProfileUsername($profile, $author, false);
511         }
512
513         if (x($data, "name")) {
514                 $author = $data["name"];
515         }
516
517         if (x($data, "micro")) {
518                 $avatar = $data["micro"];
519         }
520
521         $preshare = trim($share[1]);
522         if ($preshare != "") {
523                 $preshare .= "<br />";
524         }
525
526         switch ($simplehtml) {
527                 case 1:
528                         $text = $preshare . html_entity_decode("&#x2672; ", ENT_QUOTES, 'UTF-8') . ' <a href="' . $profile . '">' . $userid . "</a>: <br />»" . $share[3] . "«";
529                         break;
530                 case 2:
531                         $text = $preshare . html_entity_decode("&#x2672; ", ENT_QUOTES, 'UTF-8') . ' ' . $userid_compact . ": <br />" . $share[3];
532                         break;
533                 case 3: // Diaspora
534                         $headline .= '<b>' . html_entity_decode("&#x2672; ", ENT_QUOTES, 'UTF-8') . $userid . ':</b><br />';
535
536                         $text = trim($share[1]);
537
538                         if ($text != "") {
539                                 $text .= "<hr />";
540                         }
541
542                         if (stripos(normalise_link($link), 'http://twitter.com/') === 0) {
543                                 $text .= $headline . '<blockquote>' . trim($share[3]) . "</blockquote><br />";
544
545                                 if ($link != "") {
546                                         $text .= '<br /><a href="' . $link . '">[l]</a>';
547                                 }
548                         } else {
549                                 $text .= '<br /><a href="' . $link . '">' . $link . '</a>';
550                         }
551
552                         break;
553                 case 4:
554                         $headline .= '<br /><b>' . html_entity_decode("&#x2672; ", ENT_QUOTES, 'UTF-8');
555                         $headline .= L10n::t('<a href="%1$s" target="_blank">%2$s</a> %3$s', $link, $userid, $posted);
556                         $headline .= ":</b><br />";
557
558                         $text = trim($share[1]);
559
560                         if ($text != "") {
561                                 $text .= "<hr />";
562                         }
563
564                         $text .= $headline . '<blockquote class="shared_content">' . trim($share[3]) . "</blockquote><br />";
565
566                         break;
567                 case 5:
568                         $text = $preshare . html_entity_decode("&#x2672; ", ENT_QUOTES, 'UTF-8') . ' ' . $userid_compact . ": <br />" . $share[3];
569                         break;
570                 case 6: // app.net
571                         $text = $preshare . "&gt;&gt; @" . $userid_compact . ": <br />" . $share[3];
572                         break;
573                 case 7: // statusnet/GNU Social
574                         $text = $preshare . html_entity_decode("&#x2672; ", ENT_QUOTES, 'UTF-8') . " @" . $userid_compact . ": " . $share[3];
575                         break;
576                 case 8: // twitter
577                         $text = $preshare . "RT @" . $userid_compact . ": " . $share[3];
578                         break;
579                 case 9: // Google+/Facebook
580                         $text = $preshare . html_entity_decode("&#x2672; ", ENT_QUOTES, 'UTF-8') . ' ' . $userid_compact . ": <br />" . $share[3];
581
582                         if ($link != "") {
583                                 $text .= "<br /><br />" . $link;
584                         }
585                         break;
586                 default:
587                         // Transforms quoted tweets in rich attachments to avoid nested tweets
588                         if (stripos(normalise_link($link), 'http://twitter.com/') === 0 && OEmbed::isAllowedURL($link)) {
589                                 try {
590                                         $oembed = OEmbed::getHTML($link, $preshare);
591                                 } catch (Exception $e) {
592                                         $oembed = sprintf('[bookmark=%s]%s[/bookmark]', $link, $preshare);
593                                 }
594
595                                 $text = $preshare . $oembed;
596                         } else {
597                                 $text = trim($share[1]) . "\n";
598
599                                 $avatar = proxy_url($avatar, false, PROXY_SIZE_THUMB);
600
601                                 $tpl = get_markup_template('shared_content.tpl');
602                                 $text .= replace_macros($tpl, [
603                                         '$profile' => $profile,
604                                         '$avatar' => $avatar,
605                                         '$author' => $author,
606                                         '$link' => $link,
607                                         '$posted' => $posted,
608                                         '$content' => trim($share[3])
609                                 ]);
610                         }
611                         break;
612         }
613
614         return $text;
615 }
616
617 function GetProfileUsername($profile, $username, $compact = false, $getnetwork = false) {
618
619         $twitter = preg_replace("=https?://twitter.com/(.*)=ism", "$1@twitter.com", $profile);
620         if ($twitter != $profile) {
621                 if ($getnetwork) {
622                         return NETWORK_TWITTER;
623                 } elseif ($compact) {
624                         return $twitter;
625                 } else {
626                         return ($username . " (" . $twitter . ")");
627                 }
628         }
629
630         $appnet = preg_replace("=https?://alpha.app.net/(.*)=ism", "$1@alpha.app.net", $profile);
631         if ($appnet != $profile) {
632                 if ($getnetwork) {
633                         return NETWORK_APPNET;
634                 } elseif ($compact) {
635                         return $appnet;
636                 } else {
637                         return ($username . " (" . $appnet . ")");
638                 }
639         }
640
641         $gplus = preg_replace("=https?://plus.google.com/(.*)=ism", "$1@plus.google.com", $profile);
642         if ($gplus != $profile) {
643                 if ($getnetwork) {
644                         return NETWORK_GPLUS;
645                 } elseif ($compact) {
646                         return ($gplususername . " (" . $username . ")");
647                 } else {
648                         return ($username . " (" . $gplus . ")");
649                 }
650         }
651
652         $friendica = preg_replace("=https?://(.*)/profile/(.*)=ism", "$2@$1", $profile);
653         if ($friendica != $profile) {
654                 if ($getnetwork) {
655                         return NETWORK_DFRN;
656                 } elseif ($compact) {
657                         return $friendica;
658                 } else {
659                         return ($username . " (" . $friendica . ")");
660                 }
661         }
662
663         $diaspora = preg_replace("=https?://(.*)/u/(.*)=ism", "$2@$1", $profile);
664         if ($diaspora != $profile) {
665                 if ($getnetwork) {
666                         return NETWORK_DIASPORA;
667                 } elseif ($compact) {
668                         return $diaspora;
669                 } else {
670                         return ($username . " (" . $diaspora . ")");
671                 }
672         }
673
674         $red = preg_replace("=https?://(.*)/channel/(.*)=ism", "$2@$1", $profile);
675         if ($red != $profile) {
676                 if ($getnetwork) {
677                         // red is identified as Diaspora - friendica can't connect directly to it
678                         return NETWORK_DIASPORA;
679                 } elseif ($compact) {
680                         return $red;
681                 } else {
682                         return ($username . " (" . $red . ")");
683                 }
684         }
685
686         $StatusnetHost = preg_replace("=https?://(.*)/user/(.*)=ism", "$1", $profile);
687         if ($StatusnetHost != $profile) {
688                 $StatusnetUser = preg_replace("=https?://(.*)/user/(.*)=ism", "$2", $profile);
689                 if ($StatusnetUser != $profile) {
690                         /// @TODO Some hosts run on https, not just http and sometimes http is disabled, let's support both here
691                         $UserData = fetch_url("http://".$StatusnetHost."/api/users/show.json?user_id=".$StatusnetUser);
692                         $user = json_decode($UserData);
693                         if ($user) {
694                                 if ($getnetwork) {
695                                         return NETWORK_STATUSNET;
696                                 } elseif ($compact) {
697                                         return ($user->screen_name . "@" . $StatusnetHost);
698                                 } else {
699                                         return ($username . " (" . $user->screen_name . "@" . $StatusnetHost . ")");
700                                 }
701                         }
702                 }
703         }
704
705         // pumpio (http://host.name/user)
706         $rest = preg_replace("=https?://([\.\w]+)/([\.\w]+)(.*)=ism", "$3", $profile);
707         if ($rest == "") {
708                 $pumpio = preg_replace("=https?://([\.\w]+)/([\.\w]+)(.*)=ism", "$2@$1", $profile);
709                 if ($pumpio != $profile) {
710                         if ($getnetwork) {
711                                 return NETWORK_PUMPIO;
712                         } elseif ($compact) {
713                                 return $pumpio;
714                         } else {
715                                 return ($username . " (" . $pumpio . ")");
716                         }
717                 }
718         }
719
720         return $username;
721 }
722
723 function bb_DiasporaLinks($match) {
724         return "[url=".System::baseUrl()."/display/".$match[1]."]".$match[2]."[/url]";
725 }
726
727 function bb_RemovePictureLinks($match) {
728         $text = Cache::get($match[1]);
729
730         if (is_null($text)) {
731                 $a = get_app();
732
733                 $stamp1 = microtime(true);
734
735                 $ch = @curl_init($match[1]);
736                 @curl_setopt($ch, CURLOPT_NOBODY, true);
737                 @curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
738                 @curl_setopt($ch, CURLOPT_USERAGENT, $a->get_useragent());
739                 @curl_exec($ch);
740                 $curl_info = @curl_getinfo($ch);
741
742                 $a->save_timestamp($stamp1, "network");
743
744                 if (substr($curl_info["content_type"], 0, 6) == "image/")
745                         $text = "[url=".$match[1]."]".$match[1]."[/url]";
746                 else {
747                         $text = "[url=".$match[2]."]".$match[2]."[/url]";
748
749                         // if its not a picture then look if its a page that contains a picture link
750                         require_once("include/network.php");
751
752                         $body = fetch_url($match[1]);
753
754                         $doc = new DOMDocument();
755                         @$doc->loadHTML($body);
756                         $xpath = new DomXPath($doc);
757                         $list = $xpath->query("//meta[@name]");
758                         foreach ($list as $node) {
759                                 $attr = [];
760
761                                 if ($node->attributes->length)
762                                         foreach ($node->attributes as $attribute)
763                                                 $attr[$attribute->name] = $attribute->value;
764
765                                 if (strtolower($attr["name"]) == "twitter:image")
766                                         $text = "[url=".$attr["content"]."]".$attr["content"]."[/url]";
767                         }
768                 }
769                 Cache::set($match[1],$text);
770         }
771
772         return $text;
773 }
774
775 function bb_expand_links($match) {
776         if (($match[3] == "") || ($match[2] == $match[3]) || stristr($match[2], $match[3])) {
777                 return ($match[1] . "[url]" . $match[2] . "[/url]");
778         } else {
779                 return ($match[1] . $match[3] . " [url]" . $match[2] . "[/url]");
780         }
781 }
782
783 function bb_CleanPictureLinksSub($match) {
784         $text = Cache::get($match[1]);
785
786         if (is_null($text)) {
787                 $a = get_app();
788
789                 $stamp1 = microtime(true);
790
791                 $ch = @curl_init($match[1]);
792                 @curl_setopt($ch, CURLOPT_NOBODY, true);
793                 @curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
794                 @curl_setopt($ch, CURLOPT_USERAGENT, $a->get_useragent());
795                 @curl_exec($ch);
796                 $curl_info = @curl_getinfo($ch);
797
798                 $a->save_timestamp($stamp1, "network");
799
800                 // if its a link to a picture then embed this picture
801                 if (substr($curl_info["content_type"], 0, 6) == "image/")
802                         $text = "[img]".$match[1]."[/img]";
803                 else {
804                         $text = "[img]".$match[2]."[/img]";
805
806                         // if its not a picture then look if its a page that contains a picture link
807                         require_once("include/network.php");
808
809                         $body = fetch_url($match[1]);
810
811                         $doc = new DOMDocument();
812                         @$doc->loadHTML($body);
813                         $xpath = new DomXPath($doc);
814                         $list = $xpath->query("//meta[@name]");
815                         foreach ($list as $node) {
816                                 $attr = [];
817
818                                 if ($node->attributes->length)
819                                         foreach ($node->attributes as $attribute)
820                                                 $attr[$attribute->name] = $attribute->value;
821
822                                 if (strtolower($attr["name"]) == "twitter:image")
823                                         $text = "[img]".$attr["content"]."[/img]";
824                         }
825                 }
826                 Cache::set($match[1],$text);
827         }
828
829         return $text;
830 }
831
832 function bb_CleanPictureLinks($text) {
833         $text = preg_replace_callback("&\[url=([^\[\]]*)\]\[img\](.*)\[\/img\]\[\/url\]&Usi", 'bb_CleanPictureLinksSub', $text);
834         return $text;
835 }
836
837 function bb_highlight($match) {
838         if (in_array(strtolower($match[1]), ['php', 'css', 'mysql', 'sql', 'abap', 'diff', 'html', 'perl', 'ruby',
839                 'vbscript', 'avrc', 'dtd', 'java', 'xml', 'cpp', 'python', 'javascript', 'js', 'sh'])) {
840                 return text_highlight($match[2], strtolower($match[1]));
841         }
842         return $match[0];
843 }
844
845 /**
846  * @brief Converts a BBCode message to HTML message
847  *
848  * BBcode 2 HTML was written by WAY2WEB.net
849  * extended to work with Mistpark/Friendica - Mike Macgirvin
850  *
851  * Simple HTML values meaning:
852  * - 0: Friendica display
853  * - 1: Unused
854  * - 2: Used for Facebook, Google+, Windows Phone push, Friendica API
855  * - 3: Used before converting to Markdown in bb2diaspora.php
856  * - 4: Used for WordPress, Libertree (before Markdown), pump.io and tumblr
857  * - 5: Unused
858  * - 6: Used for Appnet
859  * - 7: Used for dfrn, OStatus
860  * - 8: Used for WP backlink text setting
861  *
862  * @staticvar array $allowed_src_protocols
863  * @param string $Text
864  * @param bool $preserve_nl
865  * @param bool $tryoembed
866  * @param int $simplehtml
867  * @param bool $forplaintext
868  * @return string
869  */
870 function bbcode($Text, $preserve_nl = false, $tryoembed = true, $simplehtml = false, $forplaintext = false)
871 {
872         $a = get_app();
873
874         /*
875          * preg_match_callback function to replace potential Oembed tags with Oembed content
876          *
877          * $match[0] = [tag]$url[/tag] or [tag=$url]$title[/tag]
878          * $match[1] = $url
879          * $match[2] = $title or absent
880          */
881         $tryoembed_callback = function ($match)
882         {
883                 $url = $match[1];
884                 $title = defaults($match, 2, null);
885
886                 try {
887                         $return = OEmbed::getHTML($url, $title);
888                 } catch (Exception $ex) {
889                         $return = $match[0];
890                 }
891
892                 return $return;
893         };
894
895         // Hide all [noparse] contained bbtags by spacefying them
896         // POSSIBLE BUG --> Will the 'preg' functions crash if there's an embedded image?
897
898         $Text = preg_replace_callback("/\[noparse\](.*?)\[\/noparse\]/ism", 'bb_spacefy', $Text);
899         $Text = preg_replace_callback("/\[nobb\](.*?)\[\/nobb\]/ism", 'bb_spacefy', $Text);
900         $Text = preg_replace_callback("/\[pre\](.*?)\[\/pre\]/ism", 'bb_spacefy', $Text);
901
902         // Remove the abstract element. It is a non visible element.
903         $Text = remove_abstract($Text);
904
905         // Move all spaces out of the tags
906         $Text = preg_replace("/\[(\w*)\](\s*)/ism", '$2[$1]', $Text);
907         $Text = preg_replace("/(\s*)\[\/(\w*)\]/ism", '[/$2]$1', $Text);
908
909         // Extract the private images which use data urls since preg has issues with
910         // large data sizes. Stash them away while we do bbcode conversion, and then put them back
911         // in after we've done all the regex matching. We cannot use any preg functions to do this.
912
913         $extracted = bb_extract_images($Text);
914         $Text = $extracted['body'];
915         $saved_image = $extracted['images'];
916
917         // If we find any event code, turn it into an event.
918         // After we're finished processing the bbcode we'll
919         // replace all of the event code with a reformatted version.
920
921         $ev = bbtoevent($Text);
922
923         // Replace any html brackets with HTML Entities to prevent executing HTML or script
924         // Don't use strip_tags here because it breaks [url] search by replacing & with amp
925
926         $Text = str_replace("<", "&lt;", $Text);
927         $Text = str_replace(">", "&gt;", $Text);
928
929         // remove some newlines before the general conversion
930         $Text = preg_replace("/\s?\[share(.*?)\]\s?(.*?)\s?\[\/share\]\s?/ism", "[share$1]$2[/share]", $Text);
931         $Text = preg_replace("/\s?\[quote(.*?)\]\s?(.*?)\s?\[\/quote\]\s?/ism", "[quote$1]$2[/quote]", $Text);
932
933         $Text = preg_replace("/\n\[code\]/ism", "[code]", $Text);
934         $Text = preg_replace("/\[\/code\]\n/ism", "[/code]", $Text);
935
936         // when the content is meant exporting to other systems then remove the avatar picture since this doesn't really look good on these systems
937         if (!$tryoembed) {
938                 $Text = preg_replace("/\[share(.*?)avatar\s?=\s?'.*?'\s?(.*?)\]\s?(.*?)\s?\[\/share\]\s?/ism", "\n[share$1$2]$3[/share]", $Text);
939         }
940
941         // Check for [code] text here, before the linefeeds are messed with.
942         // The highlighter will unescape and re-escape the content.
943         if (strpos($Text, '[code=') !== false) {
944                 $Text = preg_replace_callback("/\[code=(.*?)\](.*?)\[\/code\]/ism", 'bb_highlight', $Text);
945         }
946         // Convert new line chars to html <br /> tags
947
948         // nlbr seems to be hopelessly messed up
949         //      $Text = nl2br($Text);
950
951         // We'll emulate it.
952
953         $Text = trim($Text);
954         $Text = str_replace("\r\n", "\n", $Text);
955
956         // removing multiplicated newlines
957         if (Config::get("system", "remove_multiplicated_lines")) {
958                 $search = ["\n\n\n", "\n ", " \n", "[/quote]\n\n", "\n[/quote]", "[/li]\n", "\n[li]", "\n[ul]", "[/ul]\n", "\n\n[share ", "[/attachment]\n",
959                                 "\n[h1]", "[/h1]\n", "\n[h2]", "[/h2]\n", "\n[h3]", "[/h3]\n", "\n[h4]", "[/h4]\n", "\n[h5]", "[/h5]\n", "\n[h6]", "[/h6]\n"];
960                 $replace = ["\n\n", "\n", "\n", "[/quote]\n", "[/quote]", "[/li]", "[li]", "[ul]", "[/ul]", "\n[share ", "[/attachment]",
961                                 "[h1]", "[/h1]", "[h2]", "[/h2]", "[h3]", "[/h3]", "[h4]", "[/h4]", "[h5]", "[/h5]", "[h6]", "[/h6]"];
962                 do {
963                         $oldtext = $Text;
964                         $Text = str_replace($search, $replace, $Text);
965                 } while ($oldtext != $Text);
966         }
967
968         // Set up the parameters for a URL search string
969         $URLSearchString = "^\[\]";
970         // Set up the parameters for a MAIL search string
971         $MAILSearchString = $URLSearchString;
972
973         // if the HTML is used to generate plain text, then don't do this search, but replace all URL of that kind to text
974         if (!$forplaintext) {
975                 // Autolink feature (thanks to http://code.seebz.net/p/autolink-php/)
976                 // Currently disabled, since the function is too greedy
977                 // $autolink_regex = "`([^\]\=\"']|^)(https?\://[^\s<]+[^\s<\.\)])`ism";
978                 $autolink_regex = "/([^\]\='".'"'."]|^)(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/ism";
979                 $Text = preg_replace($autolink_regex, '$1[url]$2[/url]', $Text);
980                 if ($simplehtml == 7) {
981                         $Text = preg_replace_callback("/\[url\]([$URLSearchString]*)\[\/url\]/ism", 'bb_style_url', $Text);
982                         $Text = preg_replace_callback("/\[url\=([$URLSearchString]*)\]([$URLSearchString]*)\[\/url\]/ism", 'bb_style_url', $Text);
983                 }
984         } else {
985                 $Text = preg_replace("(\[url\]([$URLSearchString]*)\[\/url\])ism", " $1 ", $Text);
986                 $Text = preg_replace_callback("&\[url=([^\[\]]*)\]\[img\](.*)\[\/img\]\[\/url\]&Usi", 'bb_RemovePictureLinks', $Text);
987         }
988
989
990         // Handle attached links or videos
991         $Text = bb_attachment($Text, $simplehtml, $tryoembed);
992
993         $Text = str_replace(["\r","\n"], ['<br />', '<br />'], $Text);
994
995         if ($preserve_nl) {
996                 $Text = str_replace(["\n", "\r"], ['', ''], $Text);
997         }
998
999         // Remove all hashtag addresses
1000         if ((!$tryoembed || $simplehtml) && !in_array($simplehtml, [3, 7])) {
1001                 $Text = preg_replace("/([#@!])\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism", '$1$3', $Text);
1002         } elseif ($simplehtml == 3) {
1003                 $Text = preg_replace("/([@!])\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism",
1004                         '$1<a href="$2">$3</a>',
1005                         $Text);
1006         } elseif ($simplehtml == 7) {
1007                 $Text = preg_replace("/([@!])\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism",
1008                         '$1<span class="vcard"><a href="$2" class="url" title="$3"><span class="fn nickname mention">$3</span></a></span>',
1009                         $Text);
1010         } elseif (!$simplehtml) {
1011                 $Text = preg_replace("/([@!])\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism",
1012                         '$1<a href="$2" class="userinfo mention" title="$3">$3</a>',
1013                         $Text);
1014         }
1015
1016         // Bookmarks in red - will be converted to bookmarks in friendica
1017         $Text = preg_replace("/#\^\[url\]([$URLSearchString]*)\[\/url\]/ism", '[bookmark=$1]$1[/bookmark]', $Text);
1018         $Text = preg_replace("/#\^\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism", '[bookmark=$1]$2[/bookmark]', $Text);
1019         $Text = preg_replace("/#\[url\=[$URLSearchString]*\]\^\[\/url\]\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/i",
1020                                 "[bookmark=$1]$2[/bookmark]", $Text);
1021
1022         if (in_array($simplehtml, [2, 6, 7, 8, 9])) {
1023                 $Text = preg_replace_callback("/([^#@!])\[url\=([^\]]*)\](.*?)\[\/url\]/ism", "bb_expand_links", $Text);
1024                 //$Text = preg_replace("/[^#@!]\[url\=([^\]]*)\](.*?)\[\/url\]/ism", ' $2 [url]$1[/url]', $Text);
1025                 $Text = preg_replace("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/ism", ' $2 [url]$1[/url]',$Text);
1026         }
1027
1028         if ($simplehtml == 5) {
1029                 $Text = preg_replace("/[^#@!]\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism", '[url]$1[/url]', $Text);
1030         }
1031
1032         // Perform URL Search
1033         if ($tryoembed) {
1034                 $Text = preg_replace_callback("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/ism", $tryoembed_callback, $Text);
1035         }
1036
1037         if ($simplehtml == 5) {
1038                 $Text = preg_replace("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/ism", '[url]$1[/url]', $Text);
1039         } else {
1040                 $Text = preg_replace("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/ism", '[url=$1]$2[/url]', $Text);
1041         }
1042
1043         // Handle Diaspora posts
1044         $Text = preg_replace_callback("&\[url=/posts/([^\[\]]*)\](.*)\[\/url\]&Usi", 'bb_DiasporaLinks', $Text);
1045
1046         // Server independent link to posts and comments
1047         // See issue: https://github.com/diaspora/diaspora_federation/issues/75
1048         $expression = "=diaspora://.*?/post/([0-9A-Za-z\-_@.:]{15,254}[0-9A-Za-z])=ism";
1049         $Text = preg_replace($expression, System::baseUrl()."/display/$1", $Text);
1050
1051         $Text = preg_replace("/([#])\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism",
1052                                 '$1<a href="' . System::baseUrl() . '/search?tag=$3" class="tag" title="$3">$3</a>', $Text);
1053
1054         $Text = preg_replace("/\[url\=([$URLSearchString]*)\]#(.*?)\[\/url\]/ism",
1055                                 '#<a href="' . System::baseUrl() . '/search?tag=$2" class="tag" title="$2">$2</a>', $Text);
1056
1057         $Text = preg_replace("/\[url\]([$URLSearchString]*)\[\/url\]/ism", '<a href="$1" target="_blank">$1</a>', $Text);
1058         $Text = preg_replace("/\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism", '<a href="$1" target="_blank">$2</a>', $Text);
1059         //$Text = preg_replace("/\[url\=([$URLSearchString]*)\]([$URLSearchString]*)\[\/url\]/ism", '<a href="$1" target="_blank">$2</a>', $Text);
1060
1061         // Red compatibility, though the link can't be authenticated on Friendica
1062         $Text = preg_replace("/\[zrl\=([$URLSearchString]*)\](.*?)\[\/zrl\]/ism", '<a href="$1" target="_blank">$2</a>', $Text);
1063
1064
1065         // we may need to restrict this further if it picks up too many strays
1066         // link acct:user@host to a webfinger profile redirector
1067
1068         $Text = preg_replace('/acct:([^@]+)@((?!\-)(?:[a-zA-Z\d\-]{0,62}[a-zA-Z\d]\.){1,126}(?!\d+)[a-zA-Z\d]{1,63})/', '<a href="' . System::baseUrl() . '/acctlink?addr=$1@$2" target="extlink">acct:$1@$2</a>', $Text);
1069
1070         // Perform MAIL Search
1071         $Text = preg_replace("/\[mail\]([$MAILSearchString]*)\[\/mail\]/", '<a href="mailto:$1">$1</a>', $Text);
1072         $Text = preg_replace("/\[mail\=([$MAILSearchString]*)\](.*?)\[\/mail\]/", '<a href="mailto:$1">$2</a>', $Text);
1073
1074         // leave open the posibility of [map=something]
1075         // this is replaced in prepare_body() which has knowledge of the item location
1076
1077         if (strpos($Text, '[/map]') !== false) {
1078                 $Text = preg_replace_callback("/\[map\](.*?)\[\/map\]/ism", 'bb_map_location', $Text);
1079         }
1080         if (strpos($Text, '[map=') !== false) {
1081                 $Text = preg_replace_callback("/\[map=(.*?)\]/ism", 'bb_map_coords', $Text);
1082         }
1083         if (strpos($Text, '[map]') !== false) {
1084                 $Text = preg_replace("/\[map\]/", '<div class="map"></div>', $Text);
1085         }
1086
1087         // Check for headers
1088         $Text = preg_replace("(\[h1\](.*?)\[\/h1\])ism", '<h1>$1</h1>', $Text);
1089         $Text = preg_replace("(\[h2\](.*?)\[\/h2\])ism", '<h2>$1</h2>', $Text);
1090         $Text = preg_replace("(\[h3\](.*?)\[\/h3\])ism", '<h3>$1</h3>', $Text);
1091         $Text = preg_replace("(\[h4\](.*?)\[\/h4\])ism", '<h4>$1</h4>', $Text);
1092         $Text = preg_replace("(\[h5\](.*?)\[\/h5\])ism", '<h5>$1</h5>', $Text);
1093         $Text = preg_replace("(\[h6\](.*?)\[\/h6\])ism", '<h6>$1</h6>', $Text);
1094
1095         // Check for paragraph
1096         $Text = preg_replace("(\[p\](.*?)\[\/p\])ism", '<p>$1</p>', $Text);
1097
1098         // Check for bold text
1099         $Text = preg_replace("(\[b\](.*?)\[\/b\])ism", '<strong>$1</strong>', $Text);
1100
1101         // Check for Italics text
1102         $Text = preg_replace("(\[i\](.*?)\[\/i\])ism", '<em>$1</em>', $Text);
1103
1104         // Check for Underline text
1105         $Text = preg_replace("(\[u\](.*?)\[\/u\])ism", '<u>$1</u>', $Text);
1106
1107         // Check for strike-through text
1108         $Text = preg_replace("(\[s\](.*?)\[\/s\])ism", '<strike>$1</strike>', $Text);
1109
1110         // Check for over-line text
1111         $Text = preg_replace("(\[o\](.*?)\[\/o\])ism", '<span class="overline">$1</span>', $Text);
1112
1113         // Check for colored text
1114         $Text = preg_replace("(\[color=(.*?)\](.*?)\[\/color\])ism", "<span style=\"color: $1;\">$2</span>", $Text);
1115
1116         // Check for sized text
1117         // [size=50] --> font-size: 50px (with the unit).
1118         $Text = preg_replace("(\[size=(\d*?)\](.*?)\[\/size\])ism", "<span style=\"font-size: $1px; line-height: initial;\">$2</span>", $Text);
1119         $Text = preg_replace("(\[size=(.*?)\](.*?)\[\/size\])ism", "<span style=\"font-size: $1; line-height: initial;\">$2</span>", $Text);
1120
1121         // Check for centered text
1122         $Text = preg_replace("(\[center\](.*?)\[\/center\])ism", "<div style=\"text-align:center;\">$1</div>", $Text);
1123
1124         // Check for list text
1125         $Text = str_replace("[*]", "<li>", $Text);
1126
1127         // Check for style sheet commands
1128         $Text = preg_replace_callback("(\[style=(.*?)\](.*?)\[\/style\])ism", "bb_cleanstyle", $Text);
1129
1130         // Check for CSS classes
1131         $Text = preg_replace_callback("(\[class=(.*?)\](.*?)\[\/class\])ism", "bb_cleanclass", $Text);
1132
1133         // handle nested lists
1134         $endlessloop = 0;
1135
1136         while ((((strpos($Text, "[/list]") !== false) && (strpos($Text, "[list") !== false)) ||
1137                ((strpos($Text, "[/ol]") !== false) && (strpos($Text, "[ol]") !== false)) ||
1138                ((strpos($Text, "[/ul]") !== false) && (strpos($Text, "[ul]") !== false)) ||
1139                ((strpos($Text, "[/li]") !== false) && (strpos($Text, "[li]") !== false))) && (++$endlessloop < 20)) {
1140                 $Text = preg_replace("/\[list\](.*?)\[\/list\]/ism", '<ul class="listbullet" style="list-style-type: circle;">$1</ul>', $Text);
1141                 $Text = preg_replace("/\[list=\](.*?)\[\/list\]/ism", '<ul class="listnone" style="list-style-type: none;">$1</ul>', $Text);
1142                 $Text = preg_replace("/\[list=1\](.*?)\[\/list\]/ism", '<ul class="listdecimal" style="list-style-type: decimal;">$1</ul>', $Text);
1143                 $Text = preg_replace("/\[list=((?-i)i)\](.*?)\[\/list\]/ism", '<ul class="listlowerroman" style="list-style-type: lower-roman;">$2</ul>', $Text);
1144                 $Text = preg_replace("/\[list=((?-i)I)\](.*?)\[\/list\]/ism", '<ul class="listupperroman" style="list-style-type: upper-roman;">$2</ul>', $Text);
1145                 $Text = preg_replace("/\[list=((?-i)a)\](.*?)\[\/list\]/ism", '<ul class="listloweralpha" style="list-style-type: lower-alpha;">$2</ul>', $Text);
1146                 $Text = preg_replace("/\[list=((?-i)A)\](.*?)\[\/list\]/ism", '<ul class="listupperalpha" style="list-style-type: upper-alpha;">$2</ul>', $Text);
1147                 $Text = preg_replace("/\[ul\](.*?)\[\/ul\]/ism", '<ul class="listbullet" style="list-style-type: circle;">$1</ul>', $Text);
1148                 $Text = preg_replace("/\[ol\](.*?)\[\/ol\]/ism", '<ul class="listdecimal" style="list-style-type: decimal;">$1</ul>', $Text);
1149                 $Text = preg_replace("/\[li\](.*?)\[\/li\]/ism", '<li>$1</li>', $Text);
1150         }
1151
1152         $Text = preg_replace("/\[th\](.*?)\[\/th\]/sm", '<th>$1</th>', $Text);
1153         $Text = preg_replace("/\[td\](.*?)\[\/td\]/sm", '<td>$1</td>', $Text);
1154         $Text = preg_replace("/\[tr\](.*?)\[\/tr\]/sm", '<tr>$1</tr>', $Text);
1155         $Text = preg_replace("/\[table\](.*?)\[\/table\]/sm", '<table>$1</table>', $Text);
1156
1157         $Text = preg_replace("/\[table border=1\](.*?)\[\/table\]/sm", '<table border="1" >$1</table>', $Text);
1158         $Text = preg_replace("/\[table border=0\](.*?)\[\/table\]/sm", '<table border="0" >$1</table>', $Text);
1159
1160         $Text = str_replace('[hr]', '<hr />', $Text);
1161
1162         // This is actually executed in prepare_body()
1163
1164         $Text = str_replace('[nosmile]', '', $Text);
1165
1166         // Check for font change text
1167         $Text = preg_replace("/\[font=(.*?)\](.*?)\[\/font\]/sm", "<span style=\"font-family: $1;\">$2</span>", $Text);
1168
1169         // Declare the format for [code] layout
1170
1171 //      $Text = preg_replace_callback("/\[code\](.*?)\[\/code\]/ism", 'stripcode_br_cb', $Text);
1172
1173         $CodeLayout = '<code>$1</code>';
1174         // Check for [code] text
1175         $Text = preg_replace("/\[code\](.*?)\[\/code\]/ism", "$CodeLayout", $Text);
1176
1177         // Declare the format for [spoiler] layout
1178         $SpoilerLayout = '<blockquote class="spoiler">$1</blockquote>';
1179
1180         // Check for [spoiler] text
1181         // handle nested quotes
1182         $endlessloop = 0;
1183         while ((strpos($Text, "[/spoiler]") !== false) && (strpos($Text, "[spoiler]") !== false) && (++$endlessloop < 20)) {
1184                 $Text = preg_replace("/\[spoiler\](.*?)\[\/spoiler\]/ism", "$SpoilerLayout", $Text);
1185         }
1186
1187         // Check for [spoiler=Author] text
1188
1189         $t_wrote = L10n::t('$1 wrote:');
1190
1191         // handle nested quotes
1192         $endlessloop = 0;
1193         while ((strpos($Text, "[/spoiler]")!== false)  && (strpos($Text, "[spoiler=") !== false) && (++$endlessloop < 20)) {
1194                 $Text = preg_replace("/\[spoiler=[\"\']*(.*?)[\"\']*\](.*?)\[\/spoiler\]/ism",
1195                                      "<br /><strong class=".'"spoiler"'.">" . $t_wrote . "</strong><blockquote class=".'"spoiler"'.">$2</blockquote>",
1196                                      $Text);
1197         }
1198
1199         // Declare the format for [quote] layout
1200         $QuoteLayout = '<blockquote>$1</blockquote>';
1201
1202         // Check for [quote] text
1203         // handle nested quotes
1204         $endlessloop = 0;
1205         while ((strpos($Text, "[/quote]") !== false) && (strpos($Text, "[quote]") !== false) && (++$endlessloop < 20)) {
1206                 $Text = preg_replace("/\[quote\](.*?)\[\/quote\]/ism", "$QuoteLayout", $Text);
1207         }
1208
1209         // Check for [quote=Author] text
1210
1211         $t_wrote = L10n::t('$1 wrote:');
1212
1213         // handle nested quotes
1214         $endlessloop = 0;
1215         while ((strpos($Text, "[/quote]")!== false)  && (strpos($Text, "[quote=") !== false) && (++$endlessloop < 20)) {
1216                 $Text = preg_replace("/\[quote=[\"\']*(.*?)[\"\']*\](.*?)\[\/quote\]/ism",
1217                                      "<br /><strong class=".'"author"'.">" . $t_wrote . "</strong><blockquote>$2</blockquote>",
1218                                      $Text);
1219         }
1220
1221
1222         // [img=widthxheight]image source[/img]
1223         $Text = preg_replace_callback("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/ism", 'bb_PictureCacheExt', $Text);
1224
1225         $Text = preg_replace("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/ism", '<img src="$3" style="width: $1px;" >', $Text);
1226         $Text = preg_replace("/\[zmg\=([0-9]*)x([0-9]*)\](.*?)\[\/zmg\]/ism", '<img class="zrl" src="$3" style="width: $1px;" >', $Text);
1227
1228         // Images
1229         // [img]pathtoimage[/img]
1230         $Text = preg_replace_callback("/\[img\](.*?)\[\/img\]/ism", 'bb_PictureCache', $Text);
1231
1232         $Text = preg_replace("/\[img\](.*?)\[\/img\]/ism", '<img src="$1" alt="' . L10n::t('Image/photo') . '" />', $Text);
1233         $Text = preg_replace("/\[zmg\](.*?)\[\/zmg\]/ism", '<img src="$1" alt="' . L10n::t('Image/photo') . '" />', $Text);
1234
1235         // Shared content
1236         $Text = preg_replace_callback("/(.*?)\[share(.*?)\](.*?)\[\/share\]/ism",
1237                 function ($match) use ($simplehtml) {
1238                         return bb_ShareAttributes($match, $simplehtml);
1239                 }, $Text);
1240
1241         $Text = preg_replace("/\[crypt\](.*?)\[\/crypt\]/ism", '<br/><img src="' .System::baseUrl() . '/images/lock_icon.gif" alt="' . L10n::t('Encrypted content') . '" title="' . L10n::t('Encrypted content') . '" /><br />', $Text);
1242         $Text = preg_replace("/\[crypt(.*?)\](.*?)\[\/crypt\]/ism", '<br/><img src="' .System::baseUrl() . '/images/lock_icon.gif" alt="' . L10n::t('Encrypted content') . '" title="' . '$1' . ' ' . L10n::t('Encrypted content') . '" /><br />', $Text);
1243         //$Text = preg_replace("/\[crypt=(.*?)\](.*?)\[\/crypt\]/ism", '<br/><img src="' .System::baseUrl() . '/images/lock_icon.gif" alt="' . L10n::t('Encrypted content') . '" title="' . '$1' . ' ' . L10n::t('Encrypted content') . '" /><br />', $Text);
1244
1245         // Try to Oembed
1246         if ($tryoembed) {
1247                 $Text = preg_replace("/\[video\](.*?\.(ogg|ogv|oga|ogm|webm|mp4))\[\/video\]/ism", '<video src="$1" controls="controls" width="' . $a->videowidth . '" height="' . $a->videoheight . '" loop="true"><a href="$1">$1</a></video>', $Text);
1248                 $Text = preg_replace("/\[audio\](.*?\.(ogg|ogv|oga|ogm|webm|mp4|mp3))\[\/audio\]/ism", '<audio src="$1" controls="controls"><a href="$1">$1</a></audio>', $Text);
1249
1250                 $Text = preg_replace_callback("/\[video\](.*?)\[\/video\]/ism", $tryoembed_callback, $Text);
1251                 $Text = preg_replace_callback("/\[audio\](.*?)\[\/audio\]/ism", $tryoembed_callback, $Text);
1252         } else {
1253                 $Text = preg_replace("/\[video\](.*?)\[\/video\]/",
1254                                         '<a href="$1" target="_blank">$1</a>', $Text);
1255                 $Text = preg_replace("/\[audio\](.*?)\[\/audio\]/",
1256                                         '<a href="$1" target="_blank">$1</a>', $Text);
1257         }
1258
1259         // html5 video and audio
1260
1261
1262         if ($tryoembed) {
1263                 $Text = preg_replace("/\[iframe\](.*?)\[\/iframe\]/ism", '<iframe src="$1" width="' . $a->videowidth . '" height="' . $a->videoheight . '"><a href="$1">$1</a></iframe>', $Text);
1264         } else {
1265                 $Text = preg_replace("/\[iframe\](.*?)\[\/iframe\]/ism", '<a href="$1">$1</a>', $Text);
1266         }
1267
1268         // Youtube extensions
1269         if ($tryoembed) {
1270                 $Text = preg_replace_callback("/\[youtube\](https?:\/\/www.youtube.com\/watch\?v\=.*?)\[\/youtube\]/ism", $tryoembed_callback, $Text);
1271                 $Text = preg_replace_callback("/\[youtube\](www.youtube.com\/watch\?v\=.*?)\[\/youtube\]/ism", $tryoembed_callback, $Text);
1272                 $Text = preg_replace_callback("/\[youtube\](https?:\/\/youtu.be\/.*?)\[\/youtube\]/ism", $tryoembed_callback, $Text);
1273         }
1274
1275         $Text = preg_replace("/\[youtube\]https?:\/\/www.youtube.com\/watch\?v\=(.*?)\[\/youtube\]/ism", '[youtube]$1[/youtube]', $Text);
1276         $Text = preg_replace("/\[youtube\]https?:\/\/www.youtube.com\/embed\/(.*?)\[\/youtube\]/ism", '[youtube]$1[/youtube]', $Text);
1277         $Text = preg_replace("/\[youtube\]https?:\/\/youtu.be\/(.*?)\[\/youtube\]/ism", '[youtube]$1[/youtube]', $Text);
1278
1279         if ($tryoembed) {
1280                 $Text = preg_replace("/\[youtube\]([A-Za-z0-9\-_=]+)(.*?)\[\/youtube\]/ism", '<iframe width="' . $a->videowidth . '" height="' . $a->videoheight . '" src="https://www.youtube.com/embed/$1" frameborder="0" ></iframe>', $Text);
1281         } else {
1282                 $Text = preg_replace("/\[youtube\]([A-Za-z0-9\-_=]+)(.*?)\[\/youtube\]/ism",
1283                                         '<a href="https://www.youtube.com/watch?v=$1" target="_blank">https://www.youtube.com/watch?v=$1</a>', $Text);
1284         }
1285
1286         if ($tryoembed) {
1287                 $Text = preg_replace_callback("/\[vimeo\](https?:\/\/player.vimeo.com\/video\/[0-9]+).*?\[\/vimeo\]/ism", $tryoembed_callback, $Text);
1288                 $Text = preg_replace_callback("/\[vimeo\](https?:\/\/vimeo.com\/[0-9]+).*?\[\/vimeo\]/ism", $tryoembed_callback, $Text);
1289         }
1290
1291         $Text = preg_replace("/\[vimeo\]https?:\/\/player.vimeo.com\/video\/([0-9]+)(.*?)\[\/vimeo\]/ism", '[vimeo]$1[/vimeo]', $Text);
1292         $Text = preg_replace("/\[vimeo\]https?:\/\/vimeo.com\/([0-9]+)(.*?)\[\/vimeo\]/ism", '[vimeo]$1[/vimeo]', $Text);
1293
1294         if ($tryoembed) {
1295                 $Text = preg_replace("/\[vimeo\]([0-9]+)(.*?)\[\/vimeo\]/ism", '<iframe width="' . $a->videowidth . '" height="' . $a->videoheight . '" src="https://player.vimeo.com/video/$1" frameborder="0" ></iframe>', $Text);
1296         } else {
1297                 $Text = preg_replace("/\[vimeo\]([0-9]+)(.*?)\[\/vimeo\]/ism",
1298                                         '<a href="https://vimeo.com/$1" target="_blank">https://vimeo.com/$1</a>', $Text);
1299         }
1300
1301 //      $Text = preg_replace("/\[youtube\](.*?)\[\/youtube\]/", '<object width="425" height="350" type="application/x-shockwave-flash" data="http://www.youtube.com/v/$1" ><param name="movie" value="http://www.youtube.com/v/$1"></param><!--[if IE]><embed src="http://www.youtube.com/v/$1" type="application/x-shockwave-flash" width="425" height="350" /><![endif]--></object>', $Text);
1302
1303         // oembed tag
1304         $Text = OEmbed::BBCode2HTML($Text);
1305
1306         // Avoid triple linefeeds through oembed
1307         $Text = str_replace("<br style='clear:left'></span><br /><br />", "<br style='clear:left'></span><br />", $Text);
1308
1309         // If we found an event earlier, strip out all the event code and replace with a reformatted version.
1310         // Replace the event-start section with the entire formatted event. The other bbcode is stripped.
1311         // Summary (e.g. title) is required, earlier revisions only required description (in addition to
1312         // start which is always required). Allow desc with a missing summary for compatibility.
1313
1314         if ((x($ev, 'desc') || x($ev, 'summary')) && x($ev, 'start')) {
1315                 $sub = format_event_html($ev, $simplehtml);
1316
1317                 $Text = preg_replace("/\[event\-summary\](.*?)\[\/event\-summary\]/ism", '', $Text);
1318                 $Text = preg_replace("/\[event\-description\](.*?)\[\/event\-description\]/ism", '', $Text);
1319                 $Text = preg_replace("/\[event\-start\](.*?)\[\/event\-start\]/ism", $sub, $Text);
1320                 $Text = preg_replace("/\[event\-finish\](.*?)\[\/event\-finish\]/ism", '', $Text);
1321                 $Text = preg_replace("/\[event\-location\](.*?)\[\/event\-location\]/ism", '', $Text);
1322                 $Text = preg_replace("/\[event\-adjust\](.*?)\[\/event\-adjust\]/ism", '', $Text);
1323                 $Text = preg_replace("/\[event\-id\](.*?)\[\/event\-id\]/ism", '', $Text);
1324         }
1325
1326         // Replace non graphical smilies for external posts
1327         if ($simplehtml) {
1328                 $Text = Smilies::replace($Text, false, true);
1329         }
1330
1331         // Replace inline code blocks
1332         $Text = preg_replace_callback("|(?!<br[^>]*>)<code>([^<]*)</code>(?!<br[^>]*>)|ism",
1333                 function ($match) use ($simplehtml) {
1334                         $return = '<key>' . $match[1] . '</key>';
1335                         // Use <code> for Diaspora inline code blocks
1336                         if ($simplehtml === 3) {
1337                                 $return = '<code>' . $match[1] . '</code>';
1338                         }
1339                         return $return;
1340                 }
1341         , $Text);
1342
1343         // Unhide all [noparse] contained bbtags unspacefying them
1344         // and triming the [noparse] tag.
1345
1346         $Text = preg_replace_callback("/\[noparse\](.*?)\[\/noparse\]/ism", 'bb_unspacefy_and_trim', $Text);
1347         $Text = preg_replace_callback("/\[nobb\](.*?)\[\/nobb\]/ism", 'bb_unspacefy_and_trim', $Text);
1348         $Text = preg_replace_callback("/\[pre\](.*?)\[\/pre\]/ism", 'bb_unspacefy_and_trim', $Text);
1349
1350
1351         $Text = preg_replace('/\[\&amp\;([#a-z0-9]+)\;\]/', '&$1;', $Text);
1352         $Text = preg_replace('/\&\#039\;/', '\'', $Text);
1353         $Text = preg_replace('/\&quot\;/', '"', $Text);
1354
1355         // fix any escaped ampersands that may have been converted into links
1356         $Text = preg_replace('/\<([^>]*?)(src|href)=(.*?)\&amp\;(.*?)\>/ism', '<$1$2=$3&$4>', $Text);
1357
1358         // sanitizes src attributes (http and redir URLs for displaying in a web page, cid used for inline images in emails)
1359         static $allowed_src_protocols = ['http', 'redir', 'cid'];
1360         $Text = preg_replace('#<([^>]*?)(src)="(?!' . implode('|', $allowed_src_protocols) . ')(.*?)"(.*?)>#ism',
1361                              '<$1$2=""$4 data-original-src="$3" class="invalid-src" title="' . L10n::t('Invalid source protocol') . '">', $Text);
1362
1363         // sanitize href attributes (only whitelisted protocols URLs)
1364         // default value for backward compatibility
1365         $allowed_link_protocols = Config::get('system', 'allowed_link_protocols', ['ftp', 'mailto', 'gopher', 'cid']);
1366
1367         // Always allowed protocol even if config isn't set or not including it
1368         $allowed_link_protocols[] = 'http';
1369         $allowed_link_protocols[] = 'redir/';
1370
1371         $regex = '#<([^>]*?)(href)="(?!' . implode('|', $allowed_link_protocols) . ')(.*?)"(.*?)>#ism';
1372         $Text = preg_replace($regex, '<$1$2="javascript:void(0)"$4 data-original-href="$3" class="invalid-href" title="' . L10n::t('Invalid link protocol') . '">', $Text);
1373
1374         if ($saved_image) {
1375                 $Text = bb_replace_images($Text, $saved_image);
1376         }
1377
1378         // Clean up the HTML by loading and saving the HTML with the DOM.
1379         // Bad structured html can break a whole page.
1380         // For performance reasons do it only with ativated item cache or at export.
1381         if (!$tryoembed || (get_itemcachepath() != "")) {
1382                 $doc = new DOMDocument();
1383                 $doc->preserveWhiteSpace = false;
1384
1385                 $Text = mb_convert_encoding($Text, 'HTML-ENTITIES', "UTF-8");
1386
1387                 $doctype = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">';
1388                 $encoding = '<?xml encoding="UTF-8">';
1389                 @$doc->loadHTML($encoding.$doctype."<html><body>".$Text."</body></html>");
1390                 $doc->encoding = 'UTF-8';
1391                 $Text = $doc->saveHTML();
1392                 $Text = str_replace(["<html><body>", "</body></html>", $doctype, $encoding], ["", "", "", ""], $Text);
1393
1394                 $Text = str_replace('<br></li>', '</li>', $Text);
1395
1396                 //$Text = mb_convert_encoding($Text, "UTF-8", 'HTML-ENTITIES');
1397         }
1398
1399         // Clean up some useless linebreaks in lists
1400         //$Text = str_replace('<br /><ul', '<ul ', $Text);
1401         //$Text = str_replace('</ul><br />', '</ul>', $Text);
1402         //$Text = str_replace('</li><br />', '</li>', $Text);
1403         //$Text = str_replace('<br /><li>', '<li>', $Text);
1404         //$Text = str_replace('<br /><ul', '<ul ', $Text);
1405
1406         Addon::callHooks('bbcode', $Text);
1407
1408         return trim($Text);
1409 }
1410
1411 /**
1412  * @brief Removes the "abstract" element from the text
1413  *
1414  * @param string $text The text with BBCode
1415  * @return string The same text - but without "abstract" element
1416  */
1417 function remove_abstract($text) {
1418         $text = preg_replace("/[\s|\n]*\[abstract\].*?\[\/abstract\][\s|\n]*/ism", '', $text);
1419         $text = preg_replace("/[\s|\n]*\[abstract=.*?\].*?\[\/abstract][\s|\n]*/ism", '', $text);
1420
1421         return $text;
1422 }
1423
1424 /**
1425  * @brief Returns the value of the "abstract" element
1426  *
1427  * @param string $text The text that maybe contains the element
1428  * @param string $addon The addon for which the abstract is meant for
1429  * @return string The abstract
1430  */
1431 function fetch_abstract($text, $addon = "") {
1432         $abstract = "";
1433         $abstracts = [];
1434         $addon = strtolower($addon);
1435
1436         if (preg_match_all("/\[abstract=(.*?)\](.*?)\[\/abstract\]/ism",$text, $results, PREG_SET_ORDER))
1437                 foreach ($results AS $result)
1438                         $abstracts[strtolower($result[1])] = $result[2];
1439
1440         if (isset($abstracts[$addon]))
1441                 $abstract = $abstracts[$addon];
1442
1443         if ($abstract == "")
1444                 if (preg_match("/\[abstract\](.*?)\[\/abstract\]/ism",$text, $result))
1445                         $abstract = $result[1];
1446
1447         return $abstract;
1448 }