<?php

namespace Zotlabs\Module;

use App;
use Zotlabs\Web\Controller;
use Zotlabs\Lib\Libzot;
use Zotlabs\Lib\Libsync;
use Zotlabs\Lib\ActivityPub;
use Zotlabs\Lib\Apps;
use Zotlabs\Lib\AccessList;
use Zotlabs\Lib\LibBlock;
use Zotlabs\Access\Permissions;
use Zotlabs\Access\PermissionLimits;
use Zotlabs\Lib\Permcat;
use Zotlabs\Daemon\Run;
use Zotlabs\Web\HTTPHeaders;
use Sabre\VObject\Reader;

/**
 * @file connedit.php
 * @brief In this file the connection-editor form is generated and evaluated.
 */

require_once('include/socgraph.php');
require_once('include/photos.php');


class Connedit extends Controller
{

    /**
     * @brief Initialize the connection-editor
     */

    public function init()
    {

        if (!local_channel()) {
            return;
        }

        if ((argc() >= 2) && intval(argv(1))) {
            $r = q(
                "SELECT abook.*, xchan.* FROM abook left join xchan on abook_xchan = xchan_hash
				WHERE abook_channel = %d and abook_id = %d LIMIT 1",
                intval(local_channel()),
                intval(argv(1))
            );
            // Set the person-of-interest for use by widgets that operate on a single pre-defined channel
            if ($r) {
                App::$poi = array_shift($r);
            }
        }

        $channel = App::get_channel();
        if ($channel) {
            head_set_icon($channel['xchan_photo_s']);
        }
    }


    /**
     * @brief Evaluate posted values and set changes
     */

