<?php
+/**
+ * @copyright Copyright (C) 2010-2023, the Friendica project
+ *
+ * @license GNU AGPL version 3 or any later version
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as
+ * published by the Free Software Foundation, either version 3 of the
+ * License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program. If not, see <https://www.gnu.org/licenses/>.
+ *
+ */
namespace Friendica\Module\Debug;
use Friendica\BaseModule;
+use Friendica\Content\PageInfo;
use Friendica\Content\Text;
-use Friendica\Core\L10n;
use Friendica\Core\Renderer;
+use Friendica\DI;
use Friendica\Model\Item;
+use Friendica\Protocol\Activity;
use Friendica\Util\XML;
/**
*/
class Babel extends BaseModule
{
- public static function content(array $parameters = [])
+ protected function content(array $request = []): string
{
function visible_whitespace($s)
{
- $s = str_replace(' ', ' ', $s);
-
- return str_replace(["\r\n", "\n", "\r"], '<br />', $s);
+ return '<pre>' . htmlspecialchars($s) . '</pre>';
}
$results = [];
if (!empty($_REQUEST['text'])) {
switch (($_REQUEST['type'] ?? '') ?: 'bbcode') {
case 'bbcode':
- $bbcode = trim($_REQUEST['text']);
+ $bbcode = $_REQUEST['text'];
$results[] = [
- 'title' => L10n::t('Source input'),
+ 'title' => DI::l10n()->t('Source input'),
'content' => visible_whitespace($bbcode)
];
$plain = Text\BBCode::toPlaintext($bbcode, false);
$results[] = [
- 'title' => L10n::t('BBCode::toPlaintext'),
+ 'title' => DI::l10n()->t('BBCode::toPlaintext'),
'content' => visible_whitespace($plain)
];
$html = Text\BBCode::convert($bbcode);
$results[] = [
- 'title' => L10n::t('BBCode::convert (raw HTML)'),
- 'content' => visible_whitespace(htmlspecialchars($html))
+ 'title' => DI::l10n()->t('BBCode::convert (raw HTML)'),
+ 'content' => visible_whitespace($html)
+ ];
+
+ $results[] = [
+ 'title' => DI::l10n()->t('BBCode::convert (hex)'),
+ 'content' => visible_whitespace(bin2hex($html)),
];
$results[] = [
- 'title' => L10n::t('BBCode::convert'),
+ 'title' => DI::l10n()->t('BBCode::convert'),
'content' => $html
];
$bbcode2 = Text\HTML::toBBCode($html);
$results[] = [
- 'title' => L10n::t('BBCode::convert => HTML::toBBCode'),
+ 'title' => DI::l10n()->t('BBCode::convert => HTML::toBBCode'),
'content' => visible_whitespace($bbcode2)
];
$markdown = Text\BBCode::toMarkdown($bbcode);
$results[] = [
- 'title' => L10n::t('BBCode::toMarkdown'),
+ 'title' => DI::l10n()->t('BBCode::toMarkdown'),
'content' => visible_whitespace($markdown)
];
$html2 = Text\Markdown::convert($markdown);
$results[] = [
- 'title' => L10n::t('BBCode::toMarkdown => Markdown::convert'),
+ 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::convert (raw HTML)'),
+ 'content' => visible_whitespace($html2)
+ ];
+ $results[] = [
+ 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::convert'),
'content' => $html2
];
$bbcode3 = Text\Markdown::toBBCode($markdown);
$results[] = [
- 'title' => L10n::t('BBCode::toMarkdown => Markdown::toBBCode'),
+ 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::toBBCode'),
'content' => visible_whitespace($bbcode3)
];
$bbcode4 = Text\HTML::toBBCode($html2);
$results[] = [
- 'title' => L10n::t('BBCode::toMarkdown => Markdown::convert => HTML::toBBCode'),
+ 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::convert => HTML::toBBCode'),
'content' => visible_whitespace($bbcode4)
];
- $item = [
- 'body' => $bbcode,
- 'tag' => '',
+ $tags = Text\BBCode::getTags($bbcode);
+
+ $body = Item::setHashtags($bbcode);
+ $results[] = [
+ 'title' => DI::l10n()->t('Item Body'),
+ 'content' => visible_whitespace($body)
+ ];
+ $results[] = [
+ 'title' => DI::l10n()->t('Item Tags'),
+ 'content' => visible_whitespace(var_export($tags, true)),
];
- Item::setHashtags($item);
+ $body2 = PageInfo::searchAndAppendToBody($bbcode, true);
+ $results[] = [
+ 'title' => DI::l10n()->t('PageInfo::appendToBody'),
+ 'content' => visible_whitespace($body2)
+ ];
+ $html3 = Text\BBCode::convert($body2);
$results[] = [
- 'title' => L10n::t('Item Body'),
- 'content' => visible_whitespace($item['body'])
+ 'title' => DI::l10n()->t('PageInfo::appendToBody => BBCode::convert (raw HTML)'),
+ 'content' => visible_whitespace($html3)
];
$results[] = [
- 'title' => L10n::t('Item Tags'),
- 'content' => $item['tag']
+ 'title' => DI::l10n()->t('PageInfo::appendToBody => BBCode::convert'),
+ 'content' => $html3
];
break;
+ case 'diaspora':
+ $diaspora = trim($_REQUEST['text']);
+ $results[] = [
+ 'title' => DI::l10n()->t('Source input (Diaspora format)'),
+ 'content' => visible_whitespace($diaspora),
+ ];
+
+ $markdown = XML::unescape($diaspora);
case 'markdown':
- $markdown = trim($_REQUEST['text']);
+ $markdown = $markdown ?? trim($_REQUEST['text']);
+
$results[] = [
- 'title' => L10n::t('Source input (Diaspora format)'),
- 'content' => '<pre>' . htmlspecialchars($markdown) . '</pre>'
+ 'title' => DI::l10n()->t('Source input (Markdown)'),
+ 'content' => visible_whitespace($markdown),
];
- $html = Text\Markdown::convert(html_entity_decode($markdown,ENT_COMPAT, 'UTF-8'));
+ $html = Text\Markdown::convert($markdown);
$results[] = [
- 'title' => L10n::t('Markdown::convert (raw HTML)'),
- 'content' => visible_whitespace(htmlspecialchars($html))
+ 'title' => DI::l10n()->t('Markdown::convert (raw HTML)'),
+ 'content' => visible_whitespace($html),
];
$results[] = [
- 'title' => L10n::t('Markdown::convert'),
+ 'title' => DI::l10n()->t('Markdown::convert'),
'content' => $html
];
- $bbcode = Text\Markdown::toBBCode(XML::unescape($markdown));
+ $bbcode = Text\Markdown::toBBCode($markdown);
$results[] = [
- 'title' => L10n::t('Markdown::toBBCode'),
- 'content' => '<pre>' . $bbcode . '</pre>'
+ 'title' => DI::l10n()->t('Markdown::toBBCode'),
+ 'content' => visible_whitespace($bbcode),
];
break;
case 'html' :
$html = trim($_REQUEST['text']);
$results[] = [
- 'title' => L10n::t('Raw HTML input'),
- 'content' => htmlspecialchars($html)
+ 'title' => DI::l10n()->t('Raw HTML input'),
+ 'content' => visible_whitespace($html),
];
$results[] = [
- 'title' => L10n::t('HTML Input'),
+ 'title' => DI::l10n()->t('HTML Input'),
'content' => $html
];
+ $purified = Text\HTML::purify($html);
+
+ $results[] = [
+ 'title' => DI::l10n()->t('HTML Purified (raw)'),
+ 'content' => visible_whitespace($purified),
+ ];
+
+ $results[] = [
+ 'title' => DI::l10n()->t('HTML Purified (hex)'),
+ 'content' => visible_whitespace(bin2hex($purified)),
+ ];
+
+ $results[] = [
+ 'title' => DI::l10n()->t('HTML Purified'),
+ 'content' => $purified,
+ ];
+
$bbcode = Text\HTML::toBBCode($html);
$results[] = [
- 'title' => L10n::t('HTML::toBBCode'),
+ 'title' => DI::l10n()->t('HTML::toBBCode'),
'content' => visible_whitespace($bbcode)
];
$html2 = Text\BBCode::convert($bbcode);
$results[] = [
- 'title' => L10n::t('HTML::toBBCode => BBCode::convert'),
+ 'title' => DI::l10n()->t('HTML::toBBCode => BBCode::convert'),
'content' => $html2
];
$results[] = [
- 'title' => L10n::t('HTML::toBBCode => BBCode::convert (raw HTML)'),
+ 'title' => DI::l10n()->t('HTML::toBBCode => BBCode::convert (raw HTML)'),
'content' => htmlspecialchars($html2)
];
$bbcode2plain = Text\BBCode::toPlaintext($bbcode);
$results[] = [
- 'title' => L10n::t('HTML::toBBCode => BBCode::toPlaintext'),
- 'content' => '<pre>' . $bbcode2plain . '</pre>'
+ 'title' => DI::l10n()->t('HTML::toBBCode => BBCode::toPlaintext'),
+ 'content' => visible_whitespace($bbcode2plain),
];
$markdown = Text\HTML::toMarkdown($html);
$results[] = [
- 'title' => L10n::t('HTML::toMarkdown'),
+ 'title' => DI::l10n()->t('HTML::toMarkdown'),
'content' => visible_whitespace($markdown)
];
$text = Text\HTML::toPlaintext($html, 0);
$results[] = [
- 'title' => L10n::t('HTML::toPlaintext'),
- 'content' => '<pre>' . $text . '</pre>'
+ 'title' => DI::l10n()->t('HTML::toPlaintext'),
+ 'content' => visible_whitespace($text),
];
$text = Text\HTML::toPlaintext($html, 0, true);
$results[] = [
- 'title' => L10n::t('HTML::toPlaintext (compact)'),
- 'content' => '<pre>' . $text . '</pre>'
+ 'title' => DI::l10n()->t('HTML::toPlaintext (compact)'),
+ 'content' => visible_whitespace($text),
];
+ break;
+ case 'twitter':
+ $json = trim($_REQUEST['text']);
+
+ if (file_exists('addon/twitter/twitter.php')) {
+ require_once 'addon/twitter/twitter.php';
+
+ if (parse_url($json) !== false) {
+ preg_match('#^https?://(?:mobile\.|www\.)?twitter.com/[^/]+/status/(\d+).*#', $json, $matches);
+ $status = twitter_statuses_show($matches[1]);
+ } else {
+ $status = json_decode($json);
+ }
+
+ $results[] = [
+ 'title' => DI::l10n()->t('Decoded post'),
+ 'content' => visible_whitespace(var_export($status, true)),
+ ];
+
+ $postarray = [];
+ $postarray['object-type'] = Activity\ObjectType::NOTE;
+
+ if (!empty($status->full_text)) {
+ $postarray['body'] = $status->full_text;
+ } else {
+ $postarray['body'] = $status->text;
+ }
+
+ // When the post contains links then use the correct object type
+ if (count($status->entities->urls) > 0) {
+ $postarray['object-type'] = Activity\ObjectType::BOOKMARK;
+ }
+
+ $picture = \twitter_media_entities($status, $postarray);
+
+ $results[] = [
+ 'title' => DI::l10n()->t('Post array before expand entities'),
+ 'content' => visible_whitespace(var_export($postarray, true)),
+ ];
+
+ $converted = \twitter_expand_entities($postarray['body'], $status, $picture);
+
+ $results[] = [
+ 'title' => DI::l10n()->t('Post converted'),
+ 'content' => visible_whitespace(var_export($converted, true)),
+ ];
+
+ $results[] = [
+ 'title' => DI::l10n()->t('Converted body'),
+ 'content' => visible_whitespace($converted['body']),
+ ];
+ } else {
+ $results[] = [
+ 'title' => DI::l10n()->tt('Error', 'Errors', 1),
+ 'content' => DI::l10n()->t('Twitter addon is absent from the addon/ folder.'),
+ ];
+ }
+
+ break;
}
}
$tpl = Renderer::getMarkupTemplate('babel.tpl');
$o = Renderer::replaceMacros($tpl, [
- '$text' => ['text', L10n::t('Source text'), $_REQUEST['text'] ?? '', ''],
- '$type_bbcode' => ['type', L10n::t('BBCode'), 'bbcode', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'bbcode'],
- '$type_markdown' => ['type', L10n::t('Markdown'), 'markdown', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'markdown'],
- '$type_html' => ['type', L10n::t('HTML'), 'html', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'html'],
- '$results' => $results
+ '$title' => DI::l10n()->t('Babel Diagnostic'),
+ '$text' => ['text', DI::l10n()->t('Source text'), $_REQUEST['text'] ?? '', ''],
+ '$type_bbcode' => ['type', DI::l10n()->t('BBCode'), 'bbcode', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'bbcode'],
+ '$type_diaspora' => ['type', DI::l10n()->t('Diaspora'), 'diaspora', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'diaspora'],
+ '$type_markdown' => ['type', DI::l10n()->t('Markdown'), 'markdown', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'markdown'],
+ '$type_html' => ['type', DI::l10n()->t('HTML'), 'html', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'html'],
+ '$flag_twitter' => file_exists('addon/twitter/twitter.php'),
+ '$type_twitter' => ['type', DI::l10n()->t('Twitter Source / Tweet URL (requires API key)'), 'twitter', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'twitter'],
+ '$results' => $results,
+ '$submit' => DI::l10n()->t('Submit'),
]);
return $o;