3 * @file include/text.php
7 use Friendica\Content\ContactSelector;
8 use Friendica\Content\Feature;
9 use Friendica\Content\Smilies;
10 use Friendica\Content\Text\BBCode;
11 use Friendica\Core\Addon;
12 use Friendica\Core\Config;
13 use Friendica\Core\L10n;
14 use Friendica\Core\PConfig;
15 use Friendica\Core\Protocol;
16 use Friendica\Core\System;
17 use Friendica\Database\DBA;
18 use Friendica\Model\Contact;
19 use Friendica\Model\Event;
20 use Friendica\Model\Item;
21 use Friendica\Render\FriendicaSmarty;
22 use Friendica\Util\DateTimeFormat;
23 use Friendica\Util\Map;
24 use Friendica\Util\Proxy as ProxyUtils;
26 use Friendica\Core\Logger;
27 use Friendica\Core\Renderer;
28 use Friendica\Model\FileTag;
29 use Friendica\Util\Strings;
30 use Friendica\Util\XML;
31 use Friendica\Content\Text\HTML;
33 require_once "include/conversation.php";
36 * Turn user/group ACLs stored as angle bracketed text into arrays
41 function expand_acl($s) {
42 // turn string array of angle-bracketed elements into numeric array
43 // e.g. "<1><2><3>" => array(1,2,3);
47 $t = str_replace('<', '', $s);
48 $a = explode('>', $t);
60 * Wrap ACL elements in angle brackets for storage
63 function sanitise_acl(&$item) {
65 $item = '<' . intval(Strings::escapeTags(trim($item))) . '>';
73 * Convert an ACL array to a storable string
75 * Normally ACL permissions will be an array.
76 * We'll also allow a comma-separated string.
78 * @param string|array $p
81 function perms2str($p) {
86 $tmp = explode(',', $p);
90 array_walk($tmp, 'sanitise_acl');
91 $ret = implode('', $tmp);
97 * for html,xml parsing - let's say you've got
98 * an attribute foobar="class1 class2 class3"
99 * and you want to find out if it contains 'class3'.
100 * you can't use a normal sub string search because you
101 * might match 'notclass3' and a regex to do the job is
102 * possible but a bit complicated.
103 * pass the attribute string as $attr and the attribute you
104 * are looking for as $s - returns true if found, otherwise false
106 * @param string $attr attribute value
107 * @param string $s string to search
108 * @return boolean True if found, False otherwise
110 function attribute_contains($attr, $s) {
111 $a = explode(' ', $attr);
112 return (count($a) && in_array($s,$a));
116 * Compare activity uri. Knows about activity namespace.
118 * @param string $haystack
119 * @param string $needle
122 function activity_match($haystack,$needle) {
123 return (($haystack === $needle) || ((basename($needle) === $haystack) && strstr($needle, NAMESPACE_ACTIVITY_SCHEMA)));
127 * quick and dirty quoted_printable encoding
133 return str_replace("%", "=", rawurlencode($s));
137 * @brief Find any non-embedded images in private items and add redir links to them
140 * @param array &$item The field array of an item row
142 function redir_private_images($a, &$item)
145 $cnt = preg_match_all('|\[img\](http[^\[]*?/photo/[a-fA-F0-9]+?(-[0-9]\.[\w]+?)?)\[\/img\]|', $item['body'], $matches, PREG_SET_ORDER);
147 foreach ($matches as $mtch) {
148 if (strpos($mtch[1], '/redir') !== false) {
152 if ((local_user() == $item['uid']) && ($item['private'] == 1) && ($item['contact-id'] != $a->contact['id']) && ($item['network'] == Protocol::DFRN)) {
153 $img_url = 'redir?f=1&quiet=1&url=' . urlencode($mtch[1]) . '&conurl=' . urlencode($item['author-link']);
154 $item['body'] = str_replace($mtch[0], '[img]' . $img_url . '[/img]', $item['body']);
161 * @brief Given a text string, convert from bbcode to html and add smilie icons.
163 * @param string $text String with bbcode.
164 * @return string Formattet HTML.
166 function prepare_text($text) {
167 if (stristr($text, '[nosmile]')) {
168 $s = BBCode::convert($text);
170 $s = Smilies::replace(BBCode::convert($text));
177 * return array with details for categories and folders for an item
183 * [ // categories array
185 * 'name': 'category name',
186 * 'removeurl': 'url to remove this category',
187 * 'first': 'is the first in this array? true/false',
188 * 'last': 'is the last in this array? true/false',
194 * 'name': 'folder name',
195 * 'removeurl': 'url to remove this folder',
196 * 'first': 'is the first in this array? true/false',
197 * 'last': 'is the last in this array? true/false',
203 function get_cats_and_terms($item)
210 $cnt = preg_match_all('/<(.*?)>/', $item['file'], $matches, PREG_SET_ORDER);
212 foreach ($matches as $mtch) {
214 'name' => XML::escape(FileTag::decode($mtch[1])),
216 'removeurl' => ((local_user() == $item['uid'])?'filerm/' . $item['id'] . '?f=&cat=' . XML::escape(FileTag::decode($mtch[1])):""),
224 if (count($categories)) {
225 $categories[count($categories) - 1]['last'] = true;
228 if (local_user() == $item['uid']) {
231 $cnt = preg_match_all('/\[(.*?)\]/', $item['file'], $matches, PREG_SET_ORDER);
233 foreach ($matches as $mtch) {
235 'name' => XML::escape(FileTag::decode($mtch[1])),
237 'removeurl' => ((local_user() == $item['uid']) ? 'filerm/' . $item['id'] . '?f=&term=' . XML::escape(FileTag::decode($mtch[1])) : ""),
246 if (count($folders)) {
247 $folders[count($folders) - 1]['last'] = true;
250 return [$categories, $folders];
254 * return number of bytes in size (K, M, G)
255 * @param string $size_str
258 function return_bytes($size_str) {
259 switch (substr ($size_str, -1)) {
260 case 'M': case 'm': return (int)$size_str * 1048576;
261 case 'K': case 'k': return (int)$size_str * 1024;
262 case 'G': case 'g': return (int)$size_str * 1073741824;
263 default: return $size_str;
267 function bb_translate_video($s) {
270 $r = preg_match_all("/\[video\](.*?)\[\/video\]/ism",$s,$matches,PREG_SET_ORDER);
272 foreach ($matches as $mtch) {
273 if ((stristr($mtch[1], 'youtube')) || (stristr($mtch[1], 'youtu.be'))) {
274 $s = str_replace($mtch[0], '[youtube]' . $mtch[1] . '[/youtube]', $s);
275 } elseif (stristr($mtch[1], 'vimeo')) {
276 $s = str_replace($mtch[0], '[vimeo]' . $mtch[1] . '[/vimeo]', $s);
283 function undo_post_tagging($s) {
285 $cnt = preg_match_all('/([!#@])\[url=(.*?)\](.*?)\[\/url\]/ism', $s, $matches, PREG_SET_ORDER);
287 foreach ($matches as $mtch) {
288 if (in_array($mtch[1], ['!', '@'])) {
289 $contact = Contact::getDetailsByURL($mtch[2]);
290 $mtch[3] = empty($contact['addr']) ? $mtch[2] : $contact['addr'];
292 $s = str_replace($mtch[0], $mtch[1] . $mtch[3],$s);
298 /// @TODO Rewrite this
299 function is_a_date_arg($s) {
305 if ($i <= $y + 1 && strpos($s, '-') == 4) {
306 $m = intval(substr($s, 5));
308 if ($m > 0 && $m <= 12) {