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