e06fc2aa69
* Rewrite: - stopped using deprecated NETWORK_* constants, now Protocol::* should be used - still left them intact for slow/lazy developers ... * Removed deprecated NETWORK_* constants as per code reviewer's request.
132 lines
3.5 KiB
PHP
132 lines
3.5 KiB
PHP
<?php
|
|
/**
|
|
* @file mod/viewcontacts.php
|
|
*/
|
|
use Friendica\App;
|
|
use Friendica\Content\ContactSelector;
|
|
use Friendica\Content\Nav;
|
|
use Friendica\Core\Config;
|
|
use Friendica\Core\L10n;
|
|
use Friendica\Core\Protocol;
|
|
use Friendica\Database\DBA;
|
|
use Friendica\Model\Contact;
|
|
use Friendica\Model\Profile;
|
|
use Friendica\Util\Proxy as ProxyUtils;
|
|
use Friendica\Core\System;
|
|
|
|
function viewcontacts_init(App $a)
|
|
{
|
|
if (Config::get('system', 'block_public') && !local_user() && !remote_user()) {
|
|
return;
|
|
}
|
|
|
|
if ($a->argc < 2) {
|
|
System::httpExit(403, ["title" => L10n::t('Access denied.')]);
|
|
}
|
|
|
|
Nav::setSelected('home');
|
|
|
|
$nick = $a->argv[1];
|
|
$r = q("SELECT * FROM `user` WHERE `nickname` = '%s' AND `blocked` = 0 LIMIT 1",
|
|
DBA::escape($nick)
|
|
);
|
|
|
|
if (!DBA::isResult($r)) {
|
|
return;
|
|
}
|
|
|
|
$a->data['user'] = $r[0];
|
|
$a->profile_uid = $r[0]['uid'];
|
|
$is_owner = (local_user() && (local_user() == $a->profile_uid));
|
|
|
|
Profile::load($a, $a->argv[1]);
|
|
}
|
|
|
|
function viewcontacts_content(App $a)
|
|
{
|
|
if (Config::get('system', 'block_public') && !local_user() && !remote_user()) {
|
|
notice(L10n::t('Public access denied.') . EOL);
|
|
return;
|
|
}
|
|
|
|
$is_owner = $a->profile['profile_uid'] == local_user();
|
|
|
|
$o = "";
|
|
|
|
// tabs
|
|
$o .= Profile::getTabs($a, $is_owner, $a->data['user']['nickname']);
|
|
|
|
if (!count($a->profile) || $a->profile['hide-friends']) {
|
|
notice(L10n::t('Permission denied.') . EOL);
|
|
return $o;
|
|
}
|
|
|
|
$r = q("SELECT COUNT(*) AS `total` FROM `contact`
|
|
WHERE `uid` = %d AND NOT `blocked` AND NOT `pending`
|
|
AND NOT `hidden` AND NOT `archive`
|
|
AND `network` IN ('%s', '%s', '%s')",
|
|
intval($a->profile['uid']),
|
|
DBA::escape(Protocol::DFRN),
|
|
DBA::escape(Protocol::DIASPORA),
|
|
DBA::escape(Protocol::OSTATUS)
|
|
);
|
|
if (DBA::isResult($r)) {
|
|
$a->set_pager_total($r[0]['total']);
|
|
}
|
|
|
|
$r = q("SELECT * FROM `contact`
|
|
WHERE `uid` = %d AND NOT `blocked` AND NOT `pending`
|
|
AND NOT `hidden` AND NOT `archive`
|
|
AND `network` IN ('%s', '%s', '%s')
|
|
ORDER BY `name` ASC LIMIT %d, %d",
|
|
intval($a->profile['uid']),
|
|
DBA::escape(Protocol::DFRN),
|
|
DBA::escape(Protocol::DIASPORA),
|
|
DBA::escape(Protocol::OSTATUS),
|
|
intval($a->pager['start']),
|
|
intval($a->pager['itemspage'])
|
|
);
|
|
if (!DBA::isResult($r)) {
|
|
info(L10n::t('No contacts.').EOL);
|
|
return $o;
|
|
}
|
|
|
|
$contacts = [];
|
|
|
|
foreach ($r as $rr) {
|
|
/// @TODO This triggers an E_NOTICE if 'self' is not there
|
|
if ($rr['self']) {
|
|
continue;
|
|
}
|
|
|
|
$contact_details = Contact::getDetailsByURL($rr['url'], $a->profile['uid'], $rr);
|
|
|
|
$contacts[] = [
|
|
'id' => $rr['id'],
|
|
'img_hover' => L10n::t('Visit %s\'s profile [%s]', $contact_details['name'], $rr['url']),
|
|
'photo_menu' => Contact::photoMenu($rr),
|
|
'thumb' => ProxyUtils::proxifyUrl($contact_details['thumb'], false, ProxyUtils::SIZE_THUMB),
|
|
'name' => htmlentities(substr($contact_details['name'], 0, 20)),
|
|
'username' => htmlentities($contact_details['name']),
|
|
'details' => $contact_details['location'],
|
|
'tags' => $contact_details['keywords'],
|
|
'about' => $contact_details['about'],
|
|
'account_type' => Contact::getAccountType($contact_details),
|
|
'url' => Contact::magicLink($rr['url']),
|
|
'sparkle' => '',
|
|
'itemurl' => (($contact_details['addr'] != "") ? $contact_details['addr'] : $rr['url']),
|
|
'network' => ContactSelector::networkToName($rr['network'], $rr['url']),
|
|
];
|
|
}
|
|
|
|
|
|
$tpl = get_markup_template("viewcontact_template.tpl");
|
|
$o .= replace_macros($tpl, [
|
|
'$title' => L10n::t('Contacts'),
|
|
'$contacts' => $contacts,
|
|
'$paginate' => paginate($a),
|
|
]);
|
|
|
|
return $o;
|
|
}
|