forumdirectory/forumdirectory.php

   1 <?php
   2 /**
   3  * Name: Forum Directory
   4  * Description: Add a directory of forums hosted on your server, with verbose descriptions.
   5  * Version: 1.1
   6  * Author: Thomas Willingham <https://beardyunixer.com/profile/beardyunixer>
   7  */
   8
   9 use Friendica\App;
  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\Renderer;
  17 use Friendica\Database\DBA;
  18 use Friendica\Model\Profile;
  19 use Friendica\Util\Strings;
  20
  21 include_once 'mod/directory.php';
  22
  23 function forumdirectory_install()
  24 {
  25         Hook::register('app_menu', 'addon/forumdirectory/forumdirectory.php', 'forumdirectory_app_menu');
  26 }
  27
  28 function forumdirectory_uninstall()
  29 {
  30         Hook::unregister('app_menu', 'addon/forumdirectory/forumdirectory.php', 'forumdirectory_app_menu');
  31 }
  32
  33 function forumdirectory_module()
  34 {
  35         return;
  36 }
  37
  38 function forumdirectory_app_menu(App $a, array &$b)
  39 {
  40         $b['app_menu'][] = '<div class="app-title"><a href="forumdirectory">' . L10n::t('Forum Directory') . '</a></div>';
  41 }
  42
  43 function forumdirectory_init(App $a)
  44 {
  45         if (local_user()) {
  46                 $a->page['aside'] .= Widget::findPeople();
  47         } else {
  48                 unset($_SESSION['theme']);
  49         }
  50 }
  51
  52 function forumdirectory_post(App $a)
  53 {
  54         if (!empty($_POST['search'])) {
  55                 $a->data['search'] = $_POST['search'];
  56         }
  57 }
  58
  59 function forumdirectory_content(App $a)
  60 {
  61         if ((Config::get('system', 'block_public')) && (!local_user()) && (!remote_user())) {
  62                 notice(L10n::t('Public access denied.') . EOL);
  63                 return;
  64         }
  65
  66         $o = '';
  67         $entries = [];
  68
  69         Nav::setSelected('directory');
  70
  71         if (!empty($a->data['search'])) {
  72                 $search = Strings::escapeTags(trim($a->data['search']));
  73         } else {
  74                 $search = (!empty($_GET['search']) ? Strings::escapeTags(trim(rawurldecode($_GET['search']))) : '');
  75         }
  76
  77         $gdirpath = '';
  78         $dirurl = Config::get('system', 'directory');
  79         if (strlen($dirurl)) {
  80                 $gdirpath = Profile::zrl($dirurl, true);
  81         }
  82
  83         $sql_extra = '';
  84         if (strlen($search)) {
  85                 $search = DBA::escape($search);
  86
  87                 $sql_extra = " AND ((`profile`.`name` LIKE '%$search%') OR
  88                                 (`user`.`nickname` LIKE '%$search%') OR
  89                                 (`profile`.`pdesc` LIKE '%$search%') OR
  90                                 (`profile`.`locality` LIKE '%$search%') OR
  91                                 (`profile`.`region` LIKE '%$search%') OR
  92                                 (`profile`.`country-name` LIKE '%$search%') OR
  93                                 (`profile`.`gender` LIKE '%$search%') OR
  94                                 (`profile`.`marital` LIKE '%$search%') OR
  95                                 (`profile`.`sexual` LIKE '%$search%') OR
  96                                 (`profile`.`about` LIKE '%$search%') OR
  97                                 (`profile`.`romance` LIKE '%$search%') OR
  98                                 (`profile`.`work` LIKE '%$search%') OR
  99                                 (`profile`.`education` LIKE '%$search%') OR
 100                                 (`profile`.`pub_keywords` LIKE '%$search%') OR
 101                                 (`profile`.`prv_keywords` LIKE '%$search%'))";
 102         }
 103
 104         $publish = Config::get('system', 'publish_all') ? '' : " AND `publish` = 1 ";
 105
 106         $total = 0;
 107         $cnt = DBA::fetchFirst("SELECT COUNT(*) AS `total` FROM `profile`
 108                                 LEFT JOIN `user` ON `user`.`uid` = `profile`.`uid`
 109                                 WHERE `is-default` $publish AND NOT `user`.`blocked` AND NOT `user`.`account_removed` `user`.`page-flags` = 2 $sql_extra");
 110         if (DBA::isResult($cnt)) {
 111                 $total = $cnt['total'];
 112         }
 113
 114         $pager = new Pager($a->query_string, 60);
 115
 116         $order = " ORDER BY `name` ASC ";
 117
 118         $limit = $pager->getStart()."," . $pager->getItemsPerPage();
 119
 120         $r = DBA::p("SELECT `profile`.*, `profile`.`uid` AS `profile_uid`, `user`.`nickname`, `user`.`timezone` , `user`.`page-flags`,
 121                         `contact`.`addr`, `contact`.`url` AS `profile_url` FROM `profile`
 122                         LEFT JOIN `user` ON `user`.`uid` = `profile`.`uid`
 123                         LEFT JOIN `contact` ON `contact`.`uid` = `user`.`uid`
 124                         WHERE `is-default` $publish AND NOT `user`.`blocked` AND NOT `user`.`account_removed` AND `user`.`page-flags` = 2 AND `contact`.`self`
 125                         $sql_extra $order LIMIT $limit"
 126         );
 127
 128         if (DBA::isResult($r)) {
 129                 if (in_array('small', $a->argv)) {
 130                         $photo = 'thumb';
 131                 } else {
 132                         $photo = 'photo';
 133                 }
 134
 135                 while ($rr = DBA::fetch($r)) {
 136                         $entries[] = Friendica\Module\Directory::formatEntry($rr, $photo);
 137                 }
 138                 DBA::close($r);
 139         } else {
 140                 info(L10n::t("No entries \x28some entries may be hidden\x29.") . EOL);
 141         }
 142
 143         $tpl = Renderer::getMarkupTemplate('directory_header.tpl');
 144         $o .= Renderer::replaceMacros($tpl, [
 145                 '$search'     => $search,
 146                 '$globaldir'  => L10n::t('Global Directory'),
 147                 '$gdirpath'   => $gdirpath,
 148                 '$desc'       => L10n::t('Find on this site'),
 149                 '$contacts'   => $entries,
 150                 '$finding'    => L10n::t('Results for:'),
 151                 '$findterm'   => (strlen($search) ? $search : ""),
 152                 '$title'      => L10n::t('Forum Directory'),
 153                 '$search_mod' => 'forumdirectory',
 154                 '$submit'     => L10n::t('Find'),
 155                 '$paginate'   => $pager->renderFull($total),
 156         ]);
 157
 158         return $o;
 159 }