3 * @file mod/contacts.php
6 use Friendica\Content\ContactSelector;
7 use Friendica\Content\Nav;
8 use Friendica\Content\Widget;
9 use Friendica\Core\Addon;
10 use Friendica\Core\System;
11 use Friendica\Core\Worker;
12 use Friendica\Database\DBM;
13 use Friendica\Model\Contact;
14 use Friendica\Model\GContact;
15 use Friendica\Model\Group;
16 use Friendica\Model\Profile;
17 use Friendica\Network\Probe;
19 require_once 'mod/proxy.php';
21 function contacts_init(App $a)
27 $nets = defaults($_GET, 'nets', '');
32 if (!x($a->page, 'aside')) {
33 $a->page['aside'] = '';
38 if ((($a->argc == 2) && intval($a->argv[1])) || (($a->argc == 3) && intval($a->argv[1]) && ($a->argv[2] == "posts"))) {
39 $contact_id = intval($a->argv[1]);
40 $contact = dba::selectFirst('contact', [], ['id' => $contact_id, 'uid' => local_user()]);
43 if (DBM::is_result($contact)) {
44 $a->data['contact'] = $contact;
46 if (($a->data['contact']['network'] != "") && ($a->data['contact']['network'] != NETWORK_DFRN)) {
47 $networkname = format_network_name($a->data['contact']['network'], $a->data['contact']['url']);
52 /// @TODO Add nice spaces
53 $vcard_widget = replace_macros(get_markup_template("vcard-widget.tpl"), [
54 '$name' => htmlentities($a->data['contact']['name']),
55 '$photo' => $a->data['contact']['photo'],
56 '$url' => ($a->data['contact']['network'] == NETWORK_DFRN) ? "redir/" . $a->data['contact']['id'] : $a->data['contact']['url'],
57 '$addr' => (($a->data['contact']['addr'] != "") ? ($a->data['contact']['addr']) : ""),
58 '$network_name' => $networkname,
59 '$network' => t('Network:'),
60 '$account_type' => Contact::getAccountType($a->data['contact'])
63 $findpeople_widget = '';
65 $networks_widget = '';
68 $networks_widget = Widget::networks('contacts', $nets);
69 if (isset($_GET['add'])) {
70 $follow_widget = Widget::follow($_GET['add']);
72 $follow_widget = Widget::follow();
75 $findpeople_widget = Widget::findPeople();
78 $groups_widget = Group::sidebarWidget('contacts', 'group', 'full', 0, $contact_id);
80 $a->page['aside'] .= replace_macros(get_markup_template("contacts-widget-sidebar.tpl"), [
81 '$vcard_widget' => $vcard_widget,
82 '$findpeople_widget' => $findpeople_widget,
83 '$follow_widget' => $follow_widget,
84 '$groups_widget' => $groups_widget,
85 '$networks_widget' => $networks_widget
88 $base = System::baseUrl();
89 $tpl = get_markup_template("contacts-head.tpl");
90 $a->page['htmlhead'] .= replace_macros($tpl, [
91 '$baseurl' => System::baseUrl(true),
95 $tpl = get_markup_template("contacts-end.tpl");
96 $a->page['end'] .= replace_macros($tpl, [
97 '$baseurl' => System::baseUrl(true),
102 function contacts_batch_actions(App $a)
104 $contacts_id = $_POST['contact_batch'];
105 if (!is_array($contacts_id)) {
109 $orig_records = q("SELECT * FROM `contact` WHERE `id` IN (%s) AND `uid` = %d AND `self` = 0",
110 implode(",", $contacts_id),
115 foreach ($orig_records as $orig_record) {
116 $contact_id = $orig_record['id'];
117 if (x($_POST, 'contacts_batch_update')) {
118 _contact_update($contact_id);
121 if (x($_POST, 'contacts_batch_block')) {
122 $r = _contact_block($contact_id, $orig_record);
127 if (x($_POST, 'contacts_batch_ignore')) {
128 $r = _contact_ignore($contact_id, $orig_record);
133 if (x($_POST, 'contacts_batch_archive')) {
134 $r = _contact_archive($contact_id, $orig_record);
139 if (x($_POST, 'contacts_batch_drop')) {
140 _contact_drop($orig_record);
144 if ($count_actions > 0) {
145 info(tt("%d contact edited.", "%d contacts edited.", $count_actions));
148 if (x($_SESSION, 'return_url')) {
149 goaway('' . $_SESSION['return_url']);
155 function contacts_post(App $a)
161 if ($a->argv[1] === "batch") {
162 contacts_batch_actions($a);
166 $contact_id = intval($a->argv[1]);
171 if (!dba::exists('contact', ['id' => $contact_id, 'uid' => local_user()])) {
172 notice(t('Could not access contact record.') . EOL);
174 return; // NOTREACHED
177 Addon::callHooks('contact_edit_post', $_POST);
179 $profile_id = intval($_POST['profile-assign']);
181 if (!dba::exists('profile', ['id' => $profile_id, 'uid' => local_user()])) {
182 notice(t('Could not locate selected profile.') . EOL);
187 $hidden = intval($_POST['hidden']);
189 $notify = intval($_POST['notify']);
191 $fetch_further_information = intval($_POST['fetch_further_information']);
193 $ffi_keyword_blacklist = escape_tags(trim($_POST['ffi_keyword_blacklist']));
195 $priority = intval($_POST['poll']);
196 if ($priority > 5 || $priority < 0) {
200 $info = escape_tags(trim($_POST['info']));
202 $r = q("UPDATE `contact` SET `profile-id` = %d, `priority` = %d , `info` = '%s',
203 `hidden` = %d, `notify_new_posts` = %d, `fetch_further_information` = %d,
204 `ffi_keyword_blacklist` = '%s' WHERE `id` = %d AND `uid` = %d",
210 intval($fetch_further_information),
211 dbesc($ffi_keyword_blacklist),
215 if (DBM::is_result($r)) {
216 info(t('Contact updated.') . EOL);
218 notice(t('Failed to update contact record.') . EOL);
221 $contact = dba::selectFirst('contact', [], ['id' => $contact_id, 'uid' => local_user()]);
222 if (DBM::is_result($contact)) {
223 $a->data['contact'] = $contact;
229 /* contact actions */
231 function _contact_update($contact_id)
233 $contact = dba::selectFirst('contact', ['uid', 'url', 'network'], ['id' => $contact_id, 'uid' => local_user()]);
234 if (!DBM::is_result($contact)) {
238 $uid = $contact["uid"];
240 if ($contact["network"] == NETWORK_OSTATUS) {
241 $result = Contact::createFromProbe($uid, $contact["url"], false, $contact["network"]);
243 if ($result['success']) {
244 q("UPDATE `contact` SET `subhub` = 1 WHERE `id` = %d", intval($contact_id));
247 // pull feed and consume it, which should subscribe to the hub.
248 Worker::add(PRIORITY_HIGH, "OnePoll", $contact_id, "force");
252 function _contact_update_profile($contact_id)
254 $contact = dba::selectFirst('contact', ['uid', 'url', 'network'], ['id' => $contact_id, 'uid' => local_user()]);
255 if (!DBM::is_result($contact)) {
259 $uid = $contact["uid"];
261 $data = Probe::uri($contact["url"], "", 0, false);
263 // "Feed" or "Unknown" is mostly a sign of communication problems
264 if ((in_array($data["network"], [NETWORK_FEED, NETWORK_PHANTOM])) && ($data["network"] != $contact["network"])) {
268 $updatefields = ["name", "nick", "url", "addr", "batch", "notify", "poll", "request", "confirm",
269 "poco", "network", "alias"];
272 if ($data["network"] == NETWORK_OSTATUS) {
273 $result = Contact::createFromProbe($uid, $data["url"], false);
275 if ($result['success']) {
276 $update["subhub"] = true;
280 foreach ($updatefields AS $field) {
281 if (isset($data[$field]) && ($data[$field] != "")) {
282 $update[$field] = $data[$field];
286 $update["nurl"] = normalise_link($data["url"]);
290 if (isset($data["priority"]) && ($data["priority"] != 0)) {
291 $query = "`priority` = " . intval($data["priority"]);
294 foreach ($update AS $key => $value) {
299 $query .= "`" . $key . "` = '" . dbesc($value) . "'";
306 $r = q("UPDATE `contact` SET $query WHERE `id` = %d AND `uid` = %d",
311 // Update the entry in the contact table
312 Contact::updateAvatar($data['photo'], local_user(), $contact_id, true);
314 // Update the entry in the gcontact table
315 GContact::updateFromProbe($data["url"]);
318 function _contact_block($contact_id, $orig_record)
320 $blocked = (($orig_record['blocked']) ? 0 : 1);
321 $r = q("UPDATE `contact` SET `blocked` = %d WHERE `id` = %d AND `uid` = %d",
326 return DBM::is_result($r);
329 function _contact_ignore($contact_id, $orig_record)
331 $readonly = (($orig_record['readonly']) ? 0 : 1);
332 $r = q("UPDATE `contact` SET `readonly` = %d WHERE `id` = %d AND `uid` = %d",
337 return DBM::is_result($r);
340 function _contact_archive($contact_id, $orig_record)
342 $archived = (($orig_record['archive']) ? 0 : 1);
343 $r = q("UPDATE `contact` SET `archive` = %d WHERE `id` = %d AND `uid` = %d",
349 q("UPDATE `item` SET `private` = 2 WHERE `contact-id` = %d AND `uid` = %d", intval($contact_id), intval(local_user()));
351 return DBM::is_result($r);
354 function _contact_drop($orig_record)
358 $r = q("SELECT `contact`.*, `user`.* FROM `contact` INNER JOIN `user` ON `contact`.`uid` = `user`.`uid`
359 WHERE `user`.`uid` = %d AND `contact`.`self` LIMIT 1",
360 intval($a->user['uid'])
362 if (!DBM::is_result($r)) {
366 Contact::terminateFriendship($r[0], $orig_record);
367 Contact::remove($orig_record['id']);
370 function contacts_content(App $a)
374 Nav::setSelected('contacts');
377 notice(t('Permission denied.') . EOL);
382 $contact_id = intval($a->argv[1]);
389 $orig_record = dba::selectFirst('contact', [], ['id' => $contact_id, 'uid' => local_user(), 'self' => false]);
390 if (!DBM::is_result($orig_record)) {
391 notice(t('Could not access contact record.') . EOL);
393 return; // NOTREACHED
396 if ($cmd === 'update') {
397 _contact_update($contact_id);
398 goaway('contacts/' . $contact_id);
402 if ($cmd === 'updateprofile') {
403 _contact_update_profile($contact_id);
404 goaway('crepair/' . $contact_id);
408 if ($cmd === 'block') {
409 $r = _contact_block($contact_id, $orig_record);
411 $blocked = (($orig_record['blocked']) ? 0 : 1);
412 info((($blocked) ? t('Contact has been blocked') : t('Contact has been unblocked')) . EOL);
415 goaway('contacts/' . $contact_id);
416 return; // NOTREACHED
419 if ($cmd === 'ignore') {
420 $r = _contact_ignore($contact_id, $orig_record);
422 $readonly = (($orig_record['readonly']) ? 0 : 1);
423 info((($readonly) ? t('Contact has been ignored') : t('Contact has been unignored')) . EOL);
426 goaway('contacts/' . $contact_id);
427 return; // NOTREACHED
430 if ($cmd === 'archive') {
431 $r = _contact_archive($contact_id, $orig_record);
433 $archived = (($orig_record['archive']) ? 0 : 1);
434 info((($archived) ? t('Contact has been archived') : t('Contact has been unarchived')) . EOL);
437 goaway('contacts/' . $contact_id);
438 return; // NOTREACHED
441 if ($cmd === 'drop') {
442 // Check if we should do HTML-based delete confirmation
443 if (x($_REQUEST, 'confirm')) {
444 // <form> can't take arguments in its "action" parameter
445 // so add any arguments as hidden inputs
446 $query = explode_querystring($a->query_string);
448 foreach ($query['args'] as $arg) {
449 if (strpos($arg, 'confirm=') === false) {
450 $arg_parts = explode('=', $arg);
451 $inputs[] = ['name' => $arg_parts[0], 'value' => $arg_parts[1]];
455 $a->page['aside'] = '';
457 return replace_macros(get_markup_template('contact_drop_confirm.tpl'), [
458 '$header' => t('Drop contact'),
459 '$contact' => _contact_detail_for_template($orig_record),
461 '$message' => t('Do you really want to delete this contact?'),
462 '$extra_inputs' => $inputs,
463 '$confirm' => t('Yes'),
464 '$confirm_url' => $query['base'],
465 '$confirm_name' => 'confirmed',
466 '$cancel' => t('Cancel'),
469 // Now check how the user responded to the confirmation query
470 if (x($_REQUEST, 'canceled')) {
471 if (x($_SESSION, 'return_url')) {
472 goaway('' . $_SESSION['return_url']);
478 _contact_drop($orig_record);
479 info(t('Contact has been removed.') . EOL);
480 if (x($_SESSION, 'return_url')) {
481 goaway('' . $_SESSION['return_url']);
485 return; // NOTREACHED
487 if ($cmd === 'posts') {
488 return contact_posts($a, $contact_id);
492 $_SESSION['return_url'] = $a->query_string;
494 if ((x($a->data, 'contact')) && (is_array($a->data['contact']))) {
495 $contact_id = $a->data['contact']['id'];
496 $contact = $a->data['contact'];
498 $a->page['htmlhead'] .= replace_macros(get_markup_template('contact_head.tpl'), [
499 '$baseurl' => System::baseUrl(true),
501 $a->page['end'] .= replace_macros(get_markup_template('contact_end.tpl'), [
502 '$baseurl' => System::baseUrl(true),
507 switch ($contact['rel']) {
508 case CONTACT_IS_FRIEND:
509 $dir_icon = 'images/lrarrow.gif';
510 $relation_text = t('You are mutual friends with %s');
512 case CONTACT_IS_FOLLOWER;
513 $dir_icon = 'images/larrow.gif';
514 $relation_text = t('You are sharing with %s');
516 case CONTACT_IS_SHARING;
517 $dir_icon = 'images/rarrow.gif';
518 $relation_text = t('%s is sharing with you');
524 if (!in_array($contact['network'], [NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_DIASPORA])) {
528 $relation_text = sprintf($relation_text, htmlentities($contact['name']));
530 if (($contact['network'] === NETWORK_DFRN) && ($contact['rel'])) {
531 $url = "redir/{$contact['id']}";
532 $sparkle = ' class="sparkle" ';
534 $url = $contact['url'];
538 $insecure = t('Private communications are not available for this contact.');
540 $last_update = (($contact['last-update'] <= NULL_DATE) ? t('Never') : datetime_convert('UTC', date_default_timezone_get(), $contact['last-update'], 'D, j M Y, g:i A'));
542 if ($contact['last-update'] > NULL_DATE) {
543 $last_update .= ' ' . (($contact['last-update'] <= $contact['success_update']) ? t("\x28Update was successful\x29") : t("\x28Update was not successful\x29"));
545 $lblsuggest = (($contact['network'] === NETWORK_DFRN) ? t('Suggest friends') : '');
547 $poll_enabled = in_array($contact['network'], [NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_FEED, NETWORK_MAIL]);
549 $nettype = t('Network type: %s', ContactSelector::networkToName($contact['network'], $contact["url"]));
552 $tab_str = contacts_tab($a, $contact_id, 2);
554 $lost_contact = (($contact['archive'] && $contact['term-date'] > NULL_DATE && $contact['term-date'] < datetime_convert('', '', 'now')) ? t('Communications lost with this contact!') : '');
556 $fetch_further_information = null;
557 if ($contact['network'] == NETWORK_FEED) {
558 $fetch_further_information = [
559 'fetch_further_information',
560 t('Fetch further information for feeds'),
561 $contact['fetch_further_information'],
562 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."),
563 ['0' => t('Disabled'),
564 '1' => t('Fetch information'),
565 '3' => t('Fetch keywords'),
566 '2' => t('Fetch information and keywords')
571 $poll_interval = null;
572 if (in_array($contact['network'], [NETWORK_FEED, NETWORK_MAIL])) {
573 $poll_interval = ContactSelector::pollInterval($contact['priority'], (!$poll_enabled));
576 $profile_select = null;
577 if ($contact['network'] == NETWORK_DFRN) {
578 $profile_select = ContactSelector::profileAssign($contact['profile-id'], (($contact['network'] !== NETWORK_DFRN) ? true : false));
583 if (in_array($contact['network'], [NETWORK_DIASPORA, NETWORK_OSTATUS])) {
584 if ($contact['rel'] == CONTACT_IS_FOLLOWER) {
585 $follow = System::baseUrl(true) . "/follow?url=" . urlencode($contact["url"]);
586 $follow_text = t("Connect/Follow");
587 } elseif ($contact['rel'] == CONTACT_IS_FRIEND) {
588 $follow = System::baseUrl(true) . "/unfollow?url=" . urlencode($contact["url"]);
589 $follow_text = t("Disconnect/Unfollow");
593 // Load contactact related actions like hide, suggest, delete and others
594 $contact_actions = contact_actions($contact);
596 $tpl = get_markup_template("contact_edit.tpl");
597 $o .= replace_macros($tpl, [
598 '$header' => t("Contact"),
599 '$tab_str' => $tab_str,
600 '$submit' => t('Submit'),
601 '$lbl_vis1' => t('Profile Visibility'),
602 '$lbl_vis2' => t('Please choose the profile you would like to display to %s when viewing your profile securely.', $contact['name']),
603 '$lbl_info1' => t('Contact Information / Notes'),
604 '$lbl_info2' => t('Their personal note'),
605 '$reason' => trim(notags($contact['reason'])),
606 '$infedit' => t('Edit contact notes'),
607 '$common_link' => 'common/loc/' . local_user() . '/' . $contact['id'],
608 '$relation_text' => $relation_text,
609 '$visit' => t('Visit %s\'s profile [%s]', $contact['name'], $contact['url']),
610 '$blockunblock' => t('Block/Unblock contact'),
611 '$ignorecont' => t('Ignore contact'),
612 '$lblcrepair' => t("Repair URL settings"),
613 '$lblrecent' => t('View conversations'),
614 '$lblsuggest' => $lblsuggest,
615 '$nettype' => $nettype,
616 '$poll_interval' => $poll_interval,
617 '$poll_enabled' => $poll_enabled,
618 '$lastupdtext' => t('Last update:'),
619 '$lost_contact' => $lost_contact,
620 '$updpub' => t('Update public posts'),
621 '$last_update' => $last_update,
622 '$udnow' => t('Update now'),
623 '$follow' => $follow,
624 '$follow_text' => $follow_text,
625 '$profile_select' => $profile_select,
626 '$contact_id' => $contact['id'],
627 '$block_text' => (($contact['blocked']) ? t('Unblock') : t('Block') ),
628 '$ignore_text' => (($contact['readonly']) ? t('Unignore') : t('Ignore') ),
629 '$insecure' => (($contact['network'] !== NETWORK_DFRN && $contact['network'] !== NETWORK_MAIL && $contact['network'] !== NETWORK_FACEBOOK && $contact['network'] !== NETWORK_DIASPORA) ? $insecure : ''),
630 '$info' => $contact['info'],
631 '$cinfo' => ['info', '', $contact['info'], ''],
632 '$blocked' => (($contact['blocked']) ? t('Currently blocked') : ''),
633 '$ignored' => (($contact['readonly']) ? t('Currently ignored') : ''),
634 '$archived' => (($contact['archive']) ? t('Currently archived') : ''),
635 '$pending' => (($contact['pending']) ? t('Awaiting connection acknowledge') : ''),
636 '$hidden' => ['hidden', t('Hide this contact from others'), ($contact['hidden'] == 1), t('Replies/likes to your public posts <strong>may</strong> still be visible')],
637 '$notify' => ['notify', t('Notification for new posts'), ($contact['notify_new_posts'] == 1), t('Send a notification of every new post of this contact')],
638 '$fetch_further_information' => $fetch_further_information,
639 '$ffi_keyword_blacklist' => $contact['ffi_keyword_blacklist'],
640 '$ffi_keyword_blacklist' => ['ffi_keyword_blacklist', t('Blacklisted keywords'), $contact['ffi_keyword_blacklist'], t('Comma separated list of keywords that should not be converted to hashtags, when "Fetch information and keywords" is selected')],
641 '$photo' => $contact['photo'],
642 '$name' => htmlentities($contact['name']),
643 '$dir_icon' => $dir_icon,
644 '$sparkle' => $sparkle,
646 '$profileurllabel' => t('Profile URL'),
647 '$profileurl' => $contact['url'],
648 '$account_type' => Contact::getAccountType($contact),
649 '$location' => bbcode($contact["location"]),
650 '$location_label' => t("Location:"),
651 '$xmpp' => bbcode($contact["xmpp"]),
652 '$xmpp_label' => t("XMPP:"),
653 '$about' => bbcode($contact["about"], false, false),
654 '$about_label' => t("About:"),
655 '$keywords' => $contact["keywords"],
656 '$keywords_label' => t("Tags:"),
657 '$contact_action_button' => t("Actions"),
658 '$contact_actions' => $contact_actions,
659 '$contact_status' => t("Status"),
660 '$contact_settings_label' => t('Contact Settings'),
661 '$contact_profile_label' => t("Profile"),
664 $arr = ['contact' => $contact, 'output' => $o];
666 Addon::callHooks('contact_edit', $arr);
668 return $arr['output'];
677 if (($a->argc == 2) && ($a->argv[1] === 'all')) {
680 } elseif (($a->argc == 2) && ($a->argv[1] === 'blocked')) {
681 $sql_extra = " AND `blocked` = 1 ";
683 } elseif (($a->argc == 2) && ($a->argv[1] === 'hidden')) {
684 $sql_extra = " AND `hidden` = 1 ";
686 } elseif (($a->argc == 2) && ($a->argv[1] === 'ignored')) {
687 $sql_extra = " AND `readonly` = 1 ";
689 } elseif (($a->argc == 2) && ($a->argv[1] === 'archived')) {
690 $sql_extra = " AND `archive` = 1 ";
693 $sql_extra = " AND `blocked` = 0 ";
696 $search = x($_GET, 'search') ? notags(trim($_GET['search'])) : '';
697 $nets = x($_GET, 'nets' ) ? notags(trim($_GET['nets'])) : '';
701 'label' => t('Suggestions'),
704 'title' => t('Suggest potential friends'),
705 'id' => 'suggestions-tab',
709 'label' => t('All Contacts'),
710 'url' => 'contacts/all',
711 'sel' => ($all) ? 'active' : '',
712 'title' => t('Show all contacts'),
713 'id' => 'showall-tab',
717 'label' => t('Unblocked'),
719 'sel' => ((!$all) && (!$blocked) && (!$hidden) && (!$search) && (!$nets) && (!$ignored) && (!$archived)) ? 'active' : '',
720 'title' => t('Only show unblocked contacts'),
721 'id' => 'showunblocked-tab',
725 'label' => t('Blocked'),
726 'url' => 'contacts/blocked',
727 'sel' => ($blocked) ? 'active' : '',
728 'title' => t('Only show blocked contacts'),
729 'id' => 'showblocked-tab',
733 'label' => t('Ignored'),
734 'url' => 'contacts/ignored',
735 'sel' => ($ignored) ? 'active' : '',
736 'title' => t('Only show ignored contacts'),
737 'id' => 'showignored-tab',
741 'label' => t('Archived'),
742 'url' => 'contacts/archived',
743 'sel' => ($archived) ? 'active' : '',
744 'title' => t('Only show archived contacts'),
745 'id' => 'showarchived-tab',
749 'label' => t('Hidden'),
750 'url' => 'contacts/hidden',
751 'sel' => ($hidden) ? 'active' : '',
752 'title' => t('Only show hidden contacts'),
753 'id' => 'showhidden-tab',
758 $tab_tpl = get_markup_template('common_tabs.tpl');
759 $t = replace_macros($tab_tpl, ['$tabs' => $tabs]);
766 $search_hdr = $search;
767 $search_txt = dbesc(protect_sprintf(preg_quote($search)));
768 $sql_extra .= " AND (name REGEXP '$search_txt' OR url REGEXP '$search_txt' OR nick REGEXP '$search_txt') ";
772 $sql_extra .= sprintf(" AND network = '%s' ", dbesc($nets));
775 $sql_extra2 = ((($sort_type > 0) && ($sort_type <= CONTACT_IS_FRIEND)) ? sprintf(" AND `rel` = %d ", intval($sort_type)) : '');
777 $r = q("SELECT COUNT(*) AS `total` FROM `contact`
778 WHERE `uid` = %d AND `self` = 0 AND `pending` = 0 $sql_extra $sql_extra2 ",
779 intval($_SESSION['uid'])
781 if (DBM::is_result($r)) {
782 $a->set_pager_total($r[0]['total']);
783 $total = $r[0]['total'];
786 $sql_extra3 = Widget::unavailableNetworks();
790 $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 ",
791 intval($_SESSION['uid']),
792 intval($a->pager['start']),
793 intval($a->pager['itemspage'])
795 if (DBM::is_result($r)) {
796 foreach ($r as $rr) {
797 $contacts[] = _contact_detail_for_template($rr);
801 $tpl = get_markup_template("contacts-template.tpl");
802 $o .= replace_macros($tpl, [
803 '$baseurl' => System::baseUrl(),
804 '$header' => t('Contacts') . (($nets) ? ' - ' . ContactSelector::networkToName($nets) : ''),
807 '$search' => $search_hdr,
808 '$desc' => t('Search your contacts'),
809 '$finding' => $searching ? t('Results for: %s', $search) : "",
810 '$submit' => t('Find'),
812 '$contacts' => $contacts,
813 '$contact_drop_confirm' => t('Do you really want to delete this contact?'),
815 '$batch_actions' => [
816 'contacts_batch_update' => t('Update'),
817 'contacts_batch_block' => t('Block') . "/" . t("Unblock"),
818 "contacts_batch_ignore" => t('Ignore') . "/" . t("Unignore"),
819 "contacts_batch_archive" => t('Archive') . "/" . t("Unarchive"),
820 "contacts_batch_drop" => t('Delete'),
822 '$h_batch_actions' => t('Batch Actions'),
823 '$paginate' => paginate($a),
830 * @brief List of pages for the Contact TabBar
832 * Available Pages are 'Status', 'Profile', 'Contacts' and 'Common Friends'
835 * @param int $contact_id The ID of the contact
836 * @param int $active_tab 1 if tab should be marked as active
840 function contacts_tab($a, $contact_id, $active_tab)
845 'label' => t('Status'),
846 'url' => "contacts/" . $contact_id . "/posts",
847 'sel' => (($active_tab == 1) ? 'active' : ''),
848 'title' => t('Status Messages and Posts'),
849 'id' => 'status-tab',
853 'label' => t('Profile'),
854 'url' => "contacts/" . $contact_id,
855 'sel' => (($active_tab == 2) ? 'active' : ''),
856 'title' => t('Profile Details'),
857 'id' => 'profile-tab',
862 // Show this tab only if there is visible friend list
863 $x = GContact::countAllFriends(local_user(), $contact_id);
865 $tabs[] = ['label' => t('Contacts'),
866 'url' => "allfriends/" . $contact_id,
867 'sel' => (($active_tab == 3) ? 'active' : ''),
868 'title' => t('View all contacts'),
869 'id' => 'allfriends-tab',
873 // Show this tab only if there is visible common friend list
874 $common = GContact::countCommonFriends(local_user(), $contact_id);
876 $tabs[] = ['label' => t('Common Friends'),
877 'url' => "common/loc/" . local_user() . "/" . $contact_id,
878 'sel' => (($active_tab == 4) ? 'active' : ''),
879 'title' => t('View all common friends'),
880 'id' => 'common-loc-tab',
885 $tabs[] = ['label' => t('Advanced'),
886 'url' => 'crepair/' . $contact_id,
887 'sel' => (($active_tab == 5) ? 'active' : ''),
888 'title' => t('Advanced Contact Settings'),
889 'id' => 'advanced-tab',
893 $tab_tpl = get_markup_template('common_tabs.tpl');
894 $tab_str = replace_macros($tab_tpl, ['$tabs' => $tabs]);
899 function contact_posts($a, $contact_id)
901 $o = contacts_tab($a, $contact_id, 1);
903 $contact = dba::selectFirst('contact', ['url'], ['id' => $contact_id]);
904 if (DBM::is_result($contact)) {
905 $a->page['aside'] = "";
906 Profile::load($a, "", 0, Contact::getDetailsByURL($contact["url"]));
907 $o .= Contact::getPostsFromUrl($contact["url"]);
913 function _contact_detail_for_template($rr)
917 switch ($rr['rel']) {
918 case CONTACT_IS_FRIEND:
919 $dir_icon = 'images/lrarrow.gif';
920 $alt_text = t('Mutual Friendship');
922 case CONTACT_IS_FOLLOWER;
923 $dir_icon = 'images/larrow.gif';
924 $alt_text = t('is a fan of yours');
926 case CONTACT_IS_SHARING;
927 $dir_icon = 'images/rarrow.gif';
928 $alt_text = t('you are a fan of');
933 if (($rr['network'] === NETWORK_DFRN) && ($rr['rel'])) {
934 $url = "redir/{$rr['id']}";
935 $sparkle = ' class="sparkle" ';
942 'img_hover' => t('Visit %s\'s profile [%s]', $rr['name'], $rr['url']),
943 'edit_hover' => t('Edit contact'),
944 'photo_menu' => Contact::photoMenu($rr),
946 'alt_text' => $alt_text,
947 'dir_icon' => $dir_icon,
948 'thumb' => proxy_url($rr['thumb'], false, PROXY_SIZE_THUMB),
949 'name' => htmlentities($rr['name']),
950 'username' => htmlentities($rr['name']),
951 'account_type' => Contact::getAccountType($rr),
952 'sparkle' => $sparkle,
953 'itemurl' => (($rr['addr'] != "") ? $rr['addr'] : $rr['url']),
955 'network' => ContactSelector::networkToName($rr['network'], $rr['url']),
960 * @brief Gives a array with actions which can performed to a given contact
962 * This includes actions like e.g. 'block', 'hide', 'archive', 'delete' and others
964 * @param array $contact Data about the Contact
965 * @return array with contact related actions
967 function contact_actions($contact)
969 $poll_enabled = in_array($contact['network'], [NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_FEED, NETWORK_MAIL]);
970 $contact_actions = [];
972 // Provide friend suggestion only for Friendica contacts
973 if ($contact['network'] === NETWORK_DFRN) {
974 $contact_actions['suggest'] = [
975 'label' => t('Suggest friends'),
976 'url' => 'fsuggest/' . $contact['id'],
984 $contact_actions['update'] = [
985 'label' => t('Update now'),
986 'url' => 'contacts/' . $contact['id'] . '/update',
993 $contact_actions['block'] = [
994 'label' => (intval($contact['blocked']) ? t('Unblock') : t('Block') ),
995 'url' => 'contacts/' . $contact['id'] . '/block',
996 'title' => t('Toggle Blocked status'),
997 'sel' => (intval($contact['blocked']) ? 'active' : ''),
998 'id' => 'toggle-block',
1001 $contact_actions['ignore'] = [
1002 'label' => (intval($contact['readonly']) ? t('Unignore') : t('Ignore') ),
1003 'url' => 'contacts/' . $contact['id'] . '/ignore',
1004 'title' => t('Toggle Ignored status'),
1005 'sel' => (intval($contact['readonly']) ? 'active' : ''),
1006 'id' => 'toggle-ignore',
1009 $contact_actions['archive'] = [
1010 'label' => (intval($contact['archive']) ? t('Unarchive') : t('Archive') ),
1011 'url' => 'contacts/' . $contact['id'] . '/archive',
1012 'title' => t('Toggle Archive status'),
1013 'sel' => (intval($contact['archive']) ? 'active' : ''),
1014 'id' => 'toggle-archive',
1017 $contact_actions['delete'] = [
1018 'label' => t('Delete'),
1019 'url' => 'contacts/' . $contact['id'] . '/drop',
1020 'title' => t('Delete contact'),
1025 return $contact_actions;