Copy functions from include/tags to src
- Create Content\Widget\TagCloud - Populate Worker\TagUpdate::execute - Add Content\Widget::tagCloud - Add Model\Term::insertFromItemId and Model\Term::insertFromItemUri
This commit is contained in:
Hypolite Petovan
parent
0abe4158d2
commit
507bea0e9f
4 changed files with 352 additions and 5 deletions
|
|
@ -12,12 +12,13 @@ use Friendica\Core\L10n;
|
||||||
use Friendica\Core\PConfig;
|
use Friendica\Core\PConfig;
|
||||||
use Friendica\Core\System;
|
use Friendica\Core\System;
|
||||||
use Friendica\Database\DBM;
|
use Friendica\Database\DBM;
|
||||||
|
use Friendica\Model\Contact;
|
||||||
use Friendica\Model\GContact;
|
use Friendica\Model\GContact;
|
||||||
use Friendica\Model\Profile;
|
use Friendica\Model\Profile;
|
||||||
|
|
||||||
use dba;
|
use dba;
|
||||||
|
|
||||||
require_once 'boot.php';
|
require_once 'boot.php';
|
||||||
|
require_once 'include/dba.php';
|
||||||
|
|
||||||
class Widget
|
class Widget
|
||||||
{
|
{
|
||||||
|
|
@ -312,4 +313,31 @@ class Widget
|
||||||
'$items' => $r)
|
'$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 '';
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
162
src/Content/Widget/TagCloud.php
Normal file
162
src/Content/Widget/TagCloud.php
Normal file
|
|
@ -0,0 +1,162 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/*
|
||||||
|
* @file src/Content/Widget/TagCloud.php
|
||||||
|
*/
|
||||||
|
|
||||||
|
namespace Friendica\Content\Widget;
|
||||||
|
|
||||||
|
use dba;
|
||||||
|
use Friendica\Core\L10n;
|
||||||
|
use Friendica\Core\System;
|
||||||
|
use Friendica\Database\DBM;
|
||||||
|
|
||||||
|
require_once 'include/dba.php';
|
||||||
|
require_once 'include/security.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* TagCloud widget
|
||||||
|
*
|
||||||
|
* @author Rabuzarus
|
||||||
|
*/
|
||||||
|
class TagCloud
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Construct a tag/term cloud block for an user.
|
||||||
|
*
|
||||||
|
* @brief Construct a tag/term cloud block for an user.
|
||||||
|
* @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 string HTML formatted output.
|
||||||
|
*/
|
||||||
|
public static function getHTML($uid, $count = 0, $owner_id = 0, $flags = '', $type = TERM_HASHTAG)
|
||||||
|
{
|
||||||
|
$o = '';
|
||||||
|
$r = self::tagadelic($uid, $count, $owner_id, $flags, $type);
|
||||||
|
if (count($r)) {
|
||||||
|
$contact = dba::selectFirst('contact', ['url'], ['id' => $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);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -4,13 +4,137 @@
|
||||||
*/
|
*/
|
||||||
namespace Friendica\Model;
|
namespace Friendica\Model;
|
||||||
|
|
||||||
|
use Friendica\Core\System;
|
||||||
use Friendica\Database\DBM;
|
use Friendica\Database\DBM;
|
||||||
use dba;
|
use dba;
|
||||||
|
|
||||||
require_once "include/dba.php";
|
require_once 'boot.php';
|
||||||
|
require_once 'include/dba.php';
|
||||||
|
|
||||||
class Term
|
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
|
* @param integer $itemid item id
|
||||||
* @return void
|
* @return void
|
||||||
|
|
|
||||||
|
|
@ -1,10 +1,43 @@
|
||||||
<?php
|
<?php
|
||||||
|
|
||||||
namespace Friendica\Worker;
|
namespace Friendica\Worker;
|
||||||
|
|
||||||
require_once("include/tags.php");
|
require_once("include/tags.php");
|
||||||
|
|
||||||
class TagUpdate {
|
class TagUpdate
|
||||||
public static function execute() {
|
{
|
||||||
update_items();
|
public static function execute()
|
||||||
|
{
|
||||||
|
$messages = dba::p("SELECT `oid`,`item`.`guid`, `item`.`created`, `item`.`received` FROM `term` INNER JOIN `item` ON `item`.`id`=`term`.`oid` WHERE `term`.`otype` = 1 AND `term`.`guid` = ''");
|
||||||
|
|
||||||
|
logger('fetched messages: ' . dba::num_rows($messages));
|
||||||
|
while ($message = dba::fetch($messages)) {
|
||||||
|
if ($message['uid'] == 0) {
|
||||||
|
$global = true;
|
||||||
|
|
||||||
|
q("UPDATE `term` SET `global` = 1 WHERE `otype` = %d AND `guid` = '%s'",
|
||||||
|
intval(TERM_OBJ_POST), dbesc($message['guid']));
|
||||||
|
} else {
|
||||||
|
$isglobal = q("SELECT `global` FROM `term` WHERE `uid` = 0 AND `otype` = %d AND `guid` = '%s'",
|
||||||
|
intval(TERM_OBJ_POST), dbesc($message['guid']));
|
||||||
|
|
||||||
|
$global = (count($isglobal) > 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);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue