--- /dev/null
+<?php\r
+/**\r
+ * @file src/Module/Group.php\r
+ */\r
+\r
+namespace Friendica\Module;\r
+\r
+use Friendica\BaseModule;\r
+use Friendica\Core\Config;\r
+use Friendica\Core\L10n;\r
+use Friendica\Core\PConfig;\r
+use Friendica\Core\Renderer;\r
+use Friendica\Core\System;\r
+use Friendica\Database\DBA;\r
+use Friendica\Model;\r
+use Friendica\Util\Strings;\r
+\r
+require_once 'boot.php';\r
+\r
+class Group extends BaseModule\r
+{\r
+ public static function post()\r
+ {\r
+ $a = self::getApp();\r
+\r
+ if (!local_user()) {\r
+ notice(L10n::t('Permission denied.'));\r
+ $a->internalRedirect();\r
+ }\r
+\r
+ if (($a->argc == 2) && ($a->argv[1] === 'new')) {\r
+ BaseModule::checkFormSecurityTokenRedirectOnError('/group/new', 'group_edit');\r
+\r
+ $name = Strings::escapeTags(trim($_POST['groupname']));\r
+ $r = Model\Group::create(local_user(), $name);\r
+ if ($r) {\r
+ info(L10n::t('Group created.'));\r
+ $r = Model\Group::getIdByName(local_user(), $name);\r
+ if ($r) {\r
+ $a->internalRedirect('group/' . $r);\r
+ }\r
+ } else {\r
+ notice(L10n::t('Could not create group.'));\r
+ }\r
+ $a->internalRedirect('group');\r
+ }\r
+\r
+ if (($a->argc == 2) && intval($a->argv[1])) {\r
+ BaseModule::checkFormSecurityTokenRedirectOnError('/group', 'group_edit');\r
+\r
+ $group = DBA::selectFirst('group', ['id', 'name'], ['id' => $a->argv[1], 'uid' => local_user()]);\r
+ if (!DBA::isResult($group)) {\r
+ notice(L10n::t('Group not found.'));\r
+ $a->internalRedirect('contact');\r
+ }\r
+ $groupname = Strings::escapeTags(trim($_POST['groupname']));\r
+ if (strlen($groupname) && ($groupname != $group['name'])) {\r
+ if (Model\Group::update($group['id'], $groupname)) {\r
+ info(L10n::t('Group name changed.'));\r
+ }\r
+ }\r
+ }\r
+ }\r
+\r
+ public static function content()\r
+ {\r
+ $change = false;\r
+\r
+ if (!local_user()) {\r
+ System::httpExit(403);\r
+ }\r
+\r
+ $a = self::getApp();\r
+\r
+ $a->page['aside'] = Model\Group::sidebarWidget('contact', 'group', 'extended', (($a->argc > 1) ? $a->argv[1] : 'everyone'));\r
+\r
+ // With no group number provided we jump to the unassigned contacts as a starting point\r
+ if ($a->argc == 1) {\r
+ $a->internalRedirect('group/none');\r
+ }\r
+\r
+ // Switch to text mode interface if we have more than 'n' contacts or group members\r
+ $switchtotext = PConfig::get(local_user(), 'system', 'groupedit_image_limit');\r
+ if (is_null($switchtotext)) {\r
+ $switchtotext = Config::get('system', 'groupedit_image_limit', 200);\r
+ }\r
+\r
+ $tpl = Renderer::getMarkupTemplate('group_edit.tpl');\r
+\r
+\r
+ $context = [\r
+ '$submit' => L10n::t('Save Group'),\r
+ '$submit_filter' => L10n::t('Filter'),\r
+ ];\r
+\r
+ if (($a->argc == 2) && ($a->argv[1] === 'new')) {\r
+ return Renderer::replaceMacros($tpl, $context + [\r
+ '$title' => L10n::t('Create a group of contacts/friends.'),\r
+ '$gname' => ['groupname', L10n::t('Group Name: '), '', ''],\r
+ '$gid' => 'new',\r
+ '$form_security_token' => BaseModule::getFormSecurityToken("group_edit"),\r
+ ]);\r
+ }\r
+\r
+ $nogroup = false;\r
+\r
+ if (($a->argc == 2) && ($a->argv[1] === 'none')) {\r
+ $id = -1;\r
+ $nogroup = true;\r
+ $group = [\r
+ 'id' => $id,\r
+ 'name' => L10n::t('Contacts not in any group'),\r
+ ];\r
+\r
+ $members = [];\r
+ $preselected = [];\r
+\r
+ $context = $context + [\r
+ '$title' => $group['name'],\r
+ '$gname' => ['groupname', L10n::t('Group Name: '), $group['name'], ''],\r
+ '$gid' => $id,\r
+ '$editable' => 0,\r
+ ];\r
+ }\r
+\r
+ if (($a->argc == 3) && ($a->argv[1] === 'drop')) {\r
+ BaseModule::checkFormSecurityTokenRedirectOnError('/group', 'group_drop', 't');\r
+\r
+ if (intval($a->argv[2])) {\r
+ if (!Model\Group::exists($a->argv[2], local_user())) {\r
+ notice(L10n::t('Group not found.'));\r
+ $a->internalRedirect('contact');\r
+ }\r
+\r
+ if (Model\Group::remove($a->argv[2])) {\r
+ info(L10n::t('Group removed.'));\r
+ } else {\r
+ notice(L10n::t('Unable to remove group.'));\r
+ }\r
+ }\r
+ $a->internalRedirect('group');\r
+ }\r
+\r
+ if (($a->argc > 2) && intval($a->argv[1]) && intval($a->argv[2])) {\r
+ BaseModule::checkFormSecurityTokenForbiddenOnError('group_member_change', 't');\r
+\r
+ if (DBA::exists('contact', ['id' => $a->argv[2], 'uid' => local_user(), 'self' => false, 'pending' => false, 'blocked' => false])) {\r
+ $change = intval($a->argv[2]);\r
+ }\r
+ }\r
+\r
+ if (($a->argc > 1) && intval($a->argv[1])) {\r
+ $group = DBA::selectFirst('group', ['id', 'name'], ['id' => $a->argv[1], 'uid' => local_user(), 'deleted' => false]);\r
+ if (!DBA::isResult($group)) {\r
+ notice(L10n::t('Group not found.'));\r
+ $a->internalRedirect('contact');\r
+ }\r
+\r
+ $members = Model\Contact::getByGroupId($group['id']);\r
+ $preselected = [];\r
+\r
+ if (count($members)) {\r
+ foreach ($members as $member) {\r
+ $preselected[] = $member['id'];\r
+ }\r
+ }\r
+\r
+ if ($change) {\r
+ if (in_array($change, $preselected)) {\r
+ Model\Group::removeMember($group['id'], $change);\r
+ } else {\r
+ Model\Group::addMember($group['id'], $change);\r
+ }\r
+\r
+ $members = Model\Contact::getByGroupId($group['id']);\r
+ $preselected = [];\r
+ if (count($members)) {\r
+ foreach ($members as $member) {\r
+ $preselected[] = $member['id'];\r
+ }\r
+ }\r
+ }\r
+\r
+ $drop_tpl = Renderer::getMarkupTemplate('group_drop.tpl');\r
+ $drop_txt = Renderer::replaceMacros($drop_tpl, [\r
+ '$id' => $group['id'],\r
+ '$delete' => L10n::t('Delete Group'),\r
+ '$form_security_token' => BaseModule::getFormSecurityToken("group_drop"),\r
+ ]);\r
+\r
+ $context = $context + [\r
+ '$title' => $group['name'],\r
+ '$gname' => ['groupname', L10n::t('Group Name: '), $group['name'], ''],\r
+ '$gid' => $group['id'],\r
+ '$drop' => $drop_txt,\r
+ '$form_security_token' => BaseModule::getFormSecurityToken('group_edit'),\r
+ '$edit_name' => L10n::t('Edit Group Name'),\r
+ '$editable' => 1,\r
+ ];\r
+ }\r
+\r
+ if (!isset($group)) {\r
+ System::httpExit(400);\r
+ }\r
+\r
+ $groupeditor = [\r
+ 'label_members' => L10n::t('Members'),\r
+ 'members' => [],\r
+ 'label_contacts' => L10n::t('All Contacts'),\r
+ 'group_is_empty' => L10n::t('Group is empty'),\r
+ 'contacts' => [],\r
+ ];\r
+\r
+ $sec_token = addslashes(BaseModule::getFormSecurityToken('group_member_change'));\r
+\r
+ // Format the data of the group members\r
+ foreach ($members as $member) {\r
+ if ($member['url']) {\r
+ $entry = Contact::getContactTemplateVars($member);\r
+ $entry['label'] = 'members';\r
+ $entry['photo_menu'] = '';\r
+ $entry['change_member'] = [\r
+ 'title' => L10n::t("Remove contact from group"),\r
+ 'gid' => $group['id'],\r
+ 'cid' => $member['id'],\r
+ 'sec_token' => $sec_token\r
+ ];\r
+\r
+ $groupeditor['members'][] = $entry;\r
+ } else {\r
+ Model\Group::removeMember($group['id'], $member['id']);\r
+ }\r
+ }\r
+\r
+ if ($nogroup) {\r
+ $contacts = Model\Contact::getUngroupedList(local_user());\r
+ } else {\r
+ $contacts_stmt = DBA::select('contact', [],\r
+ ['uid' => local_user(), 'pending' => false, 'blocked' => false, 'self' => false],\r
+ ['order' => ['name']]\r
+ );\r
+ $contacts = DBA::toArray($contacts_stmt);\r
+ $context['$desc'] = L10n::t('Click on a contact to add or remove.');\r
+ }\r
+\r
+ if (DBA::isResult($contacts)) {\r
+ // Format the data of the contacts who aren't in the contact group\r
+ foreach ($contacts as $member) {\r
+ if (!in_array($member['id'], $preselected)) {\r
+ $entry = Contact::getContactTemplateVars($member);\r
+ $entry['label'] = 'contacts';\r
+ if (!$nogroup)\r
+ $entry['photo_menu'] = [];\r
+\r
+ if (!$nogroup) {\r
+ $entry['change_member'] = [\r
+ 'title' => L10n::t("Add contact to group"),\r
+ 'gid' => $group['id'],\r
+ 'cid' => $member['id'],\r
+ 'sec_token' => $sec_token\r
+ ];\r
+ }\r
+\r
+ $groupeditor['contacts'][] = $entry;\r
+ }\r
+ }\r
+ }\r
+\r
+ $context['$groupeditor'] = $groupeditor;\r
+\r
+ // If there are to many contacts we could provide an alternative view mode\r
+ $total = count($groupeditor['members']) + count($groupeditor['contacts']);\r
+ $context['$shortmode'] = (($switchtotext && ($total > $switchtotext)) ? true : false);\r
+\r
+ if ($change) {\r
+ $tpl = Renderer::getMarkupTemplate('groupeditor.tpl');\r
+ echo Renderer::replaceMacros($tpl, $context);\r
+ exit();\r
+ }\r
+\r
+ return Renderer::replaceMacros($tpl, $context);\r
+ }\r
+}
\ No newline at end of file