]> git.mxchange.org Git - friendica.git/blobdiff - boot.php
preliminary network abstraction, configurable debugging.
[friendica.git] / boot.php
index 17eccd138fb294968bd38c4baf77c83235420910..8dd7c74400480fdfafdd89f1f880a5cdc2d493bc 100644 (file)
--- a/boot.php
+++ b/boot.php
@@ -2,18 +2,20 @@
 
 set_time_limit(0);
 
-define ( 'BUILD_ID' , 1000 );
+define ( 'BUILD_ID' , 1003 );
 
 define ( 'EOL', "<br />\r\n");
+define ( 'ATOM_TIME',  'Y-m-d\TH:i:s\Z' );
 
 define ( 'REGISTER_CLOSED',  0);
 define ( 'REGISTER_APPROVE', 1);
 define ( 'REGISTER_OPEN',    2);
 
-define ( 'DIRECTION_NONE', 0);                 // No relationship
-define ( 'DIRECTION_IN',   1);                 // VIP e.g. has FAN
-define ( 'DIRECTION_OUT',  2);                 // FAN to a VIP
-define ( 'DIRECTION_BOTH', 3);                 // Mutual Friends
+// relationship types
+
+define ( 'REL_VIP',        1);
+define ( 'REL_FAN',        2);
+define ( 'REL_BUD',        3);
 
 define ( 'NOTIFY_INTRO',   0x0001 );
 define ( 'NOTIFY_CONFIRM', 0x0002 );
@@ -21,7 +23,30 @@ define ( 'NOTIFY_WALL',    0x0004 );
 define ( 'NOTIFY_COMMENT', 0x0008 );
 define ( 'NOTIFY_MAIL',    0x0010 );
 
