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;
34 * Turn user/group ACLs stored as angle bracketed text into arrays
39 function expand_acl($s) {
40 // turn string array of angle-bracketed elements into numeric array
41 // e.g. "<1><2><3>" => array(1,2,3);
45 $t = str_replace('<', '', $s);
46 $a = explode('>', $t);
58 * Wrap ACL elements in angle brackets for storage
61 function sanitise_acl(&$item) {
63 $item = '<' . intval(Strings::escapeTags(trim($item))) . '>';
71 * Convert an ACL array to a storable string
73 * Normally ACL permissions will be an array.
74 * We'll also allow a comma-separated string.
76 * @param string|array $p
79 function perms2str($p) {
84 $tmp = explode(',', $p);
88 array_walk($tmp, 'sanitise_acl');
89 $ret = implode('', $tmp);
95 * for html,xml parsing - let's say you've got
96 * an attribute foobar="class1 class2 class3"
97 * and you want to find out if it contains 'class3'.
98 * you can't use a normal sub string search because you
99 * might match 'notclass3' and a regex to do the job is
100 * possible but a bit complicated.
101 * pass the attribute string as $attr and the attribute you
102 * are looking for as $s - returns true if found, otherwise false
104 * @param string $attr attribute value
105 * @param string $s string to search
106 * @return boolean True if found, False otherwise
108 function attribute_contains($attr, $s) {
109 $a = explode(' ', $attr);
110 return (count($a) && in_array($s,$a));
114 * Compare activity uri. Knows about activity namespace.
116 * @param string $haystack
117 * @param string $needle
120 function activity_match($haystack,$needle) {
121 return (($haystack === $needle) || ((basename($needle) === $haystack) && strstr($needle, NAMESPACE_ACTIVITY_SCHEMA)));
125 * quick and dirty quoted_printable encoding
131 return str_replace("%", "=", rawurlencode($s));
135 * @brief Find any non-embedded images in private items and add redir links to them
138 * @param array &$item The field array of an item row
140 function redir_private_images($a, &$item)
143 $cnt = preg_match_all('|\[img\](http[^\[]*?/photo/[a-fA-F0-9]+?(-[0-9]\.[\w]+?)?)\[\/img\]|', $item['body'], $matches, PREG_SET_ORDER);
145 foreach ($matches as $mtch) {
146 if (strpos($mtch[1], '/redir') !== false) {
150 if ((local_user() == $item['uid']) && ($item['private'] == 1) && ($item['contact-id'] != $a->contact['id']) && ($item['network'] == Protocol::DFRN)) {
151 $img_url = 'redir?f=1&quiet=1&url=' . urlencode($mtch[1]) . '&conurl=' . urlencode($item['author-link']);
152 $item['body'] = str_replace($mtch[0], '[img]' . $img_url . '[/img]', $item['body']);
159 * @brief Given a text string, convert from bbcode to html and add smilie icons.
161 * @param string $text String with bbcode.
162 * @return string Formattet HTML.
164 function prepare_text($text) {
165 if (stristr($text, '[nosmile]')) {
166 $s = BBCode::convert($text);
168 $s = Smilies::replace(BBCode::convert($text));
175 * return array with details for categories and folders for an item
181 * [ // categories array
183 * 'name': 'category name',
184 * 'removeurl': 'url to remove this category',
185 * 'first': 'is the first in this array? true/false',
186 * 'last': 'is the last in this array? true/false',
192 * 'name': 'folder name',
193 * 'removeurl': 'url to remove this folder',
194 * 'first': 'is the first in this array? true/false',
195 * 'last': 'is the last in this array? true/false',
201 function get_cats_and_terms($item)
208 $cnt = preg_match_all('/<(.*?)>/', $item['file'], $matches, PREG_SET_ORDER);
210 foreach ($matches as $mtch) {
212 'name' => XML::escape(FileTag::decode($mtch[1])),
214 'removeurl' => ((local_user() == $item['uid'])?'filerm/' . $item['id'] . '?f=&cat=' . XML::escape(FileTag::decode($mtch[1])):""),
222 if (count($categories)) {
223 $categories[count($categories) - 1]['last'] = true;
226 if (local_user() == $item['uid']) {
229 $cnt = preg_match_all('/\[(.*?)\]/', $item['file'], $matches, PREG_SET_ORDER);
231 foreach ($matches as $mtch) {
233 'name' => XML::escape(FileTag::decode($mtch[1])),
235 'removeurl' => ((local_user() == $item['uid']) ? 'filerm/' . $item['id'] . '?f=&term=' . XML::escape(FileTag::decode($mtch[1])) : ""),
244 if (count($folders)) {
245 $folders[count($folders) - 1]['last'] = true;
248 return [$categories, $folders];
252 * return number of bytes in size (K, M, G)
253 * @param string $size_str
256 function return_bytes($size_str) {
257 switch (substr ($size_str, -1)) {
258 case 'M': case 'm': return (int)$size_str * 1048576;
259 case 'K': case 'k': return (int)$size_str * 1024;
260 case 'G': case 'g': return (int)$size_str * 1073741824;
261 default: return $size_str;
265 function bb_translate_video($s) {
268 $r = preg_match_all("/\[video\](.*?)\[\/video\]/ism",$s,$matches,PREG_SET_ORDER);
270 foreach ($matches as $mtch) {
271 if ((stristr($mtch[1], 'youtube')) || (stristr($mtch[1], 'youtu.be'))) {
272 $s = str_replace($mtch[0], '[youtube]' . $mtch[1] . '[/youtube]', $s);
273 } elseif (stristr($mtch[1], 'vimeo')) {
274 $s = str_replace($mtch[0], '[vimeo]' . $mtch[1] . '[/vimeo]', $s);
281 function undo_post_tagging($s) {
283 $cnt = preg_match_all('/([!#@])\[url=(.*?)\](.*?)\[\/url\]/ism', $s, $matches, PREG_SET_ORDER);
285 foreach ($matches as $mtch) {
286 if (in_array($mtch[1], ['!', '@'])) {
287 $contact = Contact::getDetailsByURL($mtch[2]);
288 $mtch[3] = empty($contact['addr']) ? $mtch[2] : $contact['addr'];
290 $s = str_replace($mtch[0], $mtch[1] . $mtch[3],$s);
296 /// @TODO Rewrite this
297 function is_a_date_arg($s) {
303 if ($i <= $y + 1 && strpos($s, '-') == 4) {
304 $m = intval(substr($s, 5));
306 if ($m > 0 && $m <= 12) {