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.0
   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\Contact;
  19 use Friendica\Model\Profile;
  20 use Friendica\Util\Strings;
  21 use Friendica\Util\Temporal;
  22
  23 require_once 'boot.php';
  24 require_once 'include/dba.php';
  25 require_once 'include/text.php';
  26
  27 function forumdirectory_install()
  28 {
  29         Hook::register('app_menu', 'addon/forumdirectory/forumdirectory.php', 'forumdirectory_app_menu');
  30 }
  31
  32 function forumdirectory_uninstall()
  33 {
  34         Hook::unregister('app_menu', 'addon/forumdirectory/forumdirectory.php', 'forumdirectory_app_menu');
  35 }
  36
  37 function forumdirectory_module()
  38 {
  39         return;
  40 }
  41
  42 function forumdirectory_app_menu(App $a, array &$b)
  43 {
  44         $b['app_menu'][] = '<div class="app-title"><a href="forumdirectory">' . L10n::t('Forum Directory') . '</a></div>';
  45 }
  46
  47 function forumdirectory_init(App $a)
  48 {
  49         $a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="' . $a->getBaseURL() . '/addon/forumdirectory/forumdirectory.css" media="all" />';
  50
  51         if (local_user()) {
  52                 $a->page['aside'] .= Widget::findPeople();
  53         } else {
  54                 unset($_SESSION['theme']);
  55         }
  56 }
  57
  58 function forumdirectory_post(App $a)
  59 {
  60         if (!empty($_POST['search'])) {
  61                 $a->data['search'] = $_POST['search'];
  62         }
  63 }
  64
  65 function forumdirectory_content(App $a)
  66 {
  67         if ((Config::get('system', 'block_public')) && (!local_user()) && (!remote_user())) {
  68                 notice(L10n::t('Public access denied.') . EOL);
  69                 return;
  70         }
  71
  72         $o = '';
  73         Nav::setSelected('directory');
  74
  75         if (!empty($a->data['search'])) {
  76                 $search = Strings::escapeTags(trim($a->data['search']));
  77         } else {
  78                 $search = (!empty($_GET['search']) ? Strings::escapeTags(trim(rawurldecode($_GET['search']))) : '');
  79         }
  80
  81         $tpl = Renderer::getMarkupTemplate('directory_header.tpl');
  82
  83         $globaldir = '';
  84         $gdirpath = Config::get('system', 'directory');
  85         if (strlen($gdirpath)) {
  86                 $globaldir = '<ul><li><div id="global-directory-link"><a href="'
  87                         . Profile::zrl($gdirpath, true) . '">' . L10n::t('Global Directory') . '</a></div></li></ul>';
  88         }
  89
  90         $admin = '';
  91
  92         $o .= Renderer::replaceMacros($tpl, [
  93                 '$search'    => $search,
  94                 '$globaldir' => $globaldir,
  95                 '$desc'      => L10n::t('Find on this site'),
  96                 '$admin'     => $admin,
  97                 '$finding'   => (strlen($search) ? '<h4>' . L10n::t('Finding: ') . "'" . $search . "'" . '</h4>' : ""),
  98                 '$sitedir'   => L10n::t('Site Directory'),
  99                 '$submit'    => L10n::t('Find')
 100         ]);
 101
 102         $sql_extra = '';
 103         if (strlen($search)) {
 104                 $sql_extra = " AND MATCH (`profile`.`name`, `user`.`nickname`, `pdesc`, `locality`,`region`,`country-name`,"
 105                         . "`gender`,`marital`,`sexual`,`about`,`romance`,`work`,`education`,`pub_keywords`,`prv_keywords` )"
 106                         . " AGAINST ('" . DBA::escape($search) . "' IN BOOLEAN MODE) ";
 107         }
 108
 109         $publish = Config::get('system', 'publish_all') ? '' : " AND `publish` = 1 ";
 110
 111         $total = 0;
 112         $r = q("SELECT COUNT(*) AS `total` FROM `profile` LEFT JOIN `user` ON `user`.`uid` = `profile`.`uid`"
 113                 . " WHERE `is-default` = 1 $publish AND `user`.`blocked` = 0 AND `page-flags` = 2 $sql_extra ");
 114         if (DBA::isResult($r)) {
 115                 $total = $r[0]['total'];
 116         }
 117
 118         $pager = new Pager($a->query_string, 60);
 119
 120         $order = " ORDER BY `name` ASC ";
 121
 122         $r = q("SELECT `profile`.*, `profile`.`uid` AS `profile_uid`, `user`.`nickname`, `user`.`timezone` , `user`.`page-flags`"
 123                 . " FROM `profile` LEFT JOIN `user` ON `user`.`uid` = `profile`.`uid` WHERE `is-default` = 1 $publish"
 124                 . " AND `user`.`blocked` = 0 AND `page-flags` = 2 $sql_extra $order LIMIT %d , %d ",
 125                 $pager->getStart(),
 126                 $pager->getItemsPerPage()
 127         );
 128
 129         if (DBA::isResult($r)) {
 130                 if (in_array('small', $a->argv)) {
 131                         $photo = 'thumb';
 132                 } else {
 133                         $photo = 'photo';
 134                 }
 135
 136                 foreach ($r as $rr) {
 137                         $profile_link = $a->getBaseURL() . '/profile/' . ((strlen($rr['nickname'])) ? $rr['nickname'] : $rr['profile_uid']);
 138
 139                         $pdesc = (($rr['pdesc']) ? $rr['pdesc'] . '<br />' : '');
 140
 141                         $details = '';
 142                         if (strlen($rr['locality'])) {
 143                                 $details .= $rr['locality'];
 144                         }
 145
 146                         if (strlen($rr['region'])) {
 147                                 if (strlen($rr['locality'])) {
 148                                         $details .= ', ';
 149                                 }
 150                                 $details .= $rr['region'];
 151                         }
 152                         if (strlen($rr['country-name'])) {
 153                                 if (strlen($details)) {
 154                                         $details .= ', ';
 155                                 }
 156                                 $details .= $rr['country-name'];
 157                         }
 158
 159                         if (strlen($rr['dob']) && ($years = Temporal::getAgeByTimezone($rr['dob'], $rr['timezone'], '')) != 0) {
 160                                 $details .= '<br />' . L10n::t('Age: ') . $years;
 161                         }
 162
 163                         if (strlen($rr['gender'])) {
 164                                 $details .= '<br />' . L10n::t('Gender: ') . $rr['gender'];
 165                         }
 166
 167                         switch ($rr['page-flags']) {
 168                                 case Contact::PAGE_NORMAL   : $page_type = "Personal Profile"; break;
 169                                 case Contact::PAGE_SOAPBOX  : $page_type = "Fan Page"        ; break;
 170                                 case Contact::PAGE_COMMUNITY: $page_type = "Community Forum" ; break;
 171                                 case Contact::PAGE_FREELOVE : $page_type = "Open Forum"      ; break;
 172                                 case Contact::PAGE_PRVGROUP : $page_type = "Private Group"   ; break;
 173                         }
 174
 175                         $profile = $rr;
 176
 177                         $location = '';
 178                         if (!empty($profile['address'])
 179                                 || !empty($profile['locality'])
 180                                 || !empty($profile['region'])
 181                                 || !empty($profile['postal-code'])
 182                                 || !empty($profile['country-name'])
 183                         ) {
 184                                 $location = L10n::t('Location:');
 185                         }
 186
 187                         $gender   = !empty($profile['gender'])   ? L10n::t('Gender:')   : false;
 188                         $marital  = !empty($profile['marital'])  ? L10n::t('Status:')   : false;
 189                         $homepage = !empty($profile['homepage']) ? L10n::t('Homepage:') : false;
 190                         $about    = !empty($profile['about'])    ? L10n::t('About:')    : false;
 191
 192                         $tpl = Renderer::getMarkupTemplate('forumdirectory_item.tpl', 'addon/forumdirectory/');
 193
 194                         $entry = Renderer::replaceMacros($tpl, [
 195                                 '$id'           => $rr['id'],
 196                                 '$profile_link' => $profile_link,
 197                                 '$photo'        => $rr[$photo],
 198                                 '$alt_text'     => $rr['name'],
 199                                 '$name'         => $rr['name'],
 200                                 '$details'      => $pdesc . $details,
 201                                 '$page_type'    => $page_type,
 202                                 '$profile'      => $profile,
 203                                 '$location'     => $location,
 204                                 '$gender'       => $gender,
 205                                 '$pdesc'        => $pdesc,
 206                                 '$marital'      => $marital,
 207                                 '$homepage'     => $homepage,
 208                                 '$about'        => $about,
 209                         ]);
 210
 211                         $o .= $entry;
 212                 }
 213
 214                 $o .= "<div class=\"directory-end\" ></div>\r\n";
 215                 $o .= $pager->renderFull($total);
 216         } else {
 217                 info(L10n::t("No entries \x28some entries may be hidden\x29.") . EOL);
 218         }
 219
 220         return $o;
 221 }