boot.php

   1 <?php
   2
   3 set_time_limit(0);
   4
   5 define ( 'BUILD_ID' , 1003 );
   6
   7 define ( 'EOL', "<br />\r\n");
   8 define ( 'ATOM_TIME',  'Y-m-d\TH:i:s\Z' );
   9
  10 define ( 'REGISTER_CLOSED',  0);
  11 define ( 'REGISTER_APPROVE', 1);
  12 define ( 'REGISTER_OPEN',    2);
  13
  14 // relationship types
  15
  16 define ( 'REL_VIP',        1);
  17 define ( 'REL_FAN',        2);
  18 define ( 'REL_BUD',        3);
  19
  20 define ( 'NOTIFY_INTRO',   0x0001 );
  21 define ( 'NOTIFY_CONFIRM', 0x0002 );
  22 define ( 'NOTIFY_WALL',    0x0004 );
  23 define ( 'NOTIFY_COMMENT', 0x0008 );
  24 define ( 'NOTIFY_MAIL',    0x0010 );
  25
  26 define ( 'NAMESPACE_DFRN' ,           'http://purl.org/macgirvin/dfrn/1.0' );
  27 define ( 'NAMESPACE_THREAD' ,         'http://purl.org/syndication/thread/1.0' );
  28 define ( 'NAMESPACE_TOMB' ,           'http://purl.org/atompub/tombstones/1.0' );
  29 define ( 'NAMESPACE_ACTIVITY',        'http://activitystrea.ms/spec/1.0/' );
  30 define ( 'NAMESPACE_ACTIVITY_SCHEMA', 'http://activitystrea.ms/schema/1.0/');
  31
  32 define ( 'ACTIVITY_LIKE',        NAMESPACE_ACTIVITY_SCHEMA . 'like' );
  33 define ( 'ACTIVITY_DISLIKE',     NAMESPACE_DFRN            . '/dislike' );
  34 define ( 'ACTIVITY_OBJ_HEART',   NAMESPACE_DFRN            . '/heart' );
  35
  36 define ( 'ACTIVITY_FRIEND',      NAMESPACE_ACTIVITY_SCHEMA . 'make-friend' );
  37 define ( 'ACTIVITY_POST',        NAMESPACE_ACTIVITY_SCHEMA . 'post' );
  38 define ( 'ACTIVITY_UPDATE',      NAMESPACE_ACTIVITY_SCHEMA . 'update' );
  39
  40 define ( 'ACTIVITY_OBJ_COMMENT', NAMESPACE_ACTIVITY_SCHEMA . 'comment' );
  41 define ( 'ACTIVITY_OBJ_NOTE',    NAMESPACE_ACTIVITY_SCHEMA . 'note' );
  42 define ( 'ACTIVITY_OBJ_PERSON',  NAMESPACE_ACTIVITY_SCHEMA . 'person' );
  43 define ( 'ACTIVITY_OBJ_PHOTO',   NAMESPACE_ACTIVITY_SCHEMA . 'photo' );
  44 define ( 'ACTIVITY_OBJ_P_PHOTO', NAMESPACE_ACTIVITY_SCHEMA . 'profile-photo' );
  45 define ( 'ACTIVITY_OBJ_ALBUM',   NAMESPACE_ACTIVITY_SCHEMA . 'photo-album' );
  46
  47 define ( 'GRAVITY_PARENT',       0);
  48 define ( 'GRAVITY_LIKE',         3);
  49 define ( 'GRAVITY_COMMENT',      6);
  50
  51
  52 if(! class_exists('App')) {
  53 class App {
  54
  55         public  $module_loaded = false;
  56         public  $config;
  57         public  $page;
  58         public  $profile;
  59         public  $user;
  60         public  $cid;
  61         public  $contact;
  62         public  $content;
  63         public  $data;
  64         public  $error = false;
  65         public  $cmd;
  66         public  $argv;
  67         public  $argc;
  68         public  $module;
  69         public  $pager;
  70         public  $strings;
  71         public  $path;
  72
  73         private $scheme;
  74         private $hostname;
  75         private $baseurl;
  76         private $db;
  77
  78         function __construct() {
  79
  80                 $this->config = array();
  81                 $this->page = array();
  82                 $this->pager= array();
  83
  84                 $this->scheme = ((isset($_SERVER['HTTPS'])
  85                                 && ($_SERVER['HTTPS'])) ?  'https' : 'http' );
  86                 $this->hostname = str_replace('www.','',
  87                                 $_SERVER['SERVER_NAME']);
  88                 set_include_path("include/$this->hostname"
  89                                 . PATH_SEPARATOR . 'include'
  90                                 . PATH_SEPARATOR . '.' );
  91
  92                 if(substr($_SERVER['QUERY_STRING'],0,2) == "q=")
  93                         $_SERVER['QUERY_STRING'] = substr($_SERVER['QUERY_STRING'],2);
  94                 $this->cmd = trim($_GET['q'],'/');
  95
  96
  97                 $this->argv = explode('/',$this->cmd);
  98                 $this->argc = count($this->argv);
  99                 if((array_key_exists('0',$this->argv)) && strlen($this->argv[0])) {
 100                         $this->module = $this->argv[0];
 101                 }
 102                 else {
 103                         $this->module = 'home';
 104                 }
 105
 106                 if($this->cmd == '.well-known/host-meta')
 107                         require_once('include/hostxrd.php');
 108
 109                 $this->pager['page'] = ((x($_GET,'page')) ? $_GET['page'] : 1);
 110                 $this->pager['itemspage'] = 50;
 111                 $this->pager['start'] = ($this->pager['page'] * $this->pager['itemspage']) - $this->pager['itemspage'];
 112                 $this->pager['total'] = 0;
 113         }
 114
 115         function get_baseurl($ssl = false) {
 116                 if(strlen($this->baseurl))
 117                         return $this->baseurl;
 118
 119                 $this->baseurl = (($ssl) ? 'https' : $this->scheme) . "://" . $this->hostname
 120                         . ((isset($this->path) && strlen($this->path))
 121                         ? '/' . $this->path : '' );
 122                 return $this->baseurl;
 123         }
 124
 125         function set_baseurl($url) {
 126                 $this->baseurl = $url;
 127                 $this->hostname = basename($url);
 128         }
 129
 130         function get_hostname() {
 131                 return $this->hostname;
 132         }
 133
 134         function set_hostname($h) {
 135                 $this->hostname = $h;
 136         }
 137
 138         function set_path($p) {
 139                 $this->path = ltrim(trim($p),'/');
 140         }
 141
 142         function get_path() {
 143                 return $this->path;
 144         }
 145
 146         function set_pager_total($n) {
 147                 $this->pager['total'] = intval($n);
 148         }
 149
 150         function set_pager_itemspage($n) {
 151                 $this->pager['itemspage'] = intval($n);
 152                 $this->pager['start'] = ($this->pager['page'] * $this->pager['itemspage']) - $this->pager['itemspage'];
 153
 154         }
 155
 156         function init_pagehead() {
 157                 $tpl = load_view_file("view/head.tpl");
 158                 $this->page['htmlhead'] = replace_macros($tpl,array(
 159                         '$baseurl' => $this->get_baseurl()
 160                 ));
 161         }
 162
 163 }}
 164
 165
 166 if(! function_exists('x')) {
 167 function x($s,$k = NULL) {
 168         if($k != NULL) {
 169                 if((is_array($s)) && (array_key_exists($k,$s))) {
 170                         if($s[$k])
 171                                 return (int) 1;
 172                         return (int) 0;
 173                 }
 174                 return false;
 175         }
 176         else {
 177                 if(isset($s)) {
 178                         if($s) {
 179                                 return (int) 1;
 180                         }
 181                         return (int) 0;
 182                 }
 183                 return false;
 184         }
 185 }}
 186
 187 if(! function_exists('system_unavailable')) {
 188 function system_unavailable() {
 189         include('system_unavailable.php');
 190         killme();
 191 }}
 192
 193
 194 if(! function_exists('check_config')) {
 195 function check_config(&$a) {
 196
 197         load_config('system');
 198
 199         $build = get_config('system','build');
 200         if(! x($build))
 201                 $build = set_config('system','build',BUILD_ID);
 202
 203         $url = get_config('system','url');
 204         if(! x($url))
 205                 $url = set_config('system','url',$a->get_baseurl());
 206
 207         if($build != BUILD_ID) {
 208                 $stored = intval($build);
 209                 $current = intval(BUILD_ID);
 210                 if(($stored < $current) && file_exists('update.php')) {
 211
 212                         // We're reporting a different version than what is currently installed.
 213                         // Run any existing update scripts to bring the database up to current.
 214
 215                         require_once('update.php');
 216                         for($x = $stored; $x < $current; $x ++) {
 217                                 if(function_exists('update_' . $x)) {
 218                                         $func = 'update_' . $x;
 219                                         $func($a);
 220                                 }
 221                         }
 222                         set_config('system','build', BUILD_ID);
 223                 }
 224         }
 225         return;
 226 }}
 227
 228
 229
 230 if(! function_exists('replace_macros')) {
 231 function replace_macros($s,$r) {
 232
 233         $search = array();
 234         $replace = array();
 235
 236         if(is_array($r) && count($r)) {
 237                 foreach ($r as $k => $v ) {
 238                         $search[] =  $k;
 239                         $replace[] = $v;
 240                 }
 241         }
 242         return str_replace($search,$replace,$s);
 243 }}
 244
 245
 246 if(! function_exists('load_translation_table')) {
 247 function load_translation_table($lang) {
 248         global $a;
 249
 250 }}
 251
 252 if(! function_exists('t')) {
 253 function t($s) {
 254         global $a;
 255
 256         if($a->strings[$s])
 257                 return $a->strings[$s];
 258         return $s;
 259 }}
 260
 261 if(! function_exists('fetch_url')) {
 262 function fetch_url($url,$binary = false) {
 263         $ch = curl_init($url);
 264         if(! $ch) return false;
 265
 266         curl_setopt($ch, CURLOPT_HEADER, 0);
 267         curl_setopt($ch, CURLOPT_FOLLOWLOCATION,true);
 268         curl_setopt($ch, CURLOPT_MAXREDIRS,8);
 269         curl_setopt($ch, CURLOPT_RETURNTRANSFER,true);
 270         $prx = get_config('system','proxy');
 271         if(strlen($prx)) {
 272                 curl_setopt($ch, CURLOPT_HTTPPROXYTUNNEL, 1);
 273                 curl_setopt($ch, CURLOPT_PROXY, $prx);
 274                 $prxusr = get_config('system','proxyuser');
 275                 if(strlen($prxusr))
 276                         curl_setopt($ch, CURLOPT_PROXYUSERPWD, $prxusr);
 277         }
 278         if($binary)
 279                 curl_setopt($ch, CURLOPT_BINARYTRANSFER,1);
 280
 281         $s = curl_exec($ch);
 282         curl_close($ch);
 283         return($s);
 284 }}
 285
 286
 287 if(! function_exists('post_url')) {
 288 function post_url($url,$params) {
 289         $ch = curl_init($url);
 290         if(! $ch) return false;
 291
 292         curl_setopt($ch, CURLOPT_HEADER, 0);
 293         curl_setopt($ch, CURLOPT_FOLLOWLOCATION,true);
 294         curl_setopt($ch, CURLOPT_MAXREDIRS,8);
 295         curl_setopt($ch, CURLOPT_RETURNTRANSFER,true);
 296         curl_setopt($ch, CURLOPT_POST,1);
 297         curl_setopt($ch, CURLOPT_POSTFIELDS,$params);
 298         $prx = get_config('system','proxy');
 299         if(strlen($prx)) {
 300                 curl_setopt($ch, CURLOPT_HTTPPROXYTUNNEL, 1);
 301                 curl_setopt($ch, CURLOPT_PROXY, $prx);
 302                 $prxusr = get_config('system','proxyuser');
 303                 if(strlen($prxusr))
 304                         curl_setopt($ch, CURLOPT_PROXYUSERPWD, $prxusr);
 305         }
 306
 307         $s = curl_exec($ch);
 308         curl_close($ch);
 309         return($s);
 310 }}
 311
 312
 313 if(! function_exists('random_string')) {
 314 function random_string() {
 315         return(hash('sha256',uniqid(rand(),true)));
 316 }}
 317
 318 if(! function_exists('notags')) {
 319 function notags($string) {
 320         // protect against :<> with high-bit set
 321         return(str_replace(array("<",">","\xBA","\xBC","\xBE"), array('[',']','','',''), $string));
 322 }}
 323
 324 if(! function_exists('escape_tags')) {
 325 function escape_tags($string) {
 326
 327         return(htmlspecialchars($string));
 328 }}
 329
 330 if(! function_exists('login')) {
 331 function login($register = false) {
 332         $o = "";
 333         $register_html = (($register) ? load_view_file("view/register-link.tpl") : "");
 334
 335
 336         if(x($_SESSION,'authenticated')) {
 337                 $o = load_view_file("view/logout.tpl");
 338         }
 339         else {
 340                 $o = load_view_file("view/login.tpl");
 341
 342                 $o = replace_macros($o,array('$register_html' => $register_html ));
 343         }
 344         return $o;
 345 }}
 346
 347
 348 if(! function_exists('autoname')) {
 349 function autoname($len) {
 350
 351         $vowels = array('a','a','ai','au','e','e','e','ee','ea','i','ie','o','ou','u');
 352         if(mt_rand(0,5) == 4)
 353                 $vowels[] = 'y';
 354
 355         $cons = array(
 356                         'b','bl','br',
 357                         'c','ch','cl','cr',
 358                         'd','dr',
 359                         'f','fl','fr',
 360                         'g','gh','gl','gr',
 361                         'h',
 362                         'j',
 363                         'k','kh','kl','kr',
 364                         'l',
 365                         'm',
 366                         'n',
 367                         'p','ph','pl','pr',
 368                         'qu',
 369                         'r','rh',
 370                         's','sc','sh','sm','sp','st',
 371                         't','th','tr',
 372                         'v',
 373                         'w','wh',
 374                         'x',
 375                         'z','zh'
 376                         );
 377
 378         $midcons = array('ck','ct','gn','ld','lf','lm','lt','mb','mm', 'mn','mp',
 379                                 'nd','ng','nk','nt','rn','rp','rt');
 380
 381         $noend = array('bl', 'br', 'cl','cr','dr','fl','fr','gl','gr',
 382                                 'kh', 'kl','kr','mn','pl','pr','rh','tr','qu','wh');
 383
 384         $start = mt_rand(0,2);
 385         if($start == 0)
 386                 $table = $vowels;
 387         else
 388                 $table = $cons;
 389
 390         $word = '';
 391
 392         for ($x = 0; $x < $len; $x ++) {
 393                 $r = mt_rand(0,count($table) - 1);
 394                 $word .= $table[$r];
 395
 396                 if($table == $vowels)
 397                         $table = array_merge($cons,$midcons);
 398                 else
 399                         $table = $vowels;
 400
 401         }
 402
 403         $word = substr($word,0,$len);
 404
 405         foreach($noend as $noe) {
 406                 if((strlen($word) > 2) && (substr($word,-2) == $noe)) {
 407                         $word = substr($word,0,-1);
 408                         break;
 409                 }
 410         }
 411         if(substr($word,-1) == 'q')
 412                 $word = substr($word,0,-1);
 413         return $word;
 414 }}
 415
 416 if(! function_exists('killme')) {
 417 function killme() {
 418         session_write_close();
 419         exit;
 420 }}
 421
 422 if(! function_exists('goaway')) {
 423 function goaway($s) {
 424         header("Location: $s");
 425         killme();
 426 }}
 427
 428
 429 if(! function_exists('xml_status')) {
 430 function xml_status($st) {
 431         header( "Content-type: text/xml" );
 432         echo '<?xml version="1.0" encoding="UTF-8"?>'."\r\n";
 433         echo "<result><status>$st</status></result>\r\n";
 434         killme();
 435 }}
 436
 437 if(! function_exists('local_user')) {
 438 function local_user() {
 439         if((x($_SESSION,'authenticated')) && (x($_SESSION,'uid')))
 440                 return $_SESSION['uid'];
 441         return false;
 442 }}
 443
 444 if(! function_exists('remote_user')) {
 445 function remote_user() {
 446         if((x($_SESSION,'authenticated')) && (x($_SESSION,'visitor_id')))
 447                 return $_SESSION['visitor_id'];
 448         return false;
 449 }}
 450
 451 if(! function_exists('notice')) {
 452 function notice($s) {
 453
 454         $_SESSION['sysmsg'] .= $s;
 455
 456 }}
 457
 458 if(! function_exists('get_max_import_size')) {
 459 function get_max_import_size() {
 460         global $a;
 461         return ((x($a->config,'max_import_size')) ? $a->config['max_import_size'] : 0 );
 462 }}
 463
 464 if(! function_exists('xmlify')) {
 465 function xmlify($str) {
 466         $buffer = '';
 467
 468         for($x = 0; $x < strlen($str); $x ++) {
 469                 $char = $str[$x];
 470
 471                 switch( $char ) {
 472
 473                         case "\r" :
 474                                 break;
 475                         case "&" :
 476                                 $buffer .= '&amp;';
 477                                 break;
 478                         case "'" :
 479                                 $buffer .= '&apos;';
 480                                 break;
 481
 482                         case "\"" :
 483                                 $buffer .= '&quot;';
 484                                 break;
 485                         case '<' :
 486                                 $buffer .= '&lt;';
 487                                 break;
 488                         case '>' :
 489                                 $buffer .= '&gt;';
 490                                 break;
 491                         case "\n" :
 492                                 $buffer .= ' ';
 493                                 break;
 494                         default :
 495                                 $buffer .= $char;
 496                                 break;
 497                 }
 498         }
 499         $buffer = trim($buffer);
 500         return($buffer);
 501 }}
 502
 503 if(! function_exists('unxmlify')) {
 504 function unxmlify($s) {
 505         $ret = str_replace('&amp;','&', $s);
 506         $ret = str_replace(array('&lt;','&gt;','&quot;','&apos;'),array('<','>','"',"'"),$ret);
 507         return $ret;
 508 }}
 509
 510 if(! function_exists('hex2bin')) {
 511 function hex2bin($s) {
 512         return(pack("H*",$s));
 513 }}
 514
 515
 516 if(! function_exists('paginate')) {
 517 function paginate(&$a) {
 518         $o = '';
 519         $stripped = ereg_replace("(&page=[0-9]*)","",$_SERVER['QUERY_STRING']);
 520         $stripped = str_replace('q=','',$stripped);
 521         $stripped = trim($stripped,'/');
 522         $url = $a->get_baseurl() . '/' . $stripped;
 523
 524
 525           if($a->pager['total'] > $a->pager['itemspage']) {
 526                 $o .= '<div class="pager">';
 527                 if($a->pager['page'] != 1)
 528                         $o .= '<span class="pager_prev">'."<a href=\"$url".'&page='.($a->pager['page'] - 1).'">' . t('prev') . '</a></span> ';
 529
 530                 $o .=  "<span class=\"pager_first\"><a href=\"$url"."&page=1\">" . t('first') . "</a></span> ";
 531
 532                 $numpages = $a->pager['total'] / $a->pager['itemspage'];
 533
 534                 $numstart = 1;
 535                 $numstop = $numpages;
 536
 537                 if($numpages > 14) {
 538                         $numstart = (($pagenum > 7) ? ($pagenum - 7) : 1);
 539                         $numstop = (($pagenum > ($numpages - 7)) ? $numpages : ($numstart + 14));
 540                 }
 541
 542                 for($i = $numstart; $i <= $numstop; $i++){
 543                         if($i == $a->pager['page'])
 544                                 $o .= '<span class="pager_current">'.(($i < 10) ? '&nbsp;'.$i : $i);
 545                         else
 546                                 $o .= "<span class=\"pager_n\"><a href=\"$url"."&page=$i\">".(($i < 10) ? '&nbsp;'.$i : $i)."</a>";
 547                         $o .= '</span> ';
 548                 }
 549
 550                 if(($a->pager['total'] % $a->pager['itemspage']) != 0) {
 551                         if($i == $a->pager['page'])
 552                                 $o .= '<span class="pager_current">'.(($i < 10) ? '&nbsp;'.$i : $i);
 553                         else
 554                                 $o .= "<span class=\"pager_n\"><a href=\"$url"."&page=$i\">".(($i < 10) ? '&nbsp;'.$i : $i)."</a>";
 555                         $o .= '</span> ';
 556                 }
 557
 558                 $lastpage = (($numpages > intval($numpages)) ? intval($numpages)+1 : $numpages);
 559                 $o .= "<span class=\"pager_last\"><a href=\"$url"."&page=$lastpage\">" . t('last') . "</a></span> ";
 560
 561                 if(($a->pager['total'] - ($a->pager['itemspage'] * $a->pager['page'])) > 0)
 562                         $o .= '<span class="pager_next">'."<a href=\"$url"."&page=".($a->pager['page'] + 1).'">' . t('next') . '</a></span>';
 563                 $o .= '</div>'."\r\n";
 564         }
 565         return $o;
 566 }}
 567
 568 if(! function_exists('expand_acl')) {
 569 function expand_acl($s) {
 570
 571         if(strlen($s)) {
 572                 $a = explode('<',$s);
 573                 for($x = 0; $x < count($a); $x ++) {
 574                         $a[$x] = intval(str_replace(array('<','>'),array('',''),$a[$x]));
 575                 }
 576                 return $a;
 577         }
 578         return array();
 579 }}
 580
 581 if(! function_exists('sanitise_acl')) {
 582 function sanitise_acl(&$item) {
 583         if(intval($item))
 584                 $item = '<' . intval(notags(trim($item))) . '>';
 585         else
 586                 unset($item);
 587 }}
 588
 589 if(! function_exists('load_config')) {
 590 function load_config($family) {
 591         global $a;
 592         $r = q("SELECT * FROM `config` WHERE `cat` = '%s'",
 593                 dbesc($family)
 594         );
 595         if(count($r)) {
 596                 foreach($r as $rr) {
 597                         $k = $rr['k'];
 598                         $a->config[$family][$k] = $rr['v'];
 599                 }
 600         }
 601 }}
 602
 603
 604 if(! function_exists('get_config')) {
 605 function get_config($family, $key, $instore = false) {
 606
 607         global $a;
 608
 609         if(! $instore) {
 610                 if(isset($a->config[$family][$key])) {
 611                         if($a->config[$family][$key] === '!<unset>!') {
 612                                 return false;
 613                         }
 614                         return $a->config[$family][$key];
 615                 }
 616         }
 617         $ret = q("SELECT `v` FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 618                 dbesc($family),
 619                 dbesc($key)
 620         );
 621         if(count($ret)) {
 622                 $a->config[$family][$key] = $ret[0]['v'];
 623                 return $ret[0]['v'];
 624         }
 625         else {
 626                 $a->config[$family][$key] = '!<unset>!';
 627         }
 628         return false;
 629 }}
 630
 631 if(! function_exists('set_config')) {
 632 function set_config($family,$key,$value) {
 633
 634         global $a;
 635         $a->config[$family][$key] = $value;
 636
 637         if(get_config($family,$key,true) === false) {
 638                 $ret = q("INSERT INTO `config` ( `cat`, `k`, `v` ) VALUES ( '%s', '%s', '%s' ) ",
 639                         dbesc($family),
 640                         dbesc($key),
 641                         dbesc($value)
 642                 );
 643                 if($ret)
 644                         return $value;
 645                 return $ret;
 646         }
 647         $ret = q("UPDATE `config` SET `v` = '%s' WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 648                 dbesc($value),
 649                 dbesc($family),
 650                 dbesc($key)
 651         );
 652         if($ret)
 653                 return $value;
 654         return $ret;
 655 }}
 656
 657 if(! function_exists('convert_xml_element_to_array')) {
 658 function convert_xml_element_to_array($xml_element, &$recursion_depth=0) {
 659
 660         // If we're getting too deep, bail out
 661         if ($recursion_depth > 512) {
 662                 return(null);
 663         }
 664
 665         if (!is_string($xml_element) &&
 666         !is_array($xml_element) &&
 667         (get_class($xml_element) == 'SimpleXMLElement')) {
 668                 $xml_element_copy = $xml_element;
 669                 $xml_element = get_object_vars($xml_element);
 670         }
 671
 672         if (is_array($xml_element)) {
 673                 $result_array = array();
 674                 if (count($xml_element) <= 0) {
 675                         return (trim(strval($xml_element_copy)));
 676                 }
 677
 678                 foreach($xml_element as $key=>$value) {
 679
 680                         $recursion_depth++;
 681                         $result_array[strtolower($key)] =
 682                 convert_xml_element_to_array($value, $recursion_depth);
 683                         $recursion_depth--;
 684                 }
 685                 if ($recursion_depth == 0) {
 686                         $temp_array = $result_array;
 687                         $result_array = array(
 688                                 strtolower($xml_element_copy->getName()) => $temp_array,
 689                         );
 690                 }
 691
 692                 return ($result_array);
 693
 694         } else {
 695                 return (trim(strval($xml_element)));
 696         }
 697 }}
 698
 699
 700 if(! function_exists('webfinger')) {
 701 function webfinger($s) {
 702         if(! strstr($s,'@')) {
 703                 return $s;
 704         }
 705         $host = substr($s,strpos($s,'@') + 1);
 706         $url = 'http://' . $host . '/.well-known/host-meta' ;
 707         $xml = fetch_url($url);
 708         if (! $xml)
 709                 return '';
 710         $h = simplexml_load_string($xml);
 711         $arr = convert_xml_element_to_array($h);
 712
 713         if(! isset($arr['xrd']['link']))
 714                 return '';
 715
 716         $link = $arr['xrd']['link'];
 717         if(! isset($link[0]))
 718                 $links = array($link);
 719         else
 720                 $links = $link;
 721
 722         foreach($links as $link)
 723                 if($link['@attributes']['rel'] && $link['@attributes']['rel'] == 'lrdd')
 724                         $tpl = $link['@attributes']['template'];
 725         if((empty($tpl)) || (! strpos($tpl, '{uri}')))
 726                 return '';
 727
 728         $pxrd = str_replace('{uri}', urlencode('acct://'.$s), $tpl);
 729
 730         $xml = fetch_url($pxrd);
 731         if (! $xml)
 732                 return '';
 733         $h = simplexml_load_string($xml);
 734         $arr = convert_xml_element_to_array($h);
 735
 736         if(! isset($arr['xrd']['link']))
 737                 return '';
 738
 739         $link = $arr['xrd']['link'];
 740         if(! isset($link[0]))
 741                 $links = array($link);
 742         else
 743                 $links = $link;
 744
 745         foreach($links as $link)
 746                 if($link['@attributes']['rel'] == NAMESPACE_DFRN)
 747                         return $link['@attributes']['href'];
 748         return '';
 749 }}
 750
 751 if(! function_exists('perms2str')) {
 752 function perms2str($p) {
 753         $ret = '';
 754         $tmp = $p;
 755         if(is_array($tmp)) {
 756                 array_walk($tmp,'sanitise_acl');
 757                 $ret = implode('',$tmp);
 758         }
 759         return $ret;
 760 }}
 761
 762 if(! function_exists('item_new_uri')) {
 763 function item_new_uri($hostname,$uid) {
 764
 765         do {
 766                 $dups = false;
 767                 $hash = random_string();
 768
 769                 $uri = "urn:X-dfrn:" . $hostname . ':' . $uid . ':' . $hash;
 770
 771                 $r = q("SELECT `id` FROM `item` WHERE `uri` = '%s' LIMIT 1",
 772                         dbesc($uri));
 773                 if(count($r))
 774                         $dups = true;
 775         } while($dups == true);
 776         return $uri;
 777 }}
 778
 779 if(! function_exists('photo_new_resource')) {
 780 function photo_new_resource() {
 781
 782         do {
 783                 $found = false;
 784                 $resource = hash('md5',uniqid(mt_rand(),true));
 785                 $r = q("SELECT `id` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1",
 786                         dbesc($resource)
 787                 );
 788                 if(count($r))
 789                         $found = true;
 790         } while($found == true);
 791         return $resource;
 792 }}
 793
 794
 795
 796 if(! function_exists('get_uid')) {
 797 function get_uid() {
 798         return ((x($_SESSION,'uid')) ? intval($_SESSION['uid']) : 0) ;
 799 }}
 800
 801 if(! function_exists('validate_url')) {
 802 function validate_url(&$url) {
 803         if(substr($url,0,4) != 'http')
 804                 $url = 'http://' . $url;
 805         $h = parse_url($url);
 806
 807         if(! $h) {
 808                 return false;
 809         }
 810         if(! checkdnsrr($h['host'], 'ANY')) {
 811                 return false;
 812         }
 813         return true;
 814 }}
 815
 816 if(! function_exists('allowed_url')) {
 817 function allowed_url($url) {
 818
 819         $h = parse_url($url);
 820
 821         if(! $h) {
 822                 return false;
 823         }
 824
 825         $str_allowed = get_config('system','allowed_sites');
 826         if(! $str_allowed)
 827                 return true;
 828
 829         $found = false;
 830
 831         $host = strtolower($h['host']);
 832
 833         // always allow our own site
 834
 835         if($host == strtolower($_SERVER['SERVER_NAME']))
 836                 return true;
 837
 838         $fnmatch = function_exists('fnmatch');
 839         $allowed = explode(',',$str_allowed);
 840
 841         if(count($allowed)) {
 842                 foreach($allowed as $a) {
 843                         $pat = strtolower(trim($a));
 844                         if(($fnmatch && fnmatch($pat,$host)) || ($pat == $host)) {
 845                                 $found = true;
 846                                 break;
 847                         }
 848                 }
 849         }
 850         return $found;
 851 }}
 852
 853 if(! function_exists('allowed_email')) {
 854 function allowed_email($email) {
 855
 856
 857         $domain = strtolower(substr($email,strpos($email,'@') + 1));
 858         if(! $domain)
 859                 return false;
 860
 861         $str_allowed = get_config('system','allowed_email');
 862         if(! $str_allowed)
 863                 return true;
 864
 865         $found = false;
 866
 867         $fnmatch = function_exists('fnmatch');
 868         $allowed = explode(',',$str_allowed);
 869
 870         if(count($allowed)) {
 871                 foreach($allowed as $a) {
 872                         $pat = strtolower(trim($a));
 873                         if(($fnmatch && fnmatch($pat,$host)) || ($pat == $host)) {
 874                                 $found = true;
 875                                 break;
 876                         }
 877                 }
 878         }
 879         return $found;
 880 }}
 881
 882
 883 if(! function_exists('format_like')) {
 884 function format_like($cnt,$arr,$type,$id) {
 885         if($cnt == 1)
 886                 $o .= $arr[0] . (($type == 'like') ? t(' likes this.') : t(' doesn\'t like this.')) . EOL ;
 887         else {
 888                 $o .= '<span class="fakelink" onclick="openClose(\'' . $type . 'list-' . $id . '\');" >'
 889                         . $cnt . ' ' . t('people') . '</span> ' . (($type == 'like') ? t('like this.') : t('don\'t like this.')) . EOL ;
 890                 $total = count($arr);
 891                 if($total >= 75)
 892                         $arr = array_slice($arr,0,74);
 893                 if($total < 75)
 894                         $arr[count($arr)-1] = t('and') . ' ' . $arr[count($arr)-1];
 895                 $str = implode(', ', $arr);
 896                 if($total >= 75)
 897                         $str .= t(', and ') . $total - 75 . t(' other people');
 898                 $str .= (($type == 'like') ? t(' like this.') : t(' don\'t like this.'));
 899                 $o .= '<div id="' . $type . 'list-' . $id . '" style="display: none;" >' . $str . '</div>';
 900         }
 901         return $o;
 902 }}
 903
 904 if(! function_exists('load_view_file')) {
 905 function load_view_file($s) {
 906         $b = basename($s);
 907         $d = dirname($s);
 908         $lang = get_config('system','language');
 909         if($lang && file_exists("$d/$lang/$b"))
 910                 return file_get_contents("$d/$lang/$b");
 911         return file_get_contents($s);
 912 }}