]> git.mxchange.org Git - friendica.git/blobdiff - include/text.php
Merge pull request #3868 from rabuzarus/20171104_-_use_best_link_url_for_events
[friendica.git] / include / text.php
index 71a254b251ba7497620ed7f02f17aa80ae762832..8f0ff6e73e584153fce9fa13a318181bb55495e8 100644 (file)
@@ -1,11 +1,13 @@
 <?php
 
-require_once("include/template_processor.php");
-require_once("include/friendica_smarty.php");
-require_once("include/Smilies.php");
-require_once("include/map.php");
-require_once("mod/proxy.php");
+use Friendica\App;
+use Friendica\Core\System;
 
+require_once "include/template_processor.php";
+require_once "include/friendica_smarty.php";
+require_once "include/Smilies.php";
+require_once "include/map.php";
+require_once "mod/proxy.php";
 
 if (! function_exists('replace_macros')) {
 /**
@@ -16,21 +18,21 @@ if (! function_exists('replace_macros')) {
  * @param array $r key value pairs (search => replace)
  * @return string substituted string
  */
-function replace_macros($s,$r) {
+function replace_macros($s, $r) {
 
        $stamp1 = microtime(true);
 
        $a = get_app();
 
        // pass $baseurl to all templates
-       $r['$baseurl'] = App::get_baseurl();
-
+       $r['$baseurl'] = System::baseUrl();
 
        $t = $a->template_engine();
        try {
-               $output = $t->replace_macros($s,$r);
+               $output = $t->replace_macros($s, $r);
        } catch (Exception $e) {
-               echo "<pre><b>".__function__."</b>: ".$e->getMessage()."</pre>"; killme();
+               echo "<pre><b>" . __FUNCTION__ . "</b>: " . $e->getMessage() . "</pre>";
+               killme();
        }
 
        $a->save_timestamp($stamp1, "rendering");
@@ -46,10 +48,10 @@ define('RANDOM_STRING_HEX',  0x00 );
 define('RANDOM_STRING_TEXT', 0x01 );
 
 if (! function_exists('random_string')) {
-function random_string($size = 64,$type = RANDOM_STRING_HEX) {
+function random_string($size = 64, $type = RANDOM_STRING_HEX) {
        // generate a bit of entropy and run it through the whirlpool
-       $s = hash('whirlpool', (string) rand() . uniqid(rand(),true) . (string) rand(),(($type == RANDOM_STRING_TEXT) ? true : false));
-       $s = (($type == RANDOM_STRING_TEXT) ? str_replace("\n","",base64url_encode($s,true)) : $s);
+       $s = hash('whirlpool', (string) rand() . uniqid(rand(),true) . (string) rand(), (($type == RANDOM_STRING_TEXT) ? true : false));
+       $s = (($type == RANDOM_STRING_TEXT) ? str_replace("\n", "", base64url_encode($s,true)) : $s);
        return(substr($s,0,$size));
 }}
 
@@ -72,8 +74,7 @@ if (! function_exists('notags')) {
  * @return string Filtered string
  */
 function notags($string) {
-
-       return(str_replace(array("<",">"), array('[',']'), $string));
+       return str_replace(array("<", ">"), array('[', ']'), $string);
 
 //  High-bit filter no longer used
 //     return(str_replace(array("<",">","\xBA","\xBC","\xBE"), array('[',']','','',''), $string));
@@ -89,8 +90,7 @@ if (! function_exists('escape_tags')) {
  * @return string
  */
 function escape_tags($string) {
-
-       return(htmlspecialchars($string, ENT_COMPAT, 'UTF-8', false));
+       return htmlspecialchars($string, ENT_COMPAT, 'UTF-8', false);
 }}
 
 
@@ -106,12 +106,14 @@ if (! function_exists('autoname')) {
  */
 function autoname($len) {
 
-       if ($len <= 0)
+       if ($len <= 0) {
                return '';
+       }
 
        $vowels = array('a','a','ai','au','e','e','e','ee','ea','i','ie','o','ou','u');
-       if (mt_rand(0,5) == 4)
+       if (mt_rand(0, 5) == 4) {
                $vowels[] = 'y';
+       }
 
        $cons = array(
                        'b','bl','br',
@@ -143,10 +145,11 @@ function autoname($len) {
                                'kh', 'kl','kr','mn','pl','pr','rh','tr','qu','wh');
 
        $start = mt_rand(0,2);
-       if ($start == 0)
+       if ($start == 0) {
                $table = $vowels;
-       else
+       } else {
                $table = $cons;
+       }
 
        $word = '';
 
@@ -154,23 +157,25 @@ function autoname($len) {
                $r = mt_rand(0,count($table) - 1);
                $word .= $table[$r];
 
-               if ($table == $vowels)
+               if ($table == $vowels) {
                        $table = array_merge($cons,$midcons);
-               else
+               } else {
                        $table = $vowels;
+               }
 
        }
 
        $word = substr($word,0,$len);
 
        foreach ($noend as $noe) {
-               if ((strlen($word) > 2) && (substr($word,-2) == $noe)) {
-                       $word = substr($word,0,-1);
+               if ((strlen($word) > 2) && (substr($word, -2) == $noe)) {
+                       $word = substr($word, 0, -1);
                        break;
                }
        }
-       if (substr($word,-1) == 'q')
-               $word = substr($word,0,-1);
+       if (substr($word, -1) == 'q') {
+               $word = substr($word, 0, -1);
+       }
        return $word;
 }}
 
@@ -185,6 +190,7 @@ if (! function_exists('xmlify')) {
  * @return string Escaped text.
  */
 function xmlify($str) {
+       /// @TODO deprecated code found?
 /*     $buffer = '';
 
        $len = mb_strlen($str);
@@ -238,6 +244,7 @@ if (! function_exists('unxmlify')) {
  * @return string unescaped text
  */
 function unxmlify($s) {
+       /// @TODO deprecated code found?
 //     $ret = str_replace('&amp;','&', $s);
 //     $ret = str_replace(array('&lt;','&gt;','&quot;','&apos;'),array('<','>','"',"'"),$ret);
        /*$ret = mb_ereg_replace('&amp;', '&', $s);
@@ -257,14 +264,15 @@ if (! function_exists('hex2bin')) {
  * @return number
  */
 function hex2bin($s) {
-       if (! (is_string($s) && strlen($s)))
+       if (! (is_string($s) && strlen($s))) {
                return '';
+       }
 
        if (! ctype_xdigit($s)) {
-               return($s);
+               return $s;
        }
 
-       return(pack("H*",$s));
+       return pack("H*",$s);
 }}
 
 
@@ -286,7 +294,7 @@ function paginate_data(App $a, $count = null) {
        $stripped = trim($stripped, '/');
        $pagenum = $a->pager['page'];
 
-       if (($a->page_offset != '') AND !preg_match('/[?&].offset=/', $stripped)) {
+       if (($a->page_offset != '') && !preg_match('/[?&].offset=/', $stripped)) {
                $stripped .= '&offset=' . urlencode($a->page_offset);
        }
 
@@ -418,8 +426,8 @@ function expand_acl($s) {
        $ret = array();
 
        if (strlen($s)) {
-               $t = str_replace('<','',$s);
-               $a = explode('>',$t);
+               $t = str_replace('<', '', $s);
+               $a = explode('>', $t);
                foreach ($a as $aa) {
                        if (intval($aa)) {
                                $ret[] = intval($aa);
@@ -435,10 +443,11 @@ if (! function_exists('sanitise_acl')) {
  * @param string $item
  */
 function sanitise_acl(&$item) {
-       if (intval($item))
+       if (intval($item)) {
                $item = '<' . intval(notags(trim($item))) . '>';
-       else
+       } else {
                unset($item);
+       }
 }}
 
 
@@ -454,14 +463,15 @@ if (! function_exists('perms2str')) {
  */
 function perms2str($p) {
        $ret = '';
-       if (is_array($p))
+       if (is_array($p)) {
                $tmp = $p;
-       else
+       } else {
                $tmp = explode(',',$p);
+       }
 
        if (is_array($tmp)) {
-               array_walk($tmp,'sanitise_acl');
-               $ret = implode('',$tmp);
+               array_walk($tmp, 'sanitise_acl');
+               $ret = implode('', $tmp);
        }
        return $ret;
 }}
@@ -476,25 +486,21 @@ if (! function_exists('item_new_uri')) {
  * @param int $uid
  * @return string
  */
-function item_new_uri($hostname,$uid, $guid = "") {
+function item_new_uri($hostname, $uid, $guid = "") {
 
        do {
-               $dups = false;
-
-               if ($guid == "")
+               if ($guid == "") {
                        $hash = get_guid(32);
-               else {
+               else {
                        $hash = $guid;
                        $guid = "";
                }
 
                $uri = "urn:X-dfrn:" . $hostname . ':' . $uid . ':' . $hash;
 
-               $r = q("SELECT `id` FROM `item` WHERE `uri` = '%s' LIMIT 1",
-                       dbesc($uri));
-               if (dbm::is_result($r))
-                       $dups = true;
+               $dups = dba::exists('item', array('uri' => $uri));
        } while ($dups == true);
+
        return $uri;
 }}
 
@@ -516,9 +522,12 @@ function photo_new_resource() {
                $r = q("SELECT `id` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1",
                        dbesc($resource)
                );
-               if (dbm::is_result($r))
+
+               if (dbm::is_result($r)) {
                        $found = true;
+               }
        } while ($found == true);
+
        return $resource;
 }}
 
@@ -536,8 +545,9 @@ if (! function_exists('load_view_file')) {
  */
 function load_view_file($s) {
        global $lang, $a;
-       if (! isset($lang))
+       if (! isset($lang)) {
                $lang = 'en';
+       }
        $b = basename($s);
        $d = dirname($s);
        if (file_exists("$d/$lang/$b")) {
@@ -576,11 +586,13 @@ function get_intltext_template($s) {
 
        $a = get_app();
        $engine = '';
-       if ($a->theme['template_engine'] === 'smarty3')
+       if ($a->theme['template_engine'] === 'smarty3') {
                $engine = "/smarty3";
+       }
 
-       if (! isset($lang))
+       if (! isset($lang)) {
                $lang = 'en';
+       }
 
        if (file_exists("view/lang/$lang$engine/$s")) {
                $stamp1 = microtime(true);
@@ -616,7 +628,8 @@ function get_markup_template($s, $root = '') {
        try {
                $template = $t->get_template_file($s, $root);
        } catch (Exception $e) {
-               echo "<pre><b>".__function__."</b>: ".$e->getMessage()."</pre>"; killme();
+               echo "<pre><b>" . __FUNCTION__ . "</b>: " . $e->getMessage() . "</pre>";
+               killme();
        }
 
        $a->save_timestamp($stamp1, "file");
@@ -636,27 +649,24 @@ function get_template_file($a, $filename, $root = '') {
        $theme = current_theme();
 
        // Make sure $root ends with a slash /
-       if ($root !== '' && $root[strlen($root)-1] !== '/')
+       if ($root !== '' && substr($root, -1, 1) !== '/') {
                $root = $root . '/';
+       }
 
-       if (file_exists("{$root}view/theme/$theme/$filename"))
+       if (file_exists("{$root}view/theme/$theme/$filename")) {
                $template_file = "{$root}view/theme/$theme/$filename";
-       elseif (x($a->theme_info,"extends") && file_exists("{$root}view/theme/{$a->theme_info["extends"]}/$filename"))
-               $template_file = "{$root}view/theme/{$a->theme_info["extends"]}/$filename";
-       elseif (file_exists("{$root}/$filename"))
+       } elseif (x($a->theme_info, "extends") && file_exists(sprintf('%sview/theme/%s}/%s', $root, $a->theme_info["extends"], $filename))) {
+               $template_file = sprintf('%sview/theme/%s}/%s', $root, $a->theme_info["extends"], $filename);
+       } elseif (file_exists("{$root}/$filename")) {
                $template_file = "{$root}/$filename";
-       else
+       } else {
                $template_file = "{$root}view/$filename";
+       }
 
        return $template_file;
 }}
 
 
-
-
-
-
-
 if (! function_exists('attribute_contains')) {
 /**
  *  for html,xml parsing - let's say you've got
@@ -672,11 +682,9 @@ if (! function_exists('attribute_contains')) {
  * @param string $s string to search
  * @return boolean True if found, False otherwise
  */
-function attribute_contains($attr,$s) {
+function attribute_contains($attr, $s) {
        $a = explode(' ', $attr);
-       if (count($a) && in_array($s,$a))
-               return true;
-       return false;
+       return (count($a) && in_array($s,$a));
 }}
 
 if (! function_exists('logger')) {
@@ -694,20 +702,18 @@ $LOGGER_LEVELS = array();
  * LOGGER_ALL
  *
  * @global App $a
- * @global dba $db
  * @global array $LOGGER_LEVELS
  * @param string $msg
  * @param int $level
  */
 function logger($msg, $level = 0) {
        $a = get_app();
-       global $db;
        global $LOGGER_LEVELS;
 
        // turn off logger in install mode
        if (
                $a->module == 'install'
-               || ! ($db && $db->connected)
+               || !dba::$connected
        ) {
                return;
        }
@@ -740,7 +746,7 @@ function logger($msg, $level = 0) {
 
        $callers = debug_backtrace();
        $logline = sprintf("%s@%s\t[%s]:%s:%s:%s\t%s\n",
-                       datetime_convert(),
+                       datetime_convert('UTC', 'UTC', 'now', 'Y-m-d\TH:i:s\Z'),
                        $process_id,
                        $LOGGER_LEVELS[$level],
                        basename($callers[0]['file']),
@@ -754,6 +760,70 @@ function logger($msg, $level = 0) {
        $a->save_timestamp($stamp1, "file");
 }}
 
+/**
+ * @brief An alternative logger for development.
+ * Works largely as logger() but allows developers
+ * to isolate particular elements they are targetting
+ * personally without background noise
+ *
+ * log levels:
+ * LOGGER_NORMAL (default)
+ * LOGGER_TRACE
+ * LOGGER_DEBUG
+ * LOGGER_DATA
+ * LOGGER_ALL
+ *
+ * @global App $a
+ * @global array $LOGGER_LEVELS
+ * @param string $msg
+ * @param int $level
+ */
+
+function dlogger($msg, $level = 0) {
+       $a = get_app();
+
+       // turn off logger in install mode
+       if (
+               $a->module == 'install'
+               || !dba::$connected
+       ) {
+               return;
+       }
+
+       $logfile = get_config('system','dlogfile');
+
+       if (! $logfile) {
+               return;
+       }
+
+       if (count($LOGGER_LEVELS) == 0) {
+               foreach (get_defined_constants() as $k => $v) {
+                       if (substr($k, 0, 7) == "LOGGER_") {
+                               $LOGGER_LEVELS[$v] = substr($k, 7, 7);
+                       }
+               }
+       }
+
+       $process_id = session_id();
+
+       if ($process_id == '') {
+               $process_id = get_app()->process_id;
+       }
+
+       $callers = debug_backtrace();
+       $logline = sprintf("%s@\t%s:\t%s:\t%s\t%s\t%s\n",
+                       datetime_convert(),
+                       $process_id,
+                       basename($callers[0]['file']),
+                       $callers[0]['line'],
+                       $callers[1]['function'],
+                       $msg
+               );
+
+       $stamp1 = microtime(true);
+       @file_put_contents($logfile, $logline, FILE_APPEND);
+       $a->save_timestamp($stamp1, "file");
+}
 
 if (! function_exists('activity_match')) {
 /**
@@ -764,9 +834,7 @@ if (! function_exists('activity_match')) {
  * @return boolean
  */
 function activity_match($haystack,$needle) {
-       if (($haystack === $needle) || ((basename($needle) === $haystack) && strstr($needle,NAMESPACE_ACTIVITY_SCHEMA)))
-               return true;
-       return false;
+       return (($haystack === $needle) || ((basename($needle) === $haystack) && strstr($needle, NAMESPACE_ACTIVITY_SCHEMA)));
 }}
 
 
@@ -851,7 +919,7 @@ if (! function_exists('qp')) {
  * @return string
  */
 function qp($s) {
-return str_replace ("%","=",rawurlencode($s));
+       return str_replace("%", "=", rawurlencode($s));
 }}
 
 if (! function_exists('contact_block')) {
@@ -867,13 +935,16 @@ function contact_block() {
        $a = get_app();
 
        $shown = get_pconfig($a->profile['uid'],'system','display_friend_count');
-       if ($shown === false)
+       if ($shown === false) {
                $shown = 24;
-       if ($shown == 0)
+       }
+       if ($shown == 0) {
                return;
+       }
 
-       if ((! is_array($a->profile)) || ($a->profile['hide-friends']))
+       if ((! is_array($a->profile)) || ($a->profile['hide-friends'])) {
                return $o;
+       }
        $r = q("SELECT COUNT(*) AS `total` FROM `contact`
                        WHERE `uid` = %d AND NOT `self` AND NOT `blocked`
                                AND NOT `pending` AND NOT `hidden` AND NOT `archive`
@@ -888,8 +959,7 @@ function contact_block() {
        }
        if (! $total) {
                $contacts = t('No contacts');
-               $micropro = Null;
-
+               $micropro = null;
        } else {
                // Splitting the query in two parts makes it much faster
                $r = q("SELECT `id` FROM `contact`
@@ -958,8 +1028,9 @@ function contact_block() {
 function micropro($contact, $redirect = false, $class = '', $textmode = false) {
 
        // Use the contact URL if no address is available
-       if ($contact["addr"] == "")
+       if ($contact["addr"] == "") {
                $contact["addr"] = $contact["url"];
+       }
 
        $url = $contact['url'];
        $sparkle = '';
@@ -972,14 +1043,15 @@ function micropro($contact, $redirect = false, $class = '', $textmode = false) {
                        $redir = true;
                        $url = $redirect_url;
                        $sparkle = ' sparkle';
-               }
-               else
+               } else {
                        $url = zrl($url);
+               }
        }
 
        // If there is some js available we don't need the url
-       if (x($contact,'click'))
+       if (x($contact, 'click')) {
                $url = '';
+       }
 
        return replace_macros(get_markup_template(($textmode)?'micropro_txt.tpl':'micropro_img.tpl'),array(
                '$click' => (($contact['click']) ? $contact['click'] : ''),
@@ -1005,7 +1077,7 @@ if (! function_exists('search')) {
  * @param string $url search url
  * @param boolean $savedsearch show save search button
  */
-function search($s,$id='search-box',$url='search',$save = false, $aside = true) {
+function search($s, $id = 'search-box', $url = 'search', $save = false, $aside = true) {
        $a = get_app();
 
        $values = array(
@@ -1024,8 +1096,9 @@ function search($s,$id='search-box',$url='search',$save = false, $aside = true)
                                        t("Tags"),
                                        t("Contacts"));
 
-               if (get_config('system','poco_local_search'))
+               if (get_config('system','poco_local_search')) {
                        $values['$searchoption'][] = t("Forums");
+               }
        }
 
        return replace_macros(get_markup_template('searchbox.tpl'), $values);
@@ -1040,13 +1113,10 @@ if (! function_exists('valid_email')) {
  */
 function valid_email($x){
 
-       // Removed because Fabio told me so.
+       /// @TODO Removed because Fabio told me so.
        //if (get_config('system','disable_email_validation'))
        //      return true;
-
-       if (preg_match('/^[_a-zA-Z0-9\-\+]+(\.[_a-zA-Z0-9\-\+]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$/',$x))
-               return true;
-       return false;
+       return preg_match('/^[_a-zA-Z0-9\-\+]+(\.[_a-zA-Z0-9\-\+]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$/', $x);
 }}
 
 
@@ -1059,7 +1129,7 @@ if (! function_exists('linkify')) {
 function linkify($s) {
        $s = preg_replace("/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\'\%\$\!\+]*)/", ' <a href="$1" target="_blank">$1</a>', $s);
        $s = preg_replace("/\<(.*?)(src|href)=(.*?)\&amp\;(.*?)\>/ism",'<$1$2=$3&$4>',$s);
-       return($s);
+       return $s;
 }}
 
 
@@ -1121,12 +1191,11 @@ function get_mood_verbs() {
        return $arr;
 }
 
-if (! function_exists('day_translate')) {
 /**
- * Translate days and months names
- *
- * @param string $s
- * @return string
+ * @brief Translate days and months names.
+ * 
+ * @param string $s String with day or month name.
+ * @return string Translated string.
  */
 function day_translate($s) {
        $ret = str_replace(array('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday'),
@@ -1138,8 +1207,23 @@ function day_translate($s) {
                $ret);
 
        return $ret;
-}}
+}
 
+/**
+ * @brief Translate short days and months names.
+ * 
+ * @param string $s String with short day or month name.
+ * @return string Translated string.
+ */
+function day_short_translate($s) {
+       $ret = str_replace(array('Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun'),
+               array(t('Mon'), t('Tue'), t('Wed'), t('Thu'), t('Fri'), t('Sat'), t('Sund')),
+               $s);
+       $ret = str_replace(array('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov','Dec'),
+               array(t('Jan'), t('Feb'), t('Mar'), t('Apr'), t('May'), ('Jun'), t('Jul'), t('Aug'), t('Sep'), t('Oct'), t('Nov'), t('Dec')),
+               $ret);
+       return $ret;
+}
 
 if (! function_exists('normalise_link')) {
 /**
@@ -1149,8 +1233,8 @@ if (! function_exists('normalise_link')) {
  * @return string
  */
 function normalise_link($url) {
-       $ret = str_replace(array('https:','//www.'), array('http:','//'), $url);
-       return(rtrim($ret,'/'));
+       $ret = str_replace(array('https:', '//www.'), array('http:', '//'), $url);
+       return rtrim($ret,'/');
 }}
 
 
@@ -1167,10 +1251,8 @@ if (! function_exists('link_compare')) {
  * @return boolean True if the URLs match, otherwise False
  *
  */
-function link_compare($a,$b) {
-       if (strcasecmp(normalise_link($a),normalise_link($b)) === 0)
-               return true;
-       return false;
+function link_compare($a, $b) {
+       return (strcasecmp(normalise_link($a), normalise_link($b)) === 0);
 }}
 
 /**
@@ -1199,8 +1281,8 @@ function redir_private_images($a, &$item)
 
 function put_item_in_cache(&$item, $update = false) {
 
-       if (($item["rendered-hash"] != hash("md5", $item["body"])) OR ($item["rendered-hash"] == "") OR
-               ($item["rendered-html"] == "") OR get_config("system", "ignore_cache")) {
+       if (($item["rendered-hash"] != hash("md5", $item["body"])) || ($item["rendered-hash"] == "") ||
+               ($item["rendered-html"] == "") || get_config("system", "ignore_cache")) {
 
                // The function "redir_private_images" changes the body.
                // I'm not sure if we should store it permanently, so we save the old value.
@@ -1213,20 +1295,16 @@ function put_item_in_cache(&$item, $update = false) {
                $item["rendered-hash"] = hash("md5", $item["body"]);
                $item["body"] = $body;
 
-               if ($update AND ($item["id"] != 0)) {
-                       q("UPDATE `item` SET `rendered-html` = '%s', `rendered-hash` = '%s' WHERE `id` = %d",
-                               dbesc($item["rendered-html"]), dbesc($item["rendered-hash"]), intval($item["id"]));
+               if ($update && ($item["id"] > 0)) {
+                       dba::update('item', array('rendered-html' => $item["rendered-html"], 'rendered-hash' => $item["rendered-hash"]),
+                                       array('id' => $item["id"]), false);
                }
        }
 }
 
-// Given an item array, convert the body element from bbcode to html and add smilie icons.
-// If attach is true, also add icons for item attachments
-
-if (! function_exists('prepare_body')) {
 /**
- * Given an item array, convert the body element from bbcode to html and add smilie icons.
- * If attach is true, also add icons for item attachments
+ * @brief Given an item array, convert the body element from bbcode to html and add smilie icons.
+ * If attach is true, also add icons for item attachments.
  *
  * @param array $item
  * @param boolean $attach
@@ -1235,27 +1313,41 @@ if (! function_exists('prepare_body')) {
  * @hook prepare_body ('item'=>item array, 'html'=>body string) after first bbcode to html
  * @hook prepare_body_final ('item'=>item array, 'html'=>body string) after attach icons and blockquote special case handling (spoiler, author)
  */
-function prepare_body(&$item,$attach = false, $preview = false) {
+function prepare_body(&$item, $attach = false, $preview = false) {
 
        $a = get_app();
        call_hooks('prepare_body_init', $item);
 
-       $searchpath = z_root()."/search?tag=";
+       $searchpath = System::baseUrl() . "/search?tag=";
 
-       $tags=array();
+       $tags = array();
        $hashtags = array();
        $mentions = array();
 
+       // In order to provide theme developers more possibilities, event items
+       // are treated differently.
+       if ($item['object-type'] === ACTIVITY_OBJ_EVENT && isset($item['event-id'])) {
+               $ev = format_event_item($item);
+               return $ev;
+       }
+
        if (!get_config('system','suppress_tags')) {
-               $taglist = q("SELECT `type`, `term`, `url` FROM `term` WHERE `otype` = %d AND `oid` = %d AND `type` IN (%d, %d) ORDER BY `tid`",
+               $taglist = dba::p("SELECT `type`, `term`, `url` FROM `term` WHERE `otype` = ? AND `oid` = ? AND `type` IN (?, ?) ORDER BY `tid`",
                                intval(TERM_OBJ_POST), intval($item['id']), intval(TERM_HASHTAG), intval(TERM_MENTION));
 
-               foreach ($taglist as $tag) {
-
-                       if ($tag["url"] == "")
+               while ($tag = dba::fetch($taglist)) {
+                       if ($tag["url"] == "") {
                                $tag["url"] = $searchpath.strtolower($tag["term"]);
+                       }
+
+                       $orig_tag = $tag["url"];
+
+                       $tag["url"] = best_link_url($item, $sp, $tag["url"]);
 
                        if ($tag["type"] == TERM_HASHTAG) {
+                               if ($orig_tag != $tag["url"]) {
+                                       $item['body'] = str_replace($orig_tag, $tag["url"], $item['body']);
+                               }
                                $hashtags[] = "#<a href=\"".$tag["url"]."\" target=\"_blank\">".$tag["term"]."</a>";
                                $prefix = "#";
                        } elseif ($tag["type"] == TERM_MENTION) {
@@ -1264,18 +1356,20 @@ function prepare_body(&$item,$attach = false, $preview = false) {
                        }
                        $tags[] = $prefix."<a href=\"".$tag["url"]."\" target=\"_blank\">".$tag["term"]."</a>";
                }
+               dba::close($taglist);
        }
 
        $item['tags'] = $tags;
        $item['hashtags'] = $hashtags;
        $item['mentions'] = $mentions;
 
-       // Update the cached values if there is no "zrl=..." on the links
-       $update = (!local_user() and !remote_user() and ($item["uid"] == 0));
+       // Update the cached values if there is no "zrl=..." on the links.
+       $update = (!local_user() && !remote_user() && ($item["uid"] == 0));
 
-       // Or update it if the current viewer is the intented viewer
-       if (($item["uid"] == local_user()) AND ($item["uid"] != 0))
+       // Or update it if the current viewer is the intented viewer.
+       if (($item["uid"] == local_user()) && ($item["uid"] != 0)) {
                $update = true;
+       }
 
        put_item_in_cache($item, $update);
        $s = $item["rendered-html"];
@@ -1285,7 +1379,7 @@ function prepare_body(&$item,$attach = false, $preview = false) {
        $s = $prep_arr['html'];
 
        if (! $attach) {
-               // Replace the blockquotes with quotes that are used in mails
+               // Replace the blockquotes with quotes that are used in mails.
                $mailquote = '<blockquote type="cite" class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">';
                $s = str_replace(array('<blockquote>', '<blockquote class="spoiler">', '<blockquote class="author">'), array($mailquote, $mailquote, $mailquote), $s);
                return $s;
@@ -1293,152 +1387,135 @@ function prepare_body(&$item,$attach = false, $preview = false) {
 
        $as = '';
        $vhead = false;
-       $arr = explode('[/attach],',$item['attach']);
+       $arr = explode('[/attach],', $item['attach']);
        if (count($arr)) {
-               $as .= '<div class="body-attach">';
                foreach ($arr as $r) {
                        $matches = false;
                        $icon = '';
-                       $cnt = preg_match_all('|\[attach\]href=\"(.*?)\" length=\"(.*?)\" type=\"(.*?)\" title=\"(.*?)\"|',$r,$matches, PREG_SET_ORDER);
+                       $cnt = preg_match_all('|\[attach\]href=\"(.*?)\" length=\"(.*?)\" type=\"(.*?)\" title=\"(.*?)\"|',$r ,$matches, PREG_SET_ORDER);
                        if ($cnt) {
                                foreach ($matches as $mtch) {
                                        $mime = $mtch[3];
 
-                                       if ((local_user() == $item['uid']) && ($item['contact-id'] != $a->contact['id']) && ($item['network'] == NETWORK_DFRN))
+                                       if ((local_user() == $item['uid']) && ($item['contact-id'] != $a->contact['id']) && ($item['network'] == NETWORK_DFRN)) {
                                                $the_url = 'redir/' . $item['contact-id'] . '?f=1&url=' . $mtch[1];
-                                       else
+                                       } else {
                                                $the_url = $mtch[1];
+                                       }
 
                                        if (strpos($mime, 'video') !== false) {
                                                if (!$vhead) {
                                                        $vhead = true;
                                                        $a->page['htmlhead'] .= replace_macros(get_markup_template('videos_head.tpl'), array(
-                                                               '$baseurl' => z_root(),
+                                                               '$baseurl' => System::baseUrl(),
                                                        ));
                                                        $a->page['end'] .= replace_macros(get_markup_template('videos_end.tpl'), array(
-                                                               '$baseurl' => z_root(),
+                                                               '$baseurl' => System::baseUrl(),
                                                        ));
                                                }
 
                                                $id = end(explode('/', $the_url));
                                                $as .= replace_macros(get_markup_template('video_top.tpl'), array(
-                                                       '$video'        => array(
-                                                               'id'       => $id,
-                                                               'title'         => t('View Video'),
-                                                               'src'           => $the_url,
-                                                               'mime'          => $mime,
+                                                       '$video' => array(
+                                                               'id'     => $id,
+                                                               'title'  => t('View Video'),
+                                                               'src'    => $the_url,
+                                                               'mime'   => $mime,
                                                        ),
                                                ));
                                        }
 
-                                       $filetype = strtolower(substr( $mime, 0, strpos($mime,'/') ));
+                                       $filetype = strtolower(substr($mime, 0, strpos($mime, '/')));
                                        if ($filetype) {
-                                               $filesubtype = strtolower(substr( $mime, strpos($mime,'/') + 1 ));
+                                               $filesubtype = strtolower(substr($mime, strpos($mime, '/') + 1));
                                                $filesubtype = str_replace('.', '-', $filesubtype);
-                                       }
-                                       else {
+                                       } else {
                                                $filetype = 'unkn';
                                                $filesubtype = 'unkn';
                                        }
 
-                                       $icon = '<div class="attachtype icon s22 type-' . $filetype . ' subtype-' . $filesubtype . '"></div>';
-                                       /*$icontype = strtolower(substr($mtch[3],0,strpos($mtch[3],'/')));
-                                       switch($icontype) {
-                                               case 'video':
-                                               case 'audio':
-                                               case 'image':
-                                               case 'text':
-                                                       $icon = '<div class="attachtype icon s22 type-' . $icontype . '"></div>';
-                                                       break;
-                                               default:
-                                                       $icon = '<div class="attachtype icon s22 type-unkn"></div>';
-                                                       break;
-                                       }*/
-
                                        $title = ((strlen(trim($mtch[4]))) ? escape_tags(trim($mtch[4])) : escape_tags($mtch[1]));
                                        $title .= ' ' . $mtch[2] . ' ' . t('bytes');
 
+                                       $icon = '<div class="attachtype icon s22 type-' . $filetype . ' subtype-' . $filesubtype . '"></div>';
                                        $as .= '<a href="' . strip_tags($the_url) . '" title="' . $title . '" class="attachlink" target="_blank" >' . $icon . '</a>';
                                }
                        }
                }
-               $as .= '<div class="clear"></div></div>';
        }
-       $s = $s . $as;
+       if ($as != '') {
+               $s .= '<div class="body-attach">'.$as.'<div class="clear"></div></div>';
+       }
 
-       // map
-       if (strpos($s,'<div class="map">') !== false && $item['coord']) {
+       // Map.
+       if (strpos($s, '<div class="map">') !== false && x($item, 'coord')) {
                $x = generate_map(trim($item['coord']));
                if ($x) {
-                       $s = preg_replace('/\<div class\=\"map\"\>/','$0' . $x,$s);
+                       $s = preg_replace('/\<div class\=\"map\"\>/', '$0' . $x, $s);
                }
        }
 
 
-       // Look for spoiler
+       // Look for spoiler.
        $spoilersearch = '<blockquote class="spoiler">';
 
-       // Remove line breaks before the spoiler
-       while ((strpos($s, "\n".$spoilersearch) !== false))
-               $s = str_replace("\n".$spoilersearch, $spoilersearch, $s);
-       while ((strpos($s, "<br />".$spoilersearch) !== false))
-               $s = str_replace("<br />".$spoilersearch, $spoilersearch, $s);
+       // Remove line breaks before the spoiler.
+       while ((strpos($s, "\n" . $spoilersearch) !== false)) {
+               $s = str_replace("\n" . $spoilersearch, $spoilersearch, $s);
+       }
+       while ((strpos($s, "<br />" . $spoilersearch) !== false)) {
+               $s = str_replace("<br />" . $spoilersearch, $spoilersearch, $s);
+       }
 
        while ((strpos($s, $spoilersearch) !== false)) {
-
                $pos = strpos($s, $spoilersearch);
                $rnd = random_string(8);
-               $spoilerreplace = '<br /> <span id="spoiler-wrap-'.$rnd.'" class="spoiler-wrap fakelink" onclick="openClose(\'spoiler-'.$rnd.'\');">'.sprintf(t('Click to open/close')).'</span>'.
-                                       '<blockquote class="spoiler" id="spoiler-'.$rnd.'" style="display: none;">';
-               $s = substr($s, 0, $pos).$spoilerreplace.substr($s, $pos+strlen($spoilersearch));
+               $spoilerreplace = '<br /> <span id="spoiler-wrap-' . $rnd . '" class="spoiler-wrap fakelink" onclick="openClose(\'spoiler-' . $rnd . '\');">' . sprintf(t('Click to open/close')) . '</span>'.
+                                       '<blockquote class="spoiler" id="spoiler-' . $rnd . '" style="display: none;">';
+               $s = substr($s, 0, $pos) . $spoilerreplace . substr($s, $pos + strlen($spoilersearch));
        }
 
-       // Look for quote with author
+       // Look for quote with author.
        $authorsearch = '<blockquote class="author">';
 
        while ((strpos($s, $authorsearch) !== false)) {
-
                $pos = strpos($s, $authorsearch);
                $rnd = random_string(8);
-               $authorreplace = '<br /> <span id="author-wrap-'.$rnd.'" class="author-wrap fakelink" onclick="openClose(\'author-'.$rnd.'\');">'.sprintf(t('Click to open/close')).'</span>'.
-                                       '<blockquote class="author" id="author-'.$rnd.'" style="display: block;">';
-               $s = substr($s, 0, $pos).$authorreplace.substr($s, $pos+strlen($authorsearch));
+               $authorreplace = '<br /> <span id="author-wrap-' . $rnd . '" class="author-wrap fakelink" onclick="openClose(\'author-' . $rnd . '\');">' . sprintf(t('Click to open/close')) . '</span>'.
+                                       '<blockquote class="author" id="author-' . $rnd . '" style="display: block;">';
+               $s = substr($s, 0, $pos) . $authorreplace . substr($s, $pos + strlen($authorsearch));
        }
 
-       // replace friendica image url size with theme preference
-       if (x($a->theme_info,'item_image_size')){
-           $ps = $a->theme_info['item_image_size'];
-
-           $s = preg_replace('|(<img[^>]+src="[^"]+/photo/[0-9a-f]+)-[0-9]|',"$1-".$ps, $s);
+       // Replace friendica image url size with theme preference.
+       if (x($a->theme_info, 'item_image_size')){
+               $ps = $a->theme_info['item_image_size'];
+               $s = preg_replace('|(<img[^>]+src="[^"]+/photo/[0-9a-f]+)-[0-9]|', "$1-" . $ps, $s);
        }
 
        $prep_arr = array('item' => $item, 'html' => $s);
        call_hooks('prepare_body_final', $prep_arr);
 
        return $prep_arr['html'];
-}}
-
+}
 
-if (! function_exists('prepare_text')) {
 /**
- * Given a text string, convert from bbcode to html and add smilie icons.
+ * @brief Given a text string, convert from bbcode to html and add smilie icons.
  *
- * @param string $text
- * @return string
+ * @param string $text String with bbcode.
+ * @return string Formattet HTML.
  */
 function prepare_text($text) {
 
-       require_once('include/bbcode.php');
+       require_once 'include/bbcode.php';
 
-       if (stristr($text,'[nosmile]'))
+       if (stristr($text, '[nosmile]')) {
                $s = bbcode($text);
-       else
+       } else {
                $s = Smilies::replace(bbcode($text));
+       }
 
        return trim($s);
-}}
-
-
+}
 
 /**
  * return array with details for categories and folders for an item
@@ -1473,8 +1550,9 @@ function get_cats_and_terms($item) {
        $categories = array();
        $folders = array();
 
-       $matches = false; $first = true;
-       $cnt = preg_match_all('/<(.*?)>/',$item['file'],$matches,PREG_SET_ORDER);
+       $matches = false;
+       $first = true;
+       $cnt = preg_match_all('/<(.*?)>/', $item['file'], $matches, PREG_SET_ORDER);
        if ($cnt) {
                foreach ($matches as $mtch) {
                        $categories[] = array(
@@ -1487,18 +1565,21 @@ function get_cats_and_terms($item) {
                        $first = false;
                }
        }
-       if (count($categories)) $categories[count($categories)-1]['last'] = true;
 
+       if (count($categories)) {
+               $categories[count($categories) - 1]['last'] = true;
+       }
 
        if (local_user() == $item['uid']) {
-               $matches = false; $first = true;
-               $cnt = preg_match_all('/\[(.*?)\]/',$item['file'],$matches,PREG_SET_ORDER);
+               $matches = false;
+               $first = true;
+               $cnt = preg_match_all('/\[(.*?)\]/', $item['file'], $matches, PREG_SET_ORDER);
                if ($cnt) {
                        foreach ($matches as $mtch) {
                                $folders[] = array(
                                        'name' => xmlify(file_tag_decode($mtch[1])),
                                        'url' =>  "#",
-                                       'removeurl' => ((local_user() == $item['uid'])?'filerm/' . $item['id'] . '?f=&term=' . xmlify(file_tag_decode($mtch[1])):""),
+                                       'removeurl' => ((local_user() == $item['uid']) ? 'filerm/' . $item['id'] . '?f=&term=' . xmlify(file_tag_decode($mtch[1])) : ""),
                                        'first' => $first,
                                        'last' => false
                                );
@@ -1507,7 +1588,9 @@ function get_cats_and_terms($item) {
                }
        }
 
-       if (count($folders)) $folders[count($folders)-1]['last'] = true;
+       if (count($folders)) {
+               $folders[count($folders) - 1]['last'] = true;
+       }
 
        return array($categories, $folders);
 }
@@ -1523,30 +1606,29 @@ function get_plink($item) {
 
        if ($a->user['nickname'] != "") {
                $ret = array(
-                               //'href' => "display/".$a->user['nickname']."/".$item['id'],
-                               'href' => "display/".$item['guid'],
-                               'orig' => "display/".$item['guid'],
+                               //'href' => "display/" . $a->user['nickname'] . "/" . $item['id'],
+                               'href' => "display/" . $item['guid'],
+                               'orig' => "display/" . $item['guid'],
                                'title' => t('View on separate page'),
                                'orig_title' => t('view on separate page'),
                        );
 
-               if (x($item,'plink')) {
+               if (x($item, 'plink')) {
                        $ret["href"] = $a->remove_baseurl($item['plink']);
                        $ret["title"] = t('link to source');
                }
 
-       } elseif (x($item,'plink') && ($item['private'] != 1))
+       } elseif (x($item, 'plink') && ($item['private'] != 1)) {
                $ret = array(
                                'href' => $item['plink'],
                                'orig' => $item['plink'],
                                'title' => t('link to source'),
                        );
-       else
+       } else {
                $ret = array();
+       }
 
-       //if (x($item,'plink') && ($item['private'] != 1))
-
-       return($ret);
+       return $ret;
 }}
 
 if (! function_exists('unamp')) {
@@ -1585,9 +1667,11 @@ function generate_user_guid() {
                $x = q("SELECT `uid` FROM `user` WHERE `guid` = '%s' LIMIT 1",
                        dbesc($guid)
                );
-               if (! count($x))
+               if (! dbm::is_result($x)) {
                        $found = false;
-       } while ($found == true );
+               }
+       } while ($found == true);
+
        return $guid;
 }
 
@@ -1599,10 +1683,11 @@ function generate_user_guid() {
  */
 function base64url_encode($s, $strip_padding = false) {
 
-       $s = strtr(base64_encode($s),'+/','-_');
+       $s = strtr(base64_encode($s), '+/', '-_');
 
-       if ($strip_padding)
+       if ($strip_padding) {
                $s = str_replace('=','',$s);
+       }
 
        return $s;
 }
@@ -1750,8 +1835,11 @@ function html2bb_video($s) {
  * @return array
  */
 function array_xmlify($val){
-       if (is_bool($val)) return $val?"true":"false";
-       if (is_array($val)) return array_map('array_xmlify', $val);
+       if (is_bool($val)) {
+               return $val?"true":"false";
+       } elseif (is_array($val)) {
+               return array_map('array_xmlify', $val);
+       }
        return xmlify((string) $val);
 }
 
@@ -1764,8 +1852,9 @@ function array_xmlify($val){
  * @return string
  */
 function reltoabs($text, $base) {
-       if (empty($base))
-           return $text;
+       if (empty($base)) {
+               return $text;
+       }
 
        $base = rtrim($base,'/');
 
@@ -1801,14 +1890,16 @@ function reltoabs($text, $base) {
  * @return string
  */
 function item_post_type($item) {
-       if (intval($item['event-id']))
+       if (intval($item['event-id'])) {
                return t('event');
-       if (strlen($item['resource-id']))
+       } elseif (strlen($item['resource-id'])) {
                return t('photo');
-       if (strlen($item['verb']) && $item['verb'] !== ACTIVITY_POST)
+       } elseif (strlen($item['verb']) && $item['verb'] !== ACTIVITY_POST) {
                return t('activity');
-       if ($item['id'] != $item['parent'])
+       } elseif ($item['id'] != $item['parent']) {
                return t('comment');
+       }
+
        return t('post');
 }
 
@@ -1822,15 +1913,16 @@ function file_tag_encode($s) {
 }
 
 function file_tag_decode($s) {
-       return str_replace(array('%3c','%3e','%5b','%5d'),array('<','>','[',']'),$s);
+       return str_replace(array('%3c', '%3e', '%5b', '%5d'), array('<', '>', '[', ']'), $s);
 }
 
 function file_tag_file_query($table,$s,$type = 'file') {
 
-       if ($type == 'file')
-               $str = preg_quote( '[' . str_replace('%','%%',file_tag_encode($s)) . ']' );
-       else
-               $str = preg_quote( '<' . str_replace('%','%%',file_tag_encode($s)) . '>' );
+       if ($type == 'file') {
+               $str = preg_quote( '[' . str_replace('%', '%%', file_tag_encode($s)) . ']' );
+       } else {
+               $str = preg_quote( '<' . str_replace('%', '%%', file_tag_encode($s)) . '>' );
+       }
        return " AND " . (($table) ? dbesc($table) . '.' : '') . "file regexp '" . dbesc($str) . "' ";
 }
 
@@ -1842,14 +1934,13 @@ function file_tag_list_to_file($list,$type = 'file') {
                if ($type == 'file') {
                        $lbracket = '[';
                        $rbracket = ']';
-               }
-               else {
+               } else {
                        $lbracket = '<';
                        $rbracket = '>';
                }
 
                foreach ($list_array as $item) {
-                 if (strlen($item)) {
+                       if (strlen($item)) {
                                $tag_list .= $lbracket . file_tag_encode(trim($item))  . $rbracket;
                        }
                }
@@ -1862,15 +1953,15 @@ function file_tag_file_to_list($file,$type = 'file') {
        $matches = false;
        $list = '';
        if ($type == 'file') {
-               $cnt = preg_match_all('/\[(.*?)\]/',$file,$matches,PREG_SET_ORDER);
-       }
-       else {
-               $cnt = preg_match_all('/<(.*?)>/',$file,$matches,PREG_SET_ORDER);
+               $cnt = preg_match_all('/\[(.*?)\]/', $file, $matches, PREG_SET_ORDER);
+       } else {
+               $cnt = preg_match_all('/<(.*?)>/', $file, $matches, PREG_SET_ORDER);
        }
        if ($cnt) {
                foreach ($matches as $mtch) {
-                       if (strlen($list))
+                       if (strlen($list)) {
                                $list .= ',';
+                       }
                        $list .= file_tag_decode($mtch[1]);
                }
        }
@@ -1878,7 +1969,7 @@ function file_tag_file_to_list($file,$type = 'file') {
        return $list;
 }
 
-function file_tag_update_pconfig($uid,$file_old,$file_new,$type = 'file') {
+function file_tag_update_pconfig($uid, $file_old, $file_new, $type = 'file') {
        // $file_old - categories previously associated with an item
        // $file_new - new list of categories for an item
 
@@ -1930,10 +2021,6 @@ function file_tag_update_pconfig($uid,$file_old,$file_new,$type = 'file') {
                                intval($termtype),
                                intval($uid));
 
-                       //$r = q("select file from item where uid = %d " . file_tag_file_query('item',$tag,$type),
-                       //      intval($uid)
-                       //);
-
                        if (dbm::is_result($r)) {
                                unset($deleted_tags[$key]);
                        }
@@ -1943,19 +2030,19 @@ function file_tag_update_pconfig($uid,$file_old,$file_new,$type = 'file') {
                }
 
                if ($saved != $filetags_updated) {
-                       set_pconfig($uid,'system','filetags', $filetags_updated);
+                       set_pconfig($uid, 'system', 'filetags', $filetags_updated);
                }
                return true;
        }
        else
                if (strlen($file_new)) {
-                       set_pconfig($uid,'system','filetags', $file_new);
+                       set_pconfig($uid, 'system', 'filetags', $file_new);
                }
                return true;
 }
 
-function file_tag_save_file($uid,$item,$file) {
-       require_once("include/files.php");
+function file_tag_save_file($uid, $item, $file) {
+       require_once "include/files.php";
 
        $result = false;
        if (! intval($uid))
@@ -1965,25 +2052,27 @@ function file_tag_save_file($uid,$item,$file) {
                intval($uid)
        );
        if (dbm::is_result($r)) {
-               if (! stristr($r[0]['file'],'[' . file_tag_encode($file) . ']'))
+               if (! stristr($r[0]['file'],'[' . file_tag_encode($file) . ']')) {
                        q("UPDATE `item` SET `file` = '%s' WHERE `id` = %d AND `uid` = %d",
                                dbesc($r[0]['file'] . '[' . file_tag_encode($file) . ']'),
                                intval($item),
                                intval($uid)
                        );
+               }
 
                create_files_from_item($item);
 
                $saved = get_pconfig($uid,'system','filetags');
-               if ((! strlen($saved)) || (! stristr($saved,'[' . file_tag_encode($file) . ']')))
-                       set_pconfig($uid,'system','filetags',$saved . '[' . file_tag_encode($file) . ']');
+               if ((! strlen($saved)) || (! stristr($saved, '[' . file_tag_encode($file) . ']'))) {
+                       set_pconfig($uid, 'system', 'filetags', $saved . '[' . file_tag_encode($file) . ']');
+               }
                info( t('Item filed') );
        }
        return true;
 }
 
-function file_tag_unsave_file($uid,$item,$file,$cat = false) {
-       require_once("include/files.php");
+function file_tag_unsave_file($uid, $item, $file, $cat = false) {
+       require_once "include/files.php";
 
        $result = false;
        if (! intval($uid))
@@ -2020,25 +2109,22 @@ function file_tag_unsave_file($uid,$item,$file,$cat = false) {
                intval($termtype),
                intval($uid));
 
-       //$r = q("select file from item where uid = %d and deleted = 0 " . file_tag_file_query('item',$file,(($cat) ? 'category' : 'file')),
-       //);
-
        if (! dbm::is_result($r)) {
                $saved = get_pconfig($uid,'system','filetags');
-               set_pconfig($uid,'system','filetags',str_replace($pattern,'',$saved));
+               set_pconfig($uid, 'system', 'filetags', str_replace($pattern, '', $saved));
        }
 
        return true;
 }
 
 function normalise_openid($s) {
-       return trim(str_replace(array('http://','https://'),array('',''),$s),'/');
+       return trim(str_replace(array('http://', 'https://'), array('', ''), $s), '/');
 }
 
 
 function undo_post_tagging($s) {
        $matches = null;
-       $cnt = preg_match_all('/([!#@])\[url=(.*?)\](.*?)\[\/url\]/ism',$s,$matches,PREG_SET_ORDER);
+       $cnt = preg_match_all('/([!#@])\[url=(.*?)\](.*?)\[\/url\]/ism', $s, $matches, PREG_SET_ORDER);
        if ($cnt) {
                foreach ($matches as $mtch) {
                        $s = str_replace($mtch[0], $mtch[1] . $mtch[3],$s);
@@ -2048,7 +2134,7 @@ function undo_post_tagging($s) {
 }
 
 function protect_sprintf($s) {
-       return(str_replace('%','%%',$s));
+       return str_replace('%', '%%', $s);
 }
 
 
@@ -2056,7 +2142,7 @@ function is_a_date_arg($s) {
        $i = intval($s);
        if ($i > 1900) {
                $y = date('Y');
-               if ($i <= $y+1 && strpos($s,'-') == 4) {
+               if ($i <= $y + 1 && strpos($s, '-') == 4) {
                        $m = intval(substr($s,5));
                        if ($m > 0 && $m <= 12)
                                return true;
@@ -2079,7 +2165,7 @@ function deindent($text, $chr = "[\t ]", $count = NULL) {
                preg_match("|^" . $chr . "*|", $lines[$k], $m);
                $count = strlen($m[0]);
        }
-       for ($k=0; $k < count($lines); $k++) {
+       for ($k = 0; $k < count($lines); $k++) {
                $lines[$k] = preg_replace("|^" . $chr . "{" . $count . "}|", "", $lines[$k]);
        }
 
@@ -2109,11 +2195,12 @@ function formatBytes($bytes, $precision = 2) {
  */
 function format_network_name($network, $url = 0) {
        if ($network != "") {
-               require_once('include/contact_selectors.php');
-               if ($url != "")
+               require_once 'include/contact_selectors.php';
+               if ($url != "") {
                        $network_name = '<a href="'.$url.'">'.network_to_name($network, $url)."</a>";
-               else
+               } else {
                        $network_name = network_to_name($network);
+               }
 
                return $network_name;
        }
@@ -2126,47 +2213,46 @@ function format_network_name($network, $url = 0) {
  * @param string $lang Programming language
  * @return string Formated html
  */
-function text_highlight($s,$lang) {
-       if ($lang === 'js')
+function text_highlight($s, $lang) {
+       if ($lang === 'js') {
                $lang = 'javascript';
-
-       if (! strpos('Text_Highlighter',get_include_path())) {
-               set_include_path(get_include_path() . PATH_SEPARATOR . 'library/Text_Highlighter');
        }
 
-       require_once('library/Text_Highlighter/Text/Highlighter.php');
-       require_once('library/Text_Highlighter/Text/Highlighter/Renderer/Html.php');
+       // @TODO: Replace Text_Highlighter_Renderer_Html by scrivo/highlight.php
+
+       // Autoload the library to make constants available
+       class_exists('Text_Highlighter_Renderer_Html');
+
        $options = array(
                'numbers' => HL_NUMBERS_LI,
                'tabsize' => 4,
-               );
+       );
 
        $tag_added = false;
-       $s = trim(html_entity_decode($s,ENT_COMPAT));
-       $s = str_replace("    ","\t",$s);
-
-       // The highlighter library insists on an opening php tag for php code blocks. If
-       // it isn't present, nothing is highlighted. So we're going to see if it's present.
-       // If not, we'll add it, and then quietly remove it after we get the processed output back.
+       $s = trim(html_entity_decode($s, ENT_COMPAT));
+       $s = str_replace('    ', "\t", $s);
 
-       if ($lang === 'php') {
-               if (strpos('<?php',$s) !== 0) {
-                       $s = '<?php' . "\n" . $s;
-                       $tag_added = true;
-               }
+       /*
+        * The highlighter library insists on an opening php tag for php code blocks. If
+        * it isn't present, nothing is highlighted. So we're going to see if it's present.
+        * If not, we'll add it, and then quietly remove it after we get the processed output back.
+        */
+       if ($lang === 'php' && strpos($s, '<?php') !== 0) {
+               $s = '<?php' . "\n" . $s;
+               $tag_added = true;
        }
 
-       $renderer = new Text_Highlighter_Renderer_HTML($options);
+       $renderer = new Text_Highlighter_Renderer_Html($options);
        $hl = Text_Highlighter::factory($lang);
        $hl->setRenderer($renderer);
        $o = $hl->highlight($s);
-       $o = str_replace(["    ","\n"],["&nbsp;&nbsp;&nbsp;&nbsp;",''],$o);
+       $o = str_replace("\n", '', $o);
 
        if ($tag_added) {
-               $b = substr($o,0,strpos($o,'<li>'));
-               $e = substr($o,strpos($o,'</li>'));
+               $b = substr($o, 0, strpos($o, '<li>'));
+               $e = substr($o, strpos($o, '</li>'));
                $o = $b . $e;
        }
 
-       return('<code>' . $o . '</code>');
+       return '<code>' . $o . '</code>';
 }