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\Hook;
  67 use Friendica\Core\Logger;
  68 use Friendica\Core\Protocol;
  69 use Friendica\Database\DBA;
  70 use Friendica\DI;
  71 use Friendica\Model\User;
  72
  73 function jappixmini_install()
  74 {
  75         Hook::register('addon_settings', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings');
  76         Hook::register('addon_settings_post', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings_post');
  77
  78         Hook::register('page_end', 'addon/jappixmini/jappixmini.php', 'jappixmini_script');
  79         Hook::register('authenticate', 'addon/jappixmini/jappixmini.php', 'jappixmini_login');
  80
  81         Hook::register('cron', 'addon/jappixmini/jappixmini.php', 'jappixmini_cron');
  82
  83         // Jappix source download as required by AGPL
  84         Hook::register('about_hook', 'addon/jappixmini/jappixmini.php', 'jappixmini_download_source');
  85
  86         // set standard configuration
  87         $info_text = DI::config()->get("jappixmini", "infotext");
  88         if (!$info_text)
  89                 DI::config()->set("jappixmini", "infotext", "To get the chat working, you need to know a BOSH host which works with your Jabber account. " .
  90                         "An example of a BOSH server that works for all accounts is https://bind.jappix.com/, but keep " .
  91                         "in mind that the BOSH server can read along all chat messages. If you know that your Jabber " .
  92                         "server also provides an own BOSH server, it is much better to use this one!"
  93                 );
  94
  95         $bosh_proxy = DI::config()->get("jappixmini", "bosh_proxy");
  96         if ($bosh_proxy === "") {
  97                 DI::config()->set("jappixmini", "bosh_proxy", "1");
  98         }
  99
 100         // set addon version so that safe updates are possible later
 101         $addon_version = DI::config()->get("jappixmini", "version");
 102         if ($addon_version === "") {
 103                 DI::config()->set("jappixmini", "version", "1");
 104         }
 105 }
 106
 107 function jappixmini_uninstall()
 108 {
 109         Hook::unregister('addon_settings', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings');
 110         Hook::unregister('addon_settings_post', 'addon/jappixmini/jappixmini.php', 'jappixmini_settings_post');
 111
 112         Hook::unregister('page_end', 'addon/jappixmini/jappixmini.php', 'jappixmini_script');
 113         Hook::unregister('authenticate', 'addon/jappixmini/jappixmini.php', 'jappixmini_login');
 114
 115         Hook::unregister('cron', 'addon/jappixmini/jappixmini.php', 'jappixmini_cron');
 116
 117         Hook::unregister('about_hook', 'addon/jappixmini/jappixmini.php', 'jappixmini_download_source');
 118 }
 119
 120 function jappixmini_addon_admin(App $a, &$o)
 121 {
 122         // display instructions and warnings on addon settings page for admin
 123         if (!file_exists("addon/jappixmini.tgz")) {
 124                 $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>';
 125         }
 126
 127         // warn if cron job has not yet been executed
 128         $cron_run = DI::config()->get("jappixmini", "last_cron_execution");
 129         if (!$cron_run) {
 130                 $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>";
 131         }
 132
 133         // bosh proxy
 134         $bosh_proxy = intval(DI::config()->get("jappixmini", "bosh_proxy"));
 135         $bosh_proxy = intval($bosh_proxy) ? ' checked="checked"' : '';
 136         $o .= '<label for="jappixmini-proxy">Activate BOSH proxy</label>';
 137         $o .= ' <input id="jappixmini-proxy" type="checkbox" name="jappixmini-proxy" value="1"' . $bosh_proxy . ' /><br />';
 138
 139         // bosh address
 140         $bosh_address = DI::config()->get("jappixmini", "bosh_address");
 141         $o .= '<p><label for="jappixmini-address">Adress of the default BOSH proxy. If enabled it overrides the user settings:</label><br />';
 142         $o .= '<input id="jappixmini-address" type="text" name="jappixmini-address" value="' . $bosh_address . '" /></p>';
 143
 144         // default server address
 145         $default_server = DI::config()->get("jappixmini", "default_server");
 146         $o .= '<p><label for="jappixmini-server">Adress of the default jabber server:</label><br />';
 147         $o .= '<input id="jappixmini-server" type="text" name="jappixmini-server" value="' . $default_server . '" /></p>';
 148
 149         // default user name to friendica nickname
 150         $default_user = intval(DI::config()->get("jappixmini", "default_user"));
 151         $default_user = intval($default_user) ? ' checked="checked"' : '';
 152         $o .= '<label for="jappixmini-user">Set the default username to the nickname:</label>';
 153         $o .= ' <input id="jappixmini-user" type="checkbox" name="jappixmini-defaultuser" value="1"' . $default_user . ' /><br />';
 154
 155         // info text field
 156         $info_text = DI::config()->get("jappixmini", "infotext");
 157         $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 />';
 158         $o .= '<textarea id="jappixmini-infotext" name="jappixmini-infotext" rows="5" cols="50">' . htmlentities($info_text) . '</textarea></p>';
 159
 160         // submit button
 161         $o .= '<input type="submit" name="jappixmini-admin-settings" value="OK" />';
 162 }
 163
 164 function jappixmini_addon_admin_post(App $a)
 165 {
 166         // set info text
 167         $submit = $_REQUEST['jappixmini-admin-settings'];
 168         if ($submit) {
 169                 $info_text = $_REQUEST['jappixmini-infotext'];
 170                 $bosh_proxy = intval($_REQUEST['jappixmini-proxy']);
 171                 $default_user = intval($_REQUEST['jappixmini-defaultuser']);
 172                 $bosh_address = $_REQUEST['jappixmini-address'];
 173                 $default_server = $_REQUEST['jappixmini-server'];
 174                 DI::config()->set("jappixmini", "infotext", $info_text);
 175                 DI::config()->set("jappixmini", "bosh_proxy", $bosh_proxy);
 176                 DI::config()->set("jappixmini", "bosh_address", $bosh_address);
 177                 DI::config()->set("jappixmini", "default_server", $default_server);
 178                 DI::config()->set("jappixmini", "default_user", $default_user);
 179         }
 180 }
 181
 182 function jappixmini_module()
 183 {
 184
 185 }
 186
 187 function jappixmini_init()
 188 {
 189         // module page where other Friendica sites can submit Jabber addresses to and also can query Jabber addresses
 190         // of local users
 191         $dfrn_id = $_REQUEST["dfrn_id"];
 192         if (!$dfrn_id) {
 193                 exit();
 194         }
 195
 196         $role = $_REQUEST["role"];
 197         if ($role == "pub") {
 198                 $r = q("SELECT * FROM `contact` WHERE LENGTH(`pubkey`) AND `dfrn-id`='%s' LIMIT 1", DBA::escape($dfrn_id));
 199                 if (!count($r)) {
 200                         exit();
 201                 }
 202
 203                 $encrypt_func = 'openssl_public_encrypt';
 204                 $decrypt_func = 'openssl_public_decrypt';
 205                 $key = $r[0]["pubkey"];
 206         } else if ($role == "prv") {
 207                 $r = q("SELECT * FROM `contact` WHERE LENGTH(`prvkey`) AND `issued-id`='%s' LIMIT 1", DBA::escape($dfrn_id));
 208                 if (!count($r)) {
 209                         exit();
 210                 }
 211
 212                 $encrypt_func = 'openssl_private_encrypt';
 213                 $decrypt_func = 'openssl_private_decrypt';
 214                 $key = $r[0]["prvkey"];
 215         } else {
 216                 exit();
 217         }
 218
 219         $uid = $r[0]["uid"];
 220
 221         // save the Jabber address we received
 222         try {
 223                 $signed_address_hex = $_REQUEST["signed_address"];
 224                 $signed_address = hex2bin($signed_address_hex);
 225
 226                 $trusted_address = "";
 227                 $decrypt_func($signed_address, $trusted_address, $key);
 228
 229                 $now = intval(time());
 230                 DI::pConfig()->set($uid, "jappixmini", "id:$dfrn_id", "$now:$trusted_address");
 231         } catch (Exception $e) {
 232
 233         }
 234
 235         // do not return an address if user deactivated addon
 236         $activated = DI::pConfig()->get($uid, 'jappixmini', 'activate');
 237         if (!$activated) {
 238                 exit();
 239         }
 240
 241         // return the requested Jabber address
 242         try {
 243                 $username = DI::pConfig()->get($uid, 'jappixmini', 'username');
 244                 $server = DI::pConfig()->get($uid, 'jappixmini', 'server');
 245                 $address = "$username@$server";
 246
 247                 $encrypted_address = "";
 248                 $encrypt_func($address, $encrypted_address, $key);
 249
 250                 $encrypted_address_hex = bin2hex($encrypted_address);
 251
 252                 $answer = [
 253                         "status" => "ok",
 254                         "encrypted_address" => $encrypted_address_hex
 255                 ];
 256
 257                 $answer_json = json_encode($answer);
 258                 echo $answer_json;
 259                 exit();
 260         } catch (Exception $e) {
 261                 exit();
 262         }
 263 }
 264
 265 function jappixmini_settings(App $a, &$s)
 266 {
 267         // addon settings for a user
 268         $activate = DI::pConfig()->get(local_user(), 'jappixmini', 'activate');
 269         $activate = intval($activate) ? ' checked="checked"' : '';
 270         $dontinsertchat = DI::pConfig()->get(local_user(), 'jappixmini', 'dontinsertchat');
 271         $insertchat = !(intval($dontinsertchat) ? ' checked="checked"' : '');
 272
 273         $defaultbosh = DI::config()->get("jappixmini", "bosh_address");
 274
 275         if ($defaultbosh != "") {
 276                 DI::pConfig()->set(local_user(), 'jappixmini', 'bosh', $defaultbosh);
 277         }
 278
 279         $username = DI::pConfig()->get(local_user(), 'jappixmini', 'username');
 280         $username = htmlentities($username);
 281         $server = DI::pConfig()->get(local_user(), 'jappixmini', 'server');
 282         $server = htmlentities($server);
 283         $bosh = DI::pConfig()->get(local_user(), 'jappixmini', 'bosh');
 284         $bosh = htmlentities($bosh);
 285         $password = DI::pConfig()->get(local_user(), 'jappixmini', 'password');
 286         $autosubscribe = DI::pConfig()->get(local_user(), 'jappixmini', 'autosubscribe');
 287         $autosubscribe = intval($autosubscribe) ? ' checked="checked"' : '';
 288         $autoapprove = DI::pConfig()->get(local_user(), 'jappixmini', 'autoapprove');
 289         $autoapprove = intval($autoapprove) ? ' checked="checked"' : '';
 290         $encrypt = intval(DI::pConfig()->get(local_user(), 'jappixmini', 'encrypt'));
 291         $encrypt_checked = $encrypt ? ' checked="checked"' : '';
 292         $encrypt_disabled = $encrypt ? '' : ' disabled="disabled"';
 293
 294         if ($server == "") {
 295                 $server = DI::config()->get("jappixmini", "default_server");
 296         }
 297
 298         if (($username == "") && DI::config()->get("jappixmini", "default_user")) {
 299                 $username = $a->user["nickname"];
 300         }
 301
 302         $info_text = DI::config()->get("jappixmini", "infotext");
 303         $info_text = htmlentities($info_text);
 304         $info_text = str_replace("\n", "<br />", $info_text);
 305
 306         // count contacts
 307         $r = q("SELECT COUNT(1) as `cnt` FROM `pconfig` WHERE `uid`=%d AND `cat`='jappixmini' AND `k` LIKE 'id:%%'", local_user());
 308         if (count($r)) {
 309                 $contact_cnt = $r[0]["cnt"];
 310         } else {
 311                 $contact_cnt = 0;
 312         }
 313
 314         // count jabber addresses
 315         $r = q("SELECT COUNT(1) as `cnt` FROM `pconfig` WHERE `uid`=%d AND `cat`='jappixmini' AND `k` LIKE 'id:%%' AND `v` LIKE '%%@%%'", local_user());
 316         if (count($r)) {
 317                 $address_cnt = $r[0]["cnt"];
 318         } else {
 319                 $address_cnt = 0;
 320         }
 321
 322         if (!$activate) {
 323                 // load scripts if not yet activated so that password can be saved
 324                 DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;g=mini.xml"></script>' . "\r\n";
 325                 DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;f=presence.js~caps.js~name.js~roster.js"></script>' . "\r\n";
 326
 327                 DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/addon/jappixmini/lib.js"></script>' . "\r\n";
 328         }
 329
 330         $s .= '<span id="settings_jappixmini_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_jappixmini_expanded\'); openClose(\'settings_jappixmini_inflated\');">';
 331         $s .= '<h3>' . DI::l10n()->t('Jappix Mini') . '</h3>';
 332         $s .= '</span>';
 333         $s .= '<div id="settings_jappixmini_expanded" class="settings-block" style="display: none;">';
 334         $s .= '<span class="fakelink" onclick="openClose(\'settings_jappixmini_expanded\'); openClose(\'settings_jappixmini_inflated\');">';
 335         $s .= '<h3>' . DI::l10n()->t('Jappix Mini') . '</h3>';
 336         $s .= '</span>';
 337
 338         $s .= '<label for="jappixmini-activate">' . DI::l10n()->t('Activate addon') . '</label>';
 339         $s .= ' <input id="jappixmini-activate" type="checkbox" name="jappixmini-activate" value="1"' . $activate . ' />';
 340         $s .= '<br />';
 341         $s .= '<label for"jappixmini-dont-insertchat">' . DI::l10n()->t('Do <em>not</em> insert the Jappixmini Chat-Widget into the webinterface') . '</label>';
 342         $s .= '<input id="jappixmini-dont-insertchat" type="checkbox" name="jappixmini-dont-insertchat" value="1"' . $insertchat . ' />';
 343         $s .= '<br />';
 344         $s .= '<label for="jappixmini-username">' . DI::l10n()->t('Jabber username') . '</label>';
 345         $s .= ' <input id="jappixmini-username" type="text" name="jappixmini-username" value="' . $username . '" />';
 346         $s .= '<br />';
 347         $s .= '<label for="jappixmini-server">' . DI::l10n()->t('Jabber server') . '</label>';
 348         $s .= ' <input id="jappixmini-server" type="text" name="jappixmini-server" value="' . $server . '" />';
 349         $s .= '<br />';
 350
 351         if ($defaultbosh == "") {
 352                 $s .= '<label for="jappixmini-bosh">' . DI::l10n()->t('Jabber BOSH host') . '</label>';
 353                 $s .= ' <input id="jappixmini-bosh" type="text" name="jappixmini-bosh" value="' . $bosh . '" />';
 354                 $s .= '<br />';
 355         }
 356
 357         $s .= '<label for="jappixmini-password">' . DI::l10n()->t('Jabber password') . '</label>';
 358         $s .= ' <input type="hidden" id="jappixmini-password" name="jappixmini-encrypted-password" value="' . $password . '" />';
 359         $s .= ' <input id="jappixmini-clear-password" type="password" value="" onchange="jappixmini_set_password();" />';
 360         $s .= '<br />';
 361         $onchange = "document.getElementById('jappixmini-friendica-password').disabled = !this.checked;jappixmini_set_password();";
 362         $s .= '<label for="jappixmini-encrypt">' . DI::l10n()->t('Encrypt Jabber password with Friendica password (recommended)') . '</label>';
 363         $s .= ' <input id="jappixmini-encrypt" type="checkbox" name="jappixmini-encrypt" onchange="' . $onchange . '" value="1"' . $encrypt_checked . ' />';
 364         $s .= '<br />';
 365         $s .= '<label for="jappixmini-friendica-password">' . DI::l10n()->t('Friendica password') . '</label>';
 366         $s .= ' <input id="jappixmini-friendica-password" name="jappixmini-friendica-password" type="password" onchange="jappixmini_set_password();" value=""' . $encrypt_disabled . ' />';
 367         $s .= '<br />';
 368         $s .= '<label for="jappixmini-autoapprove">' . DI::l10n()->t('Approve subscription requests from Friendica contacts automatically') . '</label>';
 369         $s .= ' <input id="jappixmini-autoapprove" type="checkbox" name="jappixmini-autoapprove" value="1"' . $autoapprove . ' />';
 370         $s .= '<br />';
 371         $s .= '<label for="jappixmini-autosubscribe">' . DI::l10n()->t('Subscribe to Friendica contacts automatically') . '</label>';
 372         $s .= ' <input id="jappixmini-autosubscribe" type="checkbox" name="jappixmini-autosubscribe" value="1"' . $autosubscribe . ' />';
 373         $s .= '<br />';
 374         $s .= '<label for="jappixmini-purge">' . DI::l10n()->t('Purge internal list of jabber addresses of contacts') . '</label>';
 375         $s .= ' <input id="jappixmini-purge" type="checkbox" name="jappixmini-purge" value="1" />';
 376         $s .= '<br />';
 377         if ($info_text) {
 378                 $s .= '<br />Configuration help:<p style="margin-left:2em;">' . $info_text . '</p>';
 379         }
 380         $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>';
 381         $s .= '<input type="submit" name="jappixmini-submit" value="' . DI::l10n()->t('Save Settings') . '" />';
 382         $s .= ' <input type="button" value="' . DI::l10n()->t('Add contact') . '" onclick="jappixmini_addon_subscribe();" />';
 383
 384         $s .= '</div>';
 385
 386         DI::page()['htmlhead'] .= "<script type=\"text/javascript\">
 387         function jappixmini_set_password() {
 388             encrypt = document.getElementById('jappixmini-encrypt').checked;
 389             password = document.getElementById('jappixmini-password');
 390             clear_password = document.getElementById('jappixmini-clear-password');
 391             if (encrypt) {
 392                 friendica_password = document.getElementById('jappixmini-friendica-password');
 393
 394                 if (friendica_password) {
 395                     jappixmini_addon_set_client_secret(friendica_password.value);
 396                     jappixmini_addon_encrypt_password(clear_password.value, function(encrypted_password){
 397                         password.value = encrypted_password;
 398                     });
 399                 }
 400             }
 401             else {
 402                 password.value = clear_password.value;
 403             }
 404         }
 405
 406         jQuery(document).ready(function() {
 407             encrypt = document.getElementById('jappixmini-encrypt').checked;
 408             password = document.getElementById('jappixmini-password');
 409             clear_password = document.getElementById('jappixmini-clear-password');
 410             if (encrypt) {
 411                 jappixmini_addon_decrypt_password(password.value, function(decrypted_password){
 412                     clear_password.value = decrypted_password;
 413                 });
 414             }
 415             else {
 416                 clear_password.value = password.value;
 417             }
 418         });
 419     </script>";
 420 }
 421
 422 function jappixmini_settings_post(App $a, &$b)
 423 {
 424         // save addon settings for a user
 425         if (!local_user()) {
 426                 return;
 427         }
 428         $uid = local_user();
 429
 430         if ($_POST['jappixmini-submit']) {
 431                 $encrypt = intval($b['jappixmini-encrypt']);
 432                 if ($encrypt) {
 433                         // check that Jabber password was encrypted with correct Friendica password
 434                         $friendica_password = trim($b['jappixmini-friendica-password']);
 435                         if (!User::authenticate((int) $uid, $friendica_password)) {
 436                                 notice("Wrong friendica password!");
 437                                 return;
 438                         }
 439                 }
 440
 441                 $purge = intval($b['jappixmini-purge']);
 442
 443                 $username = trim($b['jappixmini-username']);
 444                 $old_username = DI::pConfig()->get($uid, 'jappixmini', 'username');
 445                 if ($username != $old_username) {
 446                         $purge = 1;
 447                 }
 448
 449                 $server = trim($b['jappixmini-server']);
 450                 $old_server = DI::pConfig()->get($uid, 'jappixmini', 'server');
 451                 if ($server != $old_server) {
 452                         $purge = 1;
 453                 }
 454
 455                 DI::pConfig()->set($uid, 'jappixmini', 'username'      , $username);
 456                 DI::pConfig()->set($uid, 'jappixmini', 'server'        , $server);
 457                 DI::pConfig()->set($uid, 'jappixmini', 'bosh'          , trim($b['jappixmini-bosh']));
 458                 DI::pConfig()->set($uid, 'jappixmini', 'password'      , trim($b['jappixmini-encrypted-password']));
 459                 DI::pConfig()->set($uid, 'jappixmini', 'autosubscribe' , intval($b['jappixmini-autosubscribe']));
 460                 DI::pConfig()->set($uid, 'jappixmini', 'autoapprove'   , intval($b['jappixmini-autoapprove']));
 461                 DI::pConfig()->set($uid, 'jappixmini', 'activate'      , intval($b['jappixmini-activate']));
 462                 DI::pConfig()->set($uid, 'jappixmini', 'dontinsertchat', intval($b['jappixmini-dont-insertchat']));
 463                 DI::pConfig()->set($uid, 'jappixmini', 'encrypt'       , $encrypt);
 464
 465                 if ($purge) {
 466                         q("DELETE FROM `pconfig` WHERE `uid`=$uid AND `cat`='jappixmini' AND `k` LIKE 'id:%%'");
 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 = DI::pConfig()->get(local_user(), 'jappixmini', 'activate');
 483         $dontinsertchat = DI::pConfig()->get(local_user(), 'jappixmini', 'dontinsertchat');
 484         if (!$activate || $dontinsertchat) {
 485                 return;
 486         }
 487
 488         DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;g=mini.xml"></script>' . "\r\n";
 489         DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/addon/jappixmini/jappix/php/get.php?t=js&amp;f=presence.js~caps.js~name.js~roster.js"></script>' . "\r\n";
 490
 491         DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/addon/jappixmini/lib.js"></script>' . "\r\n";
 492
 493         $username = DI::pConfig()->get(local_user(), 'jappixmini', 'username');
 494         $username = str_replace("'", "\\'", $username);
 495         $server = DI::pConfig()->get(local_user(), 'jappixmini', 'server');
 496         $server = str_replace("'", "\\'", $server);
 497         $bosh = DI::pConfig()->get(local_user(), 'jappixmini', 'bosh');
 498         $bosh = str_replace("'", "\\'", $bosh);
 499         $encrypt = DI::pConfig()->get(local_user(), 'jappixmini', 'encrypt');
 500         $encrypt = intval($encrypt);
 501         $password = DI::pConfig()->get(local_user(), 'jappixmini', 'password');
 502         $password = str_replace("'", "\\'", $password);
 503
 504         $autoapprove = DI::pConfig()->get(local_user(), 'jappixmini', 'autoapprove');
 505         $autoapprove = intval($autoapprove);
 506         $autosubscribe = DI::pConfig()->get(local_user(), 'jappixmini', 'autosubscribe');
 507         $autosubscribe = intval($autosubscribe);
 508
 509         // set proxy if necessary
 510         $use_proxy = DI::config()->get('jappixmini', 'bosh_proxy');
 511         if ($use_proxy) {
 512                 $proxy = DI::baseUrl()->get() . '/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')", DBA::escape($dfrn_id), DBA::escape($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 = DI::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         DI::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         DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/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         DI::page()['htmlhead'] .= '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/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         DI::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::log("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), DBA::escape(Protocol::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 = DI::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 = DI::pConfig()->get($uid, 'jappixmini', 'username');
 640                         if (!$username) {
 641                                 continue;
 642                         }
 643                         $server = DI::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 = DI::httpRequest()->fetch($url);
 661
 662                                 // parse answer
 663                                 $answer = json_decode($answer_json);
 664                                 if (empty($answer->status) || ($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                         DI::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="' . DI::baseUrl()->get() . '/addon/jappixmini/jappix/AUTHORS">Jappix authors</a> and is distributed under the terms of the <a href="' . DI::baseUrl()->get() . '/addon/jappixmini/jappix/COPYING">GNU Affero General Public License</a>.</p>';
 699         $b .= '<p>You can download the <a href="' . DI::baseUrl()->get() . '/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 }