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