[various] Rename forum to group

- Drop support for forumdirectory
- Add support for groupdirectory

groupdirectory/groupdirectory.php

@@ -0,0 +1,155 @@
+<?php
+/**
+ * Name: Group Directory
+ * Description: Add a directory of groups hosted on your server, with verbose descriptions.
+ * Version: 1.1
+ * Author: Thomas Willingham <https://beardyunixer.com/profile/beardyunixer>
+ */
+
+use Friendica\Content\Nav;
+use Friendica\Content\Pager;
+use Friendica\Content\Widget;
+use Friendica\Core\Hook;
+use Friendica\Core\Renderer;
+use Friendica\Database\DBA;
+use Friendica\DI;
+use Friendica\Model\Profile;
+use Friendica\Model\User;
+
+global $groupdirectory_search;
+
+function groupdirectory_install()
+{
+	Hook::register('app_menu', __FILE__, 'groupdirectory_app_menu');
+}
+
+/**
+ * This is a statement rather than an actual function definition. The simple
+ * existence of this method is checked to figure out if the addon offers a
+ * module.
+ */
+/**
+ * This is a statement rather than an actual function definition. The simple
+ * existence of this method is checked to figure out if the addon offers a
+ * module.
+ */
+function groupdirectory_module() {}
+
+function groupdirectory_app_menu(array &$b)
+{
+	$b['app_menu'][] = '<div class="app-title"><a href="groupdirectory">' . DI::l10n()->t('Group Directory') . '</a></div>';
+}
+
+function groupdirectory_init()
+{
+	if (DI::userSession()->getLocalUserId()) {
+		DI::page()['aside'] .= Widget::findPeople();
+	}
+}
+
+function groupdirectory_post()
+{
+	global $groupdirectory_search;
+
+	if (!empty($_POST['search'])) {
+		$groupdirectory_search = $_POST['search'];
+	}
+}
+
+function groupdirectory_content()
+{
+	global $groupdirectory_search;
+
+	if (DI::config()->get('system', 'block_public') && !DI::userSession()->getLocalUserId() && !DI::userSession()->getRemoteUserId()) {
+		DI::sysmsg()->addNotice(DI::l10n()->t('Public access denied.'));
+		return '';
+	}
+
+	$o       = '';
+	$entries = [];
+
+	Nav::setSelected('directory');
+
+	if (!empty($groupdirectory_search)) {
+		$search = trim($groupdirectory_search);
+	} else {
+		$search = (!empty($_GET['search']) ? trim(rawurldecode($_GET['search'])) : '');
+	}
+
+	$gdirpath = '';
+	$dirurl   = DI::config()->get('system', 'directory');
+	if (strlen($dirurl)) {
+		$gdirpath = Profile::zrl($dirurl, true);
+	}
+
+	$sql_extra = '';
+	if (strlen($search)) {
+		$search = DBA::escape($search);
+
+		$sql_extra = " AND ((`profile`.`name` LIKE '%$search%') OR
+				(`user`.`nickname` LIKE '%$search%') OR
+				(`profile`.`about` LIKE '%$search%') OR
+				(`profile`.`locality` LIKE '%$search%') OR
+				(`profile`.`region` LIKE '%$search%') OR
+				(`profile`.`country-name` LIKE '%$search%') OR
+				(`profile`.`pub_keywords` LIKE '%$search%') OR
+				(`profile`.`prv_keywords` LIKE '%$search%'))";
+	}
+
+	$publish = DI::config()->get('system', 'publish_all') ? '' : "`publish` = 1";
+
+	$total = 0;
+	$cnt   = DBA::fetchFirst("SELECT COUNT(*) AS `total` FROM `profile`
+				INNER JOIN `user` ON `user`.`uid` = `profile`.`uid`
+				WHERE $publish AND NOT `user`.`blocked` AND NOT `user`.`account_removed` AND `user`.`page-flags` = ? $sql_extra",
+		User::PAGE_FLAGS_COMMUNITY);
+	if (DBA::isResult($cnt)) {
+		$total = $cnt['total'];
+	}
+
+	$pager = new Pager(DI::l10n(), DI::args()->getQueryString(), 60);
+
+	$order = " ORDER BY `name` ASC ";
+
+	$limit = $pager->getStart() . "," . $pager->getItemsPerPage();
+
+	$r = DBA::p("SELECT `profile`.*, `user`.`nickname`, `user`.`timezone` , `user`.`page-flags`,
+			`contact`.`addr`, `contact`.`url` FROM `profile`
+			INNER JOIN `user` ON `user`.`uid` = `profile`.`uid`
+			INNER JOIN `contact` ON `contact`.`uid` = `user`.`uid`
+			WHERE $publish AND NOT `user`.`blocked` AND NOT `user`.`account_removed` AND `user`.`page-flags` = ? AND `contact`.`self`
+			$sql_extra $order LIMIT $limit", User::PAGE_FLAGS_COMMUNITY
+	);
+
+	if (DBA::isResult($r)) {
+		if (in_array('small', DI::args()->getArgv())) {
+			$photo = 'thumb';
+		} else {
+			$photo = 'photo';
+		}
+
+		while ($rr = DBA::fetch($r)) {
+			$entries[] = Friendica\Module\Directory::formatEntry($rr, $photo);
+		}
+		DBA::close($r);
+	} else {
+		DI::sysmsg()->addNotice(DI::l10n()->t('No entries (some entries may be hidden).'));
+	}
+
+	$tpl = Renderer::getMarkupTemplate('directory_header.tpl');
+	$o   .= Renderer::replaceMacros($tpl, [
+		'$search'     => $search,
+		'$globaldir'  => DI::l10n()->t('Global Directory'),
+		'$gdirpath'   => $gdirpath,
+		'$desc'       => DI::l10n()->t('Find on this site'),
+		'$contacts'   => $entries,
+		'$finding'    => DI::l10n()->t('Results for:'),
+		'$findterm'   => (strlen($search) ? $search : ""),
+		'$title'      => DI::l10n()->t('Group Directory'),
+		'$search_mod' => 'groupdirectory',
+		'$submit'     => DI::l10n()->t('Find'),
+		'$paginate'   => $pager->renderFull($total),
+	]);
+
+	return $o;
+}