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