jappixmini/jappixmini.php

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