3 * @file mod/dirfind.php
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;
19 use Friendica\Network\Probe;
20 use Friendica\Protocol\PortableContact;
21 use Friendica\Util\Network;
22 use Friendica\Util\Proxy as ProxyUtils;
25 function dirfind_init(App $a) {
28 notice(L10n::t('Permission denied.') . EOL );
32 if (! x($a->page,'aside')) {
33 $a->page['aside'] = '';
36 $a->page['aside'] .= Widget::findPeople();
38 $a->page['aside'] .= Widget::follow();
41 function dirfind_content(App $a, $prefix = "") {
44 $discover_user = false;
46 $local = Config::get('system','poco_local_search');
48 $search = $prefix.notags(trim(defaults($_REQUEST, 'search', '')));
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]));
62 if (strpos($search,'!') === 0) {
63 $search = substr($search,1);
65 $header = L10n::t('Forum Search - %s', $search);
71 $pager = new Pager($a->query_string);
77 $j->page = $pager->getPage();
79 $objresult = new stdClass();
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"];
88 $contact = Model\Contact::getDetailsByURL($user_data["url"], local_user());
89 $objresult->cid = $contact["cid"];
90 $objresult->pcid = $contact["zid"];
92 $j->results[] = $objresult;
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);
100 $extra_sql = " AND `community`";
105 $pager->setItemsPerPage(80);
107 if (Config::get('system','diaspora_enabled')) {
108 $diaspora = Protocol::DIASPORA;
110 $diaspora = Protocol::DFRN;
113 if (!Config::get('system','ostatus_disabled')) {
114 $ostatus = Protocol::OSTATUS;
116 $ostatus = Protocol::DFRN;
119 $search2 = "%".$search."%";
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)));
131 $results = q("SELECT `nurl`
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
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());
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"])) {
152 $urlparts = parse_url($result["nurl"]);
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'])) {
160 $result = Model\Contact::getDetailsByURL($result["nurl"], local_user());
162 if ($result["name"] == "") {
163 $result["name"] = end(explode("/", $urlparts["path"]));
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"];
176 $j->results[] = $objresult;
179 // Add found profiles from the global directory to the local directory
180 Worker::add(PRIORITY_LOW, 'DiscoverPoCo', "dirsearch", urlencode($search));
182 $p = (($pager->getPage() != 1) ? '&p=' . $pager->getPage() : '');
184 if (strlen(Config::get('system','directory'))) {
185 $x = Network::fetchUrl(get_server() . '/lsearch?f=' . $p . '&search=' . urlencode($search));
188 $j = json_decode($x);
190 $pager->setItemsPerPage($j->items_page);
193 if (!empty($j->results)) {
196 foreach ($j->results as $jj) {
200 $contact_details = Model\Contact::getDetailsByURL($jj->url, local_user());
202 $itemurl = (($contact_details["addr"] != "") ? $contact_details["addr"] : $jj->url);
204 // If We already know this contact then don't show the "connect" button
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'];
217 $connlnk = System::baseUrl().'/follow/?url='.(!empty($jj->connect) ? $jj->connect : $jj->url);
218 $conntxt = L10n::t('Connect');
220 $contact = DBA::selectFirst('contact', [], ['id' => $jj->pcid]);
221 if (DBA::isResult($contact)) {
222 $photo_menu = Model\Contact::photoMenu($contact);
227 $photo_menu['profile'] = [L10n::t("View Profile"), Model\Contact::magicLink($jj->url)];
228 $photo_menu['follow'] = [L10n::t("Connect/Follow"), $connlnk];
231 $jj->photo = str_replace("http:///photo/", get_server()."/photo/", $jj->photo);
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),
253 $tpl = Renderer::getMarkupTemplate('viewcontact_template.tpl');
254 $o .= Renderer::replaceMacros($tpl,[
256 '$contacts' => $entries,
257 '$paginate' => $pager->renderFull($j->total),
260 info(L10n::t('No matches') . EOL);