* based upon NSFW from Mike Macgirvin * */ use Friendica\Core\Addon; use Friendica\Core\L10n; use Friendica\Core\PConfig; function showmore_install() { Addon::registerHook('prepare_body', 'addon/showmore/showmore.php', 'showmore_prepare_body'); Addon::registerHook('addon_settings', 'addon/showmore/showmore.php', 'showmore_addon_settings'); Addon::registerHook('addon_settings_post', 'addon/showmore/showmore.php', 'showmore_addon_settings_post'); } function showmore_uninstall() { Addon::unregisterHook('prepare_body', 'addon/showmore/showmore.php', 'showmore_prepare_body'); Addon::unregisterHook('addon_settings', 'addon/showmore/showmore.php', 'showmore_addon_settings'); Addon::unregisterHook('addon_settings_post', 'addon/showmore/showmore.php', 'showmore_addon_settings_post'); } function showmore_addon_settings(&$a, &$s) { if (!local_user()) { return; } /* Add our stylesheet to the page so we can make our settings look nice */ $a->page['htmlhead'] .= ''."\r\n"; $enable_checked = (intval(PConfig::get(local_user(), 'showmore', 'disable')) ? '' : ' checked="checked"'); $chars = PConfig::get(local_user(), 'showmore', 'chars', 1100); $s .= ''; $s .= '

' . L10n::t('"Show more" Settings').'

'; $s .= ''; $s .= ''; return; } function showmore_addon_settings_post(&$a, &$b) { if (!local_user()) { return; } if (!empty($_POST['showmore-submit'])) { PConfig::set(local_user(), 'showmore', 'chars', trim($_POST['showmore-chars'])); $enable = (x($_POST, 'showmore-enable') ? intval($_POST['showmore-enable']) : 0); $disable = 1-$enable; PConfig::set(local_user(), 'showmore', 'disable', $disable); info(L10n::t('Show More Settings saved.') . EOL); } } function get_body_length($body) { $string = trim($body); // DomDocument doesn't like empty strings if (!strlen($string)) { return 0; } // We need to get rid of hidden tags (display: none) // Get rid of the warning. It would be better to have some valid html as input $dom = @DomDocument::loadHTML($body); $xpath = new DOMXPath($dom); /* * Checking any possible syntax of the style attribute with xpath is impossible * So we just get any element with a style attribute, and check them with a regexp */ $xr = $xpath->query('//*[@style]'); foreach ($xr as $node) { if (preg_match('/.*display: *none *;.*/',$node->getAttribute('style'))) { // Hidden, remove it from its parent $node->parentNode->removeChild($node); } } // Now we can get the body of our HTML DomDocument, it contains only what is visible $string = $dom->saveHTML(); $string = strip_tags($string); return strlen($string); } function showmore_prepare_body(\Friendica\App $a, &$hook_data) { // No combination with content filters if (!empty($hook_data['filter_reasons'])) { return; } if (PConfig::get(local_user(), 'showmore', 'disable')) { return; } $chars = (int) PConfig::get(local_user(), 'showmore', 'chars', 1100); if (get_body_length($hook_data['html']) > $chars) { $found = true; $shortened = trim(showmore_cutitem($hook_data['html'], $chars)) . "..."; } else { $found = false; } if ($found) { $rnd = random_string(8); $hook_data['html'] = '' . $shortened . " " . '' . L10n::t('show more') . '' . ''; } } function showmore_cutitem($text, $limit) { $text = trim($text); $text = mb_convert_encoding($text, 'HTML-ENTITIES', "UTF-8"); $text = substr($text, 0, $limit); $pos1 = strrpos($text, "<"); $pos2 = strrpos($text, ">"); $pos3 = strrpos($text, "&"); $pos4 = strrpos($text, ";"); if ($pos1 > $pos3) { if ($pos1 > $pos2) $text = substr($text, 0, $pos1); } else { if ($pos3 > $pos4) $text = substr($text, 0, $pos3); } $doc = new DOMDocument(); $doc->preserveWhiteSpace = false; $doctype = ''; @$doc->loadHTML($doctype."".$text.""); $text = $doc->saveHTML(); $text = str_replace(["", "", $doctype], ["", "", ""], $text); return $text; }