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