boot.php

   1 <?php
   2
   3 define ( 'FRIENDIKA_VERSION',      '2.2.1055' );
   4 define ( 'DFRN_PROTOCOL_VERSION',  '2.21'    );
   5 define ( 'DB_UPDATE_VERSION',      1076      );
   6
   7 define ( 'EOL',                    "<br />\r\n"     );
   8 define ( 'ATOM_TIME',              'Y-m-d\TH:i:s\Z' );
   9 define ( 'DOWN_ARROW',             '&#x21e9;'       );
  10
  11 /**
  12  *
  13  * Image storage quality. Lower numbers save space at cost of image detail.
  14  * For ease of upgrade, please do not change here. Change jpeg quality with
  15  * set_config('system','jpeg_quality',n) in .htconfig.php
  16  * where n is netween 1 and 100, and with very poor results below about 50
  17  *
  18  */
  19
  20 define ( 'JPEG_QUALITY',            100  );
  21
  22 /**
  23  * SSL redirection policies
  24  */
  25
  26 define ( 'SSL_POLICY_NONE',         0 );
  27 define ( 'SSL_POLICY_FULL',         1 );
  28 define ( 'SSL_POLICY_SELFSIGN',     2 );
  29
  30
  31 /**
  32  * log levels
  33  */
  34
  35 define ( 'LOGGER_NORMAL',          0 );
  36 define ( 'LOGGER_TRACE',           1 );
  37 define ( 'LOGGER_DEBUG',           2 );
  38 define ( 'LOGGER_DATA',            3 );
  39 define ( 'LOGGER_ALL',             4 );
  40
  41 /**
  42  * registration policies
  43  */
  44
  45 define ( 'REGISTER_CLOSED',        0 );
  46 define ( 'REGISTER_APPROVE',       1 );
  47 define ( 'REGISTER_OPEN',          2 );
  48
  49 /**
  50  * relationship types
  51  * When used in contact records, this indicates that 'uid' has
  52  * this relationship with contact['name']
  53  */
  54
  55 define ( 'REL_VIP',        1);     // other person is 'following' us
  56 define ( 'REL_FAN',        2);     // we are 'following' other person
  57 define ( 'REL_BUD',        3);     // mutual relationship
  58
  59 /**
  60  * Hook array order
  61  */
  62
  63 define ( 'HOOK_HOOK',      0);
  64 define ( 'HOOK_FILE',      1);
  65 define ( 'HOOK_FUNCTION',  2);
  66
  67 /**
  68  *
  69  * page/profile types
  70  *
  71  * PAGE_NORMAL is a typical personal profile account
  72  * PAGE_SOAPBOX automatically approves all friend requests as REL_FAN, (readonly)
  73  * PAGE_COMMUNITY automatically approves all friend requests as REL_FAN, but with
  74  *      write access to wall and comments (no email and not included in page owner's ACL lists)
  75  * PAGE_FREELOVE automatically approves all friend requests as full friends (REL_BUD).
  76  *
  77  */
  78
  79 define ( 'PAGE_NORMAL',            0 );
  80 define ( 'PAGE_SOAPBOX',           1 );
  81 define ( 'PAGE_COMMUNITY',         2 );
  82 define ( 'PAGE_FREELOVE',          3 );
  83
  84 /**
  85  * Network and protocol family types
  86  */
  87
  88 define ( 'NETWORK_ZOT',              'zot!');    // Zot!
  89 define ( 'NETWORK_DFRN',             'dfrn');    // Friendika, Mistpark, other DFRN implementations
  90 define ( 'NETWORK_OSTATUS',          'stat');    // status.net, identi.ca, GNU-social, other OStatus implementations
  91 define ( 'NETWORK_FEED',             'feed');    // RSS/Atom feeds with no known "post/notify" protocol
  92 define ( 'NETWORK_DIASPORA',         'dspr');    // Diaspora
  93 define ( 'NETWORK_MAIL',             'mail');    // IMAP/POP
  94 define ( 'NETWORK_FACEBOOK',         'face');    // Facebook API
  95
  96
  97 /**
  98  * Maximum number of "people who like (or don't like) this"  that we will list by name
  99  */
 100
 101 define ( 'MAX_LIKERS',    75);
 102
 103 /**
 104  * Communication timeout
 105  */
 106
 107 define ( 'ZCURL_TIMEOUT' , (-1));
 108
 109
 110 /**
 111  * email notification options
 112  */
 113
 114 define ( 'NOTIFY_INTRO',   0x0001 );
 115 define ( 'NOTIFY_CONFIRM', 0x0002 );
 116 define ( 'NOTIFY_WALL',    0x0004 );
 117 define ( 'NOTIFY_COMMENT', 0x0008 );
 118 define ( 'NOTIFY_MAIL',    0x0010 );
 119
 120 /**
 121  * various namespaces we may need to parse
 122  */
 123
 124 define ( 'NAMESPACE_ZOT',             'http://purl.org/macgirvin/zot' );
 125 define ( 'NAMESPACE_DFRN' ,           'http://purl.org/macgirvin/dfrn/1.0' );
 126 define ( 'NAMESPACE_THREAD' ,         'http://purl.org/syndication/thread/1.0' );
 127 define ( 'NAMESPACE_TOMB' ,           'http://purl.org/atompub/tombstones/1.0' );
 128 define ( 'NAMESPACE_ACTIVITY',        'http://activitystrea.ms/spec/1.0/' );
 129 define ( 'NAMESPACE_ACTIVITY_SCHEMA', 'http://activitystrea.ms/schema/1.0/' );
 130 define ( 'NAMESPACE_MEDIA',           'http://purl.org/syndication/atommedia' );
 131 define ( 'NAMESPACE_SALMON_ME',       'http://salmon-protocol.org/ns/magic-env' );
 132 define ( 'NAMESPACE_OSTATUSSUB',      'http://ostatus.org/schema/1.0/subscribe' );
 133 define ( 'NAMESPACE_GEORSS',          'http://www.georss.org/georss' );
 134 define ( 'NAMESPACE_POCO',            'http://portablecontacts.net/spec/1.0' );
 135 define ( 'NAMESPACE_FEED',            'http://schemas.google.com/g/2010#updates-from' );
 136 define ( 'NAMESPACE_OSTATUS',         'http://ostatus.org/schema/1.0' );
 137 define ( 'NAMESPACE_STATUSNET',       'http://status.net/schema/api/1/' );
 138 define ( 'NAMESPACE_ATOM1',           'http://www.w3.org/2005/Atom' );
 139 /**
 140  * activity stream defines
 141  */
 142
 143 define ( 'ACTIVITY_LIKE',        NAMESPACE_ACTIVITY_SCHEMA . 'like' );
 144 define ( 'ACTIVITY_DISLIKE',     NAMESPACE_DFRN            . '/dislike' );
 145 define ( 'ACTIVITY_OBJ_HEART',   NAMESPACE_DFRN            . '/heart' );
 146
 147 define ( 'ACTIVITY_FRIEND',      NAMESPACE_ACTIVITY_SCHEMA . 'make-friend' );
 148 define ( 'ACTIVITY_FOLLOW',      NAMESPACE_ACTIVITY_SCHEMA . 'follow' );
 149 define ( 'ACTIVITY_UNFOLLOW',    NAMESPACE_ACTIVITY_SCHEMA . 'stop-following' );
 150 define ( 'ACTIVITY_POST',        NAMESPACE_ACTIVITY_SCHEMA . 'post' );
 151 define ( 'ACTIVITY_UPDATE',      NAMESPACE_ACTIVITY_SCHEMA . 'update' );
 152 define ( 'ACTIVITY_TAG',         NAMESPACE_ACTIVITY_SCHEMA . 'tag' );
 153
 154 define ( 'ACTIVITY_OBJ_COMMENT', NAMESPACE_ACTIVITY_SCHEMA . 'comment' );
 155 define ( 'ACTIVITY_OBJ_NOTE',    NAMESPACE_ACTIVITY_SCHEMA . 'note' );
 156 define ( 'ACTIVITY_OBJ_PERSON',  NAMESPACE_ACTIVITY_SCHEMA . 'person' );
 157 define ( 'ACTIVITY_OBJ_PHOTO',   NAMESPACE_ACTIVITY_SCHEMA . 'photo' );
 158 define ( 'ACTIVITY_OBJ_P_PHOTO', NAMESPACE_ACTIVITY_SCHEMA . 'profile-photo' );
 159 define ( 'ACTIVITY_OBJ_ALBUM',   NAMESPACE_ACTIVITY_SCHEMA . 'photo-album' );
 160 define ( 'ACTIVITY_OBJ_EVENT',   NAMESPACE_ACTIVITY_SCHEMA . 'event' );
 161
 162 /**
 163  * item weight for query ordering
 164  */
 165
 166 define ( 'GRAVITY_PARENT',       0);
 167 define ( 'GRAVITY_LIKE',         3);
 168 define ( 'GRAVITY_COMMENT',      6);
 169
 170 /**
 171  *
 172  * Reverse the effect of magic_quotes_gpc if it is enabled.
 173  * Please disable magic_quotes_gpc so we don't have to do this.
 174  * See http://php.net/manual/en/security.magicquotes.disabling.php
 175  *
 176  */
 177
 178 function startup() {
 179         error_reporting(E_ERROR | E_WARNING | E_PARSE);
 180         set_time_limit(0);
 181         ini_set('pcre.backtrack_limit', 250000);
 182
 183
 184         if (get_magic_quotes_gpc()) {
 185         $process = array(&$_GET, &$_POST, &$_COOKIE, &$_REQUEST);
 186             while (list($key, $val) = each($process)) {
 187             foreach ($val as $k => $v) {
 188                     unset($process[$key][$k]);
 189                 if (is_array($v)) {
 190                         $process[$key][stripslashes($k)] = $v;
 191                         $process[] = &$process[$key][stripslashes($k)];
 192                 } else {
 193                         $process[$key][stripslashes($k)] = stripslashes($v);
 194                 }
 195                 }
 196         }
 197             unset($process);
 198         }
 199
 200 }
 201
 202 /*
 203  * translation system
 204  */
 205 require_once("include/pgettext.php");
 206
 207
 208 /**
 209  *
 210  * class: App
 211  *
 212  * Our main application structure for the life of this page
 213  * Primarily deals with the URL that got us here
 214  * and tries to make some sense of it, and
 215  * stores our page contents and config storage
 216  * and anything else that might need to be passed around
 217  * before we spit the page out.
 218  *
 219  */
 220
 221 if(! class_exists('App')) {
 222 class App {
 223
 224         public  $module_loaded = false;
 225         public  $query_string;
 226         public  $config;
 227         public  $page;
 228         public  $profile;
 229         public  $user;
 230         public  $cid;
 231         public  $contact;
 232         public  $contacts;
 233         public  $page_contact;
 234         public  $content;
 235         public  $data;
 236         public  $error = false;
 237         public  $cmd;
 238         public  $argv;
 239         public  $argc;
 240         public  $module;
 241         public  $pager;
 242         public  $strings;
 243         public  $path;
 244         public  $hooks;
 245         public  $timezone;
 246         public  $interactive = true;
 247         public  $plugins;
 248         public  $apps;
 249         public  $identities;
 250
 251         private $scheme;
 252         private $hostname;
 253         private $baseurl;
 254         private $db;
 255
 256         private $curl_code;
 257         private $curl_headers;
 258
 259         function __construct() {
 260
 261                 $this->config = array();
 262                 $this->page = array();
 263                 $this->pager= array();
 264
 265                 $this->query_string = '';
 266
 267                 startup();
 268
 269                 $this->scheme = ((isset($_SERVER['HTTPS']) && ($_SERVER['HTTPS']))      ?  'https' : 'http' );
 270
 271                 if(x($_SERVER,'SERVER_NAME')) {
 272                         $this->hostname = $_SERVER['SERVER_NAME'];
 273                         if(x($_SERVER,'SERVER_PORT') && $_SERVER['SERVER_PORT'] != 80 && $_SERVER['SERVER_PORT'] != 443)
 274                                 $this->hostname .= ':' . $_SERVER['SERVER_PORT'];
 275                         /**
 276                          * Figure out if we are running at the top of a domain
 277                          * or in a sub-directory and adjust accordingly
 278                          */
 279
 280                         $path = trim(dirname($_SERVER['SCRIPT_NAME']),'/\\');
 281                         if(isset($path) && strlen($path) && ($path != $this->path))
 282                                 $this->path = $path;
 283                 }
 284
 285                 set_include_path("include/$this->hostname" . PATH_SEPARATOR . 'include' . PATH_SEPARATOR . '.' );
 286
 287                 if((x($_SERVER,'QUERY_STRING')) && substr($_SERVER['QUERY_STRING'],0,2) === "q=")
 288                         $this->query_string = substr($_SERVER['QUERY_STRING'],2);
 289                 if(x($_GET,'q'))
 290                         $this->cmd = trim($_GET['q'],'/\\');
 291
 292
 293
 294                 /**
 295                  *
 296                  * Break the URL path into C style argc/argv style arguments for our
 297                  * modules. Given "http://example.com/module/arg1/arg2", $this->argc
 298                  * will be 3 (integer) and $this->argv will contain:
 299                  *   [0] => 'module'
 300                  *   [1] => 'arg1'
 301                  *   [2] => 'arg2'
 302                  *
 303                  *
 304                  * There will always be one argument. If provided a naked domain
 305                  * URL, $this->argv[0] is set to "home".
 306                  *
 307                  */
 308
 309                 $this->argv = explode('/',$this->cmd);
 310                 $this->argc = count($this->argv);
 311                 if((array_key_exists('0',$this->argv)) && strlen($this->argv[0])) {
 312                         $this->module = str_replace(".", "_", $this->argv[0]);
 313                 }
 314                 else {
 315                         $this->argc = 1;
 316                         $this->argv = array('home');
 317                         $this->module = 'home';
 318                 }
 319
 320                 /**
 321                  * Special handling for the webfinger/lrdd host XRD file
 322                  * Just spit out the contents and exit.
 323                  */
 324
 325                 if($this->cmd === '.well-known/host-meta') {
 326                         require_once('include/hostxrd.php');
 327                         hostxrd($this->get_baseurl());
 328                         // NOTREACHED
 329                 }
 330
 331                 /**
 332                  * See if there is any page number information, and initialise
 333                  * pagination
 334                  */
 335
 336                 $this->pager['page'] = ((x($_GET,'page')) ? $_GET['page'] : 1);
 337                 $this->pager['itemspage'] = 50;
 338                 $this->pager['start'] = ($this->pager['page'] * $this->pager['itemspage']) - $this->pager['itemspage'];
 339                 $this->pager['total'] = 0;
 340         }
 341
 342         function get_baseurl($ssl = false) {
 343
 344                 $scheme = $this->scheme;
 345
 346                 if(x($this->config,'ssl_policy')) {
 347                         if(($ssl) || ($this->config['ssl_policy'] == SSL_POLICY_FULL))
 348                                 $scheme = 'https';
 349                         if(($this->config['ssl_policy'] == SSL_POLICY_SELFSIGN) && (local_user() || x($_POST,'auth-params')))
 350                                 $scheme = 'https';
 351                 }
 352
 353                 $this->baseurl = $scheme . "://" . $this->hostname . ((isset($this->path) && strlen($this->path)) ? '/' . $this->path : '' );
 354                 return $this->baseurl;
 355         }
 356
 357         function set_baseurl($url) {
 358                 $parsed = @parse_url($url);
 359
 360                 $this->baseurl = $url;
 361
 362                 if($parsed) {
 363                         $this->scheme = $parsed['scheme'];
 364
 365                         $this->hostname = $parsed['host'];
 366                         if(x($parsed,'port'))
 367                                 $this->hostname .= ':' . $parsed['port'];
 368                         if(x($parsed,'path'))
 369                                 $this->path = trim($parsed['path'],'\\/');
 370                 }
 371
 372         }
 373
 374         function get_hostname() {
 375                 return $this->hostname;
 376         }
 377
 378         function set_hostname($h) {
 379                 $this->hostname = $h;
 380         }
 381
 382         function set_path($p) {
 383                 $this->path = trim(trim($p),'/');
 384         }
 385
 386         function get_path() {
 387                 return $this->path;
 388         }
 389
 390         function set_pager_total($n) {
 391                 $this->pager['total'] = intval($n);
 392         }
 393
 394         function set_pager_itemspage($n) {
 395                 $this->pager['itemspage'] = intval($n);
 396                 $this->pager['start'] = ($this->pager['page'] * $this->pager['itemspage']) - $this->pager['itemspage'];
 397
 398         }
 399
 400         function init_pagehead() {
 401                 $this->page['title'] = $this->config['sitename'];
 402                 $tpl = file_get_contents('view/head.tpl');
 403                 $this->page['htmlhead'] = replace_macros($tpl,array(
 404                         '$baseurl' => $this->get_baseurl(),
 405                         '$generator' => 'Friendika' . ' ' . FRIENDIKA_VERSION,
 406                         '$delitem' => t('Delete this item?'),
 407                         '$comment' => t('Comment')
 408                 ));
 409         }
 410
 411         function set_curl_code($code) {
 412                 $this->curl_code = $code;
 413         }
 414
 415         function get_curl_code() {
 416                 return $this->curl_code;
 417         }
 418
 419         function set_curl_headers($headers) {
 420                 $this->curl_headers = $headers;
 421         }
 422
 423         function get_curl_headers() {
 424                 return $this->curl_headers;
 425         }
 426
 427
 428 }}
 429
 430 // retrieve the App structure
 431 // useful in functions which require it but don't get it passed to them
 432
 433 if(! function_exists('get_app')) {
 434 function get_app() {
 435         global $a;
 436         return $a;
 437 }};
 438
 439
 440 // Multi-purpose function to check variable state.
 441 // Usage: x($var) or $x($array,'key')
 442 // returns false if variable/key is not set
 443 // if variable is set, returns 1 if has 'non-zero' value, otherwise returns 0.
 444 // e.g. x('') or x(0) returns 0;
 445
 446 if(! function_exists('x')) {
 447 function x($s,$k = NULL) {
 448         if($k != NULL) {
 449                 if((is_array($s)) && (array_key_exists($k,$s))) {
 450                         if($s[$k])
 451                                 return (int) 1;
 452                         return (int) 0;
 453                 }
 454                 return false;
 455         }
 456         else {
 457                 if(isset($s)) {
 458                         if($s) {
 459                                 return (int) 1;
 460                         }
 461                         return (int) 0;
 462                 }
 463                 return false;
 464         }
 465 }}
 466
 467 // called from db initialisation if db is dead.
 468
 469 if(! function_exists('system_unavailable')) {
 470 function system_unavailable() {
 471         include('system_unavailable.php');
 472         system_down();
 473         killme();
 474 }}
 475
 476
 477 // install and uninstall plugin
 478 if (! function_exists('uninstall_plugin')){
 479 function uninstall_plugin($plugin){
 480         logger("Addons: uninstalling " . $plugin);
 481         q("DELETE FROM `addon` WHERE `name` = '%s' LIMIT 1",
 482                 dbesc($plugin)
 483         );
 484
 485         @include_once('addon/' . $plugin . '/' . $plugin . '.php');
 486         if(function_exists($plugin . '_uninstall')) {
 487                 $func = $plugin . '_uninstall';
 488                 $func();
 489         }
 490 }}
 491
 492 if (! function_exists('install_plugin')){
 493 function install_plugin($plugin){
 494         logger("Addons: installing " . $plugin);
 495         $t = filemtime('addon/' . $plugin . '/' . $plugin . '.php');
 496         @include_once('addon/' . $plugin . '/' . $plugin . '.php');
 497         if(function_exists($plugin . '_install')) {
 498                 $func = $plugin . '_install';
 499                 $func();
 500
 501                 $plugin_admin = (function_exists($plugin."_plugin_admin")?1:0);
 502
 503                 $r = q("INSERT INTO `addon` (`name`, `installed`, `timestamp`, `plugin_admin`) VALUES ( '%s', 1, %d , %d ) ",
 504                         dbesc($plugin),
 505                         intval($t),
 506                         $plugin_admin
 507                 );
 508         }
 509 }}
 510
 511 // Primarily involved with database upgrade, but also sets the
 512 // base url for use in cmdline programs which don't have
 513 // $_SERVER variables, and synchronising the state of installed plugins.
 514
 515
 516 if(! function_exists('check_config')) {
 517 function check_config(&$a) {
 518
 519         $build = get_config('system','build');
 520         if(! x($build))
 521                 $build = set_config('system','build',DB_UPDATE_VERSION);
 522
 523         $url = get_config('system','url');
 524
 525         // if the url isn't set or the stored url is radically different
 526         // than the currently visited url, store the current value accordingly.
 527         // "Radically different" ignores common variations such as http vs https
 528         // and www.example.com vs example.com.
 529
 530         if((! x($url)) || (! link_compare($url,$a->get_baseurl())))
 531                 $url = set_config('system','url',$a->get_baseurl());
 532
 533         if($build != DB_UPDATE_VERSION) {
 534                 $stored = intval($build);
 535                 $current = intval(DB_UPDATE_VERSION);
 536                 if(($stored < $current) && file_exists('update.php')) {
 537
 538                         // We're reporting a different version than what is currently installed.
 539                         // Run any existing update scripts to bring the database up to current.
 540
 541                         require_once('update.php');
 542
 543                         // make sure that boot.php and update.php are the same release, we might be
 544                         // updating right this very second and the correct version of the update.php
 545                         // file may not be here yet. This can happen on a very busy site.
 546
 547                         if(DB_UPDATE_VERSION == UPDATE_VERSION) {
 548
 549                                 for($x = $stored; $x < $current; $x ++) {
 550                                         if(function_exists('update_' . $x)) {
 551                                                 $func = 'update_' . $x;
 552                                                 $func($a);
 553                                         }
 554                                 }
 555                                 set_config('system','build', DB_UPDATE_VERSION);
 556                         }
 557                 }
 558         }
 559
 560         /**
 561          *
 562          * Synchronise plugins:
 563          *
 564          * $a->config['system']['addon'] contains a comma-separated list of names
 565          * of plugins/addons which are used on this system.
 566          * Go through the database list of already installed addons, and if we have
 567          * an entry, but it isn't in the config list, call the uninstall procedure
 568          * and mark it uninstalled in the database (for now we'll remove it).
 569          * Then go through the config list and if we have a plugin that isn't installed,
 570          * call the install procedure and add it to the database.
 571          *
 572          */
 573
 574         $r = q("SELECT * FROM `addon` WHERE `installed` = 1");
 575         if(count($r))
 576                 $installed = $r;
 577         else
 578                 $installed = array();
 579
 580         $plugins = get_config('system','addon');
 581         $plugins_arr = array();
 582
 583         if($plugins)
 584                 $plugins_arr = explode(',',str_replace(' ', '',$plugins));
 585
 586         $a->plugins = $plugins_arr;
 587
 588         $installed_arr = array();
 589
 590         if(count($installed)) {
 591                 foreach($installed as $i) {
 592                         if(! in_array($i['name'],$plugins_arr)) {
 593                                 uninstall_plugin($i['name']);
 594                         }
 595                         else
 596                                 $installed_arr[] = $i['name'];
 597                 }
 598         }
 599
 600         if(count($plugins_arr)) {
 601                 foreach($plugins_arr as $p) {
 602                         if(! in_array($p,$installed_arr)) {
 603                                 install_plugin($p);
 604                         }
 605                 }
 606         }
 607
 608
 609         load_hooks();
 610
 611         return;
 612 }}
 613
 614 // reload all updated plugins
 615
 616 if(! function_exists('reload_plugins')) {
 617 function reload_plugins() {
 618         $plugins = get_config('system','addon');
 619         if(strlen($plugins)) {
 620
 621                 $r = q("SELECT * FROM `addon` WHERE `installed` = 1");
 622                 if(count($r))
 623                         $installed = $r;
 624                 else
 625                         $installed = array();
 626
 627                 $parr = explode(',',$plugins);
 628                 if(count($parr)) {
 629                         foreach($parr as $pl) {
 630                                 $pl = trim($pl);
 631
 632                                 $t = filemtime('addon/' . $pl . '/' . $pl . '.php');
 633                                 foreach($installed as $i) {
 634                                         if(($i['name'] == $pl) && ($i['timestamp'] != $t)) {
 635                                                 logger('Reloading plugin: ' . $i['name']);
 636                                                 @include_once('addon/' . $pl . '/' . $pl . '.php');
 637
 638                                                 if(function_exists($pl . '_uninstall')) {
 639                                                         $func = $pl . '_uninstall';
 640                                                         $func();
 641                                                 }
 642                                                 if(function_exists($pl . '_install')) {
 643                                                         $func = $pl . '_install';
 644                                                         $func();
 645                                                 }
 646                                                 q("UPDATE `addon` SET `timestamp` = %d WHERE `id` = %d LIMIT 1",
 647                                                         intval($t),
 648                                                         intval($i['id'])
 649                                                 );
 650                                         }
 651                                 }
 652                         }
 653                 }
 654         }
 655 }}
 656
 657
 658
 659 // This is our template processor.
 660 // $s is the string requiring macro substitution.
 661 // $r is an array of key value pairs (search => replace)
 662 // returns substituted string.
 663 // WARNING: this is pretty basic, and doesn't properly handle search strings that are substrings of each other.
 664 // For instance if 'test' => "foo" and 'testing' => "bar", testing could become either bar or fooing,
 665 // depending on the order in which they were declared in the array.
 666
 667 require_once("include/template_processor.php");
 668
 669 if(! function_exists('replace_macros')) {
 670 function replace_macros($s,$r) {
 671         global $t;
 672
 673         return $t->replace($s,$r);
 674
 675 }}
 676
 677
 678 // curl wrapper. If binary flag is true, return binary
 679 // results.
 680
 681 if(! function_exists('fetch_url')) {
 682 function fetch_url($url,$binary = false, &$redirects = 0) {
 683
 684         $a = get_app();
 685
 686         $ch = curl_init($url);
 687         if(($redirects > 8) || (! $ch))
 688                 return false;
 689
 690         curl_setopt($ch, CURLOPT_HEADER, true);
 691         curl_setopt($ch, CURLOPT_RETURNTRANSFER,true);
 692         curl_setopt($ch, CURLOPT_USERAGENT, "Friendika");
 693
 694         $curl_time = intval(get_config('system','curl_timeout'));
 695         curl_setopt($ch, CURLOPT_TIMEOUT, (($curl_time !== false) ? $curl_time : 60));
 696
 697         // by default we will allow self-signed certs
 698         // but you can override this
 699
 700         $check_cert = get_config('system','verifyssl');
 701         curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, (($check_cert) ? true : false));
 702
 703         $prx = get_config('system','proxy');
 704         if(strlen($prx)) {
 705                 curl_setopt($ch, CURLOPT_HTTPPROXYTUNNEL, 1);
 706                 curl_setopt($ch, CURLOPT_PROXY, $prx);
 707                 $prxusr = get_config('system','proxyuser');
 708                 if(strlen($prxusr))
 709                         curl_setopt($ch, CURLOPT_PROXYUSERPWD, $prxusr);
 710         }
 711         if($binary)
 712                 curl_setopt($ch, CURLOPT_BINARYTRANSFER,1);
 713
 714         $a->set_curl_code(0);
 715
 716         // don't let curl abort the entire application
 717         // if it throws any errors.
 718
 719         $s = @curl_exec($ch);
 720
 721         $base = $s;
 722         $curl_info = curl_getinfo($ch);
 723         $http_code = $curl_info['http_code'];
 724
 725         $header = '';
 726
 727         // Pull out multiple headers, e.g. proxy and continuation headers
 728         // allow for HTTP/2.x without fixing code
 729
 730         while(preg_match('/^HTTP\/[1-2].+? [1-5][0-9][0-9]/',$base)) {
 731                 $chunk = substr($base,0,strpos($base,"\r\n\r\n")+4);
 732                 $header .= $chunk;
 733                 $base = substr($base,strlen($chunk));
 734         }
 735
 736         if($http_code == 301 || $http_code == 302 || $http_code == 303 || $http_code == 307) {
 737         $matches = array();
 738         preg_match('/(Location:|URI:)(.*?)\n/', $header, $matches);
 739         $url = trim(array_pop($matches));
 740         $url_parsed = @parse_url($url);
 741         if (isset($url_parsed)) {
 742             $redirects++;
 743             return fetch_url($url,$binary,$redirects);
 744         }
 745     }
 746
 747         $a->set_curl_code($http_code);
 748
 749         $body = substr($s,strlen($header));
 750
 751         $a->set_curl_headers($header);
 752
 753         curl_close($ch);
 754         return($body);
 755 }}
 756
 757 // post request to $url. $params is an array of post variables.
 758
 759 if(! function_exists('post_url')) {
 760 function post_url($url,$params, $headers = null, &$redirects = 0) {
 761         $a = get_app();
 762         $ch = curl_init($url);
 763         if(($redirects > 8) || (! $ch))
 764                 return false;
 765
 766         curl_setopt($ch, CURLOPT_HEADER, true);
 767         curl_setopt($ch, CURLOPT_RETURNTRANSFER,true);
 768         curl_setopt($ch, CURLOPT_POST,1);
 769         curl_setopt($ch, CURLOPT_POSTFIELDS,$params);
 770         curl_setopt($ch, CURLOPT_USERAGENT, "Friendika");
 771
 772         $curl_time = intval(get_config('system','curl_timeout'));
 773         curl_setopt($ch, CURLOPT_TIMEOUT, (($curl_time !== false) ? $curl_time : 60));
 774
 775         if(defined('LIGHTTPD')) {
 776                 if(!is_array($headers)) {
 777                         $headers = array('Expect:');
 778                 } else {
 779                         if(!in_array('Expect:', $headers)) {
 780                                 array_push($headers, 'Expect:');
 781                         }
 782                 }
 783         }
 784         if($headers)
 785                 curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);
 786
 787         $check_cert = get_config('system','verifyssl');
 788         curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, (($check_cert) ? true : false));
 789         $prx = get_config('system','proxy');
 790         if(strlen($prx)) {
 791                 curl_setopt($ch, CURLOPT_HTTPPROXYTUNNEL, 1);
 792                 curl_setopt($ch, CURLOPT_PROXY, $prx);
 793                 $prxusr = get_config('system','proxyuser');
 794                 if(strlen($prxusr))
 795                         curl_setopt($ch, CURLOPT_PROXYUSERPWD, $prxusr);
 796         }
 797
 798         $a->set_curl_code(0);
 799
 800         // don't let curl abort the entire application
 801         // if it throws any errors.
 802
 803         $s = @curl_exec($ch);
 804
 805         $base = $s;
 806         $curl_info = curl_getinfo($ch);
 807         $http_code = $curl_info['http_code'];
 808
 809         $header = '';
 810
 811         // Pull out multiple headers, e.g. proxy and continuation headers
 812         // allow for HTTP/2.x without fixing code
 813
 814         while(preg_match('/^HTTP\/[1-2].+? [1-5][0-9][0-9]/',$base)) {
 815                 $chunk = substr($base,0,strpos($base,"\r\n\r\n")+4);
 816                 $header .= $chunk;
 817                 $base = substr($base,strlen($chunk));
 818         }
 819
 820         if($http_code == 301 || $http_code == 302 || $http_code == 303) {
 821         $matches = array();
 822         preg_match('/(Location:|URI:)(.*?)\n/', $header, $matches);
 823         $url = trim(array_pop($matches));
 824         $url_parsed = @parse_url($url);
 825         if (isset($url_parsed)) {
 826             $redirects++;
 827             return post_url($url,$binary,$headers,$redirects);
 828         }
 829     }
 830         $a->set_curl_code($http_code);
 831         $body = substr($s,strlen($header));
 832
 833         $a->set_curl_headers($header);
 834
 835         curl_close($ch);
 836         return($body);
 837 }}
 838
 839 // random hash, 64 chars
 840
 841 if(! function_exists('random_string')) {
 842 function random_string() {
 843         return(hash('sha256',uniqid(rand(),true)));
 844 }}
 845
 846 /**
 847  * This is our primary input filter.
 848  *
 849  * The high bit hack only involved some old IE browser, forget which (IE5/Mac?)
 850  * that had an XSS attack vector due to stripping the high-bit on an 8-bit character
 851  * after cleansing, and angle chars with the high bit set could get through as markup.
 852  *
 853  * This is now disabled because it was interfering with some legitimate unicode sequences
 854  * and hopefully there aren't a lot of those browsers left.
 855  *
 856  * Use this on any text input where angle chars are not valid or permitted
 857  * They will be replaced with safer brackets. This may be filtered further
 858  * if these are not allowed either.
 859  *
 860  */
 861
 862 if(! function_exists('notags')) {
 863 function notags($string) {
 864
 865         return(str_replace(array("<",">"), array('[',']'), $string));
 866
 867 //  High-bit filter no longer used
 868 //      return(str_replace(array("<",">","\xBA","\xBC","\xBE"), array('[',']','','',''), $string));
 869 }}
 870
 871 // use this on "body" or "content" input where angle chars shouldn't be removed,
 872 // and allow them to be safely displayed.
 873
 874 if(! function_exists('escape_tags')) {
 875 function escape_tags($string) {
 876
 877         return(htmlspecialchars($string));
 878 }}
 879
 880 // wrapper for adding a login box. If $register == true provide a registration
 881 // link. This will most always depend on the value of $a->config['register_policy'].
 882 // returns the complete html for inserting into the page
 883
 884 if(! function_exists('login')) {
 885 function login($register = false) {
 886         $o = "";
 887         $register_tpl = (($register) ? get_markup_template("register-link.tpl") : "");
 888
 889         $register_html = replace_macros($register_tpl,array(
 890                 '$title' => t('Create a New Account'),
 891                 '$desc' => t('Register')
 892         ));
 893
 894         $noid = get_config('system','no_openid');
 895         if($noid) {
 896                 $classname = 'no-openid';
 897                 $namelabel = t('Nickname or Email address: ');
 898                 $passlabel = t('Password: ');
 899                 $login     = t('Login');
 900         }
 901         else {
 902                 $classname = 'openid';
 903                 $namelabel = t('Nickname/Email/OpenID: ');
 904                 $passlabel = t("Password \x28if not OpenID\x29: ");
 905                 $login     = t('Login');
 906         }
 907         $lostpass = t('Forgot your password?');
 908         $lostlink = t('Password Reset');
 909
 910         if(local_user()) {
 911                 $tpl = get_markup_template("logout.tpl");
 912         }
 913         else {
 914                 $tpl = get_markup_template("login.tpl");
 915
 916         }
 917
 918         $o = '<script type="text/javascript"> $(document).ready(function() { $("#login-name").focus();} );</script>';
 919
 920         $o .= replace_macros($tpl,array(
 921                 '$logout'        => t('Logout'),
 922                 '$register_html' => $register_html,
 923                 '$classname'     => $classname,
 924                 '$namelabel'     => $namelabel,
 925                 '$passlabel'     => $passlabel,
 926                 '$login'         => $login,
 927                 '$lostpass'      => $lostpass,
 928                 '$lostlink'      => $lostlink
 929         ));
 930
 931         return $o;
 932 }}
 933
 934 // generate a string that's random, but usually pronounceable.
 935 // used to generate initial passwords
 936
 937 if(! function_exists('autoname')) {
 938 function autoname($len) {
 939
 940         $vowels = array('a','a','ai','au','e','e','e','ee','ea','i','ie','o','ou','u');
 941         if(mt_rand(0,5) == 4)
 942                 $vowels[] = 'y';
 943
 944         $cons = array(
 945                         'b','bl','br',
 946                         'c','ch','cl','cr',
 947                         'd','dr',
 948                         'f','fl','fr',
 949                         'g','gh','gl','gr',
 950                         'h',
 951                         'j',
 952                         'k','kh','kl','kr',
 953                         'l',
 954                         'm',
 955                         'n',
 956                         'p','ph','pl','pr',
 957                         'qu',
 958                         'r','rh',
 959                         's','sc','sh','sm','sp','st',
 960                         't','th','tr',
 961                         'v',
 962                         'w','wh',
 963                         'x',
 964                         'z','zh'
 965                         );
 966
 967         $midcons = array('ck','ct','gn','ld','lf','lm','lt','mb','mm', 'mn','mp',
 968                                 'nd','ng','nk','nt','rn','rp','rt');
 969
 970         $noend = array('bl', 'br', 'cl','cr','dr','fl','fr','gl','gr',
 971                                 'kh', 'kl','kr','mn','pl','pr','rh','tr','qu','wh');
 972
 973         $start = mt_rand(0,2);
 974         if($start == 0)
 975                 $table = $vowels;
 976         else
 977                 $table = $cons;
 978
 979         $word = '';
 980
 981         for ($x = 0; $x < $len; $x ++) {
 982                 $r = mt_rand(0,count($table) - 1);
 983                 $word .= $table[$r];
 984
 985                 if($table == $vowels)
 986                         $table = array_merge($cons,$midcons);
 987                 else
 988                         $table = $vowels;
 989
 990         }
 991
 992         $word = substr($word,0,$len);
 993
 994         foreach($noend as $noe) {
 995                 if((strlen($word) > 2) && (substr($word,-2) == $noe)) {
 996                         $word = substr($word,0,-1);
 997                         break;
 998                 }
 999         }
1000         if(substr($word,-1) == 'q')
1001                 $word = substr($word,0,-1);
1002         return $word;
1003 }}
1004
1005 // Used to end the current process, after saving session state.
1006
1007 if(! function_exists('killme')) {
1008 function killme() {
1009         session_write_close();
1010         exit;
1011 }}
1012
1013 // redirect to another URL and terminate this process.
1014
1015 if(! function_exists('goaway')) {
1016 function goaway($s) {
1017         header("Location: $s");
1018         killme();
1019 }}
1020
1021 // Generic XML return
1022 // Outputs a basic dfrn XML status structure to STDOUT, with a <status> variable
1023 // of $st and an optional text <message> of $message and terminates the current process.
1024
1025 if(! function_exists('xml_status')) {
1026 function xml_status($st, $message = '') {
1027
1028         $xml_message = ((strlen($message)) ? "\t<message>" . xmlify($message) . "</message>\r\n" : '');
1029
1030         if($st)
1031                 logger('xml_status returning non_zero: ' . $st . " message=" . $message);
1032
1033         header( "Content-type: text/xml" );
1034         echo '<?xml version="1.0" encoding="UTF-8"?>'."\r\n";
1035         echo "<result>\r\n\t<status>$st</status>\r\n$xml_message</result>\r\n";
1036         killme();
1037 }}
1038
1039 // Returns the uid of locally logged in user or false.
1040
1041 if(! function_exists('local_user')) {
1042 function local_user() {
1043         if((x($_SESSION,'authenticated')) && (x($_SESSION,'uid')))
1044                 return intval($_SESSION['uid']);
1045         return false;
1046 }}
1047
1048 // Returns contact id of authenticated site visitor or false
1049
1050 if(! function_exists('remote_user')) {
1051 function remote_user() {
1052         if((x($_SESSION,'authenticated')) && (x($_SESSION,'visitor_id')))
1053                 return intval($_SESSION['visitor_id']);
1054         return false;
1055 }}
1056
1057 // contents of $s are displayed prominently on the page the next time
1058 // a page is loaded. Usually used for errors or alerts.
1059
1060 if(! function_exists('notice')) {
1061 function notice($s) {
1062         $a = get_app();
1063         if($a->interactive)
1064                 $_SESSION['sysmsg'] .= $s;
1065 }}
1066 if(! function_exists('info')) {
1067 function info($s) {
1068         $a = get_app();
1069         if($a->interactive)
1070                 $_SESSION['sysmsg_info'] .= $s;
1071 }}
1072
1073
1074 // wrapper around config to limit the text length of an incoming message
1075
1076 if(! function_exists('get_max_import_size')) {
1077 function get_max_import_size() {
1078         global $a;
1079         return ((x($a->config,'max_import_size')) ? $a->config['max_import_size'] : 0 );
1080 }}
1081
1082
1083 // escape text ($str) for XML transport
1084 // returns escaped text.
1085
1086 if(! function_exists('xmlify')) {
1087 function xmlify($str) {
1088         $buffer = '';
1089
1090         for($x = 0; $x < strlen($str); $x ++) {
1091                 $char = $str[$x];
1092
1093                 switch( $char ) {
1094
1095                         case "\r" :
1096                                 break;
1097                         case "&" :
1098                                 $buffer .= '&amp;';
1099                                 break;
1100                         case "'" :
1101                                 $buffer .= '&apos;';
1102                                 break;
1103                         case "\"" :
1104                                 $buffer .= '&quot;';
1105                                 break;
1106                         case '<' :
1107                                 $buffer .= '&lt;';
1108                                 break;
1109                         case '>' :
1110                                 $buffer .= '&gt;';
1111                                 break;
1112                         case "\n" :
1113                                 $buffer .= "\n";
1114                                 break;
1115                         default :
1116                                 $buffer .= $char;
1117                                 break;
1118                 }
1119         }
1120         $buffer = trim($buffer);
1121         return($buffer);
1122 }}
1123
1124 // undo an xmlify
1125 // pass xml escaped text ($s), returns unescaped text
1126
1127 if(! function_exists('unxmlify')) {
1128 function unxmlify($s) {
1129         $ret = str_replace('&amp;','&', $s);
1130         $ret = str_replace(array('&lt;','&gt;','&quot;','&apos;'),array('<','>','"',"'"),$ret);
1131         return $ret;
1132 }}
1133
1134 // convenience wrapper, reverse the operation "bin2hex"
1135
1136 if(! function_exists('hex2bin')) {
1137 function hex2bin($s) {
1138         if(! ctype_xdigit($s)) {
1139                 logger('hex2bin: illegal input: ' . print_r(debug_backtrace(), true));
1140                 return($s);
1141         }
1142
1143         return(pack("H*",$s));
1144 }}
1145
1146 // Automatic pagination.
1147 // To use, get the count of total items.
1148 // Then call $a->set_pager_total($number_items);
1149 // Optionally call $a->set_pager_itemspage($n) to the number of items to display on each page
1150 // Then call paginate($a) after the end of the display loop to insert the pager block on the page
1151 // (assuming there are enough items to paginate).
1152 // When using with SQL, the setting LIMIT %d, %d => $a->pager['start'],$a->pager['itemspage']
1153 // will limit the results to the correct items for the current page.
1154 // The actual page handling is then accomplished at the application layer.
1155
1156 if(! function_exists('paginate')) {
1157 function paginate(&$a) {
1158         $o = '';
1159         $stripped = preg_replace('/(&page=[0-9]*)/','',$a->query_string);
1160         $stripped = str_replace('q=','',$stripped);
1161         $stripped = trim($stripped,'/');
1162         $pagenum = $a->pager['page'];
1163         $url = $a->get_baseurl() . '/' . $stripped;
1164
1165
1166           if($a->pager['total'] > $a->pager['itemspage']) {
1167                 $o .= '<div class="pager">';
1168                 if($a->pager['page'] != 1)
1169                         $o .= '<span class="pager_prev">'."<a href=\"$url".'&page='.($a->pager['page'] - 1).'">' . t('prev') . '</a></span> ';
1170
1171                 $o .=  "<span class=\"pager_first\"><a href=\"$url"."&page=1\">" . t('first') . "</a></span> ";
1172
1173                 $numpages = $a->pager['total'] / $a->pager['itemspage'];
1174
1175                         $numstart = 1;
1176                 $numstop = $numpages;
1177
1178                 if($numpages > 14) {
1179                         $numstart = (($pagenum > 7) ? ($pagenum - 7) : 1);
1180                         $numstop = (($pagenum > ($numpages - 7)) ? $numpages : ($numstart + 14));
1181                 }
1182
1183                 for($i = $numstart; $i <= $numstop; $i++){
1184                         if($i == $a->pager['page'])
1185                                 $o .= '<span class="pager_current">'.(($i < 10) ? '&nbsp;'.$i : $i);
1186                         else
1187                                 $o .= "<span class=\"pager_n\"><a href=\"$url"."&page=$i\">".(($i < 10) ? '&nbsp;'.$i : $i)."</a>";
1188                         $o .= '</span> ';
1189                 }
1190
1191                 if(($a->pager['total'] % $a->pager['itemspage']) != 0) {
1192                         if($i == $a->pager['page'])
1193                                 $o .= '<span class="pager_current">'.(($i < 10) ? '&nbsp;'.$i : $i);
1194                         else
1195                                 $o .= "<span class=\"pager_n\"><a href=\"$url"."&page=$i\">".(($i < 10) ? '&nbsp;'.$i : $i)."</a>";
1196                         $o .= '</span> ';
1197                 }
1198
1199                 $lastpage = (($numpages > intval($numpages)) ? intval($numpages)+1 : $numpages);
1200                 $o .= "<span class=\"pager_last\"><a href=\"$url"."&page=$lastpage\">" . t('last') . "</a></span> ";
1201
1202                 if(($a->pager['total'] - ($a->pager['itemspage'] * $a->pager['page'])) > 0)
1203                         $o .= '<span class="pager_next">'."<a href=\"$url"."&page=".($a->pager['page'] + 1).'">' . t('next') . '</a></span>';
1204                 $o .= '</div>'."\r\n";
1205         }
1206         return $o;
1207 }}
1208
1209 // Turn user/group ACLs stored as angle bracketed text into arrays
1210
1211 if(! function_exists('expand_acl')) {
1212 function expand_acl($s) {
1213         // turn string array of angle-bracketed elements into numeric array
1214         // e.g. "<1><2><3>" => array(1,2,3);
1215         $ret = array();
1216
1217         if(strlen($s)) {
1218                 $t = str_replace('<','',$s);
1219                 $a = explode('>',$t);
1220                 foreach($a as $aa) {
1221                         if(intval($aa))
1222                                 $ret[] = intval($aa);
1223                 }
1224         }
1225         return $ret;
1226 }}
1227
1228 // Used to wrap ACL elements in angle brackets for storage
1229
1230 if(! function_exists('sanitise_acl')) {
1231 function sanitise_acl(&$item) {
1232         if(intval($item))
1233                 $item = '<' . intval(notags(trim($item))) . '>';
1234         else
1235                 unset($item);
1236 }}
1237
1238 // retrieve a "family" of config variables from database to cached storage
1239
1240 if(! function_exists('load_config')) {
1241 function load_config($family) {
1242         global $a;
1243         $r = q("SELECT * FROM `config` WHERE `cat` = '%s'",
1244                 dbesc($family)
1245         );
1246         if(count($r)) {
1247                 foreach($r as $rr) {
1248                         $k = $rr['k'];
1249                         if ($rr['cat'] === 'config') {
1250                                 $a->config[$k] = $rr['v'];
1251                         } else {
1252                                 $a->config[$family][$k] = $rr['v'];
1253                         }
1254                 }
1255         }
1256 }}
1257
1258 // get a particular config variable given the family name
1259 // and key. Returns false if not set.
1260 // $instore is only used by the set_config function
1261 // to determine if the key already exists in the DB
1262 // If a key is found in the DB but doesn't exist in
1263 // local config cache, pull it into the cache so we don't have
1264 // to hit the DB again for this item.
1265
1266 if(! function_exists('get_config')) {
1267 function get_config($family, $key, $instore = false) {
1268
1269         global $a;
1270
1271         if(! $instore) {
1272                 if(isset($a->config[$family][$key])) {
1273                         if($a->config[$family][$key] === '!<unset>!') {
1274                                 return false;
1275                         }
1276                         return $a->config[$family][$key];
1277                 }
1278         }
1279         $ret = q("SELECT `v` FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
1280                 dbesc($family),
1281                 dbesc($key)
1282         );
1283         if(count($ret)) {
1284                 // manage array value
1285                 $val = (preg_match("|^a:[0-9]+:{.*}$|", $ret[0]['v'])?unserialize( $ret[0]['v']):$ret[0]['v']);
1286                 $a->config[$family][$key] = $val;
1287                 return $val;
1288         }
1289         else {
1290                 $a->config[$family][$key] = '!<unset>!';
1291         }
1292         return false;
1293 }}
1294
1295 // Store a config value ($value) in the category ($family)
1296 // under the key ($key)
1297 // Return the value, or false if the database update failed
1298
1299 if(! function_exists('set_config')) {
1300 function set_config($family,$key,$value) {
1301         global $a;
1302
1303         // manage array value
1304         $dbvalue = (is_array($value)?serialize($value):$value);
1305
1306         if(get_config($family,$key,true) === false) {
1307                 $a->config[$family][$key] = $value;
1308                 $ret = q("INSERT INTO `config` ( `cat`, `k`, `v` ) VALUES ( '%s', '%s', '%s' ) ",
1309                         dbesc($family),
1310                         dbesc($key),
1311                         dbesc($dbvalue)
1312                 );
1313                 if($ret)
1314                         return $value;
1315                 return $ret;
1316         }
1317
1318         $ret = q("UPDATE `config` SET `v` = '%s' WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
1319                 dbesc($dbvalue),
1320                 dbesc($family),
1321                 dbesc($key)
1322         );
1323
1324         $a->config[$family][$key] = $value;
1325
1326         if($ret)
1327                 return $value;
1328         return $ret;
1329 }}
1330
1331
1332 if(! function_exists('load_pconfig')) {
1333 function load_pconfig($uid,$family) {
1334         global $a;
1335         $r = q("SELECT * FROM `pconfig` WHERE `cat` = '%s' AND `uid` = %d",
1336                 dbesc($family),
1337                 intval($uid)
1338         );
1339         if(count($r)) {
1340                 foreach($r as $rr) {
1341                         $k = $rr['k'];
1342                         $a->config[$uid][$family][$k] = $rr['v'];
1343                 }
1344         }
1345 }}
1346
1347
1348
1349 if(! function_exists('get_pconfig')) {
1350 function get_pconfig($uid,$family, $key, $instore = false) {
1351
1352         global $a;
1353
1354         if(! $instore) {
1355                 if(isset($a->config[$uid][$family][$key])) {
1356                         if($a->config[$uid][$family][$key] === '!<unset>!') {
1357                                 return false;
1358                         }
1359                         return $a->config[$uid][$family][$key];
1360                 }
1361         }
1362
1363         $ret = q("SELECT `v` FROM `pconfig` WHERE `uid` = %d AND `cat` = '%s' AND `k` = '%s' LIMIT 1",
1364                 intval($uid),
1365                 dbesc($family),
1366                 dbesc($key)
1367         );
1368
1369         if(count($ret)) {
1370                 $a->config[$uid][$family][$key] = $ret[0]['v'];
1371                 return $ret[0]['v'];
1372         }
1373         else {
1374                 $a->config[$uid][$family][$key] = '!<unset>!';
1375         }
1376         return false;
1377 }}
1378
1379 if(! function_exists('del_config')) {
1380 function del_config($family,$key) {
1381
1382         global $a;
1383         if(x($a->config[$family],$key))
1384                 unset($a->config[$family][$key]);
1385         $ret = q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
1386                 dbesc($cat),
1387                 dbesc($key)
1388         );
1389         return $ret;
1390 }}
1391
1392
1393
1394 // Same as above functions except these are for personal config storage and take an
1395 // additional $uid argument.
1396
1397 if(! function_exists('set_pconfig')) {
1398 function set_pconfig($uid,$family,$key,$value) {
1399
1400         global $a;
1401
1402         if(get_pconfig($uid,$family,$key,true) === false) {
1403                 $a->config[$uid][$family][$key] = $value;
1404                 $ret = q("INSERT INTO `pconfig` ( `uid`, `cat`, `k`, `v` ) VALUES ( %d, '%s', '%s', '%s' ) ",
1405                         intval($uid),
1406                         dbesc($family),
1407                         dbesc($key),
1408                         dbesc($value)
1409                 );
1410                 if($ret)
1411                         return $value;
1412                 return $ret;
1413         }
1414         $ret = q("UPDATE `pconfig` SET `v` = '%s' WHERE `uid` = %d AND `cat` = '%s' AND `k` = '%s' LIMIT 1",
1415                 dbesc($value),
1416                 intval($uid),
1417                 dbesc($family),
1418                 dbesc($key)
1419         );
1420
1421         $a->config[$uid][$family][$key] = $value;
1422
1423         if($ret)
1424                 return $value;
1425         return $ret;
1426 }}
1427
1428 if(! function_exists('del_pconfig')) {
1429 function del_pconfig($uid,$family,$key) {
1430
1431         global $a;
1432         if(x($a->config[$uid][$family],$key))
1433                 unset($a->config[$uid][$family][$key]);
1434         $ret = q("DELETE FROM `pconfig` WHERE `uid` = %d AND `cat` = '%s' AND `k` = '%s' LIMIT 1",
1435                 intval($uid),
1436                 dbesc($family),
1437                 dbesc($key)
1438         );
1439         return $ret;
1440 }}
1441
1442
1443 // convert an XML document to a normalised, case-corrected array
1444 // used by webfinger
1445
1446 if(! function_exists('convert_xml_element_to_array')) {
1447 function convert_xml_element_to_array($xml_element, &$recursion_depth=0) {
1448
1449         // If we're getting too deep, bail out
1450         if ($recursion_depth > 512) {
1451                 return(null);
1452         }
1453
1454         if (!is_string($xml_element) &&
1455         !is_array($xml_element) &&
1456         (get_class($xml_element) == 'SimpleXMLElement')) {
1457                 $xml_element_copy = $xml_element;
1458                 $xml_element = get_object_vars($xml_element);
1459         }
1460
1461         if (is_array($xml_element)) {
1462                 $result_array = array();
1463                 if (count($xml_element) <= 0) {
1464                         return (trim(strval($xml_element_copy)));
1465                 }
1466
1467                 foreach($xml_element as $key=>$value) {
1468
1469                         $recursion_depth++;
1470                         $result_array[strtolower($key)] =
1471                 convert_xml_element_to_array($value, $recursion_depth);
1472                         $recursion_depth--;
1473                 }
1474                 if ($recursion_depth == 0) {
1475                         $temp_array = $result_array;
1476                         $result_array = array(
1477                                 strtolower($xml_element_copy->getName()) => $temp_array,
1478                         );
1479                 }
1480
1481                 return ($result_array);
1482
1483         } else {
1484                 return (trim(strval($xml_element)));
1485         }
1486 }}
1487
1488 // Given an email style address, perform webfinger lookup and
1489 // return the resulting DFRN profile URL, or if no DFRN profile URL
1490 // is located, returns an OStatus subscription template (prefixed
1491 // with the string 'stat:' to identify it as on OStatus template).
1492 // If this isn't an email style address just return $s.
1493 // Return an empty string if email-style addresses but webfinger fails,
1494 // or if the resultant personal XRD doesn't contain a supported
1495 // subscription/friend-request attribute.
1496
1497 if(! function_exists('webfinger_dfrn')) {
1498 function webfinger_dfrn($s) {
1499         if(! strstr($s,'@')) {
1500                 return $s;
1501         }
1502         $links = webfinger($s);
1503         logger('webfinger_dfrn: ' . $s . ':' . print_r($links,true), LOGGER_DATA);
1504         if(count($links)) {
1505                 foreach($links as $link)
1506                         if($link['@attributes']['rel'] === NAMESPACE_DFRN)
1507                                 return $link['@attributes']['href'];
1508                 foreach($links as $link)
1509                         if($link['@attributes']['rel'] === NAMESPACE_OSTATUSSUB)
1510                                 return 'stat:' . $link['@attributes']['template'];
1511         }
1512         return '';
1513 }}
1514
1515 // Given an email style address, perform webfinger lookup and
1516 // return the array of link attributes from the personal XRD file.
1517 // On error/failure return an empty array.
1518
1519
1520 if(! function_exists('webfinger')) {
1521 function webfinger($s) {
1522         $host = '';
1523         if(strstr($s,'@')) {
1524                 $host = substr($s,strpos($s,'@') + 1);
1525         }
1526         if(strlen($host)) {
1527                 $tpl = fetch_lrdd_template($host);
1528                 logger('webfinger: lrdd template: ' . $tpl);
1529                 if(strlen($tpl)) {
1530                         $pxrd = str_replace('{uri}', urlencode('acct:' . $s), $tpl);
1531                         logger('webfinger: pxrd: ' . $pxrd);
1532                         $links = fetch_xrd_links($pxrd);
1533                         if(! count($links)) {
1534                                 // try with double slashes
1535                                 $pxrd = str_replace('{uri}', urlencode('acct://' . $s), $tpl);
1536                                 logger('webfinger: pxrd: ' . $pxrd);
1537                                 $links = fetch_xrd_links($pxrd);
1538                         }
1539                         return $links;
1540                 }
1541         }
1542         return array();
1543 }}
1544
1545 if(! function_exists('lrdd')) {
1546 function lrdd($uri) {
1547
1548         $a = get_app();
1549
1550         // default priority is host priority, host-meta first
1551
1552         $priority = 'host';
1553
1554         // All we have is an email address. Resource-priority is irrelevant
1555         // because our URI isn't directly resolvable.
1556
1557         if(strstr($uri,'@')) {
1558                 return(webfinger($uri));
1559         }
1560
1561         // get the host meta file
1562
1563         $host = @parse_url($uri);
1564
1565         if($host) {
1566                 $url  = ((x($host,'scheme')) ? $host['scheme'] : 'http') . '://';
1567                 $url .= $host['host'] . '/.well-known/host-meta' ;
1568         }
1569         else
1570                 return array();
1571
1572         logger('lrdd: constructed url: ' . $url);
1573
1574         $xml = fetch_url($url);
1575         $headers = $a->get_curl_headers();
1576
1577         if (! $xml)
1578                 return array();
1579
1580         logger('lrdd: host_meta: ' . $xml, LOGGER_DATA);
1581
1582         $h = parse_xml_string($xml);
1583         if(! $h)
1584                 return array();
1585
1586         $arr = convert_xml_element_to_array($h);
1587
1588         if(isset($arr['xrd']['property'])) {
1589                 $property = $arr['crd']['property'];
1590                 if(! isset($property[0]))
1591                         $properties = array($property);
1592                 else
1593                         $properties = $property;
1594                 foreach($properties as $prop)
1595                         if((string) $prop['@attributes'] === 'http://lrdd.net/priority/resource')
1596                                 $priority = 'resource';
1597         }
1598
1599         // save the links in case we need them
1600
1601         $links = array();
1602
1603         if(isset($arr['xrd']['link'])) {
1604                 $link = $arr['xrd']['link'];
1605                 if(! isset($link[0]))
1606                         $links = array($link);
1607                 else
1608                         $links = $link;
1609         }
1610
1611         // do we have a template or href?
1612
1613         if(count($links)) {
1614                 foreach($links as $link) {
1615                         if($link['@attributes']['rel'] && attribute_contains($link['@attributes']['rel'],'lrdd')) {
1616                                 if(x($link['@attributes'],'template'))
1617                                         $tpl = $link['@attributes']['template'];
1618                                 elseif(x($link['@attributes'],'href'))
1619                                         $href = $link['@attributes']['href'];
1620                         }
1621                 }
1622         }
1623
1624         if((! isset($tpl)) || (! strpos($tpl,'{uri}')))
1625                 $tpl = '';
1626
1627         if($priority === 'host') {
1628                 if(strlen($tpl))
1629                         $pxrd = str_replace('{uri}', urlencode($uri), $tpl);
1630                 elseif(isset($href))
1631                         $pxrd = $href;
1632                 if(isset($pxrd)) {
1633                         logger('lrdd: (host priority) pxrd: ' . $pxrd);
1634                         $links = fetch_xrd_links($pxrd);
1635                         return $links;
1636                 }
1637
1638                 $lines = explode("\n",$headers);
1639                 if(count($lines)) {
1640                         foreach($lines as $line) {
1641                                 if((stristr($line,'link:')) && preg_match('/<([^>].*)>.*rel\=[\'\"]lrdd[\'\"]/',$line,$matches)) {
1642                                         return(fetch_xrd_links($matches[1]));
1643                                         break;
1644                                 }
1645                         }
1646                 }
1647         }
1648
1649
1650         // priority 'resource'
1651
1652
1653         $html = fetch_url($uri);
1654         $headers = $a->get_curl_headers();
1655         logger('lrdd: headers=' . $headers, LOGGER_DEBUG);
1656
1657         // don't try and parse raw xml as html
1658         if(! strstr($html,'<?xml')) {
1659                 require_once('library/HTML5/Parser.php');
1660                 $dom = @HTML5_Parser::parse($html);
1661
1662                 if($dom) {
1663                         $items = $dom->getElementsByTagName('link');
1664                         foreach($items as $item) {
1665                                 $x = $item->getAttribute('rel');
1666                                 if($x == "lrdd") {
1667                                         $pagelink = $item->getAttribute('href');
1668                                         break;
1669                                 }
1670                         }
1671                 }
1672         }
1673
1674         if(isset($pagelink))
1675                 return(fetch_xrd_links($pagelink));
1676
1677         // next look in HTTP headers
1678
1679         $lines = explode("\n",$headers);
1680         if(count($lines)) {
1681                 foreach($lines as $line) {
1682                         // TODO alter the following regex to support multiple relations (space separated)
1683                         if((stristr($line,'link:')) && preg_match('/<([^>].*)>.*rel\=[\'\"]lrdd[\'\"]/',$line,$matches)) {
1684                                 $pagelink = $matches[1];
1685                                 break;
1686                         }
1687                         // don't try and run feeds through the html5 parser
1688                         if(stristr($line,'content-type:') && ((stristr($line,'application/atom+xml')) || (stristr($line,'application/rss+xml'))))
1689                                 return array();
1690                         if(stristr($html,'<rss') || stristr($html,'<feed'))
1691                                 return array();
1692                 }
1693         }
1694
1695         if(isset($pagelink))
1696                 return(fetch_xrd_links($pagelink));
1697
1698         // If we haven't found any links, return the host xrd links (which we have already fetched)
1699
1700         if(isset($links))
1701                 return $links;
1702
1703         return array();
1704
1705 }}
1706
1707
1708
1709 // Given a host name, locate the LRDD template from that
1710 // host. Returns the LRDD template or an empty string on
1711 // error/failure.
1712
1713 if(! function_exists('fetch_lrdd_template')) {
1714 function fetch_lrdd_template($host) {
1715         $tpl = '';
1716
1717         $url1 = 'https://' . $host . '/.well-known/host-meta' ;
1718         $url2 = 'http://' . $host . '/.well-known/host-meta' ;
1719         $links = fetch_xrd_links($url1);
1720         logger('fetch_lrdd_template from: ' . $url1);
1721         logger('template (https): ' . print_r($links,true));
1722         if(! count($links)) {
1723                 logger('fetch_lrdd_template from: ' . $url2);
1724                 $links = fetch_xrd_links($url2);
1725                 logger('template (http): ' . print_r($links,true));
1726         }
1727         if(count($links)) {
1728                 foreach($links as $link)
1729                         if($link['@attributes']['rel'] && $link['@attributes']['rel'] === 'lrdd')
1730                                 $tpl = $link['@attributes']['template'];
1731         }
1732         if(! strpos($tpl,'{uri}'))
1733                 $tpl = '';
1734         return $tpl;
1735 }}
1736
1737 // Given a URL, retrieve the page as an XRD document.
1738 // Return an array of links.
1739 // on error/failure return empty array.
1740
1741 if(! function_exists('fetch_xrd_links')) {
1742 function fetch_xrd_links($url) {
1743
1744
1745         $xml = fetch_url($url);
1746         if (! $xml)
1747                 return array();
1748
1749         logger('fetch_xrd_links: ' . $xml, LOGGER_DATA);
1750         $h = parse_xml_string($xml);
1751         if(! $h)
1752                 return array();
1753
1754         $arr = convert_xml_element_to_array($h);
1755
1756         $links = array();
1757
1758         if(isset($arr['xrd']['link'])) {
1759                 $link = $arr['xrd']['link'];
1760                 if(! isset($link[0]))
1761                         $links = array($link);
1762                 else
1763                         $links = $link;
1764         }
1765         if(isset($arr['xrd']['alias'])) {
1766                 $alias = $arr['xrd']['alias'];
1767                 if(! isset($alias[0]))
1768                         $aliases = array($alias);
1769                 else
1770                         $aliases = $alias;
1771                 foreach($aliases as $alias) {
1772                         $links[]['@attributes'] = array('rel' => 'alias' , 'href' => $alias);
1773                 }
1774         }
1775
1776         logger('fetch_xrd_links: ' . print_r($links,true), LOGGER_DATA);
1777
1778         return $links;
1779
1780 }}
1781
1782 // Convert an ACL array to a storable string
1783
1784 if(! function_exists('perms2str')) {
1785 function perms2str($p) {
1786         $ret = '';
1787         $tmp = $p;
1788         if(is_array($tmp)) {
1789                 array_walk($tmp,'sanitise_acl');
1790                 $ret = implode('',$tmp);
1791         }
1792         return $ret;
1793 }}
1794
1795 // generate a guaranteed unique (for this domain) item ID for ATOM
1796 // safe from birthday paradox
1797
1798 if(! function_exists('item_new_uri')) {
1799 function item_new_uri($hostname,$uid) {
1800
1801         do {
1802                 $dups = false;
1803                 $hash = random_string();
1804
1805                 $uri = "urn:X-dfrn:" . $hostname . ':' . $uid . ':' . $hash;
1806
1807                 $r = q("SELECT `id` FROM `item` WHERE `uri` = '%s' LIMIT 1",
1808                         dbesc($uri));
1809                 if(count($r))
1810                         $dups = true;
1811         } while($dups == true);
1812         return $uri;
1813 }}
1814
1815 // Generate a guaranteed unique photo ID.
1816 // safe from birthday paradox
1817
1818 if(! function_exists('photo_new_resource')) {
1819 function photo_new_resource() {
1820
1821         do {
1822                 $found = false;
1823                 $resource = hash('md5',uniqid(mt_rand(),true));
1824                 $r = q("SELECT `id` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1",
1825                         dbesc($resource)
1826                 );
1827                 if(count($r))
1828                         $found = true;
1829         } while($found == true);
1830         return $resource;
1831 }}
1832
1833
1834 // Take a URL from the wild, prepend http:// if necessary
1835 // and check DNS to see if it's real
1836 // return true if it's OK, false if something is wrong with it
1837
1838 if(! function_exists('validate_url')) {
1839 function validate_url(&$url) {
1840         if(substr($url,0,4) != 'http')
1841                 $url = 'http://' . $url;
1842         $h = @parse_url($url);
1843
1844         if(($h) && (dns_get_record($h['host'], DNS_A + DNS_CNAME + DNS_PTR))) {
1845                 return true;
1846         }
1847         return false;
1848 }}
1849
1850 // checks that email is an actual resolvable internet address
1851
1852 if(! function_exists('validate_email')) {
1853 function validate_email($addr) {
1854
1855         if(! strpos($addr,'@'))
1856                 return false;
1857         $h = substr($addr,strpos($addr,'@') + 1);
1858
1859         if(($h) && (dns_get_record($h, DNS_A + DNS_CNAME + DNS_PTR + DNS_MX))) {
1860                 return true;
1861         }
1862         return false;
1863 }}
1864
1865 // Check $url against our list of allowed sites,
1866 // wildcards allowed. If allowed_sites is unset return true;
1867 // If url is allowed, return true.
1868 // otherwise, return false
1869
1870 if(! function_exists('allowed_url')) {
1871 function allowed_url($url) {
1872
1873         $h = @parse_url($url);
1874
1875         if(! $h) {
1876                 return false;
1877         }
1878
1879         $str_allowed = get_config('system','allowed_sites');
1880         if(! $str_allowed)
1881                 return true;
1882
1883         $found = false;
1884
1885         $host = strtolower($h['host']);
1886
1887         // always allow our own site
1888
1889         if($host == strtolower($_SERVER['SERVER_NAME']))
1890                 return true;
1891
1892         $fnmatch = function_exists('fnmatch');
1893         $allowed = explode(',',$str_allowed);
1894
1895         if(count($allowed)) {
1896                 foreach($allowed as $a) {
1897                         $pat = strtolower(trim($a));
1898                         if(($fnmatch && fnmatch($pat,$host)) || ($pat == $host)) {
1899                                 $found = true;
1900                                 break;
1901                         }
1902                 }
1903         }
1904         return $found;
1905 }}
1906
1907 // check if email address is allowed to register here.
1908 // Compare against our list (wildcards allowed).
1909 // Returns false if not allowed, true if allowed or if
1910 // allowed list is not configured.
1911
1912 if(! function_exists('allowed_email')) {
1913 function allowed_email($email) {
1914
1915
1916         $domain = strtolower(substr($email,strpos($email,'@') + 1));
1917         if(! $domain)
1918                 return false;
1919
1920         $str_allowed = get_config('system','allowed_email');
1921         if(! $str_allowed)
1922                 return true;
1923
1924         $found = false;
1925
1926         $fnmatch = function_exists('fnmatch');
1927         $allowed = explode(',',$str_allowed);
1928
1929         if(count($allowed)) {
1930                 foreach($allowed as $a) {
1931                         $pat = strtolower(trim($a));
1932                         if(($fnmatch && fnmatch($pat,$domain)) || ($pat == $domain)) {
1933                                 $found = true;
1934                                 break;
1935                         }
1936                 }
1937         }
1938         return $found;
1939 }}
1940
1941
1942
1943 // wrapper to load a view template, checking for alternate
1944 // languages before falling back to the default
1945
1946 // obsolete, deprecated.
1947
1948 if(! function_exists('load_view_file')) {
1949 function load_view_file($s) {
1950         global $lang, $a;
1951         if(! isset($lang))
1952                 $lang = 'en';
1953         $b = basename($s);
1954         $d = dirname($s);
1955         if(file_exists("$d/$lang/$b"))
1956                 return file_get_contents("$d/$lang/$b");
1957
1958         $theme = current_theme();
1959
1960         if(file_exists("$d/theme/$theme/$b"))
1961                 return file_get_contents("$d/theme/$theme/$b");
1962
1963         return file_get_contents($s);
1964 }}
1965
1966 if(! function_exists('get_intltext_template')) {
1967 function get_intltext_template($s) {
1968         global $lang;
1969
1970         if(! isset($lang))
1971                 $lang = 'en';
1972
1973         if(file_exists("view/$lang/$s"))
1974                 return file_get_contents("view/$lang/$s");
1975         elseif(file_exists("view/en/$s"))
1976                 return file_get_contents("view/en/$s");
1977         else
1978                 return file_get_contents("view/$s");
1979 }}
1980
1981 if(! function_exists('get_markup_template')) {
1982 function get_markup_template($s) {
1983
1984         $theme = current_theme();
1985
1986         if(file_exists("view/theme/$theme/$s"))
1987                 return file_get_contents("view/theme/$theme/$s");
1988         else
1989                 return file_get_contents("view/$s");
1990
1991 }}
1992
1993
1994
1995
1996
1997 // for html,xml parsing - let's say you've got
1998 // an attribute foobar="class1 class2 class3"
1999 // and you want to find out if it contains 'class3'.
2000 // you can't use a normal sub string search because you
2001 // might match 'notclass3' and a regex to do the job is
2002 // possible but a bit complicated.
2003 // pass the attribute string as $attr and the attribute you
2004 // are looking for as $s - returns true if found, otherwise false
2005
2006 if(! function_exists('attribute_contains')) {
2007 function attribute_contains($attr,$s) {
2008         $a = explode(' ', $attr);
2009         if(count($a) && in_array($s,$a))
2010                 return true;
2011         return false;
2012 }}
2013
2014 if(! function_exists('logger')) {
2015 function logger($msg,$level = 0) {
2016         $debugging = get_config('system','debugging');
2017         $loglevel  = intval(get_config('system','loglevel'));
2018         $logfile   = get_config('system','logfile');
2019
2020         if((! $debugging) || (! $logfile) || ($level > $loglevel))
2021                 return;
2022
2023         @file_put_contents($logfile, datetime_convert() . ':' . session_id() . ' ' . $msg . "\n", FILE_APPEND);
2024         return;
2025 }}
2026
2027
2028 if(! function_exists('activity_match')) {
2029 function activity_match($haystack,$needle) {
2030         if(($haystack === $needle) || ((basename($needle) === $haystack) && strstr($needle,NAMESPACE_ACTIVITY_SCHEMA)))
2031                 return true;
2032         return false;
2033 }}
2034
2035
2036 // Pull out all #hashtags and @person tags from $s;
2037 // We also get @person@domain.com - which would make
2038 // the regex quite complicated as tags can also
2039 // end a sentence. So we'll run through our results
2040 // and strip the period from any tags which end with one.
2041 // Returns array of tags found, or empty array.
2042
2043
2044 if(! function_exists('get_tags')) {
2045 function get_tags($s) {
2046         $ret = array();
2047
2048         // ignore anything in a code block
2049
2050         $s = preg_replace('/\[code\](.*?)\[\/code\]/sm','',$s);
2051
2052         // Match full names against @tags including the space between first and last
2053         // We will look these up afterward to see if they are full names or not recognisable.
2054
2055         if(preg_match_all('/(@[^ \x0D\x0A,:?]+ [^ \x0D\x0A,:?]+)([ \x0D\x0A,:?]|$)/',$s,$match)) {
2056                 foreach($match[1] as $mtch) {
2057                         if(strstr($mtch,"]")) {
2058                                 // we might be inside a bbcode color tag - leave it alone
2059                                 continue;
2060                         }
2061                         if(substr($mtch,-1,1) === '.')
2062                                 $ret[] = substr($mtch,0,-1);
2063                         else
2064                                 $ret[] = $mtch;
2065                 }
2066         }
2067
2068         // Otherwise pull out single word tags. These can be @nickname, @first_last
2069         // and #hash tags.
2070
2071         if(preg_match_all('/([@#][^ \x0D\x0A,:?]+)([ \x0D\x0A,:?]|$)/',$s,$match)) {
2072                 foreach($match[1] as $mtch) {
2073                         if(strstr($mtch,"]")) {
2074                                 // we might be inside a bbcode color tag - leave it alone
2075                                 continue;
2076                         }
2077                         // ignore strictly numeric tags like #1
2078                         if((strpos($mtch,'#') === 0) && ctype_digit($mtch))
2079                                 continue;
2080                         if(substr($mtch,-1,1) === '.')
2081                                 $ret[] = substr($mtch,0,-1);
2082                         else
2083                                 $ret[] = $mtch;
2084                 }
2085         }
2086         return $ret;
2087 }}
2088
2089
2090 // quick and dirty quoted_printable encoding
2091
2092 if(! function_exists('qp')) {
2093 function qp($s) {
2094 return str_replace ("%","=",rawurlencode($s));
2095 }}
2096
2097
2098
2099 if(! function_exists('get_mentions')) {
2100 function get_mentions($item) {
2101         $o = '';
2102         if(! strlen($item['tag']))
2103                 return $o;
2104
2105         $arr = explode(',',$item['tag']);
2106         foreach($arr as $x) {
2107                 $matches = null;
2108                 if(preg_match('/@\[url=([^\]]*)\]/',$x,$matches)) {
2109                         $o .= "\t\t" . '<link rel="mentioned" href="' . $matches[1] . '" />' . "\r\n";
2110                         $o .= "\t\t" . '<link rel="ostatus:attention" href="' . $matches[1] . '" />' . "\r\n";
2111                 }
2112         }
2113         return $o;
2114 }}
2115
2116 if(! function_exists('contact_block')) {
2117 function contact_block() {
2118         $o = '';
2119         $a = get_app();
2120
2121         $shown = get_pconfig($a->profile['uid'],'system','display_friend_count');
2122         if(! $shown)
2123                 $shown = 24;
2124
2125         if((! is_array($a->profile)) || ($a->profile['hide-friends']))
2126                 return $o;
2127         $r = q("SELECT COUNT(*) AS `total` FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0",
2128                         intval($a->profile['uid'])
2129         );
2130         if(count($r)) {
2131                 $total = intval($r[0]['total']);
2132         }
2133         if(! $total) {
2134                 $o .= '<h4 class="contact-h4">' . t('No contacts') . '</h4>';
2135                 return $o;
2136         }
2137         $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0 ORDER BY RAND() LIMIT %d",
2138                         intval($a->profile['uid']),
2139                         intval($shown)
2140         );
2141         if(count($r)) {
2142                 $o .= '<h4 class="contact-h4">' .  sprintf( tt('%d Contact','%d Contacts', $total),$total) . '</h4><div id="contact-block">';
2143                 foreach($r as $rr) {
2144                         $o .= micropro($rr,true,'mpfriend');
2145                 }
2146                 $o .= '</div><div id="contact-block-end"></div>';
2147                 $o .=  '<div id="viewcontacts"><a id="viewcontacts-link" href="viewcontacts/' . $a->profile['nickname'] . '">' . t('View Contacts') . '</a></div>';
2148
2149         }
2150
2151         $arr = array('contacts' => $r, 'output' => $o);
2152
2153         call_hooks('contact_block_end', $arr);
2154         return $o;
2155
2156 }}
2157
2158 if(! function_exists('micropro')) {
2159 function micropro($contact, $redirect = false, $class = '', $textmode = false) {
2160
2161         if($class)
2162                 $class = ' ' . $class;
2163
2164         $url = $contact['url'];
2165         $sparkle = '';
2166
2167         if($redirect) {
2168                 $a = get_app();
2169                 $redirect_url = $a->get_baseurl() . '/redir/' . $contact['id'];
2170                 if(local_user() && ($contact['uid'] == local_user()) && ($contact['network'] === 'dfrn')) {
2171                         $url = $redirect_url;
2172                         $sparkle = ' sparkle';
2173                 }
2174         }
2175         $click = ((x($contact,'click')) ? ' onclick="' . $contact['click'] . '" ' : '');
2176         if($click)
2177                 $url = '';
2178         if($textmode) {
2179                 return '<div class="contact-block-textdiv' . $class . '"><a class="contact-block-link' . $class . $sparkle
2180                         . (($click) ? ' fakelink' : '') . '" '
2181                         . (($url) ? ' href="' . $url . '"' : '') . $click
2182                         . '" title="' . $contact['name'] . ' [' . $contact['url'] . ']" alt="' . $contact['name']
2183                         . '" >'. $contact['name'] . '</a></div>' . "\r\n";
2184         }
2185         else {
2186                 return '<div class="contact-block-div' . $class . '"><a class="contact-block-link' . $class . $sparkle
2187                         . (($click) ? ' fakelink' : '') . '" '
2188                         . (($url) ? ' href="' . $url . '"' : '') . $click . ' ><img class="contact-block-img' . $class . $sparkle . '" src="'
2189                         . $contact['micro'] . '" title="' . $contact['name'] . ' [' . $contact['url'] . ']" alt="' . $contact['name']
2190                         . '" /></a></div>' . "\r\n";
2191         }
2192 }}
2193
2194
2195
2196 if(! function_exists('search')) {
2197 function search($s,$id='search-box',$url='/search') {
2198         $a = get_app();
2199         $o  = '<div id="' . $id . '">';
2200         $o .= '<form action="' . $a->get_baseurl() . $url . '" method="get" >';
2201         $o .= '<input type="text" name="search" id="search-text" value="' . $s .'" />';
2202         $o .= '<input type="submit" name="submit" id="search-submit" value="' . t('Search') . '" />';
2203         $o .= '</form></div>';
2204         return $o;
2205 }}
2206
2207 if(! function_exists('valid_email')) {
2208 function valid_email($x){
2209         if(preg_match('/^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$/',$x))
2210                 return true;
2211         return false;
2212 }}
2213
2214
2215 if(! function_exists('gravatar_img')) {
2216 function gravatar_img($email) {
2217         $size = 175;
2218         $opt = 'identicon';   // psuedo-random geometric pattern if not found
2219         $rating = 'pg';
2220         $hash = md5(trim(strtolower($email)));
2221
2222         $url = 'http://www.gravatar.com/avatar/' . $hash . '.jpg'
2223                 . '?s=' . $size . '&d=' . $opt . '&r=' . $rating;
2224
2225         logger('gravatar: ' . $email . ' ' . $url);
2226         return $url;
2227 }}
2228
2229 if(! function_exists('aes_decrypt')) {
2230 function aes_decrypt($val,$ky)
2231 {
2232     $key="\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
2233     for($a=0;$a<strlen($ky);$a++)
2234       $key[$a%16]=chr(ord($key[$a%16]) ^ ord($ky[$a]));
2235     $mode = MCRYPT_MODE_ECB;
2236     $enc = MCRYPT_RIJNDAEL_128;
2237     $dec = @mcrypt_decrypt($enc, $key, $val, $mode, @mcrypt_create_iv( @mcrypt_get_iv_size($enc, $mode), MCRYPT_DEV_URANDOM ) );
2238     return rtrim($dec,(( ord(substr($dec,strlen($dec)-1,1))>=0 and ord(substr($dec, strlen($dec)-1,1))<=16)? chr(ord( substr($dec,strlen($dec)-1,1))):null));
2239 }}
2240
2241
2242 if(! function_exists('aes_encrypt')) {
2243 function aes_encrypt($val,$ky)
2244 {
2245     $key="\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
2246     for($a=0;$a<strlen($ky);$a++)
2247       $key[$a%16]=chr(ord($key[$a%16]) ^ ord($ky[$a]));
2248     $mode=MCRYPT_MODE_ECB;
2249     $enc=MCRYPT_RIJNDAEL_128;
2250     $val=str_pad($val, (16*(floor(strlen($val) / 16)+(strlen($val) % 16==0?2:1))), chr(16-(strlen($val) % 16)));
2251     return mcrypt_encrypt($enc, $key, $val, $mode, mcrypt_create_iv( mcrypt_get_iv_size($enc, $mode), MCRYPT_DEV_URANDOM));
2252 }}
2253
2254
2255 /**
2256  *
2257  * Function: linkify
2258  *
2259  * Replace naked text hyperlink with HTML formatted hyperlink
2260  *
2261  */
2262
2263 if(! function_exists('linkify')) {
2264 function linkify($s) {
2265         $s = preg_replace("/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\.\=\_\~\#\'\%\$\!\+]*)/", ' <a href="$1" target="external-link">$1</a>', $s);
2266         return($s);
2267 }}
2268
2269
2270 /**
2271  *
2272  * Function: smilies
2273  *
2274  * Description:
2275  * Replaces text emoticons with graphical images
2276  *
2277  * @Parameter: string $s
2278  *
2279  * Returns string
2280  */
2281
2282 if(! function_exists('smilies')) {
2283 function smilies($s) {
2284         $a = get_app();
2285
2286         return str_replace(
2287         array( '&lt;3', '&lt;/3', '&lt;\\3', ':-)', ':)', ';-)', ':-(', ':(', ':-P', ':P', ':-"', ':-x', ':-X', ':-D', '8-|', '8-O'),
2288         array(
2289                 '<img src="' . $a->get_baseurl() . '/images/smiley-heart.gif" alt="<3" />',
2290                 '<img src="' . $a->get_baseurl() . '/images/smiley-brokenheart.gif" alt="</3" />',
2291                 '<img src="' . $a->get_baseurl() . '/images/smiley-brokenheart.gif" alt="<\\3" />',
2292                 '<img src="' . $a->get_baseurl() . '/images/smiley-smile.gif" alt=":-)" />',
2293                 '<img src="' . $a->get_baseurl() . '/images/smiley-smile.gif" alt=":)" />',
2294                 '<img src="' . $a->get_baseurl() . '/images/smiley-wink.gif" alt=";-)" />',
2295                 '<img src="' . $a->get_baseurl() . '/images/smiley-frown.gif" alt=":-(" />',
2296                 '<img src="' . $a->get_baseurl() . '/images/smiley-frown.gif" alt=":(" />',
2297                 '<img src="' . $a->get_baseurl() . '/images/smiley-tongue-out.gif" alt=":-P" />',
2298                 '<img src="' . $a->get_baseurl() . '/images/smiley-tongue-out.gif" alt=":P" />',
2299                 '<img src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-\"" />',
2300                 '<img src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-x" />',
2301                 '<img src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-X" />',
2302                 '<img src="' . $a->get_baseurl() . '/images/smiley-laughing.gif" alt=":-D" />',
2303                 '<img src="' . $a->get_baseurl() . '/images/smiley-surprised.gif" alt="8-|" />',
2304                 '<img src="' . $a->get_baseurl() . '/images/smiley-surprised.gif" alt="8-O" />'
2305         ), $s);
2306 }}
2307
2308
2309 /**
2310  *
2311  * Function : profile_load
2312  * @parameter App    $a
2313  * @parameter string $nickname
2314  * @parameter int    $profile
2315  *
2316  * Summary: Loads a profile into the page sidebar.
2317  * The function requires a writeable copy of the main App structure, and the nickname
2318  * of a registered local account.
2319  *
2320  * If the viewer is an authenticated remote viewer, the profile displayed is the
2321  * one that has been configured for his/her viewing in the Contact manager.
2322  * Passing a non-zero profile ID can also allow a preview of a selected profile
2323  * by the owner.
2324  *
2325  * Profile information is placed in the App structure for later retrieval.
2326  * Honours the owner's chosen theme for display.
2327  *
2328  */
2329
2330 if(! function_exists('profile_load')) {
2331 function profile_load(&$a, $nickname, $profile = 0) {
2332         if(remote_user()) {
2333                 $r = q("SELECT `profile-id` FROM `contact` WHERE `id` = %d LIMIT 1",
2334                         intval($_SESSION['visitor_id']));
2335                 if(count($r))
2336                         $profile = $r[0]['profile-id'];
2337         }
2338
2339         $r = null;
2340
2341         if($profile) {
2342                 $profile_int = intval($profile);
2343                 $r = q("SELECT `profile`.`uid` AS `profile_uid`, `profile`.* , `user`.* FROM `profile`
2344                         LEFT JOIN `user` ON `profile`.`uid` = `user`.`uid`
2345                         WHERE `user`.`nickname` = '%s' AND `profile`.`id` = %d LIMIT 1",
2346                         dbesc($nickname),
2347                         intval($profile_int)
2348                 );
2349         }
2350         if(! count($r)) {
2351                 $r = q("SELECT `profile`.`uid` AS `profile_uid`, `profile`.* , `user`.* FROM `profile`
2352                         LEFT JOIN `user` ON `profile`.`uid` = `user`.`uid`
2353                         WHERE `user`.`nickname` = '%s' AND `profile`.`is-default` = 1 LIMIT 1",
2354                         dbesc($nickname)
2355                 );
2356         }
2357
2358         if(($r === false) || (! count($r))) {
2359                 notice( t('No profile') . EOL );
2360                 $a->error = 404;
2361                 return;
2362         }
2363
2364         $a->profile = $r[0];
2365
2366
2367         $a->page['title'] = $a->profile['name'] . " @ " . $a->config['sitename'];
2368         $_SESSION['theme'] = $a->profile['theme'];
2369
2370         if(! (x($a->page,'aside')))
2371                 $a->page['aside'] = '';
2372
2373         $a->page['aside'] .= profile_sidebar($a->profile);
2374         $a->page['aside'] .= contact_block();
2375
2376         return;
2377 }}
2378
2379
2380 /**
2381  *
2382  * Function: profile_sidebar
2383  *
2384  * Formats a profile for display in the sidebar.
2385  * It is very difficult to templatise the HTML completely
2386  * because of all the conditional logic.
2387  *
2388  * @parameter: array $profile
2389  *
2390  * Returns HTML string stuitable for sidebar inclusion
2391  * Exceptions: Returns empty string if passed $profile is wrong type or not populated
2392  *
2393  */
2394
2395
2396 if(! function_exists('profile_sidebar')) {
2397 function profile_sidebar($profile) {
2398
2399         $o = '';
2400         $location = '';
2401         $address = false;
2402
2403         if((! is_array($profile)) && (! count($profile)))
2404                 return $o;
2405
2406         call_hooks('profile_sidebar_enter', $profile);
2407
2408         $fullname = '<div class="fn">' . $profile['name'] . '</div>';
2409
2410         $pdesc = '<div class="title">' . $profile['pdesc'] . '</div>';
2411
2412         $tabs = '';
2413
2414         $photo = '<div id="profile-photo-wrapper"><img class="photo" src="' . $profile['photo'] . '" alt="' . $profile['name'] . '" /></div>';
2415
2416         // don't show connect link to yourself
2417
2418         $connect = (($profile['uid'] != local_user()) ? '<li><a id="dfrn-request-link" href="dfrn_request/' . $profile['nickname'] . '">' . t('Connect') . '</a></li>' : '');
2419
2420         // don't show connect link to authenticated visitors either
2421
2422         if((remote_user()) && ($_SESSION['visitor_visiting'] == $profile['uid']))
2423                 $connect = '';
2424
2425         if((x($profile,'address') == 1)
2426                 || (x($profile,'locality') == 1)
2427                 || (x($profile,'region') == 1)
2428                 || (x($profile,'postal-code') == 1)
2429                 || (x($profile,'country-name') == 1))
2430                 $address = true;
2431
2432         if($address) {
2433                 $location .= '<div class="location"><span class="location-label">' . t('Location:') . '</span> <div class="adr">';
2434                 $location .= ((x($profile,'address') == 1) ? '<div class="street-address">' . $profile['address'] . '</div>' : '');
2435                 $location .= (((x($profile,'locality') == 1) || (x($profile,'region') == 1) || (x($profile,'postal-code') == 1))
2436                         ? '<span class="city-state-zip"><span class="locality">' . $profile['locality'] . '</span>'
2437                         . ((x($profile['locality']) == 1) ? t(', ') : '')
2438                         . '<span class="region">' . $profile['region'] . '</span>'
2439                         . ' <span class="postal-code">' . $profile['postal-code'] . '</span></span>' : '');
2440                 $location .= ((x($profile,'country-name') == 1) ? ' <span class="country-name">' . $profile['country-name'] . '</span>' : '');
2441                 $location .= '</div></div><div class="profile-clear"></div>';
2442
2443         }
2444
2445         $gender = ((x($profile,'gender') == 1) ? '<div class="mf"><span class="gender-label">' . t('Gender:') . '</span> <span class="x-gender">' . $profile['gender'] . '</span></div><div class="profile-clear"></div>' : '');
2446
2447         $pubkey = ((x($profile,'pubkey') == 1) ? '<div class="key" style="display:none;">' . $profile['pubkey'] . '</div>' : '');
2448
2449         $marital = ((x($profile,'marital') == 1) ? '<div class="marital"><span class="marital-label"><span class="heart">&hearts;</span> ' . t('Status:') . ' </span><span class="marital-text">' . $profile['marital'] . '</span></div><div class="profile-clear"></div>' : '');
2450
2451         $homepage = ((x($profile,'homepage') == 1) ? '<div class="homepage"><span class="homepage-label">' . t('Homepage:') . ' </span><span class="homepage-url">' . linkify($profile['homepage']) . '</span></div><div class="profile-clear"></div>' : '');
2452
2453         if($profile['hidewall'] && (! local_user()) && (! remote_user())) {
2454                 $location = $gender = $marital = $homepage = '';
2455         }
2456
2457         $tpl = get_markup_template('profile_vcard.tpl');
2458
2459         $o .= replace_macros($tpl, array(
2460                 '$fullname' => $fullname,
2461                 '$pdesc'    => $pdesc,
2462                 '$tabs'     => $tabs,
2463                 '$photo'    => $photo,
2464                 '$connect'  => $connect,
2465                 '$location' => $location,
2466                 '$gender'   => $gender,
2467                 '$pubkey'   => $pubkey,
2468                 '$marital'  => $marital,
2469                 '$homepage' => $homepage
2470         ));
2471
2472
2473         $arr = array('profile' => &$profile, 'entry' => &$o);
2474
2475         call_hooks('profile_sidebar', $arr);
2476
2477         return $o;
2478 }}
2479
2480
2481 if(! function_exists('register_hook')) {
2482 function register_hook($hook,$file,$function) {
2483
2484         $r = q("SELECT * FROM `hook` WHERE `hook` = '%s' AND `file` = '%s' AND `function` = '%s' LIMIT 1",
2485                 dbesc($hook),
2486                 dbesc($file),
2487                 dbesc($function)
2488         );
2489         if(count($r))
2490                 return true;
2491
2492         $r = q("INSERT INTO `hook` (`hook`, `file`, `function`) VALUES ( '%s', '%s', '%s' ) ",
2493                 dbesc($hook),
2494                 dbesc($file),
2495                 dbesc($function)
2496         );
2497         return $r;
2498 }}
2499
2500 if(! function_exists('unregister_hook')) {
2501 function unregister_hook($hook,$file,$function) {
2502
2503         $r = q("DELETE FROM `hook` WHERE `hook` = '%s' AND `file` = '%s' AND `function` = '%s' LIMIT 1",
2504                 dbesc($hook),
2505                 dbesc($file),
2506                 dbesc($function)
2507         );
2508         return $r;
2509 }}
2510
2511
2512 if(! function_exists('load_hooks')) {
2513 function load_hooks() {
2514         $a = get_app();
2515         $a->hooks = array();
2516         $r = q("SELECT * FROM `hook` WHERE 1");
2517         if(count($r)) {
2518                 foreach($r as $rr) {
2519                         $a->hooks[] = array($rr['hook'], $rr['file'], $rr['function']);
2520                 }
2521         }
2522 }}
2523
2524
2525 if(! function_exists('call_hooks')) {
2526 function call_hooks($name, &$data = null) {
2527         $a = get_app();
2528
2529         if(count($a->hooks)) {
2530                 foreach($a->hooks as $hook) {
2531                         if($hook[HOOK_HOOK] === $name) {
2532                                 @include_once($hook[HOOK_FILE]);
2533                                 if(function_exists($hook[HOOK_FUNCTION])) {
2534                                         $func = $hook[HOOK_FUNCTION];
2535                                         $func($a,$data);
2536                                 }
2537                         }
2538                 }
2539         }
2540 }}
2541
2542
2543 if(! function_exists('day_translate')) {
2544 function day_translate($s) {
2545         $ret = str_replace(array('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday'),
2546                 array( t('Monday'), t('Tuesday'), t('Wednesday'), t('Thursday'), t('Friday'), t('Saturday'), t('Sunday')),
2547                 $s);
2548
2549         $ret = str_replace(array('January','February','March','April','May','June','July','August','September','October','November','December'),
2550                 array( t('January'), t('February'), t('March'), t('April'), t('May'), t('June'), t('July'), t('August'), t('September'), t('October'), t('November'), t('December')),
2551                 $ret);
2552
2553         return $ret;
2554 }}
2555
2556 if(! function_exists('get_birthdays')) {
2557 function get_birthdays() {
2558
2559         $a = get_app();
2560         $o = '';
2561
2562         if(! local_user())
2563                 return $o;
2564
2565         $bd_format = t('g A l F d') ; // 8 AM Friday January 18
2566
2567         $r = q("SELECT `event`.*, `event`.`id` AS `eid`, `contact`.* FROM `event`
2568                 LEFT JOIN `contact` ON `contact`.`id` = `event`.`cid`
2569                 WHERE `event`.`uid` = %d AND `type` = 'birthday' AND `start` < '%s' AND `finish` > '%s'
2570                 ORDER BY `start` DESC ",
2571                 intval(local_user()),
2572                 dbesc(datetime_convert('UTC','UTC','now + 6 days')),
2573                 dbesc(datetime_convert('UTC','UTC','now'))
2574         );
2575
2576         if($r && count($r)) {
2577                 $total = 0;
2578                 foreach($r as $rr)
2579                         if(strlen($rr['name']))
2580                                 $total ++;
2581
2582                 if($total) {
2583                         $o .= '<div id="birthday-notice" class="birthday-notice fakelink" onclick=openClose(\'birthday-wrapper\'); >' . t('Birthday Reminders') . ' ' . '(' . $total . ')' . '</div>';
2584                         $o .= '<div id="birthday-wrapper" style="display: none;" ><div id="birthday-title">' . t('Birthdays this week:') . '</div>';
2585                         $o .= '<div id="birthday-adjust">' . t("\x28Adjusted for local time\x29") . '</div>';
2586                         $o .= '<div id="birthday-title-end"></div>';
2587
2588                         foreach($r as $rr) {
2589                                 if(! strlen($rr['name']))
2590                                         continue;
2591                                 $now = strtotime('now');
2592                                 $today = (((strtotime($rr['start'] . ' +00:00') < $now) && (strtotime($rr['finish'] . ' +00:00') > $now)) ? true : false);
2593
2594                                 $o .= '<div class="birthday-list" id="birthday-' . $rr['eid'] . '"><a class="sparkle" href="'
2595                                 . $a->get_baseurl() . '/redir/'  . $rr['cid'] . '">' . $rr['name'] . '</a> '
2596                                 . day_translate(datetime_convert('UTC', $a->timezone, $rr['start'], $bd_format)) . (($today) ?  ' ' . t('[today]') : '')
2597                                 . '</div>' ;
2598                         }
2599                         $o .= '</div></div>';
2600                 }
2601         }
2602         return $o;
2603 }}
2604
2605
2606 if(! function_exists('normalise_link')) {
2607 function normalise_link($url) {
2608         $ret = str_replace(array('https:','//www.'), array('http:','//'), $url);
2609         return(rtrim($ret,'/'));
2610 }}
2611
2612 /**
2613  *
2614  * Compare two URLs to see if they are the same, but ignore
2615  * slight but hopefully insignificant differences such as if one
2616  * is https and the other isn't, or if one is www.something and
2617  * the other isn't - and also ignore case differences.
2618  *
2619  * Return true if the URLs match, otherwise false.
2620  *
2621  */
2622
2623 if(! function_exists('link_compare')) {
2624 function link_compare($a,$b) {
2625         if(strcasecmp(normalise_link($a),normalise_link($b)) === 0)
2626                 return true;
2627         return false;
2628 }}
2629
2630
2631 if(! function_exists('prepare_body')) {
2632 function prepare_body($item,$attach = false) {
2633
2634         $s = prepare_text($item['body']);
2635         if(! $attach)
2636                 return $s;
2637
2638         $arr = explode(',',$item['attach']);
2639         if(count($arr)) {
2640                 $s .= '<div class="body-attach">';
2641                 foreach($arr as $r) {
2642                         $matches = false;
2643                         $icon = '';
2644                         $cnt = preg_match('|\[attach\]href=\"(.*?)\" size=\"(.*?)\" type=\"(.*?)\" title=\"(.*?)\"\[\/attach\]|',$r,$matches);
2645                         if($cnt) {
2646                                 $icontype = strtolower(substr($matches[3],0,strpos($matches[3],'/')));
2647                                 switch($icontype) {
2648                                         case 'video':
2649                                         case 'audio':
2650                                         case 'image':
2651                                         case 'text':
2652                                                 $icon = '<div class="attachtype type-' . $icontype . '"></div>';
2653                                                 break;
2654                                         default:
2655                                                 $icon = '<div class="attachtype type-unkn"></div>';
2656                                                 break;
2657                                 }
2658                                 $title = ((strlen(trim($matches[4]))) ? escape_tags(trim($matches[4])) : escape_tags($matches[1]));
2659                                 $title .= ' ' . $matches[2] . ' ' . t('bytes');
2660
2661                                 $s .= '<a href="' . strip_tags($matches[1]) . '" title="' . $title . '" class="attachlink" target="external-link" >' . $icon . '</a>';
2662                         }
2663                 }
2664                 $s .= '<div class="clear"></div></div>';
2665         }
2666         return $s;
2667 }}
2668
2669 if(! function_exists('prepare_text')) {
2670 function prepare_text($text) {
2671
2672         require_once('include/bbcode.php');
2673
2674         $s = smilies(bbcode($text));
2675
2676         return $s;
2677 }}
2678
2679 /**
2680  *
2681  * Wrap calls to proc_close(proc_open()) and call hook
2682  * so plugins can take part in process :)
2683  *
2684  * args:
2685  * $cmd program to run
2686  *  next args are passed as $cmd command line
2687  *
2688  * e.g.: proc_run("ls","-la","/tmp");
2689  *
2690  * $cmd and string args are surrounded with ""
2691  */
2692
2693 if(! function_exists('proc_run')) {
2694 function proc_run($cmd){
2695
2696         $a = get_app();
2697
2698         $args = func_get_args();
2699         call_hooks("proc_run", $args);
2700
2701         if(count($args) && $args[0] === 'php')
2702         $args[0] = ((x($a->config,'php_path')) && (strlen($a->config['php_path'])) ? $a->config['php_path'] : 'php');
2703
2704         foreach ($args as $arg){
2705                 $arg = escapeshellarg($arg);
2706         }
2707         $cmdline = implode($args," ");
2708         proc_close(proc_open($cmdline." &",array(),$foo));
2709 }}
2710
2711 if(! function_exists('current_theme')) {
2712 function current_theme(){
2713         $app_base_themes = array('duepuntozero', 'loozah');
2714
2715         $a = get_app();
2716
2717         $system_theme = ((isset($a->config['system']['theme'])) ? $a->config['system']['theme'] : '');
2718         $theme_name = ((is_array($_SESSION) && x($_SESSION,'theme')) ? $_SESSION['theme'] : $system_theme);
2719
2720         if($theme_name && file_exists('view/theme/' . $theme_name . '/style.css'))
2721                 return($theme_name);
2722
2723         foreach($app_base_themes as $t) {
2724                 if(file_exists('view/theme/' . $t . '/style.css'))
2725                         return($t);
2726         }
2727
2728         $fallback = glob('view/theme/*/style.css');
2729         if(count($fallback))
2730                 return (str_replace('view/theme/','', str_replace("/style.css","",$fallback[0])));
2731
2732 }}
2733
2734 /*
2735 * Return full URL to theme which is currently in effect.
2736 * Provide a sane default if nothing is chosen or the specified theme does not exist.
2737 */
2738 if(! function_exists('current_theme_url')) {
2739 function current_theme_url() {
2740         global $a;
2741         $t = current_theme();
2742         return($a->get_baseurl() . '/view/theme/' . $t . '/style.css');
2743 }}
2744
2745 if(! function_exists('feed_birthday')) {
2746 function feed_birthday($uid,$tz) {
2747
2748         /**
2749          *
2750          * Determine the next birthday, but only if the birthday is published
2751          * in the default profile. We _could_ also look for a private profile that the
2752          * recipient can see, but somebody could get mad at us if they start getting
2753          * public birthday greetings when they haven't made this info public.
2754          *
2755          * Assuming we are able to publish this info, we are then going to convert
2756          * the start time from the owner's timezone to UTC.
2757          *
2758          * This will potentially solve the problem found with some social networks
2759          * where birthdays are converted to the viewer's timezone and salutations from
2760          * elsewhere in the world show up on the wrong day. We will convert it to the
2761          * viewer's timezone also, but first we are going to convert it from the birthday
2762          * person's timezone to GMT - so the viewer may find the birthday starting at
2763          * 6:00PM the day before, but that will correspond to midnight to the birthday person.
2764          *
2765          */
2766
2767         $birthday = '';
2768
2769         $p = q("SELECT `dob` FROM `profile` WHERE `is-default` = 1 AND `uid` = %d LIMIT 1",
2770                 intval($uid)
2771         );
2772
2773         if($p && count($p)) {
2774                 $tmp_dob = substr($p[0]['dob'],5);
2775                 if(intval($tmp_dob)) {
2776                         $y = datetime_convert($tz,$tz,'now','Y');
2777                         $bd = $y . '-' . $tmp_dob . ' 00:00';
2778                         $t_dob = strtotime($bd);
2779                         $now = strtotime(datetime_convert($tz,$tz,'now'));
2780                         if($t_dob < $now)
2781                                 $bd = $y + 1 . '-' . $tmp_dob . ' 00:00';
2782                         $birthday = datetime_convert($tz,'UTC',$bd,ATOM_TIME);
2783                 }
2784         }
2785
2786         return $birthday;
2787 }}
2788
2789 /**
2790  * return atom link elements for all of our hubs
2791  */
2792
2793 if(! function_exists('feed_hublinks')) {
2794 function feed_hublinks() {
2795
2796         $hub = get_config('system','huburl');
2797
2798         $hubxml = '';
2799         if(strlen($hub)) {
2800                 $hubs = explode(',', $hub);
2801                 if(count($hubs)) {
2802                         foreach($hubs as $h) {
2803                                 $h = trim($h);
2804                                 if(! strlen($h))
2805                                         continue;
2806                                 $hubxml .= '<link rel="hub" href="' . xmlify($h) . '" />' . "\n" ;
2807                         }
2808                 }
2809         }
2810         return $hubxml;
2811 }}
2812
2813 /* return atom link elements for salmon endpoints */
2814
2815 if(! function_exists('feed_salmonlinks')) {
2816 function feed_salmonlinks($nick) {
2817
2818         $a = get_app();
2819
2820         $salmon  = '<link rel="salmon" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ;
2821
2822         // old style links that status.net still needed as of 12/2010
2823
2824         $salmon .= '  <link rel="http://salmon-protocol.org/ns/salmon-replies" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ;
2825         $salmon .= '  <link rel="http://salmon-protocol.org/ns/salmon-mention" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ;
2826         return $salmon;
2827 }}
2828
2829 if(! function_exists('get_plink')) {
2830 function get_plink($item) {
2831         $a = get_app();
2832         $plink = (((x($item,'plink')) && (! $item['private'])) ? '<div class="wall-item-links-wrapper"><a href="'
2833                         . $item['plink'] . '" title="' . t('link to source') . '" target="external-link" class="icon remote-link"></a></div>' : '');
2834         return $plink;
2835 }}
2836
2837 if(! function_exists('unamp')) {
2838 function unamp($s) {
2839         return str_replace('&amp;', '&', $s);
2840 }}
2841
2842
2843
2844
2845 if(! function_exists('lang_selector')) {
2846 function lang_selector() {
2847         global $lang;
2848         $o = '<div id="lang-select-icon" class="icon language" title="' . t('Select an alternate language') . '" onclick="openClose(\'language-selector\');" ></div>';
2849         $o .= '<div id="language-selector" style="display: none;" >';
2850         $o .= '<form action="" method="post" ><select name="system_language" onchange="this.form.submit();" >';
2851         $langs = glob('view/*/strings.php');
2852         if(is_array($langs) && count($langs)) {
2853                 if(! in_array('view/en/strings.php',$langs))
2854                         $langs[] = 'view/en/';
2855                 asort($langs);
2856                 foreach($langs as $l) {
2857                         $ll = substr($l,5);
2858                         $ll = substr($ll,0,strrpos($ll,'/'));
2859                         $selected = (($ll === $lang) ? ' selected="selected" ' : '');
2860                         $o .= '<option value="' . $ll . '"' . $selected . '>' . $ll . '</option>';
2861                 }
2862         }
2863         $o .= '</select></form></div>';
2864         return $o;
2865 }}
2866
2867
2868 if(! function_exists('parse_xml_string')) {
2869 function parse_xml_string($s,$strict = true) {
2870         if($strict) {
2871                 if(! strstr($s,'<?xml'))
2872                         return false;
2873                 $s2 = substr($s,strpos($s,'<?xml'));
2874         }
2875         else
2876                 $s2 = $s;
2877         libxml_use_internal_errors(true);
2878
2879         $x = @simplexml_load_string($s2);
2880         if(! $x) {
2881                 logger('libxml: parse: error: ' . $s2, LOGGER_DATA);
2882                 foreach(libxml_get_errors() as $err)
2883                         logger('libxml: parse: ' . $err->code." at ".$err->line.":".$err->column." : ".$err->message, LOGGER_DATA);
2884                 libxml_clear_errors();
2885         }
2886         return $x;
2887 }}
2888
2889 if(! function_exists('is_site_admin')) {
2890 function is_site_admin() {
2891         $a = get_app();
2892         if(local_user() && x($a->user,'email') && x($a->config,'admin_email') && ($a->user['email'] === $a->config['admin_email']))
2893                 return true;
2894         return false;
2895 }}
2896
2897 /*
2898  * parse plugin comment in search of plugin infos.
2899  * like
2900  *
2901  *       * Name: Plugin
2902  *   * Description: A plugin which plugs in
2903  *       * Version: 1.2.3
2904  *   * Author: John <profile url>
2905  *   * Author: Jane <email>
2906  *   *
2907  */
2908
2909 if (! function_exists('get_plugin_info')){
2910 function get_plugin_info($plugin){
2911         if (!is_file("addon/$plugin/$plugin.php")) return false;
2912
2913         $f = file_get_contents("addon/$plugin/$plugin.php");
2914         $r = preg_match("|/\*.*\*/|msU", $f, $m);
2915
2916         $info=Array(
2917                 'name' => $plugin,
2918                 'description' => "",
2919                 'author' => array(),
2920                 'version' => ""
2921         );
2922
2923         if ($r){
2924                 $ll = explode("\n", $m[0]);
2925                 foreach( $ll as $l ) {
2926                         $l = trim($l,"\t\n\r */");
2927                         if ($l!=""){
2928                                 list($k,$v) = array_map("trim", explode(":",$l,2));
2929                                 $k= strtolower($k);
2930                                 if ($k=="author"){
2931                                         $r=preg_match("|([^<]+)<([^>]+)>|", $v, $m);
2932                                         if ($r) {
2933                                                 $info['author'][] = array('name'=>$m[1], 'link'=>$m[2]);
2934                                         } else {
2935                                                 $info['author'][] = array('name'=>$v);
2936                                         }
2937                                 } else {
2938                                         if (array_key_exists($k,$info)){
2939                                                 $info[$k]=$v;
2940                                         }
2941                                 }
2942
2943                         }
2944                 }
2945
2946         }
2947         return $info;
2948 }}
2949
2950 if(! function_exists('return_bytes')) {
2951 function return_bytes ($size_str) {
2952     switch (substr ($size_str, -1))
2953     {
2954         case 'M': case 'm': return (int)$size_str * 1048576;
2955         case 'K': case 'k': return (int)$size_str * 1024;
2956         case 'G': case 'g': return (int)$size_str * 1073741824;
2957         default: return $size_str;
2958     }
2959 }}
2960
2961 function generate_guid() {
2962         $found = true;
2963         do {
2964                 $guid = substr(random_string(),0,16);
2965                 $x = q("SELECT `uid` FROM `user` WHERE `guid` = '%s' LIMIT 1",
2966                         dbesc($guid)
2967                 );
2968                 if(! count($x))
2969                         $found = false;
2970         } while ($found == true );
2971         return $guid;
2972 }