5 * Description: Provides a Facebook-like chat using Jappix Mini
7 * Author: leberwurscht <leberwurscht@hoegners.de>
12 // Copyright 2012 "Leberwurscht" <leberwurscht@hoegners.de>
14 // This file is dual-licensed under the MIT license (see MIT.txt) and the AGPL license (see jappix/COPYING).
20 * jabber password should not be stored on server
21 * jabber password should not be sent between server and browser as soon as the user is logged in
22 * jabber password should not be reconstructible from communication between server and browser as soon as the user is logged in
25 Only store an encrypted version of the jabber password on the server. The encryption key is only available to the browser
26 and not to the server (at least as soon as the user is logged in). It can be stored using the jappix setDB function.
28 This encryption key could be the friendica password, but then this password would be stored in the browser in cleartext.
29 It is better to use a hash of the password.
30 The server should not be able to reconstruct the password, so we can't take the same hash the server stores. But we can
31 use hash("some_prefix"+password). This will however not work with OpenID logins, for this type of login the password must
35 How to discover the jabber addresses of the friendica contacts?
38 Each Friendica site with this addon provides a /jappixmini/ module page. We go through our contacts and retrieve
39 this information every week using a cron hook.
42 We do not want to make the jabber address public.
45 When two friendica users connect using DFRN, the relation gets a DFRN ID and a keypair is generated.
46 Using this keypair, we can provide the jabber address only to contacts:
49 signed_address = openssl_*_encrypt(alice_jabber_address)
50 send signed_address to Bob, who does
51 trusted_address = openssl_*_decrypt(signed_address)
53 encrypted_address = openssl_*_encrypt(bob_jabber_address)
54 reply with encrypted_address to Alice, who does
55 decrypted_address = openssl_*_decrypt(encrypted_address)
56 save decrypted_address
59 GET /jappixmini/?role=%s&signed_address=%s&dfrn_id=%s
62 json({"status":"ok", "encrypted_address":"%s"})
66 use Friendica\Core\Config;
67 use Friendica\Core\PConfig;
69 function jappixmini_install() {
70 register_hook('plugin_settings', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings');
71 register_hook('plugin_settings_post', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings_post');
73 register_hook('page_end', 'addon/jappixmini/jappixmini.php', 'jappixmini_script');
74 register_hook('authenticate', 'addon/jappixmini/jappixmini.php', 'jappixmini_login');
76 register_hook('cron', 'addon/jappixmini/jappixmini.php', 'jappixmini_cron');
78 // Jappix source download as required by AGPL
79 register_hook('about_hook', 'addon/jappixmini/jappixmini.php', 'jappixmini_download_source');
81 // set standard configuration
82 $info_text = Config::get("jappixmini", "infotext");
83 if (!$info_text) set_confConfig::setig("jappixmini", "infotext",
84 "To get the chat working, you need to know a BOSH host which works with your Jabber account. ".
85 "An example of a BOSH server that works for all accounts is https://bind.jappix.com/, but keep ".
86 "in mind that the BOSH server can read along all chat messages. If you know that your Jabber ".
87 "server also provides an own BOSH server, it is much better to use this one!"
90 $bosh_proxy = Config::get("jappixmini", "bosh_proxy");
91 if ($bosh_proxy==="") Config::set("jappixmini", "bosh_proxy", "1");
93 // set addon version so that safe updates are possible later
94 $addon_version = Config::get("jappixmini", "version");
95 if ($addon_version==="") Config::set("jappixmini", "version", "1");
99 function jappixmini_uninstall() {
100 unregister_hook('plugin_settings', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings');
101 unregister_hook('plugin_settings_post', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings_post');
103 unregister_hook('page_end', 'addon/jappixmini/jappixmini.php', 'jappixmini_script');
104 unregister_hook('authenticate', 'addon/jappixmini/jappixmini.php', 'jappixmini_login');
106 unregister_hook('cron', 'addon/jappixmini/jappixmini.php', 'jappixmini_cron');
108 unregister_hook('about_hook', 'addon/jappixmini/jappixmini.php', 'jappixmini_download_source');
111 function jappixmini_plugin_admin(&$a, &$o) {
112 // display instructions and warnings on addon settings page for admin
114 if (!file_exists("addon/jappixmini.tgz")) {
115 $o .= '<p><strong style="color:#fff;background-color:#f00">The source archive jappixmini.tgz does not exist. This is probably a violation of the Jappix License (AGPL).</strong></p>';
118 // warn if cron job has not yet been executed
119 $cron_run = Config::get("jappixmini", "last_cron_execution");
120 if (!$cron_run) $o .= "<p><strong>Warning: The cron job has not yet been executed. If this message is still there after some time (usually 10 minutes), this means that autosubscribe and autoaccept will not work.</strong></p>";
123 $bosh_proxy = intval(Config::get("jappixmini", "bosh_proxy"));
124 $bosh_proxy = intval($bosh_proxy) ? ' checked="checked"' : '';
125 $o .= '<label for="jappixmini-proxy">Activate BOSH proxy</label>';
126 $o .= ' <input id="jappixmini-proxy" type="checkbox" name="jappixmini-proxy" value="1"'.$bosh_proxy.' /><br />';
129 $bosh_address = Config::get("jappixmini", "bosh_address");
130 $o .= '<p><label for="jappixmini-address">Adress of the default BOSH proxy. If enabled it overrides the user settings:</label><br />';
131 $o .= '<input id="jappixmini-address" type="text" name="jappixmini-address" value="'.$bosh_address.'" /></p>';
133 // default server address
134 $default_server = Config::get("jappixmini", "default_server");
135 $o .= '<p><label for="jappixmini-server">Adress of the default jabber server:</label><br />';
136 $o .= '<input id="jappixmini-server" type="text" name="jappixmini-server" value="'.$default_server.'" /></p>';
138 // default user name to friendica nickname
139 $default_user = intval(Config::get("jappixmini", "default_user"));
140 $default_user = intval($default_user) ? ' checked="checked"' : '';
141 $o .= '<label for="jappixmini-user">Set the default username to the nickname:</label>';
142 $o .= ' <input id="jappixmini-user" type="checkbox" name="jappixmini-defaultuser" value="1"'.$default_user.' /><br />';
145 $info_text = Config::get("jappixmini", "infotext");
146 $o .= '<p><label for="jappixmini-infotext">Info text to help users with configuration (important if you want to provide your own BOSH host!):</label><br />';
147 $o .= '<textarea id="jappixmini-infotext" name="jappixmini-infotext" rows="5" cols="50">'.htmlentities($info_text).'</textarea></p>';
150 $o .= '<input type="submit" name="jappixmini-admin-settings" value="OK" />';
153 function jappixmini_plugin_admin_post(&$a) {
155 $submit = $_REQUEST['jappixmini-admin-settings'];
157 $info_text = $_REQUEST['jappixmini-infotext'];
158 $bosh_proxy = intval($_REQUEST['jappixmini-proxy']);
159 $default_user = intval($_REQUEST['jappixmini-defaultuser']);
160 $bosh_address = $_REQUEST['jappixmini-address'];
161 $default_server = $_REQUEST['jappixmini-server'];
162 Config::set("jappixmini", "infotext", $info_text);
163 Config::set("jappixmini", "bosh_proxy", $bosh_proxy);
164 Config::set("jappixmini", "bosh_address", $bosh_address);
165 Config::set("jappixmini", "default_server", $default_server);
166 Config::set("jappixmini", "default_user", $default_user);
170 function jappixmini_module() {}
171 function jappixmini_init(&$a) {
172 // module page where other Friendica sites can submit Jabber addresses to and also can query Jabber addresses
175 $dfrn_id = $_REQUEST["dfrn_id"];
176 if (!$dfrn_id) killme();
178 $role = $_REQUEST["role"];
180 $r = q("SELECT * FROM `contact` WHERE LENGTH(`pubkey`) AND `dfrn-id`='%s' LIMIT 1",
183 if (!count($r)) killme();
185 $encrypt_func = openssl_public_encrypt;
186 $decrypt_func = openssl_public_decrypt;
187 $key = $r[0]["pubkey"];
188 } else if ($role=="prv") {
189 $r = q("SELECT * FROM `contact` WHERE LENGTH(`prvkey`) AND `issued-id`='%s' LIMIT 1",
192 if (!count($r)) killme();
194 $encrypt_func = openssl_private_encrypt;
195 $decrypt_func = openssl_private_decrypt;
196 $key = $r[0]["prvkey"];
203 // save the Jabber address we received
205 $signed_address_hex = $_REQUEST["signed_address"];
206 $signed_address = hex2bin($signed_address_hex);
208 $trusted_address = "";
209 $decrypt_func($signed_address, $trusted_address, $key);
211 $now = intval(time());
212 PConfig::set($uid, "jappixmini", "id:$dfrn_id", "$now:$trusted_address");
213 } catch (Exception $e) {
216 // do not return an address if user deactivated plugin
217 $activated = PConfig::get($uid, 'jappixmini', 'activate');
218 if (!$activated) killme();
220 // return the requested Jabber address
222 $username = PConfig::get($uid, 'jappixmini', 'username');
223 $server = PConfig::get($uid, 'jappixmini', 'server');
224 $address = "$username@$server";
226 $encrypted_address = "";
227 $encrypt_func($address, $encrypted_address, $key);
229 $encrypted_address_hex = bin2hex($encrypted_address);
233 "encrypted_address"=>$encrypted_address_hex
236 $answer_json = json_encode($answer);
239 } catch (Exception $e) {
244 function jappixmini_settings(&$a, &$s) {
245 // addon settings for a user
247 $activate = PConfig::get(local_user(),'jappixmini','activate');
248 $activate = intval($activate) ? ' checked="checked"' : '';
249 $dontinsertchat = PConfig::get(local_user(),'jappixmini','dontinsertchat');
250 $insertchat = !(intval($dontinsertchat) ? ' checked="checked"' : '');
252 $defaultbosh = Config::get("jappixmini", "bosh_address");
254 if ($defaultbosh != "")
255 PConfig::set(local_user(),'jappixmini','bosh', $defaultbosh);
257 $username = PConfig::get(local_user(),'jappixmini','username');
258 $username = htmlentities($username);
259 $server = PConfig::get(local_user(),'jappixmini','server');
260 $server = htmlentities($server);
261 $bosh = PConfig::get(local_user(),'jappixmini','bosh');
262 $bosh = htmlentities($bosh);
263 $password = PConfig::get(local_user(),'jappixmini','password');
264 $autosubscribe = PConfig::get(local_user(),'jappixmini','autosubscribe');
265 $autosubscribe = intval($autosubscribe) ? ' checked="checked"' : '';
266 $autoapprove = PConfig::get(local_user(),'jappixmini','autoapprove');
267 $autoapprove = intval($autoapprove) ? ' checked="checked"' : '';
268 $encrypt = intval(PConfig::get(local_user(),'jappixmini','encrypt'));
269 $encrypt_checked = $encrypt ? ' checked="checked"' : '';
270 $encrypt_disabled = $encrypt ? '' : ' disabled="disabled"';
273 $server = Config::get("jappixmini", "default_server");
275 if (($username == "") && Config::get("jappixmini", "default_user"))
276 $username = $a->user["nickname"];
278 $info_text = Config::get("jappixmini", "infotext");
279 $info_text = htmlentities($info_text);
280 $info_text = str_replace("\n", "<br />", $info_text);
283 $r = q("SELECT COUNT(1) as `cnt` FROM `pconfig` WHERE `uid`=%d AND `cat`='jappixmini' AND `k` LIKE 'id:%%'", local_user());
284 if (count($r)) $contact_cnt = $r[0]["cnt"];
285 else $contact_cnt = 0;
287 // count jabber addresses
288 $r = q("SELECT COUNT(1) as `cnt` FROM `pconfig` WHERE `uid`=%d AND `cat`='jappixmini' AND `k` LIKE 'id:%%' AND `v` LIKE '%%@%%'", local_user());
289 if (count($r)) $address_cnt = $r[0]["cnt"];
290 else $address_cnt = 0;
293 // load scripts if not yet activated so that password can be saved
294 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&g=mini.xml"></script>'."\r\n";
295 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&f=presence.js~caps.js~name.js~roster.js"></script>'."\r\n";
297 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/lib.js"></script>'."\r\n";
300 $s .= '<span id="settings_jappixmini_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_jappixmini_expanded\'); openClose(\'settings_jappixmini_inflated\');">';
301 $s .= '<h3>'.t('Jappix Mini').'</h3>';
303 $s .= '<div id="settings_jappixmini_expanded" class="settings-block" style="display: none;">';
304 $s .= '<span class="fakelink" onclick="openClose(\'settings_jappixmini_expanded\'); openClose(\'settings_jappixmini_inflated\');">';
305 $s .= '<h3>'.t('Jappix Mini').'</h3>';
308 $s .= '<label for="jappixmini-activate">'.t('Activate addon').'</label>';
309 $s .= ' <input id="jappixmini-activate" type="checkbox" name="jappixmini-activate" value="1"'.$activate.' />';
311 $s .= '<label for"jappixmini-dont-insertchat">'.t('Do <em>not</em> insert the Jappixmini Chat-Widget into the webinterface').'</label>';
312 $s .= '<input id="jappixmini-dont-insertchat" type="checkbox" name="jappixmini-dont-insertchat" value="1"'.$insertchat.' />';
314 $s .= '<label for="jappixmini-username">'.t('Jabber username').'</label>';
315 $s .= ' <input id="jappixmini-username" type="text" name="jappixmini-username" value="'.$username.'" />';
317 $s .= '<label for="jappixmini-server">'.t('Jabber server').'</label>';
318 $s .= ' <input id="jappixmini-server" type="text" name="jappixmini-server" value="'.$server.'" />';
321 if ($defaultbosh == "") {
322 $s .= '<label for="jappixmini-bosh">'.t('Jabber BOSH host').'</label>';
323 $s .= ' <input id="jappixmini-bosh" type="text" name="jappixmini-bosh" value="'.$bosh.'" />';
328 $s .= '<label for="jappixmini-password">'.t('Jabber password').'</label>';
329 $s .= ' <input type="hidden" id="jappixmini-password" name="jappixmini-encrypted-password" value="'.$password.'" />';
330 $s .= ' <input id="jappixmini-clear-password" type="password" value="" onchange="jappixmini_set_password();" />';
332 $onchange = "document.getElementById('jappixmini-friendica-password').disabled = !this.checked;jappixmini_set_password();";
333 $s .= '<label for="jappixmini-encrypt">'.t('Encrypt Jabber password with Friendica password (recommended)').'</label>';
334 $s .= ' <input id="jappixmini-encrypt" type="checkbox" name="jappixmini-encrypt" onchange="'.$onchange.'" value="1"'.$encrypt_checked.' />';
336 $s .= '<label for="jappixmini-friendica-password">'.t('Friendica password').'</label>';
337 $s .= ' <input id="jappixmini-friendica-password" name="jappixmini-friendica-password" type="password" onchange="jappixmini_set_password();" value=""'.$encrypt_disabled.' />';
339 $s .= '<label for="jappixmini-autoapprove">'.t('Approve subscription requests from Friendica contacts automatically').'</label>';
340 $s .= ' <input id="jappixmini-autoapprove" type="checkbox" name="jappixmini-autoapprove" value="1"'.$autoapprove.' />';
342 $s .= '<label for="jappixmini-autosubscribe">'.t('Subscribe to Friendica contacts automatically').'</label>';
343 $s .= ' <input id="jappixmini-autosubscribe" type="checkbox" name="jappixmini-autosubscribe" value="1"'.$autosubscribe.' />';
345 $s .= '<label for="jappixmini-purge">'.t('Purge internal list of jabber addresses of contacts').'</label>';
346 $s .= ' <input id="jappixmini-purge" type="checkbox" name="jappixmini-purge" value="1" />';
348 if ($info_text) $s .= '<br />Configuration help:<p style="margin-left:2em;">'.$info_text.'</p>';
349 $s .= '<br />Status:<p style="margin-left:2em;">Addon knows '.$address_cnt.' Jabber addresses of '.$contact_cnt.' Friendica contacts (takes some time, usually 10 minutes, to update).</p>';
350 $s .= '<input type="submit" name="jappixmini-submit" value="' . t('Save Settings') . '" />';
351 $s .= ' <input type="button" value="'.t('Add contact').'" onclick="jappixmini_addon_subscribe();" />';
355 $a->page['htmlhead'] .= "<script type=\"text/javascript\">
356 function jappixmini_set_password() {
357 encrypt = document.getElementById('jappixmini-encrypt').checked;
358 password = document.getElementById('jappixmini-password');
359 clear_password = document.getElementById('jappixmini-clear-password');
361 friendica_password = document.getElementById('jappixmini-friendica-password');
363 if (friendica_password) {
364 jappixmini_addon_set_client_secret(friendica_password.value);
365 jappixmini_addon_encrypt_password(clear_password.value, function(encrypted_password){
366 password.value = encrypted_password;
371 password.value = clear_password.value;
375 jQuery(document).ready(function() {
376 encrypt = document.getElementById('jappixmini-encrypt').checked;
377 password = document.getElementById('jappixmini-password');
378 clear_password = document.getElementById('jappixmini-clear-password');
380 jappixmini_addon_decrypt_password(password.value, function(decrypted_password){
381 clear_password.value = decrypted_password;
385 clear_password.value = password.value;
391 function jappixmini_settings_post(&$a,&$b) {
392 // save addon settings for a user
394 if(! local_user()) return;
397 if($_POST['jappixmini-submit']) {
398 $encrypt = intval($b['jappixmini-encrypt']);
400 // check that Jabber password was encrypted with correct Friendica password
401 $friendica_password = trim($b['jappixmini-friendica-password']);
402 $encrypted = hash('whirlpool',$friendica_password);
403 $r = q("SELECT * FROM `user` WHERE `uid`=$uid AND `password`='%s'",
407 info("Wrong friendica password!");
412 $purge = intval($b['jappixmini-purge']);
414 $username = trim($b['jappixmini-username']);
415 $old_username = PConfig::get($uid,'jappixmini','username');
416 if ($username!=$old_username) $purge = 1;
418 $server = trim($b['jappixmini-server']);
419 $old_server = PConfig::get($uid,'jappixmini','server');
420 if ($server!=$old_server) $purge = 1;
422 PConfig::set($uid,'jappixmini','username',$username);
423 PConfig::set($uid,'jappixmini','server',$server);
424 PConfig::set($uid,'jappixmini','bosh',trim($b['jappixmini-bosh']));
425 PConfig::set($uid,'jappixmini','password',trim($b['jappixmini-encrypted-password']));
426 PConfig::set($uid,'jappixmini','autosubscribe',intval($b['jappixmini-autosubscribe']));
427 PConfig::set($uid,'jappixmini','autoapprove',intval($b['jappixmini-autoapprove']));
428 PConfig::set($uid,'jappixmini','activate',intval($b['jappixmini-activate']));
429 PConfig::set($uid,'jappixmini','dontinsertchat',intval($b['jappixmini-dont-insertchat']));
430 PConfig::set($uid,'jappixmini','encrypt',$encrypt);
431 info( 'Jappix Mini settings saved.' );
434 q("DELETE FROM `pconfig` WHERE `uid`=$uid AND `cat`='jappixmini' AND `k` LIKE 'id:%%'");
435 info( 'List of addresses purged.' );
440 function jappixmini_script(&$a,&$s) {
441 // adds the script to the page header which starts Jappix Mini
443 if(! local_user()) return;
445 if ($_GET["mode"] == "minimal")
448 $activate = PConfig::get(local_user(),'jappixmini','activate');
449 $dontinsertchat = PConfig::get(local_user(), 'jappixmini','dontinsertchat');
450 if (!$activate || $dontinsertchat) return;
452 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&g=mini.xml"></script>'."\r\n";
453 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&f=presence.js~caps.js~name.js~roster.js"></script>'."\r\n";
455 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/lib.js"></script>'."\r\n";
457 $username = PConfig::get(local_user(),'jappixmini','username');
458 $username = str_replace("'", "\\'", $username);
459 $server = PConfig::get(local_user(),'jappixmini','server');
460 $server = str_replace("'", "\\'", $server);
461 $bosh = PConfig::get(local_user(),'jappixmini','bosh');
462 $bosh = str_replace("'", "\\'", $bosh);
463 $encrypt = PConfig::get(local_user(),'jappixmini','encrypt');
464 $encrypt = intval($encrypt);
465 $password = PConfig::get(local_user(),'jappixmini','password');
466 $password = str_replace("'", "\\'", $password);
468 $autoapprove = PConfig::get(local_user(),'jappixmini','autoapprove');
469 $autoapprove = intval($autoapprove);
470 $autosubscribe = PConfig::get(local_user(),'jappixmini','autosubscribe');
471 $autosubscribe = intval($autosubscribe);
473 // set proxy if necessary
474 $use_proxy = Config::get('jappixmini','bosh_proxy');
476 $proxy = $a->get_baseurl().'/addon/jappixmini/proxy.php';
482 // get a list of jabber accounts of the contacts
485 $rows = q("SELECT * FROM `pconfig` WHERE `uid`=$uid AND `cat`='jappixmini' AND `k` LIKE 'id:%%'");
486 foreach ($rows as $row) {
488 $pos = strpos($key, ":");
489 $dfrn_id = substr($key, $pos+1);
490 $r = q("SELECT `name` FROM `contact` WHERE `uid`=$uid AND (`dfrn-id`='%s' OR `issued-id`='%s')",
495 $name = $r[0]["name"];
498 $pos = strpos($value, ":");
499 $address = substr($value, $pos+1);
500 if (!$address) continue;
501 if (!$name) $name = $address;
503 $contacts[$address] = $name;
505 $contacts_json = json_encode($contacts);
506 $contacts_hash = sha1($contacts_json);
509 $r = q("SELECT `username` FROM `user` WHERE `uid`=$uid");
510 $nickname = json_encode($r[0]["username"]);
511 $groupchats = Config::get('jappixmini','groupchats');
512 //if $groupchats has no value jappix_addon_start will produce a syntax error
513 if(empty($groupchats)){
517 // add javascript to start Jappix Mini
518 $a->page['htmlhead'] .= "<script type=\"text/javascript\">
519 jQuery(document).ready(function() {
520 jappixmini_addon_start('$server', '$username', '$proxy', '$bosh', $encrypt, '$password', $nickname, $contacts_json, '$contacts_hash', $autoapprove, $autosubscribe, $groupchats);
527 function jappixmini_login(&$a, &$o) {
528 // create client secret on login to be able to encrypt jabber passwords
530 // for setDB and str_sha1, needed by jappixmini_addon_set_client_secret
531 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&f=datastore.js~jsjac.js"></script>'."\r\n";
533 // for jappixmini_addon_set_client_secret
534 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/lib.js"></script>'."\r\n";
536 // save hash of password
537 $o = str_replace("<form ", "<form onsubmit=\"jappixmini_addon_set_client_secret(this.elements['id_password'].value);return true;\" ", $o);
540 function jappixmini_cron(&$a, $d) {
541 // For autosubscribe/autoapprove, we need to maintain a list of jabber addresses of our contacts.
543 Config::set("jappixmini", "last_cron_execution", $d);
545 // go through list of users with jabber enabled
546 $users = q("SELECT `uid` FROM `pconfig` WHERE `cat`='jappixmini' AND (`k`='autosubscribe' OR `k`='autoapprove') AND `v`='1'");
547 logger("jappixmini: Update list of contacts' jabber accounts for ".count($users)." users.");
552 foreach ($users as $row) {
555 // for each user, go through list of contacts
556 $contacts = q("SELECT * FROM `contact` WHERE `uid`=%d AND ((LENGTH(`dfrn-id`) AND LENGTH(`pubkey`)) OR (LENGTH(`issued-id`) AND LENGTH(`prvkey`))) AND `network` = '%s'",
557 intval($uid), dbesc(NETWORK_DFRN));
558 foreach ($contacts as $contact_row) {
559 $request = $contact_row["request"];
560 if (!$request) continue;
562 $dfrn_id = $contact_row["dfrn-id"];
564 $key = $contact_row["pubkey"];
565 $encrypt_func = openssl_public_encrypt;
566 $decrypt_func = openssl_public_decrypt;
569 $dfrn_id = $contact_row["issued-id"];
570 $key = $contact_row["prvkey"];
571 $encrypt_func = openssl_private_encrypt;
572 $decrypt_func = openssl_private_decrypt;
576 // check if jabber address already present
577 $present = PConfig::get($uid, "jappixmini", "id:".$dfrn_id);
578 $now = intval(time());
580 // $present has format "timestamp:jabber_address"
581 $p = strpos($present, ":");
582 $timestamp = intval(substr($present, 0, $p));
584 // do not re-retrieve jabber address if last retrieval
585 // is not older than a week
586 if ($now-$timestamp<3600*24*7) continue;
589 // construct base retrieval address
590 $pos = strpos($request, "/dfrn_request/");
591 if ($pos===false) continue;
593 $base = substr($request, 0, $pos)."/jappixmini?role=$role";
595 // construct own address
596 $username = PConfig::get($uid, 'jappixmini', 'username');
597 if (!$username) continue;
598 $server = PConfig::get($uid, 'jappixmini', 'server');
599 if (!$server) continue;
601 $address = $username."@".$server;
604 $signed_address = "";
605 $encrypt_func($address, $signed_address, $key);
607 // construct request url
608 $signed_address_hex = bin2hex($signed_address);
609 $url = $base."&signed_address=$signed_address_hex&dfrn_id=".urlencode($dfrn_id);
613 $answer_json = fetch_url($url);
616 $answer = json_decode($answer_json);
617 if ($answer->status != "ok") throw new Exception();
619 $encrypted_address_hex = $answer->encrypted_address;
620 if (!$encrypted_address_hex) throw new Exception();
622 $encrypted_address = hex2bin($encrypted_address_hex);
623 if (!$encrypted_address) throw new Exception();
626 $decrypted_address = "";
627 $decrypt_func($encrypted_address, $decrypted_address, $key);
628 if (!$decrypted_address) throw new Exception();
629 } catch (Exception $e) {
630 $decrypted_address = "";
634 PConfig::set($uid, "jappixmini", "id:$dfrn_id", "$now:$decrypted_address");
639 function jappixmini_download_source(&$a,&$b) {
640 // Jappix Mini source download link on About page
642 $b .= '<h1>Jappix Mini</h1>';
643 $b .= '<p>This site uses the jappixmini addon, which includes Jappix Mini by the <a href="'.$a->get_baseurl().'/addon/jappixmini/jappix/AUTHORS">Jappix authors</a> and is distributed under the terms of the <a href="'.$a->get_baseurl().'/addon/jappixmini/jappix/COPYING">GNU Affero General Public License</a>.</p>';
644 $b .= '<p>You can download the <a href="'.$a->get_baseurl().'/addon/jappixmini.tgz">source code of the addon</a>. The rest of Friendica is distributed under compatible licenses and can be retrieved from <a href="https://github.com/friendica/friendica">https://github.com/friendica/friendica</a> and <a href="https://github.com/friendica/friendica-addons">https://github.com/friendica/friendica-addons</a></p>';