3 * @file mod/contacts.php
7 use Friendica\Content\ContactSelector;
8 use Friendica\Content\Nav;
9 use Friendica\Content\Text\BBCode;
10 use Friendica\Content\Widget;
11 use Friendica\Core\Addon;
12 use Friendica\Core\L10n;
13 use Friendica\Core\System;
14 use Friendica\Core\Worker;
15 use Friendica\Database\DBA;
16 use Friendica\Model\Contact;
17 use Friendica\Model\GContact;
18 use Friendica\Model\Group;
19 use Friendica\Model\Profile;
20 use Friendica\Network\Probe;
21 use Friendica\Util\DateTimeFormat;
23 require_once 'mod/proxy.php';
25 function contacts_init(App $a)
31 $nets = defaults($_GET, 'nets', '');
36 if (!x($a->page, 'aside')) {
37 $a->page['aside'] = '';
42 if ((($a->argc == 2) && intval($a->argv[1])) || (($a->argc == 3) && intval($a->argv[1]) && ($a->argv[2] == "posts"))) {
43 $contact_id = intval($a->argv[1]);
44 $contact = DBA::selectFirst('contact', [], ['id' => $contact_id, 'uid' => local_user()]);
47 if (DBA::isResult($contact)) {
48 if ($contact['self']) {
49 if (($a->argc == 3) && intval($a->argv[1]) && ($a->argv[2] == "posts")) {
50 goaway('profile/' . $contact['nick']);
52 goaway('profile/' . $contact['nick'] . '?tab=profile');
56 $a->data['contact'] = $contact;
58 if (($a->data['contact']['network'] != "") && ($a->data['contact']['network'] != NETWORK_DFRN)) {
59 $networkname = format_network_name($a->data['contact']['network'], $a->data['contact']['url']);
64 /// @TODO Add nice spaces
65 $vcard_widget = replace_macros(get_markup_template("vcard-widget.tpl"), [
66 '$name' => htmlentities($a->data['contact']['name']),
67 '$photo' => $a->data['contact']['photo'],
68 '$url' => Contact::MagicLink($a->data['contact']['url']),
69 '$addr' => (($a->data['contact']['addr'] != "") ? ($a->data['contact']['addr']) : ""),
70 '$network_name' => $networkname,
71 '$network' => L10n::t('Network:'),
72 '$account_type' => Contact::getAccountType($a->data['contact'])
75 $findpeople_widget = '';
77 $networks_widget = '';
80 $networks_widget = Widget::networks('contacts', $nets);
81 if (isset($_GET['add'])) {
82 $follow_widget = Widget::follow($_GET['add']);
84 $follow_widget = Widget::follow();
87 $findpeople_widget = Widget::findPeople();
90 $groups_widget = Group::sidebarWidget('contacts', 'group', 'full', 'everyone', $contact_id);
92 $a->page['aside'] .= replace_macros(get_markup_template("contacts-widget-sidebar.tpl"), [
93 '$vcard_widget' => $vcard_widget,
94 '$findpeople_widget' => $findpeople_widget,
95 '$follow_widget' => $follow_widget,
96 '$groups_widget' => $groups_widget,
97 '$networks_widget' => $networks_widget
100 $base = System::baseUrl();
101 $tpl = get_markup_template("contacts-head.tpl");
102 $a->page['htmlhead'] .= replace_macros($tpl, [
103 '$baseurl' => System::baseUrl(true),
107 $tpl = get_markup_template("contacts-end.tpl");
108 $a->page['end'] .= replace_macros($tpl, [
109 '$baseurl' => System::baseUrl(true),
114 function contacts_batch_actions(App $a)
116 $contacts_id = $_POST['contact_batch'];
117 if (!is_array($contacts_id)) {
121 $orig_records = q("SELECT * FROM `contact` WHERE `id` IN (%s) AND `uid` = %d AND `self` = 0",
122 implode(",", $contacts_id),
127 foreach ($orig_records as $orig_record) {
128 $contact_id = $orig_record['id'];
129 if (x($_POST, 'contacts_batch_update')) {
130 _contact_update($contact_id);
133 if (x($_POST, 'contacts_batch_block')) {
134 $r = _contact_block($contact_id, $orig_record);
139 if (x($_POST, 'contacts_batch_ignore')) {
140 $r = _contact_ignore($contact_id, $orig_record);
145 if (x($_POST, 'contacts_batch_archive')) {
146 $r = _contact_archive($contact_id, $orig_record);
151 if (x($_POST, 'contacts_batch_drop')) {
152 _contact_drop($orig_record);
156 if ($count_actions > 0) {
157 info(L10n::tt("%d contact edited.", "%d contacts edited.", $count_actions));
160 if (x($_SESSION, 'return_url')) {
161 goaway('' . $_SESSION['return_url']);
167 function contacts_post(App $a)
173 if ($a->argv[1] === "batch") {
174 contacts_batch_actions($a);
178 $contact_id = intval($a->argv[1]);
183 if (!DBA::exists('contact', ['id' => $contact_id, 'uid' => local_user()])) {
184 notice(L10n::t('Could not access contact record.') . EOL);
186 return; // NOTREACHED
189 Addon::callHooks('contact_edit_post', $_POST);
191 $profile_id = intval(defaults($_POST, 'profile-assign', 0));
193 if (!DBA::exists('profile', ['id' => $profile_id, 'uid' => local_user()])) {
194 notice(L10n::t('Could not locate selected profile.') . EOL);
199 $hidden = intval($_POST['hidden']);
201 $notify = intval($_POST['notify']);
203 $fetch_further_information = intval(defaults($_POST, 'fetch_further_information', 0));
205 $ffi_keyword_blacklist = escape_tags(trim(defaults($_POST, 'ffi_keyword_blacklist', '')));
207 $priority = intval(defaults($_POST, 'poll', 0));
208 if ($priority > 5 || $priority < 0) {
212 $info = escape_tags(trim($_POST['info']));
214 $r = q("UPDATE `contact` SET `profile-id` = %d, `priority` = %d , `info` = '%s',
215 `hidden` = %d, `notify_new_posts` = %d, `fetch_further_information` = %d,
216 `ffi_keyword_blacklist` = '%s' WHERE `id` = %d AND `uid` = %d",
222 intval($fetch_further_information),
223 DBA::escape($ffi_keyword_blacklist),
227 if (DBA::isResult($r)) {
228 info(L10n::t('Contact updated.') . EOL);
230 notice(L10n::t('Failed to update contact record.') . EOL);
233 $contact = DBA::selectFirst('contact', [], ['id' => $contact_id, 'uid' => local_user()]);
234 if (DBA::isResult($contact)) {
235 $a->data['contact'] = $contact;
241 /* contact actions */
243 function _contact_update($contact_id)
245 $contact = DBA::selectFirst('contact', ['uid', 'url', 'network'], ['id' => $contact_id, 'uid' => local_user()]);
246 if (!DBA::isResult($contact)) {
250 $uid = $contact["uid"];
252 if ($contact["network"] == NETWORK_OSTATUS) {
253 $result = Contact::createFromProbe($uid, $contact["url"], false, $contact["network"]);
255 if ($result['success']) {
256 q("UPDATE `contact` SET `subhub` = 1 WHERE `id` = %d", intval($contact_id));
259 // pull feed and consume it, which should subscribe to the hub.
260 Worker::add(PRIORITY_HIGH, "OnePoll", $contact_id, "force");
264 function _contact_update_profile($contact_id)
266 $contact = DBA::selectFirst('contact', ['uid', 'url', 'network'], ['id' => $contact_id, 'uid' => local_user()]);
267 if (!DBA::isResult($contact)) {
271 $uid = $contact["uid"];
273 $data = Probe::uri($contact["url"], "", 0, false);
275 // "Feed" or "Unknown" is mostly a sign of communication problems
276 if ((in_array($data["network"], [NETWORK_FEED, NETWORK_PHANTOM])) && ($data["network"] != $contact["network"])) {
280 $updatefields = ["name", "nick", "url", "addr", "batch", "notify", "poll", "request", "confirm",
281 "poco", "network", "alias"];
284 if ($data["network"] == NETWORK_OSTATUS) {
285 $result = Contact::createFromProbe($uid, $data["url"], false);
287 if ($result['success']) {
288 $update["subhub"] = true;
292 foreach ($updatefields AS $field) {
293 if (isset($data[$field]) && ($data[$field] != "")) {
294 $update[$field] = $data[$field];
298 $update["nurl"] = normalise_link($data["url"]);
302 if (isset($data["priority"]) && ($data["priority"] != 0)) {
303 $query = "`priority` = " . intval($data["priority"]);
306 foreach ($update AS $key => $value) {
311 $query .= "`" . $key . "` = '" . DBA::escape($value) . "'";
318 $r = q("UPDATE `contact` SET $query WHERE `id` = %d AND `uid` = %d",
323 // Update the entry in the contact table
324 Contact::updateAvatar($data['photo'], local_user(), $contact_id, true);
326 // Update the entry in the gcontact table
327 GContact::updateFromProbe($data["url"]);
330 function _contact_block($contact_id, $orig_record)
332 $blocked = (($orig_record['blocked']) ? 0 : 1);
333 $r = q("UPDATE `contact` SET `blocked` = %d WHERE `id` = %d AND `uid` = %d",
338 return DBA::isResult($r);
341 function _contact_ignore($contact_id, $orig_record)
343 $readonly = (($orig_record['readonly']) ? 0 : 1);
344 $r = q("UPDATE `contact` SET `readonly` = %d WHERE `id` = %d AND `uid` = %d",
349 return DBA::isResult($r);
352 function _contact_archive($contact_id, $orig_record)
354 $archived = (($orig_record['archive']) ? 0 : 1);
355 $r = q("UPDATE `contact` SET `archive` = %d WHERE `id` = %d AND `uid` = %d",
360 return DBA::isResult($r);
363 function _contact_drop($orig_record)
367 $r = q("SELECT `contact`.*, `user`.* FROM `contact` INNER JOIN `user` ON `contact`.`uid` = `user`.`uid`
368 WHERE `user`.`uid` = %d AND `contact`.`self` LIMIT 1",
369 intval($a->user['uid'])
371 if (!DBA::isResult($r)) {
375 Contact::terminateFriendship($r[0], $orig_record);
376 Contact::remove($orig_record['id']);
379 function contacts_content(App $a)
383 Nav::setSelected('contacts');
386 notice(L10n::t('Permission denied.') . EOL);
391 $contact_id = intval($a->argv[1]);
398 $orig_record = DBA::selectFirst('contact', [], ['id' => $contact_id, 'uid' => local_user(), 'self' => false]);
399 if (!DBA::isResult($orig_record)) {
400 notice(L10n::t('Could not access contact record.') . EOL);
402 return; // NOTREACHED
405 if ($cmd === 'update') {
406 _contact_update($contact_id);
407 goaway('contacts/' . $contact_id);
411 if ($cmd === 'updateprofile') {
412 _contact_update_profile($contact_id);
413 goaway('crepair/' . $contact_id);
417 if ($cmd === 'block') {
418 $r = _contact_block($contact_id, $orig_record);
420 $blocked = (($orig_record['blocked']) ? 0 : 1);
421 info((($blocked) ? L10n::t('Contact has been blocked') : L10n::t('Contact has been unblocked')) . EOL);
424 goaway('contacts/' . $contact_id);
425 return; // NOTREACHED
428 if ($cmd === 'ignore') {
429 $r = _contact_ignore($contact_id, $orig_record);
431 $readonly = (($orig_record['readonly']) ? 0 : 1);
432 info((($readonly) ? L10n::t('Contact has been ignored') : L10n::t('Contact has been unignored')) . EOL);
435 goaway('contacts/' . $contact_id);
436 return; // NOTREACHED
439 if ($cmd === 'archive') {
440 $r = _contact_archive($contact_id, $orig_record);
442 $archived = (($orig_record['archive']) ? 0 : 1);
443 info((($archived) ? L10n::t('Contact has been archived') : L10n::t('Contact has been unarchived')) . EOL);
446 goaway('contacts/' . $contact_id);
447 return; // NOTREACHED
450 if ($cmd === 'drop') {
451 // Check if we should do HTML-based delete confirmation
452 if (x($_REQUEST, 'confirm')) {
453 // <form> can't take arguments in its "action" parameter
454 // so add any arguments as hidden inputs
455 $query = explode_querystring($a->query_string);
457 foreach ($query['args'] as $arg) {
458 if (strpos($arg, 'confirm=') === false) {
459 $arg_parts = explode('=', $arg);
460 $inputs[] = ['name' => $arg_parts[0], 'value' => $arg_parts[1]];
464 $a->page['aside'] = '';
466 return replace_macros(get_markup_template('contact_drop_confirm.tpl'), [
467 '$header' => L10n::t('Drop contact'),
468 '$contact' => _contact_detail_for_template($orig_record),
470 '$message' => L10n::t('Do you really want to delete this contact?'),
471 '$extra_inputs' => $inputs,
472 '$confirm' => L10n::t('Yes'),
473 '$confirm_url' => $query['base'],
474 '$confirm_name' => 'confirmed',
475 '$cancel' => L10n::t('Cancel'),
478 // Now check how the user responded to the confirmation query
479 if (x($_REQUEST, 'canceled')) {
480 if (x($_SESSION, 'return_url')) {
481 goaway('' . $_SESSION['return_url']);
487 _contact_drop($orig_record);
488 info(L10n::t('Contact has been removed.') . EOL);
489 if (x($_SESSION, 'return_url')) {
490 goaway('' . $_SESSION['return_url']);
494 return; // NOTREACHED
496 if ($cmd === 'posts') {
497 return contact_posts($a, $contact_id);
501 $_SESSION['return_url'] = $a->query_string;
503 if ((x($a->data, 'contact')) && (is_array($a->data['contact']))) {
504 $contact_id = $a->data['contact']['id'];
505 $contact = $a->data['contact'];
507 $a->page['htmlhead'] .= replace_macros(get_markup_template('contact_head.tpl'), [
508 '$baseurl' => System::baseUrl(true),
510 $a->page['end'] .= replace_macros(get_markup_template('contact_end.tpl'), [
511 '$baseurl' => System::baseUrl(true),
516 switch ($contact['rel']) {
517 case Contact::FRIEND:
518 $dir_icon = 'images/lrarrow.gif';
519 $relation_text = L10n::t('You are mutual friends with %s');
522 case Contact::FOLLOWER;
523 $dir_icon = 'images/larrow.gif';
524 $relation_text = L10n::t('You are sharing with %s');
527 case Contact::SHARING;
528 $dir_icon = 'images/rarrow.gif';
529 $relation_text = L10n::t('%s is sharing with you');
536 if (!in_array($contact['network'], [NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_DIASPORA])) {
540 $relation_text = sprintf($relation_text, htmlentities($contact['name']));
542 $url = Contact::magicLink($contact['url']);
543 if (strpos($url, 'redir/') === 0) {
544 $sparkle = ' class="sparkle" ';
549 $insecure = L10n::t('Private communications are not available for this contact.');
551 $last_update = (($contact['last-update'] <= NULL_DATE) ? L10n::t('Never') : DateTimeFormat::local($contact['last-update'], 'D, j M Y, g:i A'));
553 if ($contact['last-update'] > NULL_DATE) {
554 $last_update .= ' ' . (($contact['last-update'] <= $contact['success_update']) ? L10n::t("\x28Update was successful\x29") : L10n::t("\x28Update was not successful\x29"));
556 $lblsuggest = (($contact['network'] === NETWORK_DFRN) ? L10n::t('Suggest friends') : '');
558 $poll_enabled = in_array($contact['network'], [NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_FEED, NETWORK_MAIL]);
560 $nettype = L10n::t('Network type: %s', ContactSelector::networkToName($contact['network'], $contact["url"]));
563 $tab_str = contacts_tab($a, $contact_id, 2);
565 $lost_contact = (($contact['archive'] && $contact['term-date'] > NULL_DATE && $contact['term-date'] < DateTimeFormat::utcNow()) ? L10n::t('Communications lost with this contact!') : '');
567 $fetch_further_information = null;
568 if ($contact['network'] == NETWORK_FEED) {
569 $fetch_further_information = [
570 'fetch_further_information',
571 L10n::t('Fetch further information for feeds'),
572 $contact['fetch_further_information'],
573 L10n::t("Fetch information like preview pictures, title and teaser from the feed item. You can activate this if the feed doesn't contain much text. Keywords are taken from the meta header in the feed item and are posted as hash tags."),
574 ['0' => L10n::t('Disabled'),
575 '1' => L10n::t('Fetch information'),
576 '3' => L10n::t('Fetch keywords'),
577 '2' => L10n::t('Fetch information and keywords')
582 $poll_interval = null;
583 if (in_array($contact['network'], [NETWORK_FEED, NETWORK_MAIL])) {
584 $poll_interval = ContactSelector::pollInterval($contact['priority'], (!$poll_enabled));
587 $profile_select = null;
588 if ($contact['network'] == NETWORK_DFRN) {
589 $profile_select = ContactSelector::profileAssign($contact['profile-id'], (($contact['network'] !== NETWORK_DFRN) ? true : false));
592 /// @todo Only show the following link with DFRN when the remote version supports it
595 if (in_array($contact['network'], [NETWORK_DIASPORA, NETWORK_OSTATUS, NETWORK_DFRN])) {
596 if ($contact['rel'] == Contact::FOLLOWER) {
597 $follow = System::baseUrl(true) . "/follow?url=" . urlencode($contact["url"]);
598 $follow_text = L10n::t("Connect/Follow");
599 } elseif ($contact['rel'] == Contact::FRIEND) {
600 $follow = System::baseUrl(true) . "/unfollow?url=" . urlencode($contact["url"]);
601 $follow_text = L10n::t("Disconnect/Unfollow");
605 // Load contactact related actions like hide, suggest, delete and others
606 $contact_actions = contact_actions($contact);
608 $tpl = get_markup_template("contact_edit.tpl");
609 $o .= replace_macros($tpl, [
610 '$header' => L10n::t("Contact"),
611 '$tab_str' => $tab_str,
612 '$submit' => L10n::t('Submit'),
613 '$lbl_vis1' => L10n::t('Profile Visibility'),
614 '$lbl_vis2' => L10n::t('Please choose the profile you would like to display to %s when viewing your profile securely.', $contact['name']),
615 '$lbl_info1' => L10n::t('Contact Information / Notes'),
616 '$lbl_info2' => L10n::t('Their personal note'),
617 '$reason' => trim(notags($contact['reason'])),
618 '$infedit' => L10n::t('Edit contact notes'),
619 '$common_link' => 'common/loc/' . local_user() . '/' . $contact['id'],
620 '$relation_text' => $relation_text,
621 '$visit' => L10n::t('Visit %s\'s profile [%s]', $contact['name'], $contact['url']),
622 '$blockunblock' => L10n::t('Block/Unblock contact'),
623 '$ignorecont' => L10n::t('Ignore contact'),
624 '$lblcrepair' => L10n::t("Repair URL settings"),
625 '$lblrecent' => L10n::t('View conversations'),
626 '$lblsuggest' => $lblsuggest,
627 '$nettype' => $nettype,
628 '$poll_interval' => $poll_interval,
629 '$poll_enabled' => $poll_enabled,
630 '$lastupdtext' => L10n::t('Last update:'),
631 '$lost_contact' => $lost_contact,
632 '$updpub' => L10n::t('Update public posts'),
633 '$last_update' => $last_update,
634 '$udnow' => L10n::t('Update now'),
635 '$follow' => $follow,
636 '$follow_text' => $follow_text,
637 '$profile_select' => $profile_select,
638 '$contact_id' => $contact['id'],
639 '$block_text' => (($contact['blocked']) ? L10n::t('Unblock') : L10n::t('Block') ),
640 '$ignore_text' => (($contact['readonly']) ? L10n::t('Unignore') : L10n::t('Ignore') ),
641 '$insecure' => (($contact['network'] !== NETWORK_DFRN && $contact['network'] !== NETWORK_MAIL && $contact['network'] !== NETWORK_FACEBOOK && $contact['network'] !== NETWORK_DIASPORA) ? $insecure : ''),
642 '$info' => $contact['info'],
643 '$cinfo' => ['info', '', $contact['info'], ''],
644 '$blocked' => (($contact['blocked']) ? L10n::t('Currently blocked') : ''),
645 '$ignored' => (($contact['readonly']) ? L10n::t('Currently ignored') : ''),
646 '$archived' => (($contact['archive']) ? L10n::t('Currently archived') : ''),
647 '$pending' => (($contact['pending']) ? L10n::t('Awaiting connection acknowledge') : ''),
648 '$hidden' => ['hidden', L10n::t('Hide this contact from others'), ($contact['hidden'] == 1), L10n::t('Replies/likes to your public posts <strong>may</strong> still be visible')],
649 '$notify' => ['notify', L10n::t('Notification for new posts'), ($contact['notify_new_posts'] == 1), L10n::t('Send a notification of every new post of this contact')],
650 '$fetch_further_information' => $fetch_further_information,
651 '$ffi_keyword_blacklist' => $contact['ffi_keyword_blacklist'],
652 '$ffi_keyword_blacklist' => ['ffi_keyword_blacklist', L10n::t('Blacklisted keywords'), $contact['ffi_keyword_blacklist'], L10n::t('Comma separated list of keywords that should not be converted to hashtags, when "Fetch information and keywords" is selected')],
653 '$photo' => $contact['photo'],
654 '$name' => htmlentities($contact['name']),
655 '$dir_icon' => $dir_icon,
656 '$sparkle' => $sparkle,
658 '$profileurllabel' => L10n::t('Profile URL'),
659 '$profileurl' => $contact['url'],
660 '$account_type' => Contact::getAccountType($contact),
661 '$location' => BBCode::convert($contact["location"]),
662 '$location_label' => L10n::t("Location:"),
663 '$xmpp' => BBCode::convert($contact["xmpp"]),
664 '$xmpp_label' => L10n::t("XMPP:"),
665 '$about' => BBCode::convert($contact["about"], false),
666 '$about_label' => L10n::t("About:"),
667 '$keywords' => $contact["keywords"],
668 '$keywords_label' => L10n::t("Tags:"),
669 '$contact_action_button' => L10n::t("Actions"),
670 '$contact_actions' => $contact_actions,
671 '$contact_status' => L10n::t("Status"),
672 '$contact_settings_label' => L10n::t('Contact Settings'),
673 '$contact_profile_label' => L10n::t("Profile"),
676 $arr = ['contact' => $contact, 'output' => $o];
678 Addon::callHooks('contact_edit', $arr);
680 return $arr['output'];
689 if (($a->argc == 2) && ($a->argv[1] === 'all')) {
692 } elseif (($a->argc == 2) && ($a->argv[1] === 'blocked')) {
693 $sql_extra = " AND `blocked` = 1 ";
695 } elseif (($a->argc == 2) && ($a->argv[1] === 'hidden')) {
696 $sql_extra = " AND `hidden` = 1 ";
698 } elseif (($a->argc == 2) && ($a->argv[1] === 'ignored')) {
699 $sql_extra = " AND `readonly` = 1 ";
701 } elseif (($a->argc == 2) && ($a->argv[1] === 'archived')) {
702 $sql_extra = " AND `archive` = 1 ";
705 $sql_extra = " AND `blocked` = 0 ";
708 $search = x($_GET, 'search') ? notags(trim($_GET['search'])) : '';
709 $nets = x($_GET, 'nets' ) ? notags(trim($_GET['nets'])) : '';
713 'label' => L10n::t('Suggestions'),
716 'title' => L10n::t('Suggest potential friends'),
717 'id' => 'suggestions-tab',
721 'label' => L10n::t('All Contacts'),
722 'url' => 'contacts/all',
723 'sel' => ($all) ? 'active' : '',
724 'title' => L10n::t('Show all contacts'),
725 'id' => 'showall-tab',
729 'label' => L10n::t('Unblocked'),
731 'sel' => ((!$all) && (!$blocked) && (!$hidden) && (!$search) && (!$nets) && (!$ignored) && (!$archived)) ? 'active' : '',
732 'title' => L10n::t('Only show unblocked contacts'),
733 'id' => 'showunblocked-tab',
737 'label' => L10n::t('Blocked'),
738 'url' => 'contacts/blocked',
739 'sel' => ($blocked) ? 'active' : '',
740 'title' => L10n::t('Only show blocked contacts'),
741 'id' => 'showblocked-tab',
745 'label' => L10n::t('Ignored'),
746 'url' => 'contacts/ignored',
747 'sel' => ($ignored) ? 'active' : '',
748 'title' => L10n::t('Only show ignored contacts'),
749 'id' => 'showignored-tab',
753 'label' => L10n::t('Archived'),
754 'url' => 'contacts/archived',
755 'sel' => ($archived) ? 'active' : '',
756 'title' => L10n::t('Only show archived contacts'),
757 'id' => 'showarchived-tab',
761 'label' => L10n::t('Hidden'),
762 'url' => 'contacts/hidden',
763 'sel' => ($hidden) ? 'active' : '',
764 'title' => L10n::t('Only show hidden contacts'),
765 'id' => 'showhidden-tab',
770 $tab_tpl = get_markup_template('common_tabs.tpl');
771 $t = replace_macros($tab_tpl, ['$tabs' => $tabs]);
778 $search_hdr = $search;
779 $search_txt = DBA::escape(protect_sprintf(preg_quote($search)));
780 $sql_extra .= " AND (name REGEXP '$search_txt' OR url REGEXP '$search_txt' OR nick REGEXP '$search_txt') ";
784 $sql_extra .= sprintf(" AND network = '%s' ", DBA::escape($nets));
787 $sql_extra2 = ((($sort_type > 0) && ($sort_type <= Contact::FRIEND)) ? sprintf(" AND `rel` = %d ", intval($sort_type)) : '');
789 $r = q("SELECT COUNT(*) AS `total` FROM `contact`
790 WHERE `uid` = %d AND `self` = 0 AND `pending` = 0 $sql_extra $sql_extra2 ",
791 intval($_SESSION['uid'])
793 if (DBA::isResult($r)) {
794 $a->set_pager_total($r[0]['total']);
795 $total = $r[0]['total'];
798 $sql_extra3 = Widget::unavailableNetworks();
802 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `pending` = 0 $sql_extra $sql_extra2 $sql_extra3 ORDER BY `name` ASC LIMIT %d , %d ",
803 intval($_SESSION['uid']),
804 intval($a->pager['start']),
805 intval($a->pager['itemspage'])
807 if (DBA::isResult($r)) {
808 foreach ($r as $rr) {
809 $contacts[] = _contact_detail_for_template($rr);
813 $tpl = get_markup_template("contacts-template.tpl");
814 $o .= replace_macros($tpl, [
815 '$baseurl' => System::baseUrl(),
816 '$header' => L10n::t('Contacts') . (($nets) ? ' - ' . ContactSelector::networkToName($nets) : ''),
819 '$search' => $search_hdr,
820 '$desc' => L10n::t('Search your contacts'),
821 '$finding' => $searching ? L10n::t('Results for: %s', $search) : "",
822 '$submit' => L10n::t('Find'),
824 '$contacts' => $contacts,
825 '$contact_drop_confirm' => L10n::t('Do you really want to delete this contact?'),
827 '$batch_actions' => [
828 'contacts_batch_update' => L10n::t('Update'),
829 'contacts_batch_block' => L10n::t('Block') . "/" . L10n::t("Unblock"),
830 "contacts_batch_ignore" => L10n::t('Ignore') . "/" . L10n::t("Unignore"),
831 "contacts_batch_archive" => L10n::t('Archive') . "/" . L10n::t("Unarchive"),
832 "contacts_batch_drop" => L10n::t('Delete'),
834 '$h_batch_actions' => L10n::t('Batch Actions'),
835 '$paginate' => paginate($a),
842 * @brief List of pages for the Contact TabBar
844 * Available Pages are 'Status', 'Profile', 'Contacts' and 'Common Friends'
847 * @param int $contact_id The ID of the contact
848 * @param int $active_tab 1 if tab should be marked as active
852 function contacts_tab($a, $contact_id, $active_tab)
857 'label' => L10n::t('Status'),
858 'url' => "contacts/" . $contact_id . "/posts",
859 'sel' => (($active_tab == 1) ? 'active' : ''),
860 'title' => L10n::t('Status Messages and Posts'),
861 'id' => 'status-tab',
865 'label' => L10n::t('Profile'),
866 'url' => "contacts/" . $contact_id,
867 'sel' => (($active_tab == 2) ? 'active' : ''),
868 'title' => L10n::t('Profile Details'),
869 'id' => 'profile-tab',
874 // Show this tab only if there is visible friend list
875 $x = GContact::countAllFriends(local_user(), $contact_id);
877 $tabs[] = ['label' => L10n::t('Contacts'),
878 'url' => "allfriends/" . $contact_id,
879 'sel' => (($active_tab == 3) ? 'active' : ''),
880 'title' => L10n::t('View all contacts'),
881 'id' => 'allfriends-tab',
885 // Show this tab only if there is visible common friend list
886 $common = GContact::countCommonFriends(local_user(), $contact_id);
888 $tabs[] = ['label' => L10n::t('Common Friends'),
889 'url' => "common/loc/" . local_user() . "/" . $contact_id,
890 'sel' => (($active_tab == 4) ? 'active' : ''),
891 'title' => L10n::t('View all common friends'),
892 'id' => 'common-loc-tab',
897 $tabs[] = ['label' => L10n::t('Advanced'),
898 'url' => 'crepair/' . $contact_id,
899 'sel' => (($active_tab == 5) ? 'active' : ''),
900 'title' => L10n::t('Advanced Contact Settings'),
901 'id' => 'advanced-tab',
905 $tab_tpl = get_markup_template('common_tabs.tpl');
906 $tab_str = replace_macros($tab_tpl, ['$tabs' => $tabs]);
911 function contact_posts(App $a, $contact_id)
913 $o = contacts_tab($a, $contact_id, 1);
915 $contact = DBA::selectFirst('contact', ['url'], ['id' => $contact_id]);
917 if (DBA::isResult($contact)) {
918 $a->page['aside'] = "";
919 Profile::load($a, "", 0, Contact::getDetailsByURL($contact["url"]));
920 $o .= Contact::getPostsFromUrl($contact["url"]);
926 function _contact_detail_for_template(array $rr)
931 switch ($rr['rel']) {
932 case Contact::FRIEND:
933 $dir_icon = 'images/lrarrow.gif';
934 $alt_text = L10n::t('Mutual Friendship');
937 case Contact::FOLLOWER;
938 $dir_icon = 'images/larrow.gif';
939 $alt_text = L10n::t('is a fan of yours');
942 case Contact::SHARING;
943 $dir_icon = 'images/rarrow.gif';
944 $alt_text = L10n::t('you are a fan of');
951 $url = Contact::magicLink($rr['url']);
953 if (strpos($url, 'redir/') === 0) {
954 $sparkle = ' class="sparkle" ';
960 $dir_icon = 'images/larrow.gif';
961 $alt_text = L10n::t('This is you');
967 'img_hover' => L10n::t('Visit %s\'s profile [%s]', $rr['name'], $rr['url']),
968 'edit_hover' => L10n::t('Edit contact'),
969 'photo_menu' => Contact::photoMenu($rr),
971 'alt_text' => $alt_text,
972 'dir_icon' => $dir_icon,
973 'thumb' => proxy_url($rr['thumb'], false, PROXY_SIZE_THUMB),
974 'name' => htmlentities($rr['name']),
975 'username' => htmlentities($rr['name']),
976 'account_type' => Contact::getAccountType($rr),
977 'sparkle' => $sparkle,
978 'itemurl' => (($rr['addr'] != "") ? $rr['addr'] : $rr['url']),
980 'network' => ContactSelector::networkToName($rr['network'], $rr['url']),
981 'nick' => htmlentities($rr['nick']),
986 * @brief Gives a array with actions which can performed to a given contact
988 * This includes actions like e.g. 'block', 'hide', 'archive', 'delete' and others
990 * @param array $contact Data about the Contact
991 * @return array with contact related actions
993 function contact_actions($contact)
995 $poll_enabled = in_array($contact['network'], [NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_FEED, NETWORK_MAIL]);
996 $contact_actions = [];
998 // Provide friend suggestion only for Friendica contacts
999 if ($contact['network'] === NETWORK_DFRN) {
1000 $contact_actions['suggest'] = [
1001 'label' => L10n::t('Suggest friends'),
1002 'url' => 'fsuggest/' . $contact['id'],
1009 if ($poll_enabled) {
1010 $contact_actions['update'] = [
1011 'label' => L10n::t('Update now'),
1012 'url' => 'contacts/' . $contact['id'] . '/update',
1019 $contact_actions['block'] = [
1020 'label' => (intval($contact['blocked']) ? L10n::t('Unblock') : L10n::t('Block') ),
1021 'url' => 'contacts/' . $contact['id'] . '/block',
1022 'title' => L10n::t('Toggle Blocked status'),
1023 'sel' => (intval($contact['blocked']) ? 'active' : ''),
1024 'id' => 'toggle-block',
1027 $contact_actions['ignore'] = [
1028 'label' => (intval($contact['readonly']) ? L10n::t('Unignore') : L10n::t('Ignore') ),
1029 'url' => 'contacts/' . $contact['id'] . '/ignore',
1030 'title' => L10n::t('Toggle Ignored status'),
1031 'sel' => (intval($contact['readonly']) ? 'active' : ''),
1032 'id' => 'toggle-ignore',
1035 $contact_actions['archive'] = [
1036 'label' => (intval($contact['archive']) ? L10n::t('Unarchive') : L10n::t('Archive') ),
1037 'url' => 'contacts/' . $contact['id'] . '/archive',
1038 'title' => L10n::t('Toggle Archive status'),
1039 'sel' => (intval($contact['archive']) ? 'active' : ''),
1040 'id' => 'toggle-archive',
1043 $contact_actions['delete'] = [
1044 'label' => L10n::t('Delete'),
1045 'url' => 'contacts/' . $contact['id'] . '/drop',
1046 'title' => L10n::t('Delete contact'),
1051 return $contact_actions;