-define ( 'NAMESPACE_DFRN' , 'http://purl.org/macgirvin/dfrn/1.0' ); 
+define ( 'NAMESPACE_DFRN' ,           'http://purl.org/macgirvin/dfrn/1.0' ); 
+define ( 'NAMESPACE_THREAD' ,         'http://purl.org/syndication/thread/1.0' );
+define ( 'NAMESPACE_TOMB' ,           'http://purl.org/atompub/tombstones/1.0' );
+define ( 'NAMESPACE_ACTIVITY',        'http://activitystrea.ms/spec/1.0/' );
+define ( 'NAMESPACE_ACTIVITY_SCHEMA', 'http://activitystrea.ms/schema/1.0/');
+
+define ( 'ACTIVITY_LIKE',        NAMESPACE_ACTIVITY_SCHEMA . 'like' );
+define ( 'ACTIVITY_DISLIKE',     NAMESPACE_DFRN            . '/dislike' );
+define ( 'ACTIVITY_OBJ_HEART',   NAMESPACE_DFRN            . '/heart' );
+
+define ( 'ACTIVITY_FRIEND',      NAMESPACE_ACTIVITY_SCHEMA . 'make-friend' );
+define ( 'ACTIVITY_POST',        NAMESPACE_ACTIVITY_SCHEMA . 'post' );
+define ( 'ACTIVITY_UPDATE',      NAMESPACE_ACTIVITY_SCHEMA . 'update' );
+
+define ( 'ACTIVITY_OBJ_COMMENT', NAMESPACE_ACTIVITY_SCHEMA . 'comment' );
+define ( 'ACTIVITY_OBJ_NOTE',    NAMESPACE_ACTIVITY_SCHEMA . 'note' );
+define ( 'ACTIVITY_OBJ_PERSON',  NAMESPACE_ACTIVITY_SCHEMA . 'person' );
+define ( 'ACTIVITY_OBJ_PHOTO',   NAMESPACE_ACTIVITY_SCHEMA . 'photo' );
+define ( 'ACTIVITY_OBJ_P_PHOTO', NAMESPACE_ACTIVITY_SCHEMA . 'profile-photo' );
+define ( 'ACTIVITY_OBJ_ALBUM',   NAMESPACE_ACTIVITY_SCHEMA . 'photo-album' );
+
+define ( 'GRAVITY_PARENT',       0);
+define ( 'GRAVITY_LIKE',         3);
+define ( 'GRAVITY_COMMENT',      6);
 
 
 if(! class_exists('App')) {
@@ -129,9 +154,8 @@ class App {
        } 
 
        function init_pagehead() {
-               if(file_exists("view/head.tpl"))
-                       $s = file_get_contents("view/head.tpl");
-               $this->page['htmlhead'] = replace_macros($s,array(
+               $tpl = load_view_file("view/head.tpl");
+               $this->page['htmlhead'] = replace_macros($tpl,array(
                        '$baseurl' => $this->get_baseurl()
                ));
        }
@@ -189,7 +213,7 @@ function check_config(&$a) {
                        // Run any existing update scripts to bring the database up to current.
 
                        require_once('update.php');
-                       for($x = $stored; $x <= $current; $x ++) {
+                       for($x = $stored; $x < $current; $x ++) {
                                if(function_exists('update_' . $x)) {
                                        $func = 'update_' . $x;
                                        $func($a);
@@ -306,14 +330,14 @@ function escape_tags($string) {
 if(! function_exists('login')) {
 function login($register = false) {
        $o = "";
-       $register_html = (($register) ? file_get_contents("view/register-link.tpl") : "");
+       $register_html = (($register) ? load_view_file("view/register-link.tpl") : "");
 
 
        if(x($_SESSION,'authenticated')) {
-               $o = file_get_contents("view/logout.tpl");
+               $o = load_view_file("view/logout.tpl");
        }
        else {
-               $o = file_get_contents("view/login.tpl");
+               $o = load_view_file("view/login.tpl");
 
                $o = replace_macros($o,array('$register_html' => $register_html ));
        }
@@ -577,13 +601,19 @@ function load_config($family) {
 }}
 
 
-
 if(! function_exists('get_config')) {
-function get_config($family,$key) {
+function get_config($family, $key, $instore = false) {
+
        global $a;
-       if(isset($a->config[$family][$key]))
-               return $a->config[$family][$key];
 
+       if(! $instore) {
+               if(isset($a->config[$family][$key])) {
+                       if($a->config[$family][$key] === '!<unset>!') {
+                               return false;
+                       }
+                       return $a->config[$family][$key];
+               }
+       }
        $ret = q("SELECT `v` FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
                dbesc($family),
                dbesc($key)
@@ -592,6 +622,9 @@ function get_config($family,$key) {
                $a->config[$family][$key] = $ret[0]['v'];
                return $ret[0]['v'];
        }
+       else {
+               $a->config[$family][$key] = '!<unset>!';
+       }
        return false;
 }}
 
@@ -601,7 +634,7 @@ function set_config($family,$key,$value) {
        global $a;
        $a->config[$family][$key] = $value;
 
-       if(get_config($family,$key) === false) {
+       if(get_config($family,$key,true) === false) {
                $ret = q("INSERT INTO `config` ( `cat`, `k`, `v` ) VALUES ( '%s', '%s', '%s' ) ",
                        dbesc($family),
                        dbesc($key),
@@ -611,7 +644,7 @@ function set_config($family,$key,$value) {
                        return $value;
                return $ret;
        }
-       $ret = q("SUPDATE `config` SET `v` = '%s' WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
+       $ret = q("UPDATE `config` SET `v` = '%s' WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
                dbesc($value),
                dbesc($family),
                dbesc($key)
@@ -620,3 +653,260 @@ function set_config($family,$key,$value) {
                return $value;
        return $ret;
 }}
+
+if(! function_exists('convert_xml_element_to_array')) {
+function convert_xml_element_to_array($xml_element, &$recursion_depth=0) {
+
+        // If we're getting too deep, bail out
+        if ($recursion_depth > 512) {
+                return(null);
+        }
+
+        if (!is_string($xml_element) &&
+        !is_array($xml_element) &&
+        (get_class($xml_element) == 'SimpleXMLElement')) {
+                $xml_element_copy = $xml_element;
+                $xml_element = get_object_vars($xml_element);
+        }
+
+        if (is_array($xml_element)) {
+                $result_array = array();
+                if (count($xml_element) <= 0) {
+                        return (trim(strval($xml_element_copy)));
+                }
+
+                foreach($xml_element as $key=>$value) {
+
+                        $recursion_depth++;
+                        $result_array[strtolower($key)] =
+                convert_xml_element_to_array($value, $recursion_depth);
+                        $recursion_depth--;
+                }
+                if ($recursion_depth == 0) {
+                        $temp_array = $result_array;
+                        $result_array = array(
+                                strtolower($xml_element_copy->getName()) => $temp_array,
+                        );
+                }
+
+                return ($result_array);
+
+        } else {
+                return (trim(strval($xml_element)));
+        }
+}}
+
+
+if(! function_exists('webfinger')) {
+function webfinger($s) {
+       if(! strstr($s,'@')) {
+               return $s;
+       }
+       $host = substr($s,strpos($s,'@') + 1);
+       $url = 'http://' . $host . '/.well-known/host-meta' ;
+       $xml = fetch_url($url);
+       if (! $xml)
+               return '';
+       $h = simplexml_load_string($xml);
+       $arr = convert_xml_element_to_array($h);
+
+       if(! isset($arr['xrd']['link']))
+               return '';
+
+       $link = $arr['xrd']['link'];
+       if(! isset($link[0]))
+               $links = array($link);
+       else
+               $links = $link;
+
+       foreach($links as $link)
+               if($link['@attributes']['rel'] && $link['@attributes']['rel'] == 'lrdd')
+                       $tpl = $link['@attributes']['template'];
+       if((empty($tpl)) || (! strpos($tpl, '{uri}')))
+               return '';
+
+       $pxrd = str_replace('{uri}', urlencode('acct://'.$s), $tpl);
+
+       $xml = fetch_url($pxrd);
+       if (! $xml)
+               return '';
+       $h = simplexml_load_string($xml);
+       $arr = convert_xml_element_to_array($h);
+
+       if(! isset($arr['xrd']['link']))
+               return '';
+
+       $link = $arr['xrd']['link'];
+       if(! isset($link[0]))
+               $links = array($link);
+       else
+               $links = $link;
+
+       foreach($links as $link)
+               if($link['@attributes']['rel'] == NAMESPACE_DFRN)
+                       return $link['@attributes']['href'];
+       return '';
+}}
+
+if(! function_exists('perms2str')) {
+function perms2str($p) {
+       $ret = '';
+       $tmp = $p;
+       if(is_array($tmp)) {
+               array_walk($tmp,'sanitise_acl');
+               $ret = implode('',$tmp);
+       }
+       return $ret;
+}}
+
+if(! function_exists('item_new_uri')) {
+function item_new_uri($hostname,$uid) {
+
+       do {
+               $dups = false;
+               $hash = random_string();
+
+               $uri = "urn:X-dfrn:" . $hostname . ':' . $uid . ':' . $hash;
+
+               $r = q("SELECT `id` FROM `item` WHERE `uri` = '%s' LIMIT 1",
+                       dbesc($uri));
+               if(count($r))
+                       $dups = true;
+       } while($dups == true);
+       return $uri;
+}}
+
+if(! function_exists('photo_new_resource')) {
+function photo_new_resource() {
+
+       do {
+               $found = false;
+               $resource = hash('md5',uniqid(mt_rand(),true));
+               $r = q("SELECT `id` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1",
+                       dbesc($resource)
+               );
+               if(count($r))
+                       $found = true;
+       } while($found == true);
+       return $resource;
+}}
+
+
+
+if(! function_exists('get_uid')) {
+function get_uid() {
+       return ((x($_SESSION,'uid')) ? intval($_SESSION['uid']) : 0) ;
+}}
+
+if(! function_exists('validate_url')) {
+function validate_url(&$url) {
+       if(substr($url,0,4) != 'http')
+               $url = 'http://' . $url;
+       $h = parse_url($url);
+
+       if(! $h) {
+               return false;
+       }
+       if(! checkdnsrr($h['host'], 'ANY')) {
+               return false;
+       }
+       return true;
+}}
+
+if(! function_exists('allowed_url')) {
+function allowed_url($url) {
+
+       $h = parse_url($url);
+
+       if(! $h) {
+               return false;
+       }
+
+       $str_allowed = get_config('system','allowed_sites');
+       if(! $str_allowed)
+               return true;
+
+       $found = false;
+
+       $host = strtolower($h['host']);
+
+       // always allow our own site
+
+       if($host == strtolower($_SERVER['SERVER_NAME']))
+               return true;
+
+       $fnmatch = function_exists('fnmatch');
+       $allowed = explode(',',$str_allowed);
+
+       if(count($allowed)) {
+               foreach($allowed as $a) {
+                       $pat = strtolower(trim($a));
+                       if(($fnmatch && fnmatch($pat,$host)) || ($pat == $host)) {
+                               $found = true; 
+                               break;
+                       }
+               }
+       }
+       return $found;
+}}
+
+if(! function_exists('allowed_email')) {
+function allowed_email($email) {
+
+
+       $domain = strtolower(substr($email,strpos($email,'@') + 1));
+       if(! $domain)
+               return false;
+
+       $str_allowed = get_config('system','allowed_email');
+       if(! $str_allowed)
+               return true;
+
+       $found = false;
+
+       $fnmatch = function_exists('fnmatch');
+       $allowed = explode(',',$str_allowed);
+
+       if(count($allowed)) {
+               foreach($allowed as $a) {
+                       $pat = strtolower(trim($a));
+                       if(($fnmatch && fnmatch($pat,$host)) || ($pat == $host)) {
+                               $found = true; 
+                               break;
+                       }
+               }
+       }
+       return $found;
+}}
+
+
+if(! function_exists('format_like')) {
+function format_like($cnt,$arr,$type,$id) {
+       if($cnt == 1)
+               $o .= $arr[0] . (($type == 'like') ? t(' likes this.') : t(' doesn\'t like this.')) . EOL ;
+       else {
+               $o .= '<span class="fakelink" onclick="openClose(\'' . $type . 'list-' . $id . '\');" >' 
+                       . $cnt . ' ' . t('people') . '</span> ' . (($type == 'like') ? t('like this.') : t('don\'t like this.')) . EOL ;
+               $total = count($arr);
+               if($total >= 75)
+                       $arr = array_slice($arr,0,74);
+               if($total < 75)
+                       $arr[count($arr)-1] = t('and') . ' ' . $arr[count($arr)-1];
+               $str = implode(', ', $arr);
+               if($total >= 75)
+                       $str .= t(', and ') . $total - 75 . t(' other people');
+               $str .= (($type == 'like') ? t(' like this.') : t(' don\'t like this.'));
+               $o .= '<div id="' . $type . 'list-' . $id . '" style="display: none;" >' . $str . '</div>';
+       }
+       return $o;
+}}
+
+if(! function_exists('load_view_file')) {
+function load_view_file($s) {
+       $b = basename($s);
+       $d = dirname($s);
+       $lang = get_config('system','language');
+       if($lang && file_exists("$d/$lang/$b"))
+               return file_get_contents("$d/$lang/$b");
+       return file_get_contents($s);
+}}
\ No newline at end of file