2011-10-05 09:20:17 +00:00
< ? php
2018-03-25 04:08:19 +00:00
2011-10-05 09:20:17 +00:00
/**
* Name : NSFW
* Description : Collapse posts with inappropriate content
* Version : 1.0
* Author : Mike Macgirvin < http :// macgirvin . com / profile / mike >
2018-01-15 13:15:33 +00:00
*
2011-10-05 09:20:17 +00:00
*/
2021-11-20 09:56:55 +00:00
use Friendica\App ;
2018-12-26 07:28:16 +00:00
use Friendica\Core\Hook ;
2021-11-20 09:56:55 +00:00
use Friendica\Core\Renderer ;
2019-12-30 02:55:10 +00:00
use Friendica\DI ;
2017-11-06 23:55:24 +00:00
2018-01-22 19:03:11 +00:00
function nsfw_install ()
{
2018-12-26 07:28:16 +00:00
Hook :: register ( 'prepare_body_content_filter' , 'addon/nsfw/nsfw.php' , 'nsfw_prepare_body_content_filter' , 10 );
Hook :: register ( 'addon_settings' , 'addon/nsfw/nsfw.php' , 'nsfw_addon_settings' );
Hook :: register ( 'addon_settings_post' , 'addon/nsfw/nsfw.php' , 'nsfw_addon_settings_post' );
2011-10-14 03:53:24 +00:00
}
2018-01-15 13:15:33 +00:00
// This function isn't perfect and isn't trying to preserve the html structure - it's just a
// quick and dirty filter to pull out embedded photo blobs because 'nsfw' seems to come up
2012-09-17 00:42:36 +00:00
// inside them quite often. We don't need anything fancy, just pull out the data blob so we can
2018-01-15 13:15:33 +00:00
// check against the rest of the body.
2018-01-22 19:03:11 +00:00
function nsfw_extract_photos ( $body )
{
2012-09-17 00:42:36 +00:00
$new_body = '' ;
2018-01-15 13:15:33 +00:00
2018-03-15 09:00:09 +00:00
$img_start = strpos ( $body , 'src="data:' );
$img_end = (( $img_start !== false ) ? strpos ( substr ( $body , $img_start ), '>' ) : false );
2012-09-17 00:42:36 +00:00
$cnt = 0 ;
2018-03-25 04:08:19 +00:00
while ( $img_end !== false ) {
2012-09-17 00:42:36 +00:00
$img_end += $img_start ;
2018-03-15 09:00:09 +00:00
$new_body = $new_body . substr ( $body , 0 , $img_start );
2018-01-15 13:15:33 +00:00
2012-09-17 00:42:36 +00:00
$cnt ++ ;
2018-03-15 09:00:09 +00:00
$body = substr ( $body , 0 , $img_end );
2012-09-17 00:42:36 +00:00
2018-03-15 09:00:09 +00:00
$img_start = strpos ( $body , 'src="data:' );
$img_end = (( $img_start !== false ) ? strpos ( substr ( $body , $img_start ), '>' ) : false );
2012-09-17 00:42:36 +00:00
}
2018-03-15 09:00:09 +00:00
if ( ! $cnt ) {
2012-09-17 00:42:36 +00:00
return $body ;
2018-03-15 09:00:09 +00:00
}
2012-09-17 00:42:36 +00:00
return $new_body ;
}
2011-10-14 03:53:24 +00:00
2023-01-14 02:16:09 +00:00
function nsfw_addon_settings ( array & $data )
2018-03-15 09:00:09 +00:00
{
2022-10-20 21:51:49 +00:00
if ( ! DI :: userSession () -> getLocalUserId ()) {
2011-10-14 03:53:24 +00:00
return ;
2018-03-15 09:00:09 +00:00
}
2011-10-14 03:53:24 +00:00
2022-10-20 21:51:49 +00:00
$enabled = ! DI :: pConfig () -> get ( DI :: userSession () -> getLocalUserId (), 'nsfw' , 'disable' );
$words = DI :: pConfig () -> get ( DI :: userSession () -> getLocalUserId (), 'nsfw' , 'words' , 'nsfw,' );
2021-11-20 09:56:55 +00:00
$t = Renderer :: getMarkupTemplate ( 'settings.tpl' , 'addon/nsfw/' );
$html = Renderer :: replaceMacros ( $t , [
'$info' => DI :: l10n () -> t ( 'This addon searches for specified words/text in posts and collapses them. It can be used to filter content tagged with for instance #NSFW that may be deemed inappropriate at certain times or places, such as being at work. It is also useful for hiding irrelevant or annoying content from direct view.' ),
'$enabled' => [ 'nsfw-enable' , DI :: l10n () -> t ( 'Enable Content filter' ), $enabled ],
2022-11-18 16:57:34 +00:00
'$words' => [ 'nsfw-words' , DI :: l10n () -> t ( 'Comma separated list of keywords to hide' ), $words , DI :: l10n () -> t ( 'Use /expression/ to provide regular expressions, #tag to specfically match hashtags (case-insensitive), or regular words (case-sensitive)' )],
2021-11-20 09:56:55 +00:00
]);
$data = [
'addon' => 'nsfw' ,
'title' => DI :: l10n () -> t ( 'Content Filter (NSFW and more)' ),
'html' => $html ,
];
2011-10-14 03:53:24 +00:00
}
2023-01-14 02:16:09 +00:00
function nsfw_addon_settings_post ( array & $b )
2018-03-15 09:00:09 +00:00
{
2022-10-20 21:51:49 +00:00
if ( ! DI :: userSession () -> getLocalUserId ()) {
2011-10-14 03:53:24 +00:00
return ;
2018-03-15 09:00:09 +00:00
}
2011-10-14 03:53:24 +00:00
2018-08-08 06:24:47 +00:00
if ( ! empty ( $_POST [ 'nsfw-submit' ])) {
2022-12-10 19:43:30 +00:00
$enable = ! empty ( $_POST [ 'nsfw-enable' ]) ? intval ( $_POST [ 'nsfw-enable' ]) : 0 ;
2018-03-25 04:08:19 +00:00
$disable = 1 - $enable ;
2022-12-10 19:43:30 +00:00
$words = trim ( $_POST [ 'nsfw-words' ]);
$word_list = explode ( ',' , $words );
foreach ( $word_list as $word ) {
$word = trim ( $word );
2023-05-29 23:34:01 +00:00
if ( ! $words || strpos ( $word , '/' ) !== 0 ) {
2022-12-10 19:43:30 +00:00
continue ;
}
if ( @ preg_match ( $word , '' ) === false ) {
DI :: sysmsg () -> addNotice ( DI :: l10n () -> t ( 'Regular expression "%s" fails to compile' , $word ));
};
}
DI :: pConfig () -> set ( DI :: userSession () -> getLocalUserId (), 'nsfw' , 'words' , $words );
2022-10-20 21:51:49 +00:00
DI :: pConfig () -> set ( DI :: userSession () -> getLocalUserId (), 'nsfw' , 'disable' , $disable );
2011-10-14 03:53:24 +00:00
}
2011-10-05 09:20:17 +00:00
}
2023-01-14 02:16:09 +00:00
function nsfw_prepare_body_content_filter ( & $hook_data )
2018-03-15 09:00:09 +00:00
{
2011-10-14 03:53:24 +00:00
$words = null ;
2022-10-20 21:51:49 +00:00
if ( DI :: pConfig () -> get ( DI :: userSession () -> getLocalUserId (), 'nsfw' , 'disable' )) {
2012-02-04 11:56:55 +00:00
return ;
2018-03-15 08:44:00 +00:00
}
2018-03-15 09:00:09 +00:00
2022-10-20 21:51:49 +00:00
if ( DI :: userSession () -> getLocalUserId ()) {
$words = DI :: pConfig () -> get ( DI :: userSession () -> getLocalUserId (), 'nsfw' , 'words' );
2011-10-14 03:53:24 +00:00
}
2018-03-25 04:08:19 +00:00
2018-03-15 09:00:09 +00:00
if ( $words ) {
2018-03-25 04:08:19 +00:00
$word_list = explode ( ',' , $words );
2018-03-15 09:00:09 +00:00
} else {
2018-03-25 04:08:19 +00:00
$word_list = [ 'nsfw' ];
2011-10-14 03:53:24 +00:00
}
$found = false ;
2018-03-25 04:08:19 +00:00
if ( count ( $word_list )) {
2018-04-01 06:32:08 +00:00
$body = $hook_data [ 'item' ][ 'title' ] . " \n " . nsfw_extract_photos ( $hook_data [ 'item' ][ 'body' ]);
2012-09-17 00:42:36 +00:00
2018-03-25 04:08:19 +00:00
foreach ( $word_list as $word ) {
2012-05-11 04:35:48 +00:00
$word = trim ( $word );
2018-03-15 09:00:09 +00:00
if ( ! strlen ( $word )) {
2011-10-14 03:53:24 +00:00
continue ;
}
2018-03-25 04:20:16 +00:00
2018-04-01 06:32:08 +00:00
$tag_search = false ;
2018-03-25 04:20:16 +00:00
switch ( $word [ 0 ]) {
case '/' ; // Regular expression
2022-12-10 19:43:30 +00:00
$found = @ preg_match ( $word , $body );
2018-03-25 04:20:16 +00:00
break ;
case '#' : // Hashtag-only search
2018-04-01 06:32:08 +00:00
$tag_search = true ;
$found = nsfw_find_word_in_item_tags ( $hook_data [ 'item' ][ 'hashtags' ], substr ( $word , 1 ));
2012-02-02 07:40:16 +00:00
break ;
2018-03-25 04:20:16 +00:00
default :
2022-11-18 16:57:34 +00:00
$found = strpos ( $body , $word ) !== false || nsfw_find_word_in_item_tags ( $hook_data [ 'item' ][ 'tags' ], $word );
2012-02-02 07:40:16 +00:00
break ;
2018-03-25 04:20:16 +00:00
}
if ( $found ) {
break ;
2018-01-15 13:15:33 +00:00
}
}
2011-10-14 03:53:24 +00:00
}
2018-01-22 19:03:11 +00:00
if ( $found ) {
2018-04-01 06:32:08 +00:00
if ( $tag_search ) {
2020-01-18 19:52:33 +00:00
$hook_data [ 'filter_reasons' ][] = DI :: l10n () -> t ( 'Filtered tag: %s' , $word );
2018-04-01 06:32:08 +00:00
} else {
2020-01-18 19:52:33 +00:00
$hook_data [ 'filter_reasons' ][] = DI :: l10n () -> t ( 'Filtered word: %s' , $word );
2018-04-01 06:32:08 +00:00
}
2011-10-05 09:20:17 +00:00
}
2011-10-14 03:53:24 +00:00
}
2018-03-25 04:20:16 +00:00
function nsfw_find_word_in_item_tags ( $item_tags , $word )
{
if ( is_array ( $item_tags )) {
foreach ( $item_tags as $tag ) {
if ( stripos ( $tag , '>' . $word . '<' ) !== false ) {
return true ;
}
}
}
return false ;
}