X-Git-Url: https://git.mxchange.org/?a=blobdiff_plain;f=mod%2Fdelegate.php;h=510fc0ec8ff11b7730b53de657f5bda941f81832;hb=050ad68b9fc21fc5cf06153d2c6d161d30b241c6;hp=4d35d46c70ca8bd5c9feaeb1e8a68c4c0f58b5a4;hpb=5adfeb0bd5fed2f793332056c03bb7c043d5fc69;p=friendica.git diff --git a/mod/delegate.php b/mod/delegate.php index 4d35d46c70..510fc0ec8f 100644 --- a/mod/delegate.php +++ b/mod/delegate.php @@ -1,151 +1,184 @@ user) && x($a->user, 'uid') && $a->user['uid'] != local_user()) { + notice(L10n::t('Permission denied.') . EOL); return; } - if ($a->argc > 2 && $a->argv[1] === 'add' && intval($a->argv[2])) { + check_form_security_token_redirectOnErr('/delegate', 'delegate'); - // delegated admins can view but not change delegation permissions + $parent_uid = defaults($_POST, 'parent_user', 0); + $parent_password = defaults($_POST, 'parent_password', ''); + + if ($parent_uid != 0) { + $user = dba::selectFirst('user', ['nickname'], ['uid' => $parent_uid]); + if (!DBM::is_result($user)) { + notice(L10n::t('Parent user not found.') . EOL); + return; + } - if (x($_SESSION,'submanage') && intval($_SESSION['submanage'])) { + $success = User::authenticate($user['nickname'], trim($parent_password)); + if (!$success) { + notice(L10n::t('Permission denied.') . EOL); + return; + } + } + + dba::update('user', ['parent-uid' => $parent_uid], ['uid' => local_user()]); +} + +function delegate_content(App $a) +{ + if (!local_user()) { + notice(L10n::t('Permission denied.') . EOL); + return; + } + + if ($a->argc > 2 && $a->argv[1] === 'add' && intval($a->argv[2])) { + // delegated admins can view but not change delegation permissions + if (x($_SESSION, 'submanage')) { goaway(System::baseUrl() . '/delegate'); } - $id = $a->argv[2]; - - $r = q("select `nickname` from user where uid = %d limit 1", - intval($id) - ); - if (dbm::is_result($r)) { - $r = q("select id from contact where uid = %d and nurl = '%s' limit 1", - intval(local_user()), - dbesc(normalise_link(System::baseUrl() . '/profile/' . $r[0]['nickname'])) - ); - if (dbm::is_result($r)) { - q("insert into manage ( uid, mid ) values ( %d , %d ) ", - intval($a->argv[2]), - intval(local_user()) - ); + $user_id = $a->argv[2]; + + $user = dba::selectFirst('user', ['nickname'], ['uid' => $user_id]); + if (DBM::is_result($user)) { + $condition = [ + 'uid' => local_user(), + 'nurl' => normalise_link(System::baseUrl() . '/profile/' . $user['nickname']) + ]; + if (dba::exists('contact', $condition)) { + dba::insert('manage', ['uid' => $user_id, 'mid' => local_user()]); } } goaway(System::baseUrl() . '/delegate'); } if ($a->argc > 2 && $a->argv[1] === 'remove' && intval($a->argv[2])) { - // delegated admins can view but not change delegation permissions - if (x($_SESSION,'submanage') && intval($_SESSION['submanage'])) { + if (x($_SESSION, 'submanage')) { goaway(System::baseUrl() . '/delegate'); } - q("DELETE FROM `manage` WHERE `uid` = %d AND `mid` = %d LIMIT 1", - intval($a->argv[2]), - intval(local_user()) - ); + dba::delete('manage', ['uid' => $a->argv[2], 'mid' => local_user()]); goaway(System::baseUrl() . '/delegate'); - } - $full_managers = array(); - - // These people can manage this account/page with full privilege - - $r = q("SELECT * FROM `user` WHERE `email` = '%s' AND `password` = '%s' ", - dbesc($a->user['email']), - dbesc($a->user['password']) - ); - if (dbm::is_result($r)) - $full_managers = $r; - - $delegates = array(); - // find everybody that currently has delegated management to this account/page - - $r = q("select * from user where uid in ( select uid from manage where mid = %d ) ", + $delegates = []; + $r = q("SELECT * FROM `user` WHERE `uid` IN (SELECT `uid` FROM `manage` WHERE `mid` = %d)", intval(local_user()) ); - - if (dbm::is_result($r)) + if (DBM::is_result($r)) { $delegates = $r; + } - $uids = array(); - - if(count($full_managers)) - foreach($full_managers as $rr) - $uids[] = $rr['uid']; - - if(count($delegates)) - foreach($delegates as $rr) - $uids[] = $rr['uid']; + $uids = []; + foreach ($delegates as $rr) { + $uids[] = $rr['uid']; + } // find every contact who might be a candidate for delegation - - $r = q("select nurl from contact where substring_index(contact.nurl,'/',3) = '%s' - and contact.uid = %d and contact.self = 0 and network = '%s' ", + $potentials = []; + + $r = q("SELECT `nurl` + FROM `contact` + WHERE `self` = 0 + AND SUBSTRING_INDEX(`nurl`, '/', 3) = '%s' + AND `uid` = %d + AND `network` = '%s' ", dbesc(normalise_link(System::baseUrl())), intval(local_user()), dbesc(NETWORK_DFRN) ); - - if (! dbm::is_result($r)) { - notice( t('No potential page delegates located.') . EOL); - return; - } - - $nicknames = array(); - - if (dbm::is_result($r)) { + if (DBM::is_result($r)) { + $nicknames = []; foreach ($r as $rr) { $nicknames[] = "'" . dbesc(basename($rr['nurl'])) . "'"; } + + $nicks = implode(',', $nicknames); + + // get user records for all potential page delegates who are not already delegates or managers + $r = q("SELECT `uid`, `username`, `nickname` FROM `user` WHERE `nickname` IN ($nicks)"); + if (DBM::is_result($r)) { + foreach ($r as $rr) { + if (!in_array($rr['uid'], $uids)) { + $potentials[] = $rr; + } + } + } } - $potentials = array(); + settings_init($a); - $nicks = implode(',',$nicknames); + $user = dba::selectFirst('user', ['parent-uid', 'email'], ['uid' => local_user()]); - // get user records for all potential page delegates who are not already delegates or managers + $parent_user = null; - $r = q("select `uid`, `username`, `nickname` from user where nickname in ( $nicks )"); + if (DBM::is_result($user)) { + if (!dba::exists('user', ['parent-uid' => local_user()])) { + $parent_uid = $user['parent-uid']; + $parents = [0 => L10n::t('No parent user')]; - if (dbm::is_result($r)) - foreach($r as $rr) - if(! in_array($rr['uid'],$uids)) - $potentials[] = $rr; + $fields = ['uid', 'username', 'nickname']; + $condition = ['email' => $user['email'], 'verified' => true, 'blocked' => false, 'parent-uid' => 0]; + $parent_users = dba::select('user', $fields, $condition); + while ($parent = dba::fetch($parent_users)) { + if ($parent['uid'] != local_user()) { + $parents[$parent['uid']] = sprintf('%s (%s)', $parent['username'], $parent['nickname']); + } + } + $parent_user = ['parent_user', '', $parent_uid, '', $parents]; + } + } - require_once("mod/settings.php"); - settings_init($a); + if (!is_null($parent_user)) { + $parent_password = ['parent_password', L10n::t('Parent Password:'), '', L10n::t('Please enter the password of the parent account to legitimize your request.')]; + } - $o = replace_macros(get_markup_template('delegate.tpl'),array( - '$header' => t('Delegate Page Management'), + $o = replace_macros(get_markup_template('delegate.tpl'), [ + '$form_security_token' => get_form_security_token('delegate'), + '$parent_header' => L10n::t('Parent User'), + '$parent_user' => $parent_user, + '$parent_password' => $parent_password, + '$parent_desc' => L10n::t('Parent users have total control about this account, including the account settings. Please double check whom you give this access.'), + '$submit' => L10n::t('Save Settings'), + '$header' => L10n::t('Delegate Page Management'), + '$delegates_header' => L10n::t('Delegates'), '$base' => System::baseUrl(), - '$desc' => t('Delegates are able to manage all aspects of this account/page except for basic account settings. Please do not delegate your personal account to anybody that you do not trust completely.'), - '$head_managers' => t('Existing Page Managers'), - '$managers' => $full_managers, - '$head_delegates' => t('Existing Page Delegates'), + '$desc' => L10n::t('Delegates are able to manage all aspects of this account/page except for basic account settings. Please do not delegate your personal account to anybody that you do not trust completely.'), + '$head_delegates' => L10n::t('Existing Page Delegates'), '$delegates' => $delegates, - '$head_potentials' => t('Potential Delegates'), + '$head_potentials' => L10n::t('Potential Delegates'), '$potentials' => $potentials, - '$remove' => t('Remove'), - '$add' => t('Add'), - '$none' => t('No entries.') - )); + '$remove' => L10n::t('Remove'), + '$add' => L10n::t('Add'), + '$none' => L10n::t('No entries.') + ]); return $o; - - }