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