friendica_2021.01_tupambae_shared_hosting/mod/lockview.php

<?php

use Friendica\App;
use Friendica\Database\DBM;

function lockview_content(App $a) {

	$type = (($a->argc > 1) ? $a->argv[1] : 0);
	if (is_numeric($type)) {
		$item_id = intval($type);
		$type='item';
	} else {
		$item_id = (($a->argc > 2) ? intval($a->argv[2]) : 0);
	}

	if(! $item_id)
		killme();

	if (!in_array($type, ['item','photo','event']))
		killme();

	$r = q("SELECT * FROM `%s` WHERE `id` = %d LIMIT 1",
		dbesc($type),
		intval($item_id)
	);
	if (! DBM::is_result($r)) {
		killme();
	}
	$item = $r[0];

	call_hooks('lockview_content', $item);

	if($item['uid'] != local_user()) {
		echo t('Remote privacy information not available.') . '<br />';
		killme();
	}


	if(($item['private'] == 1) && (! strlen($item['allow_cid'])) && (! strlen($item['allow_gid']))
		&& (! strlen($item['deny_cid'])) && (! strlen($item['deny_gid']))) {

		echo t('Remote privacy information not available.') . '<br />';
		killme();
	}

	$allowed_users = expand_acl($item['allow_cid']);
	$allowed_groups = expand_acl($item['allow_gid']);
	$deny_users = expand_acl($item['deny_cid']);
	$deny_groups = expand_acl($item['deny_gid']);

	$o = t('Visible to:') . '<br />';
	$l = [];

	if(count($allowed_groups)) {
		$r = q("SELECT `name` FROM `group` WHERE `id` IN ( %s )",
			dbesc(implode(', ', $allowed_groups))
		);
		if (DBM::is_result($r))
			foreach($r as $rr)
				$l[] = '<b>' . $rr['name'] . '</b>';
	}
	if(count($allowed_users)) {
		$r = q("SELECT `name` FROM `contact` WHERE `id` IN ( %s )",
			dbesc(implode(', ',$allowed_users))
		);
		if (DBM::is_result($r))
			foreach($r as $rr)
				$l[] = $rr['name'];

	}

	if(count($deny_groups)) {
		$r = q("SELECT `name` FROM `group` WHERE `id` IN ( %s )",
			dbesc(implode(', ', $deny_groups))
		);
		if (DBM::is_result($r))
			foreach($r as $rr)
				$l[] = '<b><strike>' . $rr['name'] . '</strike></b>';
	}
	if(count($deny_users)) {
		$r = q("SELECT `name` FROM `contact` WHERE `id` IN ( %s )",
			dbesc(implode(', ',$deny_users))
		);
		if (DBM::is_result($r))
			foreach($r as $rr)
				$l[] = '<strike>' . $rr['name'] . '</strike>';

	}

	echo $o . implode(', ', $l);
	killme();

}