5 namespace Friendica\Model;
7 use Friendica\Core\System;
8 use Friendica\Database\DBM;
11 require_once 'boot.php';
12 require_once 'include/conversation.php';
13 require_once 'include/dba.php';
17 public static function insertFromTagFieldByItemId($itemid)
19 $profile_base = System::baseUrl();
20 $profile_data = parse_url($profile_base);
21 $profile_path = defaults($profile_data, 'path', '');
22 $profile_base_friendica = $profile_data['host'] . $profile_path . '/profile/';
23 $profile_base_diaspora = $profile_data['host'] . $profile_path . '/u/';
25 $fields = ['guid', 'uid', 'id', 'edited', 'deleted', 'created', 'received', 'title', 'body', 'tag', 'parent'];
26 $message = dba::selectFirst('item', $fields, ['id' => $itemid]);
27 if (!DBM::is_result($message)) {
32 dba::e("DELETE FROM `term` WHERE `otype` = ? AND `oid` = ? AND `type` IN (?, ?)",
33 TERM_OBJ_POST, $itemid, TERM_HASHTAG, TERM_MENTION);
35 if ($message['deleted']) {
39 $taglist = explode(',', $message['tag']);
42 foreach ($taglist as $tag) {
43 if ((substr(trim($tag), 0, 1) == '#') || (substr(trim($tag), 0, 1) == '@')) {
44 $tags_string .= ' ' . trim($tag);
46 $tags_string .= ' #' . trim($tag);
50 $data = ' ' . $message['title'] . ' ' . $message['body'] . ' ' . $tags_string . ' ';
52 // ignore anything in a code block
53 $data = preg_replace('/\[code\](.*?)\[\/code\]/sm', '', $data);
57 $pattern = '/\W\#([^\[].*?)[\s\'".,:;\?!\[\]\/]/ism';
58 if (preg_match_all($pattern, $data, $matches)) {
59 foreach ($matches[1] as $match) {
60 $tags['#' . strtolower($match)] = '';
64 $pattern = '/\W([\#@])\[url\=(.*?)\](.*?)\[\/url\]/ism';
65 if (preg_match_all($pattern, $data, $matches, PREG_SET_ORDER)) {
66 foreach ($matches as $match) {
67 $tags[$match[1] . strtolower(trim($match[3], ',.:;[]/\"?!'))] = $match[2];
71 foreach ($tags as $tag => $link) {
72 if (substr(trim($tag), 0, 1) == '#') {
73 // try to ignore #039 or #1 or anything like that
74 if (ctype_digit(substr(trim($tag), 1))) {
78 // try to ignore html hex escapes, e.g. #x2317
79 if ((substr(trim($tag), 1, 1) == 'x' || substr(trim($tag), 1, 1) == 'X') && ctype_digit(substr(trim($tag), 2))) {
84 $term = substr($tag, 1);
85 } elseif (substr(trim($tag), 0, 1) == '@') {
87 $term = substr($tag, 1);
88 } else { // This shouldn't happen
93 if ($message['uid'] == 0) {
95 dba::update('term', ['global' => true], ['otype' => TERM_OBJ_POST, 'guid' => $message['guid']]);
97 $global = dba::exists('term', ['uid' => 0, 'otype' => TERM_OBJ_POST, 'guid' => $message['guid']]);
100 dba::insert('term', [
101 'uid' => $message['uid'],
103 'otype' => TERM_OBJ_POST,
107 'guid' => $message['guid'],
108 'created' => $message['created'],
109 'received' => $message['received'],
113 // Search for mentions
114 if ((substr($tag, 0, 1) == '@') && (strpos($link, $profile_base_friendica) || strpos($link, $profile_base_diaspora))) {
115 $users = q("SELECT `uid` FROM `contact` WHERE self AND (`url` = '%s' OR `nurl` = '%s')", $link, $link);
116 foreach ($users AS $user) {
117 if ($user['uid'] == $message['uid']) {
118 dba::update('item', ['mention' => true], ['id' => $itemid]);
119 dba::update('thread', ['mention' => true], ['iid' => $message['parent']]);
127 * @param integer $itemid item id
130 public static function insertFromFileFieldByItemId($itemid)
132 $message = dba::selectFirst('item', ['uid', 'deleted', 'file'], ['id' => $itemid]);
133 if (!DBM::is_result($message)) {
138 q("DELETE FROM `term` WHERE `otype` = %d AND `oid` = %d AND `type` IN (%d, %d)",
139 intval(TERM_OBJ_POST),
142 intval(TERM_CATEGORY));
144 if ($message["deleted"]) {
148 if (preg_match_all("/\[(.*?)\]/ism", $message["file"], $files)) {
149 foreach ($files[1] as $file) {
150 dba::insert('term', [
151 'uid' => $message["uid"],
153 'otype' => TERM_OBJ_POST,
160 if (preg_match_all("/\<(.*?)\>/ism", $message["file"], $files)) {
161 foreach ($files[1] as $file) {
162 dba::insert('term', [
163 'uid' => $message["uid"],
165 'otype' => TERM_OBJ_POST,
166 'type' => TERM_CATEGORY,
174 * Sorts an item's tags into mentions, hashtags and other tags. Generate personalized URLs by user and modify the
175 * provided item's body with them.
180 public static function populateTagsFromItem(&$item)
188 $searchpath = System::baseUrl() . "/search?tag=";
190 $taglist = dba::select(
192 ['type', 'term', 'url'],
193 ["`otype` = ? AND `oid` = ? AND `type` IN (?, ?)", TERM_OBJ_POST, $item['id'], TERM_HASHTAG, TERM_MENTION],
197 while ($tag = dba::fetch($taglist)) {
198 if ($tag["url"] == "") {
199 $tag["url"] = $searchpath . strtolower($tag["term"]);
202 $orig_tag = $tag["url"];
204 $tag["url"] = best_link_url($item, $sp, $tag["url"]);
206 if ($tag["type"] == TERM_HASHTAG) {
207 if ($orig_tag != $tag["url"]) {
208 $item['body'] = str_replace($orig_tag, $tag["url"], $item['body']);
211 $return['hashtags'][] = "#<a href=\"" . $tag["url"] . "\" target=\"_blank\">" . $tag["term"] . "</a>";
213 } elseif ($tag["type"] == TERM_MENTION) {
214 $return['mentions'][] = "@<a href=\"" . $tag["url"] . "\" target=\"_blank\">" . $tag["term"] . "</a>";
218 $return['tags'][] = $prefix . "<a href=\"" . $tag["url"] . "\" target=\"_blank\">" . $tag["term"] . "</a>";
220 dba::close($taglist);