4 use Friendica\Core\Config;
5 use Friendica\Core\PConfig;
7 function profperm_init(App $a) {
13 $which = $a->user['nickname'];
14 $profile = $a->argv[1];
16 profile_load($a,$which,$profile);
21 function profperm_content(App $a) {
24 notice( t('Permission denied') . EOL);
30 notice( t('Invalid profile identifier.') . EOL );
34 // Switch to text mod interface if we have more than 'n' contacts or group members
36 $switchtotext = PConfig::get(local_user(),'system','groupedit_image_limit');
37 if($switchtotext === false)
38 $switchtotext = Config::get('system','groupedit_image_limit');
39 if($switchtotext === false)
43 if(($a->argc > 2) && intval($a->argv[1]) && intval($a->argv[2])) {
44 $r = q("SELECT `id` FROM `contact` WHERE `blocked` = 0 AND `pending` = 0 AND `self` = 0
45 AND `network` = '%s' AND `id` = %d AND `uid` = %d LIMIT 1",
50 if (dbm::is_result($r))
51 $change = intval($a->argv[2]);
55 if(($a->argc > 1) && (intval($a->argv[1]))) {
56 $r = q("SELECT * FROM `profile` WHERE `id` = %d AND `uid` = %d AND `is-default` = 0 LIMIT 1",
60 if (! dbm::is_result($r)) {
61 notice( t('Invalid profile identifier.') . EOL );
66 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `profile-id` = %d",
72 if (dbm::is_result($r))
73 foreach($r as $member)
74 $ingroup[] = $member['id'];
79 if(in_array($change,$ingroup)) {
80 q("UPDATE `contact` SET `profile-id` = 0 WHERE `id` = %d AND `uid` = %d",
86 q("UPDATE `contact` SET `profile-id` = %d WHERE `id` = %d AND `uid` = %d",
94 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `profile-id` = %d",
102 if (dbm::is_result($r))
103 foreach($r as $member)
104 $ingroup[] = $member['id'];
107 $o .= '<h2>' . t('Profile Visibility Editor') . '</h2>';
109 $o .= '<h3>' . t('Profile') . ' \'' . $profile['profile-name'] . '\'</h3>';
111 $o .= '<div id="prof-edit-desc">' . t('Click on a contact to add or remove.') . '</div>';
115 $o .= '<div id="prof-update-wrapper">';
119 $o .= '<div id="prof-members-title">';
120 $o .= '<h3>' . t('Visible To') . '</h3>';
122 $o .= '<div id="prof-members">';
124 $textmode = (($switchtotext && (count($members) > $switchtotext)) ? true : false);
126 foreach($members as $member) {
128 $member['click'] = 'profChangeMember(' . $profile['id'] . ',' . $member['id'] . '); return true;';
129 $o .= micropro($member,true,'mpprof', $textmode);
132 $o .= '</div><div id="prof-members-end"></div>';
133 $o .= '<hr id="prof-separator" />';
135 $o .= '<div id="prof-all-contcts-title">';
136 $o .= '<h3>' . t("All Contacts \x28with secure profile access\x29") . '</h3>';
138 $o .= '<div id="prof-all-contacts">';
140 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `blocked` = 0 and `pending` = 0 and `self` = 0
141 AND `network` = '%s' ORDER BY `name` ASC",
142 intval(local_user()),
146 if (dbm::is_result($r)) {
147 $textmode = (($switchtotext && (count($r) > $switchtotext)) ? true : false);
148 foreach($r as $member) {
149 if(! in_array($member['id'],$ingroup)) {
150 $member['click'] = 'profChangeMember(' . $profile['id'] . ',' . $member['id'] . '); return true;';
151 $o .= micropro($member,true,'mpprof',$textmode);
156 $o .= '</div><div id="prof-all-contacts-end"></div>';