mod/dirfind.php

   1 <?php
   2 /**
   3  * @file mod/dirfind.php
   4  */
   5
   6 use Friendica\App;
   7 use Friendica\Content\ContactSelector;
   8 use Friendica\Content\Pager;
   9 use Friendica\Content\Widget;
  10 use Friendica\Core\Config;
  11 use Friendica\Core\L10n;
  12 use Friendica\Core\Protocol;
  13 use Friendica\Core\Renderer;
  14 use Friendica\Core\System;
  15 use Friendica\Core\Worker;
  16 use Friendica\Database\DBA;
  17 use Friendica\Model;
  18 use Friendica\Module;
  19 use Friendica\Network\Probe;
  20 use Friendica\Protocol\PortableContact;
  21 use Friendica\Util\Network;
  22 use Friendica\Util\Proxy as ProxyUtils;
  23
  24
  25 function dirfind_init(App $a) {
  26
  27         if (! local_user()) {
  28                 notice(L10n::t('Permission denied.') . EOL );
  29                 return;
  30         }
  31
  32         if (! x($a->page,'aside')) {
  33                 $a->page['aside'] = '';
  34         }
  35
  36         $a->page['aside'] .= Widget::findPeople();
  37
  38         $a->page['aside'] .= Widget::follow();
  39 }
  40
  41 function dirfind_content(App $a, $prefix = "") {
  42
  43         $community = false;
  44         $discover_user = false;
  45
  46         $local = Config::get('system','poco_local_search');
  47
  48         $search = $prefix.notags(trim(defaults($_REQUEST, 'search', '')));
  49
  50         $header = '';
  51
  52         if (strpos($search,'@') === 0) {
  53                 $search = substr($search,1);
  54                 $header = L10n::t('People Search - %s', $search);
  55                 if ((valid_email($search) && Network::isEmailDomainValid($search)) ||
  56                         (substr(normalise_link($search), 0, 7) == "http://")) {
  57                         $user_data = Probe::uri($search);
  58                         $discover_user = (in_array($user_data["network"], [Protocol::ACTIVITYPUB, Protocol::DFRN, Protocol::OSTATUS, Protocol::DIASPORA]));
  59                 }
  60         }
  61
  62         if (strpos($search,'!') === 0) {
  63                 $search = substr($search,1);
  64                 $community = true;
  65                 $header = L10n::t('Forum Search - %s', $search);
  66         }
  67
  68         $o = '';
  69
  70         if ($search) {
  71                 $pager = new Pager($a->query_string);
  72
  73                 if ($discover_user) {
  74                         $j = new stdClass();
  75                         $j->total = 1;
  76                         $j->items_page = 1;
  77                         $j->page = $pager->getPage();
  78
  79                         $objresult = new stdClass();
  80                         $objresult->cid = 0;
  81                         $objresult->name = $user_data["name"];
  82                         $objresult->addr = $user_data["addr"];
  83                         $objresult->url = $user_data["url"];
  84                         $objresult->photo = $user_data["photo"];
  85                         $objresult->tags = "";
  86                         $objresult->network = $user_data["network"];
  87
  88                         $contact = Model\Contact::getDetailsByURL($user_data["url"], local_user());
  89                         $objresult->cid = $contact["cid"];
  90                         $objresult->pcid = $contact["zid"];
  91
  92                         $j->results[] = $objresult;
  93
  94                         // Add the contact to the global contacts if it isn't already in our system
  95                         if (($contact["cid"] == 0) && ($contact["zid"] == 0) && ($contact["gid"] == 0)) {
  96                                 Model\GContact::update($user_data);
  97                         }
  98                 } elseif ($local) {
  99                         if ($community) {
 100                                 $extra_sql = " AND `community`";
 101                         } else {
 102                                 $extra_sql = "";
 103                         }
 104
 105                         $pager->setItemsPerPage(80);
 106
 107                         if (Config::get('system','diaspora_enabled')) {
 108                                 $diaspora = Protocol::DIASPORA;
 109                         } else {
 110                                 $diaspora = Protocol::DFRN;
 111                         }
 112
 113                         if (!Config::get('system','ostatus_disabled')) {
 114                                 $ostatus = Protocol::OSTATUS;
 115                         } else {
 116                                 $ostatus = Protocol::DFRN;
 117                         }
 118
 119                         $search2 = "%".$search."%";
 120
 121                         /// @TODO These 2 SELECTs are not checked on validity with DBA::isResult()
 122                         $count = q("SELECT count(*) AS `total` FROM `gcontact`
 123                                         WHERE NOT `hide` AND `network` IN ('%s', '%s', '%s') AND
 124                                                 ((`last_contact` >= `last_failure`) OR (`updated` >= `last_failure`)) AND
 125                                                 (`url` LIKE '%s' OR `name` LIKE '%s' OR `location` LIKE '%s' OR
 126                                                 `addr` LIKE '%s' OR `about` LIKE '%s' OR `keywords` LIKE '%s') $extra_sql",
 127                                         DBA::escape(Protocol::DFRN), DBA::escape($ostatus), DBA::escape($diaspora),
 128                                         DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)),
 129                                         DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)));
 130
 131                         $results = q("SELECT `nurl`
 132                                         FROM `gcontact`
 133                                         WHERE NOT `hide` AND `network` IN ('%s', '%s', '%s') AND
 134                                                 ((`last_contact` >= `last_failure`) OR (`updated` >= `last_failure`)) AND
 135                                                 (`url` LIKE '%s' OR `name` LIKE '%s' OR `location` LIKE '%s' OR
 136                                                 `addr` LIKE '%s' OR `about` LIKE '%s' OR `keywords` LIKE '%s') $extra_sql
 137                                                 GROUP BY `nurl`
 138                                                 ORDER BY `updated` DESC LIMIT %d, %d",
 139                                         DBA::escape(Protocol::DFRN), DBA::escape($ostatus), DBA::escape($diaspora),
 140                                         DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)),
 141                                         DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)), DBA::escape(escape_tags($search2)),
 142                                         $pager->getStart(), $pager->getItemsPerPage());
 143                         $j = new stdClass();
 144                         $j->total = $count[0]["total"];
 145                         $j->items_page = $pager->getItemsPerPage();
 146                         $j->page = $pager->getPage();
 147                         foreach ($results AS $result) {
 148                                 if (PortableContact::alternateOStatusUrl($result["nurl"])) {
 149                                         continue;
 150                                 }
 151
 152                                 $urlparts = parse_url($result["nurl"]);
 153
 154                                 // Ignore results that look strange.
 155                                 // For historic reasons the gcontact table does contain some garbage.
 156                                 if (!empty($urlparts['query']) || !empty($urlparts['fragment'])) {
 157                                         continue;
 158                                 }
 159
 160                                 $result = Model\Contact::getDetailsByURL($result["nurl"], local_user());
 161
 162                                 if ($result["name"] == "") {
 163                                         $result["name"] = end(explode("/", $urlparts["path"]));
 164                                 }
 165
 166                                 $objresult = new stdClass();
 167                                 $objresult->cid = $result["cid"];
 168                                 $objresult->pcid = $result["zid"];
 169                                 $objresult->name = $result["name"];
 170                                 $objresult->addr = $result["addr"];
 171                                 $objresult->url = $result["url"];
 172                                 $objresult->photo = $result["photo"];
 173                                 $objresult->tags = $result["keywords"];
 174                                 $objresult->network = $result["network"];
 175
 176                                 $j->results[] = $objresult;
 177                         }
 178
 179                         // Add found profiles from the global directory to the local directory
 180                         Worker::add(PRIORITY_LOW, 'DiscoverPoCo', "dirsearch", urlencode($search));
 181                 } else {
 182                         $p = (($pager->getPage() != 1) ? '&p=' . $pager->getPage() : '');
 183
 184                         if (strlen(Config::get('system','directory'))) {
 185                                 $x = Network::fetchUrl(get_server() . '/lsearch?f=' . $p .  '&search=' . urlencode($search));
 186                         }
 187
 188                         $j = json_decode($x);
 189
 190                         $pager->setItemsPerPage($j->items_page);
 191                 }
 192
 193                 if (!empty($j->results)) {
 194                         $id = 0;
 195
 196                         foreach ($j->results as $jj) {
 197
 198                                 $alt_text = "";
 199
 200                                 $contact_details = Model\Contact::getDetailsByURL($jj->url, local_user());
 201
 202                                 $itemurl = (($contact_details["addr"] != "") ? $contact_details["addr"] : $jj->url);
 203
 204                                 // If We already know this contact then don't show the "connect" button
 205                                 if ($jj->cid > 0) {
 206                                         $connlnk = "";
 207                                         $conntxt = "";
 208                                         $contact = DBA::selectFirst('contact', [], ['id' => $jj->cid]);
 209                                         if (DBA::isResult($contact)) {
 210                                                 $photo_menu = Model\Contact::photoMenu($contact);
 211                                                 $details = Module\Contact::getContactTemplateVars($contact);
 212                                                 $alt_text = $details['alt_text'];
 213                                         } else {
 214                                                 $photo_menu = [];
 215                                         }
 216                                 } else {
 217                                         $connlnk = System::baseUrl().'/follow/?url='.(!empty($jj->connect) ? $jj->connect : $jj->url);
 218                                         $conntxt = L10n::t('Connect');
 219
 220                                         $contact = DBA::selectFirst('contact', [], ['id' => $jj->pcid]);
 221                                         if (DBA::isResult($contact)) {
 222                                                 $photo_menu = Model\Contact::photoMenu($contact);
 223                                         } else {
 224                                                 $photo_menu = [];
 225                                         }
 226
 227                                         $photo_menu['profile'] = [L10n::t("View Profile"), Model\Contact::magicLink($jj->url)];
 228                                         $photo_menu['follow'] = [L10n::t("Connect/Follow"), $connlnk];
 229                                 }
 230
 231                                 $jj->photo = str_replace("http:///photo/", get_server()."/photo/", $jj->photo);
 232
 233                                 $entry = [
 234                                         'alt_text' => $alt_text,
 235                                         'url' => Model\Contact::magicLink($jj->url),
 236                                         'itemurl' => $itemurl,
 237                                         'name' => htmlentities($jj->name),
 238                                         'thumb' => ProxyUtils::proxifyUrl($jj->photo, false, ProxyUtils::SIZE_THUMB),
 239                                         'img_hover' => $jj->tags,
 240                                         'conntxt' => $conntxt,
 241                                         'connlnk' => $connlnk,
 242                                         'photo_menu' => $photo_menu,
 243                                         'details'       => $contact_details['location'],
 244                                         'tags'          => $contact_details['keywords'],
 245                                         'about'         => $contact_details['about'],
 246                                         'account_type'  => Model\Contact::getAccountType($contact_details),
 247                                         'network' => ContactSelector::networkToName($jj->network, $jj->url),
 248                                         'id' => ++$id,
 249                                 ];
 250                                 $entries[] = $entry;
 251                         }
 252
 253                         $tpl = Renderer::getMarkupTemplate('viewcontact_template.tpl');
 254                         $o .= Renderer::replaceMacros($tpl,[
 255                                 'title' => $header,
 256                                 '$contacts' => $entries,
 257                                 '$paginate' => $pager->renderFull($j->total),
 258                         ]);
 259                 } else {
 260                         info(L10n::t('No matches') . EOL);
 261                 }
 262
 263         }
 264
 265         return $o;
 266 }