jappixmini/jappixmini.php

   1 <?php
   2
   3 /**
   4  * Name: jappixmini
   5  * Description: Provides a Facebook-like chat using Jappix Mini
   6  * Version: 1.0.1
   7  * Author: leberwurscht <leberwurscht@hoegners.de>
   8  *
   9  */
  10 //
  11 // Copyright 2012 "Leberwurscht" <leberwurscht@hoegners.de>
  12 //
  13 // This file is dual-licensed under the MIT license (see MIT.txt) and the AGPL license (see jappix/COPYING).
  14 //
  15
  16 /*
  17
  18   Problem:
  19  * jabber password should not be stored on server
  20  * jabber password should not be sent between server and browser as soon as the user is logged in
  21  * jabber password should not be reconstructible from communication between server and browser as soon as the user is logged in
  22
  23   Solution:
  24   Only store an encrypted version of the jabber password on the server. The encryption key is only available to the browser
  25   and not to the server (at least as soon as the user is logged in). It can be stored using the jappix setDB function.
  26
  27   This encryption key could be the friendica password, but then this password would be stored in the browser in cleartext.
  28   It is better to use a hash of the password.
  29   The server should not be able to reconstruct the password, so we can't take the same hash the server stores. But we can
  30   use hash("some_prefix"+password). This will however not work with OpenID logins, for this type of login the password must
  31   be queried manually.
  32
  33   Problem:
  34   How to discover the jabber addresses of the friendica contacts?
  35
  36   Solution:
  37   Each Friendica site with this addon provides a /jappixmini/ module page. We go through our contacts and retrieve
  38   this information every week using a cron hook.
  39
  40   Problem:
  41   We do not want to make the jabber address public.
  42
  43   Solution:
  44   When two friendica users connect using DFRN, the relation gets a DFRN ID and a keypair is generated.
  45   Using this keypair, we can provide the jabber address only to contacts:
  46
  47   Alice:
  48   signed_address = openssl_*_encrypt(alice_jabber_address)
  49   send signed_address to Bob, who does
  50   trusted_address = openssl_*_decrypt(signed_address)
  51   save trusted_address
  52   encrypted_address = openssl_*_encrypt(bob_jabber_address)
  53   reply with encrypted_address to Alice, who does
  54   decrypted_address = openssl_*_decrypt(encrypted_address)
  55   save decrypted_address
  56
  57   Interface for this:
  58   GET /jappixmini/?role=%s&signed_address=%s&dfrn_id=%s
  59
  60   Response:
  61   json({"status":"ok", "encrypted_address":"%s"})
  62
  63  */
  64
  65 use Friendica\App;
  66 use Friendica\Core\Addon;
  67 use Friendica\Core\Config;
  68 use Friendica\Core\PConfig;
  69 use Friendica\Model\User;
  70
  71 function jappixmini_install()
  72 {
  73         Addon::registerHook('addon_settings', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings');
  74         Addon::registerHook('addon_settings_post', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings_post');
  75
  76         Addon::registerHook('page_end', 'addon/jappixmini/jappixmini.php', 'jappixmini_script');
  77         Addon::registerHook('authenticate', 'addon/jappixmini/jappixmini.php', 'jappixmini_login');
  78
  79         Addon::registerHook('cron', 'addon/jappixmini/jappixmini.php', 'jappixmini_cron');
  80
  81         // Jappix source download as required by AGPL
  82         Addon::registerHook('about_hook', 'addon/jappixmini/jappixmini.php', 'jappixmini_download_source');
  83
  84         // set standard configuration
  85         $info_text = Config::get("jappixmini", "infotext");
  86         if (!$info_text)
  87                 set_confConfig::setig("jappixmini", "infotext", "To get the chat working, you need to know a BOSH host which works with your Jabber account. " .
  88                         "An example of a BOSH server that works for all accounts is https://bind.jappix.com/, but keep " .
  89                         "in mind that the BOSH server can read along all chat messages. If you know that your Jabber " .
  90                         "server also provides an own BOSH server, it is much better to use this one!"
  91                 );
  92
  93         $bosh_proxy = Config::get("jappixmini", "bosh_proxy");
  94         if ($bosh_proxy === "") {
  95                 Config::set("jappixmini", "bosh_proxy", "1");
  96         }
  97
  98         // set addon version so that safe updates are possible later
  99         $addon_version = Config::get("jappixmini", "version");
 100         if ($addon_version === "") {
 101                 Config::set("jappixmini", "version", "1");
 102         }
 103 }
 104
 105 function jappixmini_uninstall()
 106 {
 107         Addon::unregisterHook('addon_settings', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings');
 108         Addon::unregisterHook('addon_settings_post', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings_post');
 109
 110         Addon::unregisterHook('page_end', 'addon/jappixmini/jappixmini.php', 'jappixmini_script');
 111         Addon::unregisterHook('authenticate', 'addon/jappixmini/jappixmini.php', 'jappixmini_login');
 112
 113         Addon::unregisterHook('cron', 'addon/jappixmini/jappixmini.php', 'jappixmini_cron');
 114
 115         Addon::unregisterHook('about_hook', 'addon/jappixmini/jappixmini.php', 'jappixmini_download_source');
 116 }
 117
 118 function jappixmini_addon_admin(App $a, &$o)
 119 {
 120         // display instructions and warnings on addon settings page for admin
 121         if (!file_exists("addon/jappixmini.tgz")) {
 122                 $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>';
 123         }
 124
 125         // warn if cron job has not yet been executed
 126         $cron_run = Config::get("jappixmini", "last_cron_execution");
 127         if (!$cron_run) {
 128                 $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>";
 129         }
 130
 131         // bosh proxy
 132         $bosh_proxy = intval(Config::get("jappixmini", "bosh_proxy"));
 133         $bosh_proxy = intval($bosh_proxy) ? ' checked="checked"' : '';
 134         $o .= '<label for="jappixmini-proxy">Activate BOSH proxy</label>';
 135         $o .= ' <input id="jappixmini-proxy" type="checkbox" name="jappixmini-proxy" value="1"' . $bosh_proxy . ' /><br />';
 136
 137         // bosh address
 138         $bosh_address = Config::get("jappixmini", "bosh_address");
 139         $o .= '<p><label for="jappixmini-address">Adress of the default BOSH proxy. If enabled it overrides the user settings:</label><br />';
 140         $o .= '<input id="jappixmini-address" type="text" name="jappixmini-address" value="' . $bosh_address . '" /></p>';
 141
 142         // default server address
 143         $default_server = Config::get("jappixmini", "default_server");
 144         $o .= '<p><label for="jappixmini-server">Adress of the default jabber server:</label><br />';
 145         $o .= '<input id="jappixmini-server" type="text" name="jappixmini-server" value="' . $default_server . '" /></p>';
 146
 147         // default user name to friendica nickname
 148         $default_user = intval(Config::get("jappixmini", "default_user"));
 149         $default_user = intval($default_user) ? ' checked="checked"' : '';
 150         $o .= '<label for="jappixmini-user">Set the default username to the nickname:</label>';
 151         $o .= ' <input id="jappixmini-user" type="checkbox" name="jappixmini-defaultuser" value="1"' . $default_user . ' /><br />';
 152
 153         // info text field
 154         $info_text = Config::get("jappixmini", "infotext");
 155         $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 />';
 156         $o .= '<textarea id="jappixmini-infotext" name="jappixmini-infotext" rows="5" cols="50">' . htmlentities($info_text) . '</textarea></p>';
 157
 158         // submit button
 159         $o .= '<input type="submit" name="jappixmini-admin-settings" value="OK" />';
 160 }
 161
 162 function jappixmini_addon_admin_post(App $a)
 163 {
 164         // set info text
 165         $submit = $_REQUEST['jappixmini-admin-settings'];
 166         if ($submit) {
 167                 $info_text = $_REQUEST['jappixmini-infotext'];
 168                 $bosh_proxy = intval($_REQUEST['jappixmini-proxy']);
 169                 $default_user = intval($_REQUEST['jappixmini-defaultuser']);
 170                 $bosh_address = $_REQUEST['jappixmini-address'];
 171                 $default_server = $_REQUEST['jappixmini-server'];
 172                 Config::set("jappixmini", "infotext", $info_text);
 173                 Config::set("jappixmini", "bosh_proxy", $bosh_proxy);
 174                 Config::set("jappixmini", "bosh_address", $bosh_address);
 175                 Config::set("jappixmini", "default_server", $default_server);
 176                 Config::set("jappixmini", "default_user", $default_user);
 177         }
 178 }
 179
 180 function jappixmini_module()
 181 {
 182
 183 }
 184
 185 function jappixmini_init()
 186 {
 187         // module page where other Friendica sites can submit Jabber addresses to and also can query Jabber addresses
 188         // of local users
 189         $dfrn_id = $_REQUEST["dfrn_id"];
 190         if (!$dfrn_id) {
 191                 killme();
 192         }
 193
 194         $role = $_REQUEST["role"];
 195         if ($role == "pub") {
 196                 $r = q("SELECT * FROM `contact` WHERE LENGTH(`pubkey`) AND `dfrn-id`='%s' LIMIT 1", dbesc($dfrn_id));
 197                 if (!count($r)) {
 198                         killme();
 199                 }
 200
 201                 $encrypt_func = openssl_public_encrypt;
 202                 $decrypt_func = openssl_public_decrypt;
 203                 $key = $r[0]["pubkey"];
 204         } else if ($role == "prv") {
 205                 $r = q("SELECT * FROM `contact` WHERE LENGTH(`prvkey`) AND `issued-id`='%s' LIMIT 1", dbesc($dfrn_id));
 206                 if (!count($r)) {
 207                         killme();
 208                 }
 209
 210                 $encrypt_func = openssl_private_encrypt;
 211                 $decrypt_func = openssl_private_decrypt;
 212                 $key = $r[0]["prvkey"];
 213         } else {
 214                 killme();
 215         }
 216
 217         $uid = $r[0]["uid"];
 218
 219         // save the Jabber address we received
 220         try {
 221                 $signed_address_hex = $_REQUEST["signed_address"];
 222                 $signed_address = hex2bin($signed_address_hex);
 223
 224                 $trusted_address = "";
 225                 $decrypt_func($signed_address, $trusted_address, $key);
 226
 227                 $now = intval(time());
 228                 PConfig::set($uid, "jappixmini", "id:$dfrn_id", "$now:$trusted_address");
 229         } catch (Exception $e) {
 230
 231         }
 232
 233         // do not return an address if user deactivated addon
 234         $activated = PConfig::get($uid, 'jappixmini', 'activate');
 235         if (!$activated) {
 236                 killme();
 237         }
 238
 239         // return the requested Jabber address
 240         try {
 241                 $username = PConfig::get($uid, 'jappixmini', 'username');
 242                 $server = PConfig::get($uid, 'jappixmini', 'server');
 243                 $address = "$username@$server";
 244
 245                 $encrypted_address = "";
 246                 $encrypt_func($address, $encrypted_address, $key);
 247
 248                 $encrypted_address_hex = bin2hex($encrypted_address);
 249
 250                 $answer = [
 251                         "status" => "ok",
 252                         "encrypted_address" => $encrypted_address_hex
 253                 ];
 254
 255                 $answer_json = json_encode($answer);
 256                 echo $answer_json;
 257                 killme();
 258         } catch (Exception $e) {
 259                 killme();
 260         }
 261 }
 262
 263 function jappixmini_settings(App $a, &$s)
 264 {
 265         // addon settings for a user
 266         $activate = PConfig::get(local_user(), 'jappixmini', 'activate');
 267         $activate = intval($activate) ? ' checked="checked"' : '';
 268         $dontinsertchat = PConfig::get(local_user(), 'jappixmini', 'dontinsertchat');
 269         $insertchat = !(intval($dontinsertchat) ? ' checked="checked"' : '');
 270
 271         $defaultbosh = Config::get("jappixmini", "bosh_address");
 272
 273         if ($defaultbosh != "") {
 274                 PConfig::set(local_user(), 'jappixmini', 'bosh', $defaultbosh);
 275         }
 276
 277         $username = PConfig::get(local_user(), 'jappixmini', 'username');
 278         $username = htmlentities($username);
 279         $server = PConfig::get(local_user(), 'jappixmini', 'server');
 280         $server = htmlentities($server);
 281         $bosh = PConfig::get(local_user(), 'jappixmini', 'bosh');
 282         $bosh = htmlentities($bosh);
 283         $password = PConfig::get(local_user(), 'jappixmini', 'password');
 284         $autosubscribe = PConfig::get(local_user(), 'jappixmini', 'autosubscribe');
 285         $autosubscribe = intval($autosubscribe) ? ' checked="checked"' : '';
 286         $autoapprove = PConfig::get(local_user(), 'jappixmini', 'autoapprove');
 287         $autoapprove = intval($autoapprove) ? ' checked="checked"' : '';
 288         $encrypt = intval(PConfig::get(local_user(), 'jappixmini', 'encrypt'));
 289         $encrypt_checked = $encrypt ? ' checked="checked"' : '';
 290         $encrypt_disabled = $encrypt ? '' : ' disabled="disabled"';
 291
 292         if ($server == "") {
 293                 $server = Config::get("jappixmini", "default_server");
 294         }
 295
 296         if (($username == "") && Config::get("jappixmini", "default_user")) {
 297                 $username = $a->user["nickname"];
 298         }
 299
 300         $info_text = Config::get("jappixmini", "infotext");
 301         $info_text = htmlentities($info_text);
 302         $info_text = str_replace("\n", "<br />", $info_text);
 303
 304         // count contacts
 305         $r = q("SELECT COUNT(1) as `cnt` FROM `pconfig` WHERE `uid`=%d AND `cat`='jappixmini' AND `k` LIKE 'id:%%'", local_user());
 306         if (count($r)) {
 307                 $contact_cnt = $r[0]["cnt"];
 308         } else {
 309                 $contact_cnt = 0;
 310         }
 311
 312         // count jabber addresses
 313         $r = q("SELECT COUNT(1) as `cnt` FROM `pconfig` WHERE `uid`=%d AND `cat`='jappixmini' AND `k` LIKE 'id:%%' AND `v` LIKE '%%@%%'", local_user());
 314         if (count($r)) {
 315                 $address_cnt = $r[0]["cnt"];
 316         } else {
 317                 $address_cnt = 0;
 318         }
 319
 320         if (!$activate) {
 321                 // load scripts if not yet activated so that password can be saved
 322                 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;g=mini.xml"></script>' . "\r\n";
 323                 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;f=presence.js~caps.js~name.js~roster.js"></script>' . "\r\n";
 324
 325                 $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/lib.js"></script>' . "\r\n";
 326         }
 327
 328         $s .= '<span id="settings_jappixmini_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_jappixmini_expanded\'); openClose(\'settings_jappixmini_inflated\');">';
 329         $s .= '<h3>' . t('Jappix Mini') . '</h3>';
 330         $s .= '</span>';
 331         $s .= '<div id="settings_jappixmini_expanded" class="settings-block" style="display: none;">';
 332         $s .= '<span class="fakelink" onclick="openClose(\'settings_jappixmini_expanded\'); openClose(\'settings_jappixmini_inflated\');">';
 333         $s .= '<h3>' . t('Jappix Mini') . '</h3>';
 334         $s .= '</span>';
 335
 336         $s .= '<label for="jappixmini-activate">' . t('Activate addon') . '</label>';
 337         $s .= ' <input id="jappixmini-activate" type="checkbox" name="jappixmini-activate" value="1"' . $activate . ' />';
 338         $s .= '<br />';
 339         $s .= '<label for"jappixmini-dont-insertchat">' . t('Do <em>not</em> insert the Jappixmini Chat-Widget into the webinterface') . '</label>';
 340         $s .= '<input id="jappixmini-dont-insertchat" type="checkbox" name="jappixmini-dont-insertchat" value="1"' . $insertchat . ' />';
 341         $s .= '<br />';
 342         $s .= '<label for="jappixmini-username">' . t('Jabber username') . '</label>';
 343         $s .= ' <input id="jappixmini-username" type="text" name="jappixmini-username" value="' . $username . '" />';
 344         $s .= '<br />';
 345         $s .= '<label for="jappixmini-server">' . t('Jabber server') . '</label>';
 346         $s .= ' <input id="jappixmini-server" type="text" name="jappixmini-server" value="' . $server . '" />';
 347         $s .= '<br />';
 348
 349         if ($defaultbosh == "") {
 350                 $s .= '<label for="jappixmini-bosh">' . t('Jabber BOSH host') . '</label>';
 351                 $s .= ' <input id="jappixmini-bosh" type="text" name="jappixmini-bosh" value="' . $bosh . '" />';
 352                 $s .= '<br />';
 353         }
 354
 355         $s .= '<label for="jappixmini-password">' . t('Jabber password') . '</label>';
 356         $s .= ' <input type="hidden" id="jappixmini-password" name="jappixmini-encrypted-password" value="' . $password . '" />';
 357         $s .= ' <input id="jappixmini-clear-password" type="password" value="" onchange="jappixmini_set_password();" />';
 358         $s .= '<br />';
 359         $onchange = "document.getElementById('jappixmini-friendica-password').disabled = !this.checked;jappixmini_set_password();";
 360         $s .= '<label for="jappixmini-encrypt">' . t('Encrypt Jabber password with Friendica password (recommended)') . '</label>';
 361         $s .= ' <input id="jappixmini-encrypt" type="checkbox" name="jappixmini-encrypt" onchange="' . $onchange . '" value="1"' . $encrypt_checked . ' />';
 362         $s .= '<br />';
 363         $s .= '<label for="jappixmini-friendica-password">' . t('Friendica password') . '</label>';
 364         $s .= ' <input id="jappixmini-friendica-password" name="jappixmini-friendica-password" type="password" onchange="jappixmini_set_password();" value=""' . $encrypt_disabled . ' />';
 365         $s .= '<br />';
 366         $s .= '<label for="jappixmini-autoapprove">' . t('Approve subscription requests from Friendica contacts automatically') . '</label>';
 367         $s .= ' <input id="jappixmini-autoapprove" type="checkbox" name="jappixmini-autoapprove" value="1"' . $autoapprove . ' />';
 368         $s .= '<br />';
 369         $s .= '<label for="jappixmini-autosubscribe">' . t('Subscribe to Friendica contacts automatically') . '</label>';
 370         $s .= ' <input id="jappixmini-autosubscribe" type="checkbox" name="jappixmini-autosubscribe" value="1"' . $autosubscribe . ' />';
 371         $s .= '<br />';
 372         $s .= '<label for="jappixmini-purge">' . t('Purge internal list of jabber addresses of contacts') . '</label>';
 373         $s .= ' <input id="jappixmini-purge" type="checkbox" name="jappixmini-purge" value="1" />';
 374         $s .= '<br />';
 375         if ($info_text) {
 376                 $s .= '<br />Configuration help:<p style="margin-left:2em;">' . $info_text . '</p>';
 377         }
 378         $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>';
 379         $s .= '<input type="submit" name="jappixmini-submit" value="' . t('Save Settings') . '" />';
 380         $s .= ' <input type="button" value="' . t('Add contact') . '" onclick="jappixmini_addon_subscribe();" />';
 381
 382         $s .= '</div>';
 383
 384         $a->page['htmlhead'] .= "<script type=\"text/javascript\">
 385         function jappixmini_set_password() {
 386             encrypt = document.getElementById('jappixmini-encrypt').checked;
 387             password = document.getElementById('jappixmini-password');
 388             clear_password = document.getElementById('jappixmini-clear-password');
 389             if (encrypt) {
 390                 friendica_password = document.getElementById('jappixmini-friendica-password');
 391
 392                 if (friendica_password) {
 393                     jappixmini_addon_set_client_secret(friendica_password.value);
 394                     jappixmini_addon_encrypt_password(clear_password.value, function(encrypted_password){
 395                         password.value = encrypted_password;
 396                     });
 397                 }
 398             }
 399             else {
 400                 password.value = clear_password.value;
 401             }
 402         }
 403
 404         jQuery(document).ready(function() {
 405             encrypt = document.getElementById('jappixmini-encrypt').checked;
 406             password = document.getElementById('jappixmini-password');
 407             clear_password = document.getElementById('jappixmini-clear-password');
 408             if (encrypt) {
 409                 jappixmini_addon_decrypt_password(password.value, function(decrypted_password){
 410                     clear_password.value = decrypted_password;
 411                 });
 412             }
 413             else {
 414                 clear_password.value = password.value;
 415             }
 416         });
 417     </script>";
 418 }
 419
 420 function jappixmini_settings_post(App $a, &$b)
 421 {
 422         // save addon settings for a user
 423         if (!local_user()) {
 424                 return;
 425         }
 426         $uid = local_user();
 427
 428         if ($_POST['jappixmini-submit']) {
 429                 $encrypt = intval($b['jappixmini-encrypt']);
 430                 if ($encrypt) {
 431                         // check that Jabber password was encrypted with correct Friendica password
 432                         $friendica_password = trim($b['jappixmini-friendica-password']);
 433                         if (!User::authenticate((int) $uid, $friendica_password)) {
 434                                 info("Wrong friendica password!");
 435                                 return;
 436                         }
 437                 }
 438
 439                 $purge = intval($b['jappixmini-purge']);
 440
 441                 $username = trim($b['jappixmini-username']);
 442                 $old_username = PConfig::get($uid, 'jappixmini', 'username');
 443                 if ($username != $old_username) {
 444                         $purge = 1;
 445                 }
 446
 447                 $server = trim($b['jappixmini-server']);
 448                 $old_server = PConfig::get($uid, 'jappixmini', 'server');
 449                 if ($server != $old_server) {
 450                         $purge = 1;
 451                 }
 452
 453                 PConfig::set($uid, 'jappixmini', 'username'      , $username);
 454                 PConfig::set($uid, 'jappixmini', 'server'        , $server);
 455                 PConfig::set($uid, 'jappixmini', 'bosh'          , trim($b['jappixmini-bosh']));
 456                 PConfig::set($uid, 'jappixmini', 'password'      , trim($b['jappixmini-encrypted-password']));
 457                 PConfig::set($uid, 'jappixmini', 'autosubscribe' , intval($b['jappixmini-autosubscribe']));
 458                 PConfig::set($uid, 'jappixmini', 'autoapprove'   , intval($b['jappixmini-autoapprove']));
 459                 PConfig::set($uid, 'jappixmini', 'activate'      , intval($b['jappixmini-activate']));
 460                 PConfig::set($uid, 'jappixmini', 'dontinsertchat', intval($b['jappixmini-dont-insertchat']));
 461                 PConfig::set($uid, 'jappixmini', 'encrypt'       , $encrypt);
 462                 info('Jappix Mini settings saved.');
 463
 464                 if ($purge) {
 465                         q("DELETE FROM `pconfig` WHERE `uid`=$uid AND `cat`='jappixmini' AND `k` LIKE 'id:%%'");
 466                         info('List of addresses purged.');
 467                 }
 468         }
 469 }
 470
 471 function jappixmini_script(App $a)
 472 {
 473         // adds the script to the page header which starts Jappix Mini
 474         if (!local_user()) {
 475                 return;
 476         }
 477
 478         if ($_GET["mode"] == "minimal") {
 479                 return;
 480         }
 481
 482         $activate = PConfig::get(local_user(), 'jappixmini', 'activate');
 483         $dontinsertchat = PConfig::get(local_user(), 'jappixmini', 'dontinsertchat');
 484         if (!$activate || $dontinsertchat) {
 485                 return;
 486         }
 487
 488         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;g=mini.xml"></script>' . "\r\n";
 489         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;f=presence.js~caps.js~name.js~roster.js"></script>' . "\r\n";
 490
 491         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/lib.js"></script>' . "\r\n";
 492
 493         $username = PConfig::get(local_user(), 'jappixmini', 'username');
 494         $username = str_replace("'", "\\'", $username);
 495         $server = PConfig::get(local_user(), 'jappixmini', 'server');
 496         $server = str_replace("'", "\\'", $server);
 497         $bosh = PConfig::get(local_user(), 'jappixmini', 'bosh');
 498         $bosh = str_replace("'", "\\'", $bosh);
 499         $encrypt = PConfig::get(local_user(), 'jappixmini', 'encrypt');
 500         $encrypt = intval($encrypt);
 501         $password = PConfig::get(local_user(), 'jappixmini', 'password');
 502         $password = str_replace("'", "\\'", $password);
 503
 504         $autoapprove = PConfig::get(local_user(), 'jappixmini', 'autoapprove');
 505         $autoapprove = intval($autoapprove);
 506         $autosubscribe = PConfig::get(local_user(), 'jappixmini', 'autosubscribe');
 507         $autosubscribe = intval($autosubscribe);
 508
 509         // set proxy if necessary
 510         $use_proxy = Config::get('jappixmini', 'bosh_proxy');
 511         if ($use_proxy) {
 512                 $proxy = $a->get_baseurl() . '/addon/jappixmini/proxy.php';
 513         } else {
 514                 $proxy = "";
 515         }
 516
 517         // get a list of jabber accounts of the contacts
 518         $contacts = [];
 519         $uid = local_user();
 520         $rows = q("SELECT * FROM `pconfig` WHERE `uid`=$uid AND `cat`='jappixmini' AND `k` LIKE 'id:%%'");
 521         foreach ($rows as $row) {
 522                 $key = $row['k'];
 523                 $pos = strpos($key, ":");
 524                 $dfrn_id = substr($key, $pos + 1);
 525                 $r = q("SELECT `name` FROM `contact` WHERE `uid`=$uid AND (`dfrn-id`='%s' OR `issued-id`='%s')", dbesc($dfrn_id), dbesc($dfrn_id));
 526                 if (count($r))
 527                         $name = $r[0]["name"];
 528
 529                 $value = $row['v'];
 530                 $pos = strpos($value, ":");
 531                 $address = substr($value, $pos + 1);
 532                 if (!$address) {
 533                         continue;
 534                 }
 535                 if (!$name) {
 536                         $name = $address;
 537                 }
 538
 539                 $contacts[$address] = $name;
 540         }
 541         $contacts_json = json_encode($contacts);
 542         $contacts_hash = sha1($contacts_json);
 543
 544         // get nickname
 545         $r = q("SELECT `username` FROM `user` WHERE `uid`=$uid");
 546         $nickname = json_encode($r[0]["username"]);
 547         $groupchats = Config::get('jappixmini', 'groupchats');
 548         //if $groupchats has no value jappix_addon_start will produce a syntax error
 549         if (empty($groupchats)) {
 550                 $groupchats = "{}";
 551         }
 552
 553         // add javascript to start Jappix Mini
 554         $a->page['htmlhead'] .= "<script type=\"text/javascript\">
 555         jQuery(document).ready(function() {
 556            jappixmini_addon_start('$server', '$username', '$proxy', '$bosh', $encrypt, '$password', $nickname, $contacts_json, '$contacts_hash', $autoapprove, $autosubscribe, $groupchats);
 557         });
 558     </script>";
 559
 560         return;
 561 }
 562
 563 function jappixmini_login(App $a, &$o)
 564 {
 565         // create client secret on login to be able to encrypt jabber passwords
 566         // for setDB and str_sha1, needed by jappixmini_addon_set_client_secret
 567         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;f=datastore.js~jsjac.js"></script>' . "\r\n";
 568
 569         // for jappixmini_addon_set_client_secret
 570         $a->page['htmlhead'] .= '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/jappixmini/lib.js"></script>' . "\r\n";
 571
 572         // save hash of password
 573         $o = str_replace("<form ", "<form onsubmit=\"jappixmini_addon_set_client_secret(this.elements['id_password'].value);return true;\" ", $o);
 574 }
 575
 576 function jappixmini_cron(App $a, $d)
 577 {
 578         // For autosubscribe/autoapprove, we need to maintain a list of jabber addresses of our contacts.
 579         Config::set("jappixmini", "last_cron_execution", $d);
 580
 581         // go through list of users with jabber enabled
 582         $users = q("SELECT `uid` FROM `pconfig` WHERE `cat`='jappixmini' AND (`k`='autosubscribe' OR `k`='autoapprove') AND `v`='1'");
 583         logger("jappixmini: Update list of contacts' jabber accounts for " . count($users) . " users.");
 584
 585         if (!count($users)) {
 586                 return;
 587         }
 588
 589         foreach ($users as $row) {
 590                 $uid = $row["uid"];
 591
 592                 // for each user, go through list of contacts
 593                 $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'",
 594                         intval($uid), dbesc(NETWORK_DFRN));
 595                 foreach ($contacts as $contact_row) {
 596                         $request = $contact_row["request"];
 597                         if (!$request) {
 598                                 continue;
 599                         }
 600
 601                         $dfrn_id = $contact_row["dfrn-id"];
 602                         if ($dfrn_id) {
 603                                 $key = $contact_row["pubkey"];
 604                                 $encrypt_func = openssl_public_encrypt;
 605                                 $decrypt_func = openssl_public_decrypt;
 606                                 $role = "prv";
 607                         } else {
 608                                 $dfrn_id = $contact_row["issued-id"];
 609                                 $key = $contact_row["prvkey"];
 610                                 $encrypt_func = openssl_private_encrypt;
 611                                 $decrypt_func = openssl_private_decrypt;
 612                                 $role = "pub";
 613                         }
 614
 615                         // check if jabber address already present
 616                         $present = PConfig::get($uid, "jappixmini", "id:" . $dfrn_id);
 617                         $now = intval(time());
 618                         if ($present) {
 619                                 // $present has format "timestamp:jabber_address"
 620                                 $p = strpos($present, ":");
 621                                 $timestamp = intval(substr($present, 0, $p));
 622
 623                                 // do not re-retrieve jabber address if last retrieval
 624                                 // is not older than a week
 625                                 if ($now - $timestamp < 3600 * 24 * 7) {
 626                                         continue;
 627                                 }
 628                         }
 629
 630                         // construct base retrieval address
 631                         $pos = strpos($request, "/dfrn_request/");
 632                         if ($pos === false) {
 633                                 continue;
 634                         }
 635
 636                         $base = substr($request, 0, $pos) . "/jappixmini?role=$role";
 637
 638                         // construct own address
 639                         $username = PConfig::get($uid, 'jappixmini', 'username');
 640                         if (!$username) {
 641                                 continue;
 642                         }
 643                         $server = PConfig::get($uid, 'jappixmini', 'server');
 644                         if (!$server) {
 645                                 continue;
 646                         }
 647
 648                         $address = $username . "@" . $server;
 649
 650                         // sign address
 651                         $signed_address = "";
 652                         $encrypt_func($address, $signed_address, $key);
 653
 654                         // construct request url
 655                         $signed_address_hex = bin2hex($signed_address);
 656                         $url = $base . "&signed_address=$signed_address_hex&dfrn_id=" . urlencode($dfrn_id);
 657
 658                         try {
 659                                 // send request
 660                                 $answer_json = fetch_url($url);
 661
 662                                 // parse answer
 663                                 $answer = json_decode($answer_json);
 664                                 if ($answer->status != "ok") {
 665                                         throw new Exception();
 666                                 }
 667
 668                                 $encrypted_address_hex = $answer->encrypted_address;
 669                                 if (!$encrypted_address_hex) {
 670                                         throw new Exception();
 671                                 }
 672
 673                                 $encrypted_address = hex2bin($encrypted_address_hex);
 674                                 if (!$encrypted_address) {
 675                                         throw new Exception();
 676                                 }
 677
 678                                 // decrypt address
 679                                 $decrypted_address = "";
 680                                 $decrypt_func($encrypted_address, $decrypted_address, $key);
 681                                 if (!$decrypted_address) {
 682                                         throw new Exception();
 683                                 }
 684                         } catch (Exception $e) {
 685                                 $decrypted_address = "";
 686                         }
 687
 688                         // save address
 689                         PConfig::set($uid, "jappixmini", "id:$dfrn_id", "$now:$decrypted_address");
 690                 }
 691         }
 692 }
 693
 694 function jappixmini_download_source(App $a, &$b)
 695 {
 696         // Jappix Mini source download link on About page
 697         $b .= '<h1>Jappix Mini</h1>';
 698         $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>';
 699         $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>';
 700 }