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         if(! $instore) {
 609                 if(isset($a->config[$family][$key])) {
 610                         if($a->config[$family][$key] == '!<unset>!')
 611                                 return false;
 612                         return $a->config[$family][$key];
 613                 }
 614         }
 615         $ret = q("SELECT `v` FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 616                 dbesc($family),
 617                 dbesc($key)
 618         );
 619         if(count($ret)) {
 620                 $a->config[$family][$key] = $ret[0]['v'];
 621                 return $ret[0]['v'];
 622         }
 623         else {
 624                 $a->config[$family][$key] = '!<unset>!';
 625         }
 626         return false;
 627 }}
 628
 629 if(! function_exists('set_config')) {
 630 function set_config($family,$key,$value) {
 631
 632         global $a;
 633         $a->config[$family][$key] = $value;
 634
 635         if(get_config($family,$key,true) === false) {
 636                 $ret = q("INSERT INTO `config` ( `cat`, `k`, `v` ) VALUES ( '%s', '%s', '%s' ) ",
 637                         dbesc($family),
 638                         dbesc($key),
 639                         dbesc($value)
 640                 );
 641                 if($ret)
 642                         return $value;
 643                 return $ret;
 644         }
 645         $ret = q("UPDATE `config` SET `v` = '%s' WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 646                 dbesc($value),
 647                 dbesc($family),
 648                 dbesc($key)
 649         );
 650         if($ret)
 651                 return $value;
 652         return $ret;
 653 }}
 654
 655 if(! function_exists('convert_xml_element_to_array')) {
 656 function convert_xml_element_to_array($xml_element, &$recursion_depth=0) {
 657
 658         // If we're getting too deep, bail out
 659         if ($recursion_depth > 512) {
 660                 return(null);
 661         }
 662
 663         if (!is_string($xml_element) &&
 664         !is_array($xml_element) &&
 665         (get_class($xml_element) == 'SimpleXMLElement')) {
 666                 $xml_element_copy = $xml_element;
 667                 $xml_element = get_object_vars($xml_element);
 668         }
 669
 670         if (is_array($xml_element)) {
 671                 $result_array = array();
 672                 if (count($xml_element) <= 0) {
 673                         return (trim(strval($xml_element_copy)));
 674                 }
 675
 676                 foreach($xml_element as $key=>$value) {
 677
 678                         $recursion_depth++;
 679                         $result_array[strtolower($key)] =
 680                 convert_xml_element_to_array($value, $recursion_depth);
 681                         $recursion_depth--;
 682                 }
 683                 if ($recursion_depth == 0) {
 684                         $temp_array = $result_array;
 685                         $result_array = array(
 686                                 strtolower($xml_element_copy->getName()) => $temp_array,
 687                         );
 688                 }
 689
 690                 return ($result_array);
 691
 692         } else {
 693                 return (trim(strval($xml_element)));
 694         }
 695 }}
 696
 697
 698 if(! function_exists('webfinger')) {
 699 function webfinger($s) {
 700         if(! strstr($s,'@')) {
 701                 return $s;
 702         }
 703         $host = substr($s,strpos($s,'@') + 1);
 704         $url = 'http://' . $host . '/.well-known/host-meta' ;
 705         $xml = fetch_url($url);
 706         if (! $xml)
 707                 return '';
 708         $h = simplexml_load_string($xml);
 709         $arr = convert_xml_element_to_array($h);
 710
 711         if(! isset($arr['xrd']['link']))
 712                 return '';
 713
 714         $link = $arr['xrd']['link'];
 715         if(! isset($link[0]))
 716                 $links = array($link);
 717         else
 718                 $links = $link;
 719
 720         foreach($links as $link)
 721                 if($link['@attributes']['rel'] && $link['@attributes']['rel'] == 'lrdd')
 722                         $tpl = $link['@attributes']['template'];
 723         if((empty($tpl)) || (! strpos($tpl, '{uri}')))
 724                 return '';
 725
 726         $pxrd = str_replace('{uri}', urlencode('acct://'.$s), $tpl);
 727
 728         $xml = fetch_url($pxrd);
 729         if (! $xml)
 730                 return '';
 731         $h = simplexml_load_string($xml);
 732         $arr = convert_xml_element_to_array($h);
 733
 734         if(! isset($arr['xrd']['link']))
 735                 return '';
 736
 737         $link = $arr['xrd']['link'];
 738         if(! isset($link[0]))
 739                 $links = array($link);
 740         else
 741                 $links = $link;
 742
 743         foreach($links as $link)
 744                 if($link['@attributes']['rel'] == NAMESPACE_DFRN)
 745                         return $link['@attributes']['href'];
 746         return '';
 747 }}
 748
 749 if(! function_exists('perms2str')) {
 750 function perms2str($p) {
 751         $ret = '';
 752         $tmp = $p;
 753         if(is_array($tmp)) {
 754                 array_walk($tmp,'sanitise_acl');
 755                 $ret = implode('',$tmp);
 756         }
 757         return $ret;
 758 }}
 759
 760 if(! function_exists('item_new_uri')) {
 761 function item_new_uri($hostname,$uid) {
 762
 763         do {
 764                 $dups = false;
 765                 $hash = random_string();
 766
 767                 $uri = "urn:X-dfrn:" . $hostname . ':' . $uid . ':' . $hash;
 768
 769                 $r = q("SELECT `id` FROM `item` WHERE `uri` = '%s' LIMIT 1",
 770                         dbesc($uri));
 771                 if(count($r))
 772                         $dups = true;
 773         } while($dups == true);
 774         return $uri;
 775 }}
 776
 777 if(! function_exists('photo_new_resource')) {
 778 function photo_new_resource() {
 779
 780         do {
 781                 $found = false;
 782                 $resource = hash('md5',uniqid(mt_rand(),true));
 783                 $r = q("SELECT `id` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1",
 784                         dbesc($resource)
 785                 );
 786                 if(count($r))
 787                         $found = true;
 788         } while($found == true);
 789         return $resource;
 790 }}
 791
 792
 793
 794 if(! function_exists('get_uid')) {
 795 function get_uid() {
 796         return ((x($_SESSION,'uid')) ? intval($_SESSION['uid']) : 0) ;
 797 }}
 798
 799 if(! function_exists('validate_url')) {
 800 function validate_url(&$url) {
 801         if(substr($url,0,4) != 'http')
 802                 $url = 'http://' . $url;
 803         $h = parse_url($url);
 804
 805         if(! $h) {
 806                 return false;
 807         }
 808         if(! checkdnsrr($h['host'], 'ANY')) {
 809                 return false;
 810         }
 811         return true;
 812 }}
 813
 814 if(! function_exists('allowed_url')) {
 815 function allowed_url($url) {
 816
 817         $h = parse_url($url);
 818
 819         if(! $h) {
 820                 return false;
 821         }
 822
 823         $str_allowed = get_config('system','allowed_sites');
 824         if(! $str_allowed)
 825                 return true;
 826
 827         $found = false;
 828
 829         $host = strtolower($h['host']);
 830
 831         // always allow our own site
 832
 833         if($host == strtolower($_SERVER['SERVER_NAME']))
 834                 return true;
 835
 836         $fnmatch = function_exists('fnmatch');
 837         $allowed = explode(',',$str_allowed);
 838
 839         if(count($allowed)) {
 840                 foreach($allowed as $a) {
 841                         $pat = strtolower(trim($a));
 842                         if(($fnmatch && fnmatch($pat,$host)) || ($pat == $host)) {
 843                                 $found = true;
 844                                 break;
 845                         }
 846                 }
 847         }
 848         return $found;
 849 }}
 850
 851 if(! function_exists('format_like')) {
 852 function format_like($cnt,$arr,$type,$id) {
 853         if($cnt == 1)
 854                 $o .= $arr[0] . (($type == 'like') ? t(' likes this.') : t(' doesn\'t like this.')) . EOL ;
 855         else {
 856                 $o .= '<span class="fakelink" onclick="openClose(\'' . $type . 'list-' . $id . '\');" >'
 857                         . $cnt . ' ' . t('people') . '</span> ' . (($type == 'like') ? t('like this.') : t('don\'t like this.')) . EOL ;
 858                 $total = count($arr);
 859                 if($total >= 75)
 860                         $arr = array_slice($arr,0,74);
 861                 if($total < 75)
 862                         $arr[count($arr)-1] = t('and') . ' ' . $arr[count($arr)-1];
 863                 $str = implode(', ', $arr);
 864                 if($total >= 75)
 865                         $str .= t(', and ') . $total - 75 . t(' other people');
 866                 $str .= (($type == 'like') ? t(' like this.') : t(' don\'t like this.'));
 867                 $o .= '<div id="' . $type . 'list-' . $id . '" style="display: none;" >' . $str . '</div>';
 868         }
 869         return $o;
 870 }}
 871
 872 if(! function_exists('load_view_file')) {
 873 function load_view_file($s) {
 874         $b = basename($s);
 875         $d = dirname($s);
 876         $lang = get_config('system','language');
 877         if($lang && file_exists("$d/$lang/$b"))
 878                 return file_get_contents("$d/$lang/$b");
 879         return file_get_contents($s);
 880 }}