diff --git a/src/Content/Widget.php b/src/Content/Widget.php index e019de9638..c66a4ea9db 100644 --- a/src/Content/Widget.php +++ b/src/Content/Widget.php @@ -12,12 +12,13 @@ use Friendica\Core\L10n; use Friendica\Core\PConfig; use Friendica\Core\System; use Friendica\Database\DBM; +use Friendica\Model\Contact; use Friendica\Model\GContact; use Friendica\Model\Profile; - use dba; require_once 'boot.php'; +require_once 'include/dba.php'; class Widget { @@ -312,4 +313,31 @@ class Widget '$items' => $r) ); } + + /** + * Insert a tag cloud widget for the present profile. + * + * @brief Insert a tag cloud widget for the present profile. + * @param int $limit Max number of displayed tags. + * @return string HTML formatted output. + */ + public static function tagCloud($limit = 50) + { + $a = get_app(); + + if (!$a->profile['profile_uid'] || !$a->profile['url']) { + return ''; + } + + if (Feature::isEnabled($a->profile['profile_uid'], 'tagadelic')) { + $owner_id = Contact::getIdForURL($a->profile['url']); + + if (!$owner_id) { + return ''; + } + return Widget\TagCloud::getHTML($a->profile['profile_uid'], $limit, $owner_id, 'wall'); + } + + return ''; + } } diff --git a/src/Content/Widget/TagCloud.php b/src/Content/Widget/TagCloud.php new file mode 100644 index 0000000000..a80c2e871e --- /dev/null +++ b/src/Content/Widget/TagCloud.php @@ -0,0 +1,162 @@ + $uid]); + $url = System::removedBaseUrl($contact['url']); + + foreach ($r as $rr) { + $tag['level'] = $rr[2]; + $tag['url'] = $url . '?tag=' . urlencode($rr[0]); + $tag['name'] = $rr[0]; + + $tags[] = $tag; + } + + $tpl = get_markup_template('tagblock_widget.tpl'); + $o = replace_macros($tpl, [ + '$title' => L10n::t('Tags'), + '$tags' => $tags + ]); + } + return $o; + } + + /** + * Get alphabetical sorted array of used tags/terms of an user including + * a weighting by frequency of use. + * + * @brief Get alphabetical sorted array of used tags/terms of an user including + * a weighting by frequency of use. + * @param int $uid The user ID. + * @param int $count Max number of displayed tags/terms. + * @param int $owner_id The contact id of the owner of the tagged items. + * @param string $flags Special item flags. + * @param int $type The tag/term type. + * + * @return arr Alphabetical sorted array of used tags of an user. + */ + private static function tagadelic($uid, $count = 0, $owner_id = 0, $flags = '', $type = TERM_HASHTAG) + { + $item_condition = item_condition(); + $sql_options = item_permissions_sql($uid); + $limit = $count ? sprintf('LIMIT %d', intval($count)) : ''; + + if ($flags) { + if ($flags === 'wall') { + $sql_options .= ' AND `item`.`wall` '; + } + } + + if ($owner_id) { + $sql_options .= ' AND `item`.`owner-id` = ' . intval($owner_id) . ' '; + } + + // Fetch tags + $r = dba::p("SELECT `term`, COUNT(`term`) AS `total` FROM `term` + LEFT JOIN `item` ON `term`.`oid` = `item`.`id` + WHERE `term`.`uid` = ? AND `term`.`type` = ? + AND `term`.`otype` = ? + AND $item_condition $sql_options + GROUP BY `term` ORDER BY `total` DESC $limit", + $uid, + $type, + TERM_OBJ_POST + ); + if (!DBM::is_result($r)) { + return []; + } + + return self::tagCalc($r); + } + + /** + * Calculate weighting of tags according to the frequency of use. + * + * @brief Calculate weighting of tags according to the frequency of use. + * @param array $arr Array of tags/terms with tag/term name and total count of use. + * @return array Alphabetical sorted array of used tags/terms of an user. + */ + private static function tagCalc($arr) + { + $tags = []; + $min = 1e9; + $max = -1e9; + $x = 0; + + if (!$arr) { + return []; + } + + foreach ($arr as $rr) { + $tags[$x][0] = $rr['term']; + $tags[$x][1] = log($rr['total']); + $tags[$x][2] = 0; + $min = min($min, $tags[$x][1]); + $max = max($max, $tags[$x][1]); + $x ++; + } + + usort($tags, 'self::tagsSort'); + $range = max(.01, $max - $min) * 1.0001; + + for ($x = 0; $x < count($tags); $x ++) { + $tags[$x][2] = 1 + floor(9 * ($tags[$x][1] - $min) / $range); + } + + return $tags; + } + + /** + * Compare function to sort tags/terms alphabetically. + * + * @brief Compare function to sort tags/terms alphabetically. + * @param type $a + * @param type $b + * + * @return int + */ + private static function tagsSort($a, $b) + { + if (strtolower($a[0]) == strtolower($b[0])) { + return 0; + } + return ((strtolower($a[0]) < strtolower($b[0])) ? -1 : 1); + } +} diff --git a/src/Model/Term.php b/src/Model/Term.php index 2b9442105a..4ff59596da 100644 --- a/src/Model/Term.php +++ b/src/Model/Term.php @@ -4,13 +4,137 @@ */ namespace Friendica\Model; +use Friendica\Core\System; use Friendica\Database\DBM; use dba; -require_once "include/dba.php"; +require_once 'boot.php'; +require_once 'include/dba.php'; class Term { + public static function insertFromItemId($itemid) + { + $profile_base = System::baseUrl(); + $profile_data = parse_url($profile_base); + $profile_path = defaults($profile_data, 'path', ''); + $profile_base_friendica = $profile_data['host'] . $profile_path . '/profile/'; + $profile_base_diaspora = $profile_data['host'] . $profile_path . '/u/'; + + $fields = ['guid', 'uid', 'id', 'edited', 'deleted', 'created', 'received', 'title', 'body', 'tag', 'parent']; + $message = dba::selectFirst('item', $fields, ['id' => $itemid]); + if (!DBM::is_result($message)) { + return; + } + + // Clean up all tags + dba::e("DELETE FROM `term` WHERE `otype` = ? AND `oid` = ? AND `type` IN (?, ?)", + TERM_OBJ_POST, $itemid, TERM_HASHTAG, TERM_MENTION); + + if ($message['deleted']) { + return; + } + + $taglist = explode(',', $message['tag']); + + $tags_string = ''; + foreach ($taglist as $tag) { + if ((substr(trim($tag), 0, 1) == '#') || (substr(trim($tag), 0, 1) == '@')) { + $tags_string .= ' ' . trim($tag); + } else { + $tags_string .= ' #' . trim($tag); + } + } + + $data = ' ' . $message['title'] . ' ' . $message['body'] . ' ' . $tags_string . ' '; + + // ignore anything in a code block + $data = preg_replace('/\[code\](.*?)\[\/code\]/sm', '', $data); + + $tags = []; + + $pattern = '/\W\#([^\[].*?)[\s\'".,:;\?!\[\]\/]/ism'; + if (preg_match_all($pattern, $data, $matches)) { + foreach ($matches[1] as $match) { + $tags['#' . strtolower($match)] = ''; + } + } + + $pattern = '/\W([\#@])\[url\=(.*?)\](.*?)\[\/url\]/ism'; + if (preg_match_all($pattern, $data, $matches, PREG_SET_ORDER)) { + foreach ($matches as $match) { + $tags[$match[1] . strtolower(trim($match[3], ',.:;[]/\"?!'))] = $match[2]; + } + } + + foreach ($tags as $tag => $link) { + if (substr(trim($tag), 0, 1) == '#') { + // try to ignore #039 or #1 or anything like that + if (ctype_digit(substr(trim($tag), 1))) { + continue; + } + + // try to ignore html hex escapes, e.g. #x2317 + if ((substr(trim($tag), 1, 1) == 'x' || substr(trim($tag), 1, 1) == 'X') && ctype_digit(substr(trim($tag), 2))) { + continue; + } + + $type = TERM_HASHTAG; + $term = substr($tag, 1); + } elseif (substr(trim($tag), 0, 1) == '@') { + $type = TERM_MENTION; + $term = substr($tag, 1); + } else { // This shouldn't happen + $type = TERM_HASHTAG; + $term = $tag; + } + + if ($message['uid'] == 0) { + $global = true; + dba::update('term', ['global' => true], ['otype' => TERM_OBJ_POST, 'guid' => $message['guid']]); + } else { + $global = dba::exists('term', ['uid' => 0, 'otype' => TERM_OBJ_POST, 'guid' => $message['guid']]); + } + + dba::insert('term', [ + 'uid' => $message['uid'], + 'oid' => $itemid, + 'otype' => TERM_OBJ_POST, + 'type' => $type, + 'term' => $term, + 'url' => $link, + 'guid' => $message['guid'], + 'created' => $message['created'], + 'received' => $message['received'], + 'global' => $global + ]); + + // Search for mentions + if ((substr($tag, 0, 1) == '@') && (strpos($link, $profile_base_friendica) || strpos($link, $profile_base_diaspora))) { + $users = q("SELECT `uid` FROM `contact` WHERE self AND (`url` = '%s' OR `nurl` = '%s')", $link, $link); + foreach ($users AS $user) { + if ($user['uid'] == $message['uid']) { + dba::update('item', ['mention' => true], ['id' => $itemid]); + dba::update('thread', ['mention' => true], ['iid' => $message['parent']]); + } + } + } + } + } + + public static function insertFromItemUri($itemuri, $uid) + { + $messages = dba::select('item', ['id'], ['uri' => $itemuri, 'uid' => $uid]); + + if (DBM::is_result($messages)) { + while ($message = dba::fetch($messages)) { + self::insertFromItemId($message['id']); + } + dba::close($messages); + } + } + + /** * @param integer $itemid item id * @return void diff --git a/src/Worker/TagUpdate.php b/src/Worker/TagUpdate.php index 93423ecb2a..2fa6e44567 100644 --- a/src/Worker/TagUpdate.php +++ b/src/Worker/TagUpdate.php @@ -1,10 +1,43 @@ 0); + } + + q("UPDATE `term` SET `guid` = '%s', `created` = '%s', `received` = '%s', `global` = %d WHERE `otype` = %d AND `oid` = %d", + dbesc($message['guid']), dbesc($message['created']), dbesc($message['received']), + intval($global), intval(TERM_OBJ_POST), intval($message['oid'])); + } + + dba::close($messages); + + $messages = dba::p("SELECT `guid` FROM `item` WHERE `uid` = 0"); + + logger('fetched messages: ' . dba::num_rows($messages)); + while ($message = dba::fetch(messages)) { + q("UPDATE `item` SET `global` = 1 WHERE `guid` = '%s'", dbesc($message['guid'])); + } + + dba::close($messages); } }