3 * @file include/discover_poco.php
5 use Friendica\Core\Cache;
6 use Friendica\Core\Config;
7 use Friendica\Core\Worker;
8 use Friendica\Database\DBM;
9 use Friendica\Model\GlobalContact;
10 use Friendica\Network\Probe;
11 use Friendica\Protocol\PortableContact;
13 require_once 'include/datetime.php';
15 function discover_poco_run(&$argv, &$argc)
18 This function can be called in these ways:
19 - dirsearch <search pattern>: Searches for "search pattern" in the directory. "search pattern" is url encoded.
20 - checkcontact: Updates gcontact entries
21 - suggestions: Discover other servers for their contacts.
22 - server <poco url>: Searches for the poco server list. "poco url" is base64 encoded.
23 - update_server: Frequently check the first 250 servers for vitality.
24 - update_server_directory: Discover the given server id for their contacts
25 - PortableContact::load: Load POCO data from a given POCO address
26 - check_profile: Update remote profile data
29 if (($argc > 2) && ($argv[1] == "dirsearch")) {
30 $search = urldecode($argv[2]);
32 } elseif (($argc == 2) && ($argv[1] == "checkcontact")) {
34 } elseif (($argc == 2) && ($argv[1] == "suggestions")) {
36 } elseif (($argc == 3) && ($argv[1] == "server")) {
38 } elseif (($argc == 2) && ($argv[1] == "update_server")) {
40 } elseif (($argc == 3) && ($argv[1] == "update_server_directory")) {
42 } elseif (($argc > 5) && ($argv[1] == "load")) {
44 } elseif (($argc == 3) && ($argv[1] == "check_profile")) {
46 } elseif ($argc == 1) {
50 logger("Unknown or missing parameter ".$argv[1]."\n");
54 logger('start '.$search);
58 PortableContact::lastUpdated($argv[2], true);
60 } elseif ($mode == 7) {
66 PortableContact::load(intval($argv[2]), intval($argv[3]), intval($argv[4]), $url);
67 } elseif ($mode == 6) {
68 PortableContact::discoverSingleServer(intval($argv[2]));
69 } elseif ($mode == 5) {
71 } elseif ($mode == 4) {
72 $server_url = $argv[2];
73 if ($server_url == "") {
76 $server_url = filter_var($server_url, FILTER_SANITIZE_URL);
77 if (substr(normalise_link($server_url), 0, 7) != "http://") {
80 $result = "Checking server ".$server_url." - ";
81 $ret = PortableContact::checkServer($server_url);
87 logger($result, LOGGER_DEBUG);
88 } elseif ($mode == 3) {
89 GlobalContact::updateSuggestions();
90 } elseif (($mode == 2) && Config::get('system', 'poco_completion')) {
92 } elseif (($mode == 1) && ($search != "") && Config::get('system', 'poco_local_search')) {
93 discover_directory($search);
94 gs_search_user($search);
95 } elseif (($mode == 0) && ($search == "") && (Config::get('system', 'poco_discovery') > 0)) {
96 // Query Friendica and Hubzilla servers for their users
97 PortableContact::discover();
99 // Query GNU Social servers for their users ("statistics" addon has to be enabled on the GS server)
100 if (!Config::get('system', 'ostatus_disabled')) {
101 GlobalContact::discoverGsUsers();
105 logger('end '.$search);
111 * @brief Updates the first 250 servers
114 function update_server() {
115 $r = q("SELECT `url`, `created`, `last_failure`, `last_contact` FROM `gserver` ORDER BY rand()");
117 if (!DBM::is_result($r)) {
123 foreach ($r AS $server) {
124 if (!PortableContact::updateNeeded($server["created"], "", $server["last_failure"], $server["last_contact"])) {
127 logger('Update server status for server '.$server["url"], LOGGER_DEBUG);
129 Worker::add(PRIORITY_LOW, "discover_poco", "server", $server["url"]);
131 if (++$updated > 250) {
137 function discover_users() {
138 logger("Discover users", LOGGER_DEBUG);
142 $users = q("SELECT `url`, `created`, `updated`, `last_failure`, `last_contact`, `server_url`, `network` FROM `gcontact`
143 WHERE `last_contact` < UTC_TIMESTAMP - INTERVAL 1 MONTH AND
144 `last_failure` < UTC_TIMESTAMP - INTERVAL 1 MONTH AND
145 `network` IN ('%s', '%s', '%s', '%s', '') ORDER BY rand()",
146 dbesc(NETWORK_DFRN), dbesc(NETWORK_DIASPORA),
147 dbesc(NETWORK_OSTATUS), dbesc(NETWORK_FEED));
154 foreach ($users AS $user) {
156 $urlparts = parse_url($user["url"]);
157 if (!isset($urlparts["scheme"])) {
158 q("UPDATE `gcontact` SET `network` = '%s' WHERE `nurl` = '%s'",
159 dbesc(NETWORK_PHANTOM), dbesc(normalise_link($user["url"])));
163 if (in_array($urlparts["host"], array("www.facebook.com", "facebook.com", "twitter.com",
164 "identi.ca", "alpha.app.net"))) {
165 $networks = array("www.facebook.com" => NETWORK_FACEBOOK,
166 "facebook.com" => NETWORK_FACEBOOK,
167 "twitter.com" => NETWORK_TWITTER,
168 "identi.ca" => NETWORK_PUMPIO,
169 "alpha.app.net" => NETWORK_APPNET);
171 q("UPDATE `gcontact` SET `network` = '%s' WHERE `nurl` = '%s'",
172 dbesc($networks[$urlparts["host"]]), dbesc(normalise_link($user["url"])));
176 $server_url = PortableContact::detectServer($user["url"]);
177 $force_update = false;
179 if ($user["server_url"] != "") {
181 $force_update = (normalise_link($user["server_url"]) != normalise_link($server_url));
183 $server_url = $user["server_url"];
186 if ((($server_url == "") && ($user["network"] == NETWORK_FEED)) || $force_update || PortableContact::checkServer($server_url, $user["network"])) {
187 logger('Check profile '.$user["url"]);
188 Worker::add(PRIORITY_LOW, "discover_poco", "check_profile", $user["url"]);
190 if (++$checked > 100) {
194 q("UPDATE `gcontact` SET `last_failure` = '%s' WHERE `nurl` = '%s'",
195 dbesc(datetime_convert()), dbesc(normalise_link($user["url"])));
198 // Quit the loop after 3 minutes
199 if (time() > ($starttime + 180)) {
205 function discover_directory($search) {
207 $data = Cache::get("dirsearch:".$search);
208 if (!is_null($data)) {
209 // Only search for the same item every 24 hours
210 if (time() < $data + (60 * 60 * 24)) {
211 logger("Already searched for ".$search." in the last 24 hours", LOGGER_DEBUG);
216 $x = fetch_url(get_server()."/lsearch?p=1&n=500&search=".urlencode($search));
217 $j = json_decode($x);
219 if (count($j->results)) {
220 foreach ($j->results as $jj) {
221 // Check if the contact already exists
222 $exists = q("SELECT `id`, `last_contact`, `last_failure`, `updated` FROM `gcontact` WHERE `nurl` = '%s'", normalise_link($jj->url));
223 if (DBM::is_result($exists)) {
224 logger("Profile ".$jj->url." already exists (".$search.")", LOGGER_DEBUG);
226 if (($exists[0]["last_contact"] < $exists[0]["last_failure"]) &&
227 ($exists[0]["updated"] < $exists[0]["last_failure"])) {
230 // Update the contact
231 PortableContact::lastUpdated($jj->url);
235 $server_url = PortableContact::detectServer($jj->url);
236 if ($server_url != '') {
237 if (!PortableContact::checkServer($server_url)) {
238 logger("Friendica server ".$server_url." doesn't answer.", LOGGER_DEBUG);
241 logger("Friendica server ".$server_url." seems to be okay.", LOGGER_DEBUG);
244 $data = Probe::uri($jj->url);
245 if ($data["network"] == NETWORK_DFRN) {
246 logger("Profile ".$jj->url." is reachable (".$search.")", LOGGER_DEBUG);
247 logger("Add profile ".$jj->url." to local directory (".$search.")", LOGGER_DEBUG);
249 if ($jj->tags != "") {
250 $data["keywords"] = $jj->tags;
253 $data["server_url"] = $data["baseurl"];
255 GlobalContact::update($data);
257 logger("Profile ".$jj->url." is not responding or no Friendica contact - but network ".$data["network"], LOGGER_DEBUG);
261 Cache::set("dirsearch:".$search, time(), CACHE_DAY);
265 * @brief Search for GNU Social user with gstools.org
267 * @param str $search User name
269 function gs_search_user($search) {
271 // Currently disabled, since the service isn't available anymore.
272 // It is not removed since I hope that there will be a successor.
277 $url = "http://gstools.org/api/users_search/".urlencode($search);
279 $result = z_fetch_url($url);
280 if (!$result["success"]) {
284 $contacts = json_decode($result["body"]);
286 if ($contacts->status == 'ERROR') {
290 /// @TODO AS is considered as a notation for constants (as they usually being written all upper-case)
291 /// @TODO find all those and convert to all lower-case which is a keyword then
292 foreach ($contacts->data AS $user) {
293 $contact = Probe::uri($user->site_address."/".$user->name);
294 if ($contact["network"] != NETWORK_PHANTOM) {
295 $contact["about"] = $user->description;
296 GlobalContact::update($contact);