    public function post()
    {

        if (!local_channel()) {
            return;
        }

        $contact_id = intval(argv(1));
        if (!$contact_id) {
            return;
        }

        $channel = App::get_channel();

        $orig_record = q(
            "SELECT * FROM abook WHERE abook_id = %d AND abook_channel = %d LIMIT 1",
            intval($contact_id),
            intval(local_channel())
        );

        if (!$orig_record) {
            notice(t('Could not access contact record.') . EOL);
            goaway(z_root() . '/connections');
        }

        $orig_record = array_shift($orig_record);

        call_hooks('contact_edit_post', $_POST);

        $vc = get_abconfig(local_channel(), $orig_record['abook_xchan'], 'system', 'vcard');
        $vcard = (($vc) ? Reader::read($vc) : null);
        $serialised_vcard = update_vcard($_REQUEST, $vcard);
        if ($serialised_vcard) {
            set_abconfig(local_channel(), $orig_record['abook_xchan'], 'system', 'vcard', $serialised_vcard);
        }

        $autoperms = null;
        $is_self = false;

        if (intval($orig_record['abook_self'])) {
            $autoperms = intval($_POST['autoperms']);
            $is_self = true;
        }

        $profile_id = ((array_key_exists('profile_assign', $_POST)) ? $_POST['profile_assign'] : $orig_record['abook_profile']);

        if ($profile_id) {
            $r = q(
                "SELECT profile_guid FROM profile WHERE profile_guid = '%s' AND uid = %d LIMIT 1",
                dbesc($profile_id),
                intval(local_channel())
            );
            if (!$r) {
                notice(t('Could not locate selected profile.') . EOL);
                return;
            }
        }

        $abook_incl = ((array_key_exists('abook_incl', $_POST)) ? escape_tags($_POST['abook_incl']) : $orig_record['abook_incl']);
        $abook_excl = ((array_key_exists('abook_excl', $_POST)) ? escape_tags($_POST['abook_excl']) : $orig_record['abook_excl']);
        $abook_alias = ((array_key_exists('abook_alias', $_POST)) ? escape_tags(trim($_POST['abook_alias'])) : $orig_record['abook_alias']);

        $block_announce = ((array_key_exists('block_announce', $_POST)) ? intval($_POST['block_announce']) : 0);

        set_abconfig($channel['channel_id'], $orig_record['abook_xchan'], 'system', 'block_announce', $block_announce);

        $hidden = intval($_POST['hidden']);

        $priority = intval($_POST['poll']);
        if ($priority > 5 || $priority < 0) {
            $priority = 0;
        }

        if (!array_key_exists('closeness', $_POST)) {
            $_POST['closeness'] = 80;
        }
        $closeness = intval($_POST['closeness']);
        if ($closeness < 0 || $closeness > 99) {
            $closeness = 80;
        }

        $all_perms = Permissions::Perms();

        $p = EMPTY_STR;

        if ($all_perms) {
            foreach ($all_perms as $perm => $desc) {
                if (array_key_exists('perms_' . $perm, $_POST)) {
                    if ($p) {
                        $p .= ',';
                    }
                    $p .= $perm;
                }
            }
            set_abconfig($channel['channel_id'], $orig_record['abook_xchan'], 'system', 'my_perms', $p);
            if ($autoperms) {
                set_pconfig($channel['channel_id'], 'system', 'autoperms', $p);
            }
        }

        $new_friend = false;

        if (($_REQUEST['pending']) && intval($orig_record['abook_pending'])) {
            $new_friend = true;

            // @fixme it won't be common, but when you accept a new connection request
            // the permissions will now be that of your permissions role and ignore
            // any you may have set manually on the form. We'll probably see a bug if somebody
            // tries to set the permissions *and* approve the connection in the same
            // request. The workaround is to approve the connection, then go back and
            // adjust permissions as desired.

            $p = Permissions::connect_perms(local_channel());
            $my_perms = Permissions::serialise($p['perms']);
            if ($my_perms) {
                set_abconfig($channel['channel_id'], $orig_record['abook_xchan'], 'system', 'my_perms', $my_perms);
            }
        }

        $abook_pending = (($new_friend) ? 0 : $orig_record['abook_pending']);

        $r = q(
            "UPDATE abook SET abook_profile = '%s', abook_closeness = %d, abook_pending = %d,
			abook_incl = '%s', abook_excl = '%s', abook_alias = '%s'
			where abook_id = %d AND abook_channel = %d",
            dbesc($profile_id),
            intval($closeness),
            intval($abook_pending),
            dbesc($abook_incl),
            dbesc($abook_excl),
            dbesc($abook_alias),
            intval($contact_id),
            intval(local_channel())
        );

        if ($r) {
            info(t('Connection updated.') . EOL);
        } else {
            notice(t('Failed to update connection record.') . EOL);
        }

        if (!intval(App::$poi['abook_self'])) {
            if ($new_friend) {
                Run::Summon(['Notifier', 'permissions_accept', $contact_id]);
            }

            Run::Summon([
                'Notifier',
                (($new_friend) ? 'permissions_create' : 'permissions_update'),
                $contact_id
            ]);
        }

        if ($new_friend) {
            $default_group = $channel['channel_default_group'];
            if ($default_group) {
                $g = AccessList::rec_byhash(local_channel(), $default_group);
                if ($g) {
                    AccessList::member_add(local_channel(), '', App::$poi['abook_xchan'], $g['id']);
                }
            }

            // Check if settings permit ("post new friend activity" is allowed, and
            // friends in general or this friend in particular aren't hidden)
            // and send out a new friend activity

            $pr = q(
                "select * from profile where uid = %d and is_default = 1 and hide_friends = 0",
                intval($channel['channel_id'])
            );
            if (($pr) && (!intval($orig_record['abook_hidden'])) && (intval(get_pconfig($channel['channel_id'], 'system', 'post_newfriend')))) {
                $xarr = [];

                $xarr['item_wall'] = 1;
                $xarr['item_origin'] = 1;
                $xarr['item_thread_top'] = 1;
                $xarr['owner_xchan'] = $xarr['author_xchan'] = $channel['channel_hash'];
                $xarr['allow_cid'] = $channel['channel_allow_cid'];
                $xarr['allow_gid'] = $channel['channel_allow_gid'];
                $xarr['deny_cid'] = $channel['channel_deny_cid'];
                $xarr['deny_gid'] = $channel['channel_deny_gid'];
                $xarr['item_private'] = (($xarr['allow_cid'] || $xarr['allow_gid'] || $xarr['deny_cid'] || $xarr['deny_gid']) ? 1 : 0);

                $xarr['body'] = '[zrl=' . $channel['xchan_url'] . ']' . $channel['xchan_name'] . '[/zrl]' . ' ' . t('is now connected to') . ' ' . '[zrl=' . App::$poi['xchan_url'] . ']' . App::$poi['xchan_name'] . '[/zrl]';

                $xarr['body'] .= "\n\n\n" . '[zrl=' . App::$poi['xchan_url'] . '][zmg=80x80]' . App::$poi['xchan_photo_m'] . '[/zmg][/zrl]';

                post_activity_item($xarr);
            }

            // pull in a bit of content if there is any to pull in
            Run::Summon(['Onepoll', $contact_id]);
        }

        // Refresh the structure in memory with the new data

        $r = q(
            "SELECT abook.*, xchan.*
			FROM abook left join xchan on abook_xchan = xchan_hash
			WHERE abook_channel = %d and abook_id = %d LIMIT 1",
            intval(local_channel()),
            intval($contact_id)
        );
        if ($r) {
            App::$poi = array_shift($r);
        }

        if ($new_friend) {
            $arr = ['channel_id' => local_channel(), 'abook' => App::$poi];
            call_hooks('accept_follow', $arr);
        }

        $this->connedit_clone($a);

        if (($_REQUEST['pending']) && (!$_REQUEST['done'])) {
            goaway(z_root() . '/connections/ifpending');
        }

        return;
    }

