3 * Name: Forum Directory
4 * Description: Add a directory of forums hosted on your server, with verbose descriptions.
6 * Author: Thomas Willingham <https://beardyunixer.com/profile/beardyunixer>
10 use Friendica\Content\Nav;
11 use Friendica\Content\Pager;
12 use Friendica\Content\Widget;
13 use Friendica\Core\Config;
14 use Friendica\Core\Hook;
15 use Friendica\Core\L10n;
16 use Friendica\Core\Logger;
17 use Friendica\Core\Renderer;
18 use Friendica\Database\DBA;
19 use Friendica\Model\Profile;
20 use Friendica\Model\User;
21 use Friendica\Util\Strings;
22 use Friendica\Util\Temporal;
24 include_once 'mod/directory.php';
26 function forumdirectory_install()
28 Hook::register('app_menu', 'addon/forumdirectory/forumdirectory.php', 'forumdirectory_app_menu');
31 function forumdirectory_uninstall()
33 Hook::unregister('app_menu', 'addon/forumdirectory/forumdirectory.php', 'forumdirectory_app_menu');
36 function forumdirectory_module()
41 function forumdirectory_app_menu(App $a, array &$b)
43 $b['app_menu'][] = '<div class="app-title"><a href="forumdirectory">' . L10n::t('Forum Directory') . '</a></div>';
46 function forumdirectory_init(App $a)
49 $a->page['aside'] .= Widget::findPeople();
51 unset($_SESSION['theme']);
55 function forumdirectory_post(App $a)
57 if (!empty($_POST['search'])) {
58 $a->data['search'] = $_POST['search'];
62 function forumdirectory_content(App $a)
64 if ((Config::get('system', 'block_public')) && (!local_user()) && (!remote_user())) {
65 notice(L10n::t('Public access denied.') . EOL);
72 Nav::setSelected('directory');
74 if (!empty($a->data['search'])) {
75 $search = Strings::escapeTags(trim($a->data['search']));
77 $search = (!empty($_GET['search']) ? Strings::escapeTags(trim(rawurldecode($_GET['search']))) : '');
81 $dirurl = Config::get('system', 'directory');
82 if (strlen($dirurl)) {
83 $gdirpath = Profile::zrl($dirurl, true);
87 if (strlen($search)) {
88 $search = DBA::escape($search);
90 $sql_extra = " AND ((`profile`.`name` LIKE '%$search%') OR
91 (`user`.`nickname` LIKE '%$search%') OR
92 (`profile`.`pdesc` LIKE '%$search%') OR
93 (`profile`.`locality` LIKE '%$search%') OR
94 (`profile`.`region` LIKE '%$search%') OR
95 (`profile`.`country-name` LIKE '%$search%') OR
96 (`profile`.`gender` LIKE '%$search%') OR
97 (`profile`.`marital` LIKE '%$search%') OR
98 (`profile`.`sexual` LIKE '%$search%') OR
99 (`profile`.`about` LIKE '%$search%') OR
100 (`profile`.`romance` LIKE '%$search%') OR
101 (`profile`.`work` LIKE '%$search%') OR
102 (`profile`.`education` LIKE '%$search%') OR
103 (`profile`.`pub_keywords` LIKE '%$search%') OR
104 (`profile`.`prv_keywords` LIKE '%$search%'))";
107 $publish = Config::get('system', 'publish_all') ? '' : " AND `publish` = 1 ";
110 $cnt = DBA::fetchFirst("SELECT COUNT(*) AS `total` FROM `profile`
111 LEFT JOIN `user` ON `user`.`uid` = `profile`.`uid`
112 WHERE `is-default` $publish AND NOT `user`.`blocked` AND NOT `user`.`account_removed` `user`.`page-flags` = 2 $sql_extra");
113 if (DBA::isResult($cnt)) {
114 $total = $cnt['total'];
117 $pager = new Pager($a->query_string, 60);
119 $order = " ORDER BY `name` ASC ";
121 $limit = $pager->getStart()."," . $pager->getItemsPerPage();
123 $r = DBA::p("SELECT `profile`.*, `profile`.`uid` AS `profile_uid`, `user`.`nickname`, `user`.`timezone` , `user`.`page-flags`,
124 `contact`.`addr`, `contact`.`url` AS `profile_url` FROM `profile`
125 LEFT JOIN `user` ON `user`.`uid` = `profile`.`uid`
126 LEFT JOIN `contact` ON `contact`.`uid` = `user`.`uid`
127 WHERE `is-default` $publish AND NOT `user`.`blocked` AND NOT `user`.`account_removed` AND `user`.`page-flags` = 2 AND `contact`.`self`
128 $sql_extra $order LIMIT $limit"
131 if (DBA::isResult($r)) {
132 if (in_array('small', $a->argv)) {
138 while ($rr = DBA::fetch($r)) {
139 $entries[] = format_directory_entry($rr, $photo);
143 info(L10n::t("No entries \x28some entries may be hidden\x29.") . EOL);
146 $tpl = Renderer::getMarkupTemplate('directory_header.tpl');
147 $o .= Renderer::replaceMacros($tpl, [
148 '$search' => $search,
149 '$globaldir' => L10n::t('Global Directory'),
150 '$gdirpath' => $gdirpath,
151 '$desc' => L10n::t('Find on this site'),
152 '$contacts' => $entries,
153 '$finding' => L10n::t('Results for:'),
154 '$findterm' => (strlen($search) ? $search : ""),
155 '$title' => L10n::t('Forum Directory'),
156 '$search_mod' => 'forumdirectory',
157 '$submit' => L10n::t('Find'),
158 '$paginate' => $pager->renderFull($total),