    /* @brief Clone connection
     *
     *
     */

    public function connedit_clone(&$a)
    {

        if (!App::$poi) {
            return;
        }

        $channel = App::get_channel();

        $r = q(
            "SELECT abook.*, xchan.*
			FROM abook left join xchan on abook_xchan = xchan_hash
			WHERE abook_channel = %d and abook_id = %d LIMIT 1",
            intval(local_channel()),
            intval(App::$poi['abook_id'])
        );
        if (!$r) {
            return;
        }

        App::$poi = array_shift($r);
        $clone = App::$poi;

        unset($clone['abook_id']);
        unset($clone['abook_account']);
        unset($clone['abook_channel']);

        $abconfig = load_abconfig($channel['channel_id'], $clone['abook_xchan']);
        if ($abconfig) {
            $clone['abconfig'] = $abconfig;
        }
        Libsync::build_sync_packet($channel['channel_id'], ['abook' => [$clone]]);
    }

    /**
     * @brief Generate content of connection edit page
     */

    public function get()
    {

        $sort_type = 0;
        $o = EMPTY_STR;

        if (!local_channel()) {
            notice(t('Permission denied.') . EOL);
            return login();
        }

        $section = ((array_key_exists('section', $_REQUEST)) ? $_REQUEST['section'] : '');
        $channel = App::get_channel();

        $yes_no = [t('No'), t('Yes')];

        $connect_perms = Permissions::connect_perms(local_channel());

        $o .= "<script>function connectDefaultShare() {
		\$('.abook-edit-me').each(function() {
			if(! $(this).is(':disabled'))
				$(this).prop('checked', false);
		});\n\n";
        foreach ($connect_perms['perms'] as $p => $v) {
            if ($v) {
                $o .= "\$('#me_id_perms_" . $p . "').prop('checked', true); \n";
            }
        }
        $o .= " }\n</script>\n";

        if (argc() == 3) {
            $contact_id = intval(argv(1));
            if (!$contact_id) {
                return;
            }

            $cmd = argv(2);

            $orig_record = q(
                "SELECT abook.*, xchan.* FROM abook left join xchan on abook_xchan = xchan_hash
				WHERE abook_id = %d AND abook_channel = %d AND abook_self = 0 LIMIT 1",
                intval($contact_id),
                intval(local_channel())
            );

            if (!$orig_record) {
                notice(t('Could not access address book record.') . EOL);
                goaway(z_root() . '/connections');
            }

            $orig_record = array_shift($orig_record);

            if ($cmd === 'update') {
                // pull feed and consume it, which should subscribe to the hub.
                Run::Summon(['Poller', $contact_id]);
                goaway(z_root() . '/connedit/' . $contact_id);
            }

            if ($cmd === 'fetchvc') {
                $url = str_replace('/channel/', '/profile/', $orig_record['xchan_url']) . '/vcard';
                $recurse = 0;
                $x = z_fetch_url(zid($url), false, $recurse, ['session' => true]);
                if ($x['success']) {
                    $h = new HTTPHeaders($x['header']);
                    $fields = $h->fetcharr();
                    if ($fields && array_key_exists('content-type', $fields)) {
                        $type = explode(';', trim($fields['content-type']));
                        if ($type && $type[0] === 'text/vcard' && $x['body']) {
                            $vc = Reader::read($x['body']);
                            $vcard = $vc->serialize();
                            if ($vcard) {
                                set_abconfig(local_channel(), $orig_record['abook_xchan'], 'system', 'vcard', $vcard);
                                $this->connedit_clone($a);
                            }
                        }
                    }
                }
                goaway(z_root() . '/connedit/' . $contact_id);
            }


            if ($cmd === 'resetphoto') {
                q(
                    "update xchan set xchan_photo_date = '2001-01-01 00:00:00' where xchan_hash = '%s'",
                    dbesc($orig_record['xchan_hash'])
                );
                $cmd = 'refresh';
            }

            if ($cmd === 'refresh') {
                if ($orig_record['xchan_network'] === 'zot6') {
                    if (!Libzot::refresh($orig_record, App::get_channel())) {
                        notice(t('Refresh failed - channel is currently unavailable.'));
                    }
                } else {
                    if ($orig_record['xchan_network'] === 'activitypub') {
                        ActivityPub::discover($orig_record['xchan_hash'], true);
                    }
                    // if they are on a different network we'll force a refresh of the connection basic info
                    Run::Summon(['Notifier', 'permissions_update', $contact_id]);
                }
                goaway(z_root() . '/connedit/' . $contact_id);
            }

            switch ($cmd) {
                case 'block':
                    if (intval($orig_record['abook_blocked'])) {
                        LibBlock::remove(local_channel(), $orig_record['abook_xchan']);
                        $sync = [
                            'block_channel_id' => local_channel(),
                            'block_entity' => $orig_record['abook_xchan'],
                            'block_type' => BLOCKTYPE_CHANNEL,
                            'deleted' => true,
                        ];
                    } else {
                        LibBlock::store([
                            'block_channel_id' => local_channel(),
                            'block_entity' => $orig_record['abook_xchan'],
                            'block_type' => BLOCKTYPE_CHANNEL,
                            'block_comment' => t('Added by Connedit')
                        ]);
                        $z = q(
                            "insert into xign ( uid, xchan ) values ( %d , '%s' ) ",
                            intval(local_channel()),
                            dbesc($orig_record['abook_xchan'])
                        );
                        $sync = LibBlock::fetch_by_entity(local_channel(), $orig_record['abook_xchan']);
                    }
                    $ignored = ['uid' => local_channel(), 'xchan' => $orig_record['abook_xchan']];
                    Libsync::build_sync_packet(0, ['xign' => [$ignored], 'block' => [$sync]]);
                    $flag_result = abook_toggle_flag($orig_record, ABOOK_FLAG_BLOCKED);
                    break;
                case 'ignore':
                    $flag_result = abook_toggle_flag($orig_record, ABOOK_FLAG_IGNORED);
                    break;
                case 'censor':
                    $flag_result = abook_toggle_flag($orig_record, ABOOK_FLAG_CENSORED);
                    break;
                case 'archive':
                    $flag_result = abook_toggle_flag($orig_record, ABOOK_FLAG_ARCHIVED);
                    break;
                case 'hide':
                    $flag_result = abook_toggle_flag($orig_record, ABOOK_FLAG_HIDDEN);
                    break;
                case 'approve':
                    if (intval($orig_record['abook_pending'])) {
                        $flag_result = abook_toggle_flag($orig_record, ABOOK_FLAG_PENDING);
                    }
                    break;
                default:
                    break;
            }

            if (isset($flag_result)) {
                if ($flag_result) {
                    $this->connedit_clone($a);
                } else {
                    notice(t('Unable to set address book parameters.') . EOL);
                }
                goaway(z_root() . '/connedit/' . $contact_id);
            }

            if ($cmd === 'drop') {
                if ($orig_record['xchan_network'] === 'activitypub') {
                    ActivityPub::contact_remove(local_channel(), $orig_record);
                }
                contact_remove(local_channel(), $orig_record['abook_id'], true);

                // The purge notification is sent to the xchan_hash as the abook record will have just been removed

                Run::Summon(['Notifier', 'purge', $orig_record['xchan_hash']]);

                Libsync::build_sync_packet(0, ['abook' => [['abook_xchan' => $orig_record['abook_xchan'], 'entry_deleted' => true]]]);

                info(t('Connection has been removed.') . EOL);
                if (isset($_SESSION['return_url']) && $_SESSION['return_url']) {
                    goaway(z_root() . '/' . $_SESSION['return_url']);
                }
                goaway(z_root() . '/contacts');
            }
        }

        if (App::$poi) {
            $abook_prev = 0;
            $abook_next = 0;

            $contact_id = App::$poi['abook_id'];
            $contact = App::$poi;

            $cn = q(
                "SELECT abook_id, xchan_name from abook left join xchan on abook_xchan = xchan_hash where abook_channel = %d and abook_self = 0 and xchan_deleted = 0 order by xchan_name",
                intval(local_channel())
            );

            if ($cn) {
                // store previous/next ids for navigation
                $pntotal = count($cn);

                for ($x = 0; $x < $pntotal; $x++) {
                    if ($cn[$x]['abook_id'] == $contact_id) {
                        if ($x === 0) {
                            $abook_prev = 0;
                        } else {
                            $abook_prev = $cn[$x - 1]['abook_id'];
                        }
                        if ($x === $pntotal) {
                            $abook_next = 0;
                        } else {
                            $abook_next = $cn[$x + 1]['abook_id'];
                        }
                    }
                }
            }

            $tools = array(

                'view' => array(
                    'label' => t('View Profile'),
                    'url' => chanlink_cid($contact['abook_id']),
                    'sel' => '',
                    'title' => sprintf(t('View %s\'s profile'), $contact['xchan_name']),
                ),

                'refresh' => array(
                    'label' => t('Refresh Permissions'),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/refresh',
                    'sel' => '',
                    'title' => t('Fetch updated permissions'),
                ),

                'rephoto' => array(
                    'label' => t('Refresh Photo'),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/resetphoto',
                    'sel' => '',
                    'title' => t('Fetch updated photo'),
                ),

                'recent' => array(
                    'label' => t('Recent Activity'),
                    'url' => z_root() . '/stream/?f=&cid=' . $contact['abook_id'],
                    'sel' => '',
                    'title' => t('View recent posts and comments'),
                ),

                'block' => array(
                    'label' => (intval($contact['abook_blocked']) ? t('Unblock') : t('Block')),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/block',
                    'sel' => (intval($contact['abook_blocked']) ? 'active' : ''),
                    'title' => t('Block (or Unblock) all communications with this connection'),
                    'info' => (intval($contact['abook_blocked']) ? t('This connection is blocked') : ''),
                ),

                'ignore' => array(
                    'label' => (intval($contact['abook_ignored']) ? t('Unignore') : t('Ignore')),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/ignore',
                    'sel' => (intval($contact['abook_ignored']) ? 'active' : ''),
                    'title' => t('Ignore (or Unignore) all inbound communications from this connection'),
                    'info' => (intval($contact['abook_ignored']) ? t('This connection is ignored') : ''),
                ),

                'censor' => array(
                    'label' => (intval($contact['abook_censor']) ? t('Uncensor') : t('Censor')),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/censor',
                    'sel' => (intval($contact['abook_censor']) ? 'active' : ''),
                    'title' => t('Censor (or Uncensor) images from this connection'),
                    'info' => (intval($contact['abook_censor']) ? t('This connection is censored') : ''),
                ),

                'archive' => array(
                    'label' => (intval($contact['abook_archived']) ? t('Unarchive') : t('Archive')),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/archive',
                    'sel' => (intval($contact['abook_archived']) ? 'active' : ''),
                    'title' => t('Archive (or Unarchive) this connection - mark channel dead but keep content'),
                    'info' => (intval($contact['abook_archived']) ? t('This connection is archived') : ''),
                ),

                'hide' => array(
                    'label' => (intval($contact['abook_hidden']) ? t('Unhide') : t('Hide')),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/hide',
                    'sel' => (intval($contact['abook_hidden']) ? 'active' : ''),
                    'title' => t('Hide or Unhide this connection from your other connections'),
                    'info' => (intval($contact['abook_hidden']) ? t('This connection is hidden') : ''),
                ),

                'delete' => array(
                    'label' => t('Delete'),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/drop',
                    'sel' => '',
                    'title' => t('Delete this connection'),
                ),

            );


            if ($contact['xchan_network'] === 'zot6') {
                $tools['fetchvc'] = [
                    'label' => t('Fetch Vcard'),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/fetchvc',
                    'sel' => '',
                    'title' => t('Fetch electronic calling card for this connection')
                ];
            }

            $sections = [];

            $sections['perms'] = [
                'label' => t('Permissions'),
                'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/?f=&section=perms',
                'sel' => '',
                'title' => t('Open Individual Permissions section by default'),
            ];

            $self = false;

            if (intval($contact['abook_self'])) {
                $self = true;
                $abook_prev = $abook_next = 0;
            }

            $vc = get_abconfig(local_channel(), $contact['abook_xchan'], 'system', 'vcard');

            $vctmp = (($vc) ? Reader::read($vc) : null);
            $vcard = (($vctmp) ? get_vcard_array($vctmp, $contact['abook_id']) : []);
            if (!$vcard) {
                $vcard['fn'] = $contact['xchan_name'];
            }


            $tpl = get_markup_template("abook_edit.tpl");

            if (Apps::system_app_installed(local_channel(), 'Friend Zoom')) {
                $sections['affinity'] = [
                    'label' => t('Friend Zoom'),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/?f=&section=affinity',
                    'sel' => '',
                    'title' => t('Open Friend Zoom section by default'),
                ];

                $labels = [
                    0 => t('Me'),
                    20 => t('Family'),
                    40 => t('Friends'),
                    60 => t('Peers'),
                    80 => t('Connections'),
                    99 => t('All')
                ];
                call_hooks('affinity_labels', $labels);

                $slider_tpl = get_markup_template('contact_slider.tpl');

                $slideval = intval($contact['abook_closeness']);

                $slide = replace_macros($slider_tpl, array(
                    '$min' => 1,
                    '$val' => $slideval,
                    '$labels' => $labels,
                ));
            }

            if (Apps::system_app_installed(local_channel(), 'Content Filter')) {
                $sections['filter'] = [
                    'label' => t('Filter'),
                    'url' => z_root() . '/connedit/' . $contact['abook_id'] . '/?f=&section=filter',
                    'sel' => '',
                    'title' => t('Open Custom Filter section by default'),
                ];
            }

            $rating_val = 0;
            $rating_text = '';

            $xl = q(
                "select * from xlink where xlink_xchan = '%s' and xlink_link = '%s' and xlink_static = 1",
                dbesc($channel['channel_hash']),
                dbesc($contact['xchan_hash'])
            );

            if ($xl) {
                $rating_val = intval($xl[0]['xlink_rating']);
                $rating_text = $xl[0]['xlink_rating_text'];
            }

            $rating_enabled = get_config('system', 'rating_enabled');

            if ($rating_enabled) {
                $rating = replace_macros(get_markup_template('rating_slider.tpl'), array(
                    '$min' => -10,
                    '$val' => $rating_val
                ));
            } else {
                $rating = false;
            }


            $perms = [];
            $channel = App::get_channel();

            $global_perms = Permissions::Perms();

            $existing = get_all_perms(local_channel(), $contact['abook_xchan'], false);

            $unapproved = array('pending', t('Approve this connection'), '', t('Accept connection to allow communication'), array(t('No'), t('Yes')));

            $multiprofs = ((feature_enabled(local_channel(), 'multi_profiles')) ? true : false);

            if ($slide && !$multiprofs) {
                $affinity = t('Set Friend Zoom');
            }

            if (!$slide && $multiprofs) {
                $affinity = t('Set Profile');
            }

            if ($slide && $multiprofs) {
                $affinity = t('Set Friend Zoom & Profile');
            }


            $theirs = get_abconfig(local_channel(), $contact['abook_xchan'], 'system', 'their_perms', EMPTY_STR);

            $their_perms = Permissions::FilledPerms(explode(',', $theirs));
            foreach ($global_perms as $k => $v) {
                if (!array_key_exists($k, $their_perms)) {
                    $their_perms[$k] = 1;
                }
            }

            $my_perms = explode(',', get_abconfig(local_channel(), $contact['abook_xchan'], 'system', 'my_perms', EMPTY_STR));

            foreach ($global_perms as $k => $v) {
                $thisperm = ((in_array($k, $my_perms)) ? 1 : 0);

                $checkinherited = PermissionLimits::Get(local_channel(), $k);

                // For auto permissions (when $self is true) we don't want to look at existing
                // permissions because they are enabled for the channel owner
                if ((!$self) && ($existing[$k])) {
                    $thisperm = "1";
                }

                $perms[] = array('perms_' . $k, $v, ((array_key_exists($k, $their_perms)) ? intval($their_perms[$k]) : ''), $thisperm, 1, (($checkinherited & PERMS_SPECIFIC) ? '' : '1'), '', $checkinherited);
            }

            $pcat = new Permcat(local_channel());
            $pcatlist = $pcat->listing();
            $permcats = [];
            if ($pcatlist) {
                foreach ($pcatlist as $pc) {
                    $permcats[$pc['name']] = $pc['localname'];
                }
            }

            $locstr = locations_by_netid($contact['xchan_hash']);
            if (!$locstr) {
                $locstr = unpunify($contact['xchan_url']);
            }

            $clone_warn = '';
            $clonable = (in_array($contact['xchan_network'], ['zot6', 'zot', 'rss']) ? true : false);
            if (!$clonable) {
                $clone_warn = '<strong>';
                $clone_warn .= ((intval($contact['abook_not_here']))
                    ? t('This connection is unreachable from this location.')
                    : t('This connection may be unreachable from other channel locations.')
                );
                $clone_warn .= '</strong><br>' . t('Location independence is not supported by their network.');
            }


            if (intval($contact['abook_not_here']) && $unclonable) {
                $not_here = t('This connection is unreachable from this location. Location independence is not supported by their network.');
            }

            $o .= replace_macros($tpl, [
                '$header' => (($self) ? t('Connection Default Permissions') : sprintf(t('Connection: %s'), $contact['xchan_name']) . (($contact['abook_alias']) ? ' &lt;' . $contact['abook_alias'] . '&gt;' : '')),
                '$autoperms' => array('autoperms', t('Apply these permissions automatically'), ((get_pconfig(local_channel(), 'system', 'autoperms')) ? 1 : 0), t('Connection requests will be approved without your interaction'), $yes_no),
                '$permcat' => ['permcat', t('Permission role'), '', '<span class="loading invisible">' . t('Loading') . '<span class="jumping-dots"><span class="dot-1">.</span><span class="dot-2">.</span><span class="dot-3">.</span></span></span>', $permcats],
                '$permcat_new' => t('Add permission role'),
                '$permcat_enable' => feature_enabled(local_channel(), 'permcats'),
                '$addr' => unpunify($contact['xchan_addr']),
                '$primeurl' => unpunify($contact['xchan_url']),
                '$block_announce' => ['block_announce', t('Ignore shares and repeats this connection posts'), get_abconfig(local_channel(), $contact['xchan_hash'], 'system', 'block_announce', false), t('Note: This is not recommended for Groups.'), [t('No'), t('Yes')]],
                '$section' => $section,
                '$sections' => $sections,
                '$vcard' => $vcard,
                '$addr_text' => t('This connection\'s primary address is'),
                '$loc_text' => t('Available locations:'),
                '$locstr' => $locstr,
                '$unclonable' => $clone_warn,
                '$notself' => (($self) ? '' : '1'),
                '$self' => (($self) ? '1' : ''),
                '$autolbl' => t('The permissions indicated on this page will be applied to all new connections.'),
                '$tools_label' => t('Connection Tools'),
                '$tools' => (($self) ? '' : $tools),
                '$lbl_slider' => t('Slide to adjust your degree of friendship'),
                '$lbl_rating' => t('Rating'),
                '$lbl_rating_label' => t('Slide to adjust your rating'),
                '$lbl_rating_txt' => t('Optionally explain your rating'),
                '$connfilter' => Apps::system_app_installed(local_channel(), 'Content Filter'),
                '$connfilter_label' => t('Custom Filter'),
                '$incl' => array('abook_incl', t('Only import posts with this text'), $contact['abook_incl'], t('words one per line or #tags, $categories, /patterns/, or lang=xx, leave blank to import all posts')),
                '$excl' => array('abook_excl', t('Do not import posts with this text'), $contact['abook_excl'], t('words one per line or #tags, $categories, /patterns/, or lang=xx, leave blank to import all posts')),
                '$alias' => array('abook_alias', t('Nickname'), $contact['abook_alias'], t('optional - allows you to search by a name that you have chosen')),
                '$rating_text' => array('rating_text', t('Optionally explain your rating'), $rating_text, ''),
                '$rating_info' => t('This information is public!'),
                '$rating' => $rating,
                '$rating_val' => $rating_val,
                '$slide' => $slide,
                '$affinity' => $affinity,
                '$pending_label' => t('Connection Pending Approval'),
                '$is_pending' => (intval($contact['abook_pending']) ? 1 : ''),
                '$unapproved' => $unapproved,
                '$inherited' => t('inherited'),
                '$submit' => t('Submit'),
                '$lbl_vis2' => sprintf(t('Please choose the profile you would like to display to %s when viewing your profile securely.'), $contact['xchan_name']),
                '$close' => (($contact['abook_closeness']) ? $contact['abook_closeness'] : 80),
                '$them' => t('Their Settings'),
                '$me' => t('My Settings'),
                '$perms' => $perms,
                '$permlbl' => t('Individual Permissions'),
                '$permnote' => t('Some permissions may be inherited from your channel\'s <a href="settings"><strong>privacy settings</strong></a>, which have higher priority than individual settings. You can <strong>not</strong> change those settings here.'),
                '$permnote_self' => t('Some permissions may be inherited from your channel\'s <a href="settings"><strong>privacy settings</strong></a>, which have higher priority than individual settings. You can change those settings here but they wont have any impact unless the inherited setting changes.'),
                '$lastupdtext' => t('Last update:'),
                '$last_update' => relative_date($contact['abook_connected']),
                '$profile_select' => contact_profile_assign($contact['abook_profile']),
                '$multiprofs' => $multiprofs,
                '$contact_id' => $contact['abook_id'],
                '$name' => $contact['xchan_name'],
                '$abook_prev' => $abook_prev,
                '$abook_next' => $abook_next,
                '$vcard_label' => t('Details'),
                '$displayname' => $displayname,
                '$name_label' => t('Name'),
                '$org_label' => t('Organisation'),
                '$title_label' => t('Title'),
                '$tel_label' => t('Phone'),
                '$email_label' => t('Email'),
                '$impp_label' => t('Instant messenger'),
                '$url_label' => t('Website'),
                '$adr_label' => t('Address'),
                '$note_label' => t('Note'),
                '$mobile' => t('Mobile'),
                '$home' => t('Home'),
                '$work' => t('Work'),
                '$other' => t('Other'),
                '$add_card' => t('Add Contact'),
                '$add_field' => t('Add Field'),
                '$create' => t('Create'),
                '$update' => t('Update'),
                '$delete' => t('Delete'),
                '$cancel' => t('Cancel'),
                '$po_box' => t('P.O. Box'),
                '$extra' => t('Additional'),
                '$street' => t('Street'),
                '$locality' => t('Locality'),
                '$region' => t('Region'),
                '$zip_code' => t('ZIP Code'),
                '$country' => t('Country')
            ]);

            $arr = array('contact' => $contact, 'output' => $o);

            call_hooks('contact_edit', $arr);

            return $arr['output'];
        }
    }
}