]> git.mxchange.org Git - friendica.git/blobdiff - boot.php
file attachments
[friendica.git] / boot.php
index 36530736dd3ba0cb8e9a107bbf451bb045bd569a..25c7fd14d0cbc29919ebe00e8c21fbfe4dc8ac2c 100644 (file)
--- a/boot.php
+++ b/boot.php
@@ -1,15 +1,37 @@
 <?php
 
 set_time_limit(0);
+ini_set('pcre.backtrack_limit', 250000);
 
-define ( 'BUILD_ID',               1033   );
-define ( 'FRIENDIKA_VERSION',      '2.10.0901' );
-define ( 'DFRN_PROTOCOL_VERSION',  '2.0'  );
+
+define ( 'FRIENDIKA_VERSION',      '2.2.990' );
+define ( 'DFRN_PROTOCOL_VERSION',  '2.21'    );
+define ( 'DB_UPDATE_VERSION',      1058      );
 
 define ( 'EOL',                    "<br />\r\n"     );
 define ( 'ATOM_TIME',              'Y-m-d\TH:i:s\Z' );
 define ( 'DOWN_ARROW',             '&#x21e9;'       );
-         
+
+/**
+ *
+ * Image storage quality. Lower numbers save space at cost of image detail.
+ * For ease of upgrade, please do not change here. Change jpeg quality with 
+ * set_config('system','jpeg_quality',n) in .htconfig.php
+ * where n is netween 1 and 100, and with very poor results below about 50 
+ *
+ */
+
+define ( 'JPEG_QUALITY',            100  );         
+
+/**
+ * SSL redirection policies
+ */
+
+define ( 'SSL_POLICY_NONE',         0 );
+define ( 'SSL_POLICY_FULL',         1 );
+define ( 'SSL_POLICY_SELFSIGN',     2 );
+
+
 /**
  * log levels
  */
@@ -30,6 +52,8 @@ define ( 'REGISTER_OPEN',          2 );
 
 /**
  * relationship types
+ * When used in contact records, this indicates that 'uid' has 
+ * this relationship with contact['name']
  */
 
 define ( 'REL_VIP',        1);
@@ -61,6 +85,18 @@ define ( 'PAGE_SOAPBOX',           1 );
 define ( 'PAGE_COMMUNITY',         2 );
 define ( 'PAGE_FREELOVE',          3 );
 
+/**
+ * Network and protocol family types 
+ */
+
+define ( 'NETWORK_DFRN',             'dfrn');    // Friendika, Mistpark, other DFRN implementations
+define ( 'NETWORK_OSTATUS',          'stat');    // status.net, identi.ca, GNU-social, other OStatus implementations
+define ( 'NETWORK_FEED',             'feed');    // RSS/Atom feeds with no known "post/notify" protocol
+define ( 'NETWORK_DIASPORA',         'dspr');    // Diaspora
+define ( 'NETWORK_MAIL',             'mail');    // IMAP/POP
+define ( 'NETWORK_FACEBOOK',         'face');    // Facebook API     
+
+
 /**
  * Maximum number of "people who like (or don't like) this"  that we will list by name
  */
@@ -147,6 +183,11 @@ if (get_magic_quotes_gpc()) {
     unset($process);
 }
 
+/*
+ * translation system
+ */
+require_once("include/pgettext.php");
+
 
 /**
  *
@@ -172,6 +213,8 @@ class App {
        public  $user;
        public  $cid;
        public  $contact;
+       public  $contacts;
+       public  $page_contact;
        public  $content;
        public  $data;
        public  $error = false;
@@ -185,7 +228,9 @@ class App {
        public  $hooks;
        public  $timezone;
        public  $interactive = true;
-
+       public  $plugins;
+       public  $apps;
+       public  $identities;
 
        private $scheme;
        private $hostname;
@@ -205,9 +250,19 @@ class App {
 
                $this->scheme = ((isset($_SERVER['HTTPS']) && ($_SERVER['HTTPS']))      ?  'https' : 'http' );
 
-               if(x($_SERVER,'SERVER_NAME'))
+               if(x($_SERVER,'SERVER_NAME')) {
                        $this->hostname = $_SERVER['SERVER_NAME'];
 
+                       /** 
+                        * Figure out if we are running at the top of a domain
+                        * or in a sub-directory and adjust accordingly
+                        */
+
+                       $path = trim(dirname($_SERVER['SCRIPT_NAME']),'/\\');
+                       if(isset($path) && strlen($path) && ($path != $this->path))
+                               $this->path = $path;
+               }
+
                set_include_path("include/$this->hostname" . PATH_SEPARATOR . 'include' . PATH_SEPARATOR . '.' );
 
                if((x($_SERVER,'QUERY_STRING')) && substr($_SERVER['QUERY_STRING'],0,2) === "q=")
@@ -215,14 +270,6 @@ class App {
                if(x($_GET,'q'))
                        $this->cmd = trim($_GET['q'],'/\\');
 
-               /** 
-                * Figure out if we are running at the top of a domain
-                * or in a sub-directory and adjust accordingly
-                */
-
-               $path = trim(dirname($_SERVER['SCRIPT_NAME']),'/\\');
-               if(isset($path) && strlen($path) && ($path != $this->path))
-                       $this->path = $path;
 
 
                /**
@@ -243,7 +290,7 @@ class App {
                $this->argv = explode('/',$this->cmd);
                $this->argc = count($this->argv);
                if((array_key_exists('0',$this->argv)) && strlen($this->argv[0])) {
-                       $this->module = $this->argv[0];
+                       $this->module = str_replace(".", "_", $this->argv[0]);
                }
                else {
                        $this->module = 'home';
@@ -254,9 +301,11 @@ class App {
                 * Just spit out the contents and exit.
                 */
 
-               if($this->cmd === '.well-known/host-meta')
+               if($this->cmd === '.well-known/host-meta') {
                        require_once('include/hostxrd.php');
-
+                       hostxrd($this->get_baseurl());
+                       // NOTREACHED
+               }
 
                /**
                 * See if there is any page number information, and initialise 
@@ -270,16 +319,35 @@ class App {
        }
 
        function get_baseurl($ssl = false) {
-               if(strlen($this->baseurl))
-                       return $this->baseurl;
 
-               $this->baseurl = (($ssl) ? 'https' : $this->scheme) . "://" . $this->hostname . ((isset($this->path) && strlen($this->path)) ? '/' . $this->path : '' );
+               $scheme = $this->scheme;
+
+               if(x($this->config,'ssl_policy')) {
+                       if(($ssl) || ($this->config['ssl_policy'] == SSL_POLICY_FULL)) 
+                               $scheme = 'https';
+                       if(($this->config['ssl_policy'] == SSL_POLICY_SELFSIGN) && (local_user() || x($_POST,'auth-params')))
+                               $scheme = 'https';
+               }
+
+               $this->baseurl = $scheme . "://" . $this->hostname . ((isset($this->path) && strlen($this->path)) ? '/' . $this->path : '' );
                return $this->baseurl;
        }
 
        function set_baseurl($url) {
+               $parsed = @parse_url($url);
+
                $this->baseurl = $url;
-               $this->hostname = basename($url);
+
+               if($parsed) {           
+                       $this->scheme = $parsed['scheme'];
+
+                       $this->hostname = $parsed['host'];
+                       if(x($parsed,'port'))
+                               $this->hostname .= ':' . $parsed['port'];
+                       if(x($parsed,'path'))
+                               $this->path = trim($parsed['path'],'\\/');
+               }
+
        }
 
        function get_hostname() {
@@ -310,10 +378,12 @@ class App {
 
        function init_pagehead() {
                $this->page['title'] = $this->config['sitename'];
-               $tpl = load_view_file("view/head.tpl");
+               $tpl = file_get_contents('view/head.tpl');
                $this->page['htmlhead'] = replace_macros($tpl,array(
-                       '$baseurl' => $this->get_baseurl() . '/',
-                       '$generator' => 'Friendika' . ' ' . FRIENDIKA_VERSION
+                       '$baseurl' => $this->get_baseurl(),
+                       '$generator' => 'Friendika' . ' ' . FRIENDIKA_VERSION,
+                       '$delitem' => t('Delete this item?'),
+                       '$comment' => t('Comment')
                ));
        }
 
@@ -378,6 +448,7 @@ function x($s,$k = NULL) {
 if(! function_exists('system_unavailable')) {
 function system_unavailable() {
        include('system_unavailable.php');
+       system_down();
        killme();
 }}
 
@@ -389,19 +460,26 @@ function system_unavailable() {
 if(! function_exists('check_config')) {
 function check_config(&$a) {
 
+
        load_config('system');
 
        $build = get_config('system','build');
        if(! x($build))
-               $build = set_config('system','build',BUILD_ID);
+               $build = set_config('system','build',DB_UPDATE_VERSION);
 
        $url = get_config('system','url');
-       if(! x($url))
+
+       // if the url isn't set or the stored url is radically different 
+       // than the currently visited url, store the current value accordingly.
+       // "Radically different" ignores common variations such as http vs https 
+       // and www.example.com vs example.com.
+
+       if((! x($url)) || (! link_compare($url,$a->get_baseurl())))
                $url = set_config('system','url',$a->get_baseurl());
 
-       if($build != BUILD_ID) {
+       if($build != DB_UPDATE_VERSION) {
                $stored = intval($build);
-               $current = intval(BUILD_ID);
+               $current = intval(DB_UPDATE_VERSION);
                if(($stored < $current) && file_exists('update.php')) {
                        // We're reporting a different version than what is currently installed.
                        // Run any existing update scripts to bring the database up to current.
@@ -413,7 +491,7 @@ function check_config(&$a) {
                                        $func($a);
                                }
                        }
-                       set_config('system','build', BUILD_ID);
+                       set_config('system','build', DB_UPDATE_VERSION);
                }
        }
 
@@ -443,6 +521,8 @@ function check_config(&$a) {
        if($plugins)
                $plugins_arr = explode(',',str_replace(' ', '',$plugins));
 
+       $a->plugins = $plugins_arr;
+
        $installed_arr = array();
 
        if(count($installed)) {
@@ -468,21 +548,70 @@ function check_config(&$a) {
                foreach($plugins_arr as $p) {
                        if(! in_array($p,$installed_arr)) {
                                logger("Addons: installing " . $p);
+                               $t = filemtime('addon/' . $p . '/' . $p . '.php');
                                @include_once('addon/' . $p . '/' . $p . '.php');
                                if(function_exists($p . '_install')) {
                                        $func = $p . '_install';
                                        $func();
-                                       $r = q("INSERT INTO `addon` (`name`, `installed`) VALUES ( '%s', 1 ) ",
-                                               dbesc($p)
+                                       $r = q("INSERT INTO `addon` (`name`, `installed`, `timestamp`) VALUES ( '%s', 1, %d ) ",
+                                               dbesc($p),
+                                               intval($t)
                                        );
                                }
                        }
                }
        }
 
+
+       load_hooks();
+
        return;
 }}
 
+// reload all updated plugins
+
+if(! function_exists('reload_plugins')) {
+function reload_plugins() {
+       $plugins = get_config('system','addon');
+       if(strlen($plugins)) {
+
+               $r = q("SELECT * FROM `addon` WHERE `installed` = 1");
+               if(count($r))
+                       $installed = $r;
+               else
+                       $installed = array();
+
+               $parr = explode(',',$plugins);
+               if(count($parr)) {
+                       foreach($parr as $pl) {
+                               $pl = trim($pl);
+                               
+                               $t = filemtime('addon/' . $pl . '/' . $pl . '.php');
+                               foreach($installed as $i) {
+                                       if(($i['name'] == $pl) && ($i['timestamp'] != $t)) {    
+                                               logger('Reloading plugin: ' . $i['name']);
+                                               @include_once('addon/' . $pl . '/' . $pl . '.php');
+
+                                               if(function_exists($pl . '_uninstall')) {
+                                                       $func = $pl . '_uninstall';
+                                                       $func();
+                                               }
+                                               if(function_exists($pl . '_install')) {
+                                                       $func = $pl . '_install';
+                                                       $func();
+                                               }
+                                               q("UPDATE `addon` SET `timestamp` = %d WHERE `id` = %d LIMIT 1",
+                                                       intval($t),
+                                                       intval($i['id'])
+                                               );
+                                       }
+                               }
+                       }
+               }
+       }
+}}
+                               
+
 
 // This is our template processor.
 // $s is the string requiring macro substitution.
@@ -492,43 +621,16 @@ function check_config(&$a) {
 // For instance if 'test' => "foo" and 'testing' => "bar", testing could become either bar or fooing, 
 // depending on the order in which they were declared in the array.   
 
+require_once("include/template_processor.php");
+
 if(! function_exists('replace_macros')) {  
 function replace_macros($s,$r) {
+       global $t;
+       
+       return $t->replace($s,$r);
 
-       $search = array();
-       $replace = array();
-
-       if(is_array($r) && count($r)) {
-               foreach ($r as $k => $v ) {
-                       $search[] =  $k;
-                       $replace[] = $v;
-               }
-       }
-       return str_replace($search,$replace,$s);
-}}
-
-
-// load string translation table for alternate language
-
-if(! function_exists('load_translation_table')) {
-function load_translation_table($lang) {
-       global $a;
-
-       if(file_exists("view/$lang/strings.php"))
-               include("view/$lang/strings.php");
 }}
 
-// translate string if translation exists
-
-if(! function_exists('t')) {
-function t($s) {
-
-       $a = get_app();
-
-       if(x($a->strings,$s))
-               return $a->strings[$s];
-       return $s;
-}}
 
 // curl wrapper. If binary flag is true, return binary
 // results. 
@@ -584,14 +686,23 @@ function fetch_url($url,$binary = false, &$redirects = 0) {
         $matches = array();
         preg_match('/(Location:|URI:)(.*?)\n/', $header, $matches);
         $url = trim(array_pop($matches));
-        $url_parsed = parse_url($url);
+        $url_parsed = @parse_url($url);
         if (isset($url_parsed)) {
             $redirects++;
             return fetch_url($url,$binary,$redirects);
         }
     }
        $a->set_curl_code($http_code);
+
        $body = substr($s,strlen($header)+4);
+
+       /* one more try to make sure there are no more headers */
+
+       if(strpos($body,'HTTP/') === 0) {
+               $header = substr($body,0,strpos($body,"\r\n\r\n"));
+               $body = substr($body,strlen($header)+4);
+       }
+
        $a->set_curl_headers($header);
 
        curl_close($ch);
@@ -647,7 +758,7 @@ function post_url($url,$params, $headers = null, &$redirects = 0) {
         $matches = array();
         preg_match('/(Location:|URI:)(.*?)\n/', $header, $matches);
         $url = trim(array_pop($matches));
-        $url_parsed = parse_url($url);
+        $url_parsed = @parse_url($url);
         if (isset($url_parsed)) {
             $redirects++;
             return post_url($url,$binary,$headers,$redirects);
@@ -655,6 +766,14 @@ function post_url($url,$params, $headers = null, &$redirects = 0) {
     }
        $a->set_curl_code($http_code);
        $body = substr($s,strlen($header)+4);
+
+       /* one more try to make sure there are no more headers */
+
+       if(strpos($body,'HTTP/') === 0) {
+               $header = substr($body,0,strpos($body,"\r\n\r\n"));
+               $body = substr($body,strlen($header)+4);
+       }
+
        $a->set_curl_headers($header);
 
        curl_close($ch);
@@ -709,7 +828,12 @@ function escape_tags($string) {
 if(! function_exists('login')) {
 function login($register = false) {
        $o = "";
-       $register_html = (($register) ? load_view_file("view/register-link.tpl") : "");
+       $register_tpl = (($register) ? get_markup_template("register-link.tpl") : "");
+       
+       $register_html = replace_macros($register_tpl,array(
+               '$title' => t('Create a New Account'),
+               '$desc' => t('Register')
+       ));
 
        $noid = get_config('system','no_openid');
        if($noid) {
@@ -727,22 +851,25 @@ function login($register = false) {
        $lostpass = t('Forgot your password?');
        $lostlink = t('Password Reset');
 
-       if(x($_SESSION,'authenticated')) {
-               $tpl = load_view_file("view/logout.tpl");
+       if(local_user()) {
+               $tpl = get_markup_template("logout.tpl");
        }
        else {
-               $tpl = load_view_file("view/login.tpl");
+               $tpl = get_markup_template("login.tpl");
 
        }
-       
-       $o = replace_macros($tpl,array(
+
+       $o = '<script type="text/javascript"> $(document).ready(function() { $("#login-name").focus();} );</script>';   
+
+       $o .= replace_macros($tpl,array(
+               '$logout'        => t('Logout'),
                '$register_html' => $register_html, 
-               '$classname' => $classname,
-               '$namelabel' => $namelabel,
-               '$passlabel' => $passlabel,
-               '$login' => $login,
-               '$lostpass' => $lostpass,
-               '$lostlink' => $lostlink 
+               '$classname'     => $classname,
+               '$namelabel'     => $namelabel,
+               '$passlabel'     => $passlabel,
+               '$login'         => $login,
+               '$lostpass'      => $lostpass,
+               '$lostlink'      => $lostlink 
        ));
 
        return $o;
@@ -880,6 +1007,13 @@ function notice($s) {
        if($a->interactive)
                $_SESSION['sysmsg'] .= $s;
 }}
+if(! function_exists('info')) {
+function info($s) {
+       $a = get_app();
+       if($a->interactive)
+               $_SESSION['sysmsg_info'] .= $s;
+}}
+
 
 // wrapper around config to limit the text length of an incoming message
 
@@ -969,6 +1103,7 @@ function paginate(&$a) {
        $stripped = preg_replace('/(&page=[0-9]*)/','',$a->query_string);
        $stripped = str_replace('q=','',$stripped);
        $stripped = trim($stripped,'/');
+       $pagenum = $a->pager['page'];
        $url = $a->get_baseurl() . '/' . $stripped;
 
 
@@ -981,7 +1116,7 @@ function paginate(&$a) {
 
                $numpages = $a->pager['total'] / $a->pager['itemspage'];
 
-               $numstart = 1;
+                       $numstart = 1;
                $numstop = $numpages;
 
                if($numpages > 14) {
@@ -1105,6 +1240,7 @@ function set_config($family,$key,$value) {
        global $a;
 
        if(get_config($family,$key,true) === false) {
+               $a->config[$family][$key] = $value;
                $ret = q("INSERT INTO `config` ( `cat`, `k`, `v` ) VALUES ( '%s', '%s', '%s' ) ",
                        dbesc($family),
                        dbesc($key),
@@ -1199,6 +1335,7 @@ function set_pconfig($uid,$family,$key,$value) {
        global $a;
 
        if(get_pconfig($uid,$family,$key,true) === false) {
+               $a->config[$uid][$family][$key] = $value;
                $ret = q("INSERT INTO `pconfig` ( `uid`, `cat`, `k`, `v` ) VALUES ( %d, '%s', '%s', '%s' ) ",
                        intval($uid),
                        dbesc($family),
@@ -1231,7 +1368,7 @@ function del_pconfig($uid,$family,$key) {
                unset($a->config[$uid][$family][$key]);
        $ret = q("DELETE FROM `pconfig` WHERE `uid` = %d AND `cat` = '%s' AND `k` = '%s' LIMIT 1",
                intval($uid),
-               dbesc($cat),
+               dbesc($family),
                dbesc($key)
        );
        return $ret;
@@ -1325,11 +1462,13 @@ function webfinger($s) {
                $tpl = fetch_lrdd_template($host);
                logger('webfinger: lrdd template: ' . $tpl);
                if(strlen($tpl)) {
-                       $pxrd = str_replace('{uri}', urlencode('acct:'.$s), $tpl);
+                       $pxrd = str_replace('{uri}', urlencode('acct:' . $s), $tpl);
+                       logger('webfinger: pxrd: ' . $pxrd);
                        $links = fetch_xrd_links($pxrd);
                        if(! count($links)) {
                                // try with double slashes
-                               $pxrd = str_replace('{uri}', urlencode('acct://'.$s), $tpl);
+                               $pxrd = str_replace('{uri}', urlencode('acct://' . $s), $tpl);
+                               logger('webfinger: pxrd: ' . $pxrd);
                                $links = fetch_xrd_links($pxrd);
                        }
                        return $links;
@@ -1343,45 +1482,161 @@ function lrdd($uri) {
 
        $a = get_app();
 
+       // default priority is host priority, host-meta first
+
+       $priority = 'host';
+
+       // All we have is an email address. Resource-priority is irrelevant
+       // because our URI isn't directly resolvable.
+
        if(strstr($uri,'@')) {  
                return(webfinger($uri));
        }
-       else {
-               $html = fetch_url($uri);
-               $headers = $a->get_curl_headers();
+
+       // get the host meta file
+
+       $host = @parse_url($uri);
+
+       if($host) {
+               $url  = ((x($host,'scheme')) ? $host['scheme'] : 'http') . '://';
+               $url .= $host['host'] . '/.well-known/host-meta' ;
+       }
+       else
+               return array();
+
+       logger('lrdd: constructed url: ' . $url);
+
+       $xml = fetch_url($url);
+       $headers = $a->get_curl_headers();
+
+       if (! $xml)
+               return array();
+
+       logger('lrdd: host_meta: ' . $xml, LOGGER_DATA);
+
+       $h = parse_xml_string($xml);
+       if(! $h)
+               return array();
+
+       $arr = convert_xml_element_to_array($h);
+
+       if(isset($arr['xrd']['property'])) {
+               $property = $arr['crd']['property'];
+               if(! isset($property[0]))
+                       $properties = array($property);
+               else
+                       $properties = $property;
+               foreach($properties as $prop)
+                       if((string) $prop['@attributes'] === 'http://lrdd.net/priority/resource')
+                               $priority = 'resource';
+       } 
+
+       // save the links in case we need them
+
+       $links = array();
+
+       if(isset($arr['xrd']['link'])) {
+               $link = $arr['xrd']['link'];
+               if(! isset($link[0]))
+                       $links = array($link);
+               else
+                       $links = $link;
+       }
+
+       // do we have a template or href?
+
+       if(count($links)) {
+               foreach($links as $link) {
+                       if($link['@attributes']['rel'] && attribute_contains($link['@attributes']['rel'],'lrdd')) {
+                               if(x($link['@attributes'],'template'))
+                                       $tpl = $link['@attributes']['template'];
+                               elseif(x($link['@attributes'],'href'))
+                                       $href = $link['@attributes']['href'];
+                       }
+               }               
+       }
+
+       if((! isset($tpl)) || (! strpos($tpl,'{uri}')))
+               $tpl = '';
+
+       if($priority === 'host') {
+               if(strlen($tpl)) 
+                       $pxrd = str_replace('{uri}', urlencode($uri), $tpl);
+               elseif(isset($href))
+                       $pxrd = $href;
+               if(isset($pxrd)) {
+                       logger('lrdd: (host priority) pxrd: ' . $pxrd);
+                       $links = fetch_xrd_links($pxrd);
+                       return $links;
+               }
+
                $lines = explode("\n",$headers);
                if(count($lines)) {
                        foreach($lines as $line) {                              
-                               // TODO alter the following regex to support multiple relations (space separated)
                                if((stristr($line,'link:')) && preg_match('/<([^>].*)>.*rel\=[\'\"]lrdd[\'\"]/',$line,$matches)) {
-                                       $link = $matches[1];
+                                       return(fetch_xrd_links($matches[1]));
                                        break;
                                }
                        }
                }
-               if(! isset($link)) {
-                       // parse the page of the supplied URL looking for rel links
+       }
 
-                       require_once('library/HTML5/Parser.php');
-                       $dom = HTML5_Parser::parse($html);
 
-                       if($dom) {
-                               $items = $dom->getElementsByTagName('link');
+       // priority 'resource'
 
-                               foreach($items as $item) {
-                                       $x = $item->getAttribute('rel');
-                                       if($x == "lrdd") {
-                                               $link = $item->getAttribute('href');
-                                               break;
-                                       }
+
+       $html = fetch_url($uri);
+       $headers = $a->get_curl_headers();
+       logger('lrdd: headers=' . $headers, LOGGER_DEBUG);
+
+       // don't try and parse raw xml as html
+       if(! strstr($html,'<?xml')) {
+               require_once('library/HTML5/Parser.php');
+               $dom = @HTML5_Parser::parse($html);
+
+               if($dom) {
+                       $items = $dom->getElementsByTagName('link');
+                       foreach($items as $item) {
+                               $x = $item->getAttribute('rel');
+                               if($x == "lrdd") {
+                                       $pagelink = $item->getAttribute('href');
+                                       break;
                                }
                        }
                }
+       }
+
+       if(isset($pagelink))
+               return(fetch_xrd_links($pagelink));
 
-               if(isset($link))
-                       return(fetch_xrd_links($link));
+       // next look in HTTP headers
+
+       $lines = explode("\n",$headers);
+       if(count($lines)) {
+               foreach($lines as $line) {                              
+                       // TODO alter the following regex to support multiple relations (space separated)
+                       if((stristr($line,'link:')) && preg_match('/<([^>].*)>.*rel\=[\'\"]lrdd[\'\"]/',$line,$matches)) {
+                               $pagelink = $matches[1];
+                               break;
+                       }
+                       // don't try and run feeds through the html5 parser
+                       if(stristr($line,'content-type:') && ((stristr($line,'application/atom+xml')) || (stristr($line,'application/rss+xml'))))
+                               return array();
+                       if(stristr($html,'<rss') || stristr($html,'<feed'))
+                               return array();
+               }
        }
+
+       if(isset($pagelink))
+               return(fetch_xrd_links($pagelink));
+
+       // If we haven't found any links, return the host xrd links (which we have already fetched)
+
+       if(isset($links))
+               return $links;
+
        return array();
+
 }}
 
 
@@ -1393,8 +1648,15 @@ function lrdd($uri) {
 if(! function_exists('fetch_lrdd_template')) {
 function fetch_lrdd_template($host) {
        $tpl = '';
-       $url = 'http://' . $host . '/.well-known/host-meta' ;
-       $links = fetch_xrd_links($url);
+
+       $url1 = 'https://' . $host . '/.well-known/host-meta' ;
+       $url2 = 'http://' . $host . '/.well-known/host-meta' ;
+       $links = fetch_xrd_links($url1);
+       logger('template (https): ' . print_r($links,true));
+       if(! count($links)) {
+               $links = fetch_xrd_links($url2);
+               logger('template (http): ' . print_r($links,true));
+       }
        if(count($links)) {
                foreach($links as $link)
                        if($link['@attributes']['rel'] && $link['@attributes']['rel'] === 'lrdd')
@@ -1418,18 +1680,36 @@ function fetch_xrd_links($url) {
                return array();
 
        logger('fetch_xrd_links: ' . $xml, LOGGER_DATA);
-       $h = simplexml_load_string($xml);
+       $h = parse_xml_string($xml);
+       if(! $h)
+               return array();
+
        $arr = convert_xml_element_to_array($h);
 
+       $links = array();
+
        if(isset($arr['xrd']['link'])) {
                $link = $arr['xrd']['link'];
                if(! isset($link[0]))
                        $links = array($link);
                else
                        $links = $link;
-               return $links;
        }
-       return array();
+       if(isset($arr['xrd']['alias'])) {
+               $alias = $arr['xrd']['alias'];
+               if(! isset($alias[0]))
+                       $aliases = array($alias);
+               else
+                       $aliases = $alias;
+               foreach($aliases as $alias) {
+                       $links[]['@attributes'] = array('rel' => 'alias' , 'href' => $alias);
+               }
+       }
+
+       logger('fetch_xrd_links: ' . print_r($links,true), LOGGER_DATA);
+
+       return $links;
+
 }}
 
 // Convert an ACL array to a storable string
@@ -1492,7 +1772,7 @@ if(! function_exists('validate_url')) {
 function validate_url(&$url) {
        if(substr($url,0,4) != 'http')
                $url = 'http://' . $url;
-       $h = parse_url($url);
+       $h = @parse_url($url);
 
        if(($h) && (dns_get_record($h['host'], DNS_A + DNS_CNAME + DNS_PTR))) {
                return true;
@@ -1523,7 +1803,7 @@ function validate_email($addr) {
 if(! function_exists('allowed_url')) {
 function allowed_url($url) {
 
-       $h = parse_url($url);
+       $h = @parse_url($url);
 
        if(! $h) {
                return false;
@@ -1582,7 +1862,7 @@ function allowed_email($email) {
        if(count($allowed)) {
                foreach($allowed as $a) {
                        $pat = strtolower(trim($a));
-                       if(($fnmatch && fnmatch($pat,$host)) || ($pat == $host)) {
+                       if(($fnmatch && fnmatch($pat,$domain)) || ($pat == $domain)) {
                                $found = true; 
                                break;
                        }
@@ -1591,51 +1871,62 @@ function allowed_email($email) {
        return $found;
 }}
 
-// Format the like/dislike text for a profile item
-// $cnt = number of people who like/dislike the item
-// $arr = array of pre-linked names of likers/dislikers
-// $type = one of 'like, 'dislike'
-// $id  = item id
-// returns formatted text
-
-if(! function_exists('format_like')) {
-function format_like($cnt,$arr,$type,$id) {
-       $o = '';
-       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 >= MAX_LIKERS)
-                       $arr = array_slice($arr, 0, MAX_LIKERS - 1);
-               if($total < MAX_LIKERS)
-                       $arr[count($arr)-1] = t('and') . ' ' . $arr[count($arr)-1];
-               $str = implode(', ', $arr);
-               if($total >= MAX_LIKERS)
-                       $str .= t(', and ') . $total - MAX_LIKERS . t(' other people');
-               $str .= (($type === 'like') ? t(' like this.') : t(' don\'t like this.'));
-               $o .= "\t" . '<div id="' . $type . 'list-' . $id . '" style="display: none;" >' . $str . '</div>';
-       }
-       return $o;
-}}
 
 
 // wrapper to load a view template, checking for alternate
 // languages before falling back to the default
 
+// obsolete, deprecated.
+
 if(! function_exists('load_view_file')) {
 function load_view_file($s) {
+       global $lang, $a;
+       if(! isset($lang))
+               $lang = 'en';
        $b = basename($s);
        $d = dirname($s);
-       $lang = get_config('system','language');
-       if($lang === false)
-               $lang = 'en';
        if(file_exists("$d/$lang/$b"))
                return file_get_contents("$d/$lang/$b");
+       
+       $theme = current_theme();
+       
+       if(file_exists("$d/theme/$theme/$b"))
+               return file_get_contents("$d/theme/$theme/$b");
+                       
        return file_get_contents($s);
 }}
 
+if(! function_exists('get_intltext_template')) {
+function get_intltext_template($s) {
+       global $lang;
+
+       if(! isset($lang))
+               $lang = 'en';
+
+       if(file_exists("view/$lang/$s"))
+               return file_get_contents("view/$lang/$s");
+       elseif(file_exists("view/en/$s"))
+               return file_get_contents("view/en/$s");
+       else
+               return file_get_contents("view/$s");
+}}
+
+if(! function_exists('get_markup_template')) {
+function get_markup_template($s) {
+
+       $theme = current_theme();
+       
+       if(file_exists("view/theme/$theme/$s"))
+               return file_get_contents("view/theme/$theme/$s");
+       else
+               return file_get_contents("view/$s");
+
+}}
+
+
+
+
+
 // for html,xml parsing - let's say you've got
 // an attribute foobar="class1 class2 class3"
 // and you want to find out if it contains 'class3'.
@@ -1655,7 +1946,6 @@ function attribute_contains($attr,$s) {
 
 if(! function_exists('logger')) {
 function logger($msg,$level = 0) {
-
        $debugging = get_config('system','debugging');
        $loglevel  = intval(get_config('system','loglevel'));
        $logfile   = get_config('system','logfile');
@@ -1692,16 +1982,16 @@ function get_tags($s) {
 
        $s = preg_replace('/\[code\](.*?)\[\/code\]/sm','',$s);
 
-       if(preg_match_all('/([@#][^ \x0D\x0A,:?]*)([ \x0D\x0A,:?]|$)/',$s,$match)) {
-               foreach($match[1] as $match) {
-                       if(strstr($match,"]")) {
+       if(preg_match_all('/([@#][^ \x0D\x0A,:?]+)([ \x0D\x0A,:?]|$)/',$s,$match)) {
+               foreach($match[1] as $mtch) {
+                       if(strstr($mtch,"]")) {
                                // we might be inside a bbcode color tag - leave it alone
                                continue;
                        }
-                       if(substr($match,-1,1) === '.')
-                               $ret[] = substr($match,0,-1);
+                       if(substr($mtch,-1,1) === '.')
+                               $ret[] = substr($mtch,0,-1);
                        else
-                               $ret[] = $match;
+                               $ret[] = $mtch;
                }
        }
 
@@ -1717,29 +2007,6 @@ return str_replace ("%","=",rawurlencode($s));
 }} 
 
 
-if(! function_exists('like_puller')) {
-function like_puller($a,$item,&$arr,$mode) {
-
-       $url = '';
-       $sparkle = '';
-       $verb = (($mode === 'like') ? ACTIVITY_LIKE : ACTIVITY_DISLIKE);
-
-       if((activity_match($item['verb'],$verb)) && ($item['id'] != $item['parent'])) {
-               $url = $item['author-link'];
-               if(($item['network'] === 'dfrn') && (! $item['self']) && ($item['author-link'] == $item['url'])) {
-                       $url = $a->get_baseurl() . '/redir/' . $item['contact-id'];
-                       $sparkle = ' class="sparkle" ';
-               }
-               if(! ((isset($arr[$item['parent'] . '-l'])) && (is_array($arr[$item['parent'] . '-l']))))
-                       $arr[$item['parent'] . '-l'] = array();
-               if(! isset($arr[$item['parent']]))
-                       $arr[$item['parent']] = 1;
-               else    
-                       $arr[$item['parent']] ++;
-               $arr[$item['parent'] . '-l'][] = '<a href="'. $url . '"'. $sparkle .'>' . $item['author-name'] . '</a>';
-       }
-       return;
-}}
 
 if(! function_exists('get_mentions')) {
 function get_mentions($item) {
@@ -1750,8 +2017,10 @@ function get_mentions($item) {
        $arr = explode(',',$item['tag']);
        foreach($arr as $x) {
                $matches = null;
-               if(preg_match('/@\[url=([^\]]*)\]/',$x,$matches))
+               if(preg_match('/@\[url=([^\]]*)\]/',$x,$matches)) {
                        $o .= "\t\t" . '<link rel="mentioned" href="' . $matches[1] . '" />' . "\r\n";
+                       $o .= "\t\t" . '<link rel="ostatus:attention" href="' . $matches[1] . '" />' . "\r\n";
+               }
        }
        return $o;
 }}
@@ -1782,20 +2051,9 @@ function contact_block() {
                        intval($shown)
        );
        if(count($r)) {
-               $o .= '<h4 class="contact-h4">' . $total . ' ' . t('Contacts') . '</h4><div id="contact-block">';
+               $o .= '<h4 class="contact-h4">' .  sprintf( tt('%d Contact','%d Contacts', $total),$total) . '</h4><div id="contact-block">';
                foreach($r as $rr) {
-                       $redirect_url = $a->get_baseurl() . '/redir/' . $rr['id'];
-                       if(local_user() && ($rr['uid'] == local_user())
-                               && ($rr['network'] === 'dfrn')) {
-                               $url = $redirect_url;
-                               $sparkle = ' sparkle';
-                       }
-                       else {
-                               $url = $rr['url'];
-                               $sparkle = '';
-                       }
-
-                       $o .= '<div class="contact-block-div"><a class="contact-block-link' . $sparkle . '" href="' . $url . '" ><img class="contact-block-img' . $sparkle . '" src="' . $rr['micro'] . '" title="' . $rr['name'] . ' [' . $rr['url'] . ']" alt="' . $rr['name'] . '" /></a></div>' . "\r\n";
+                       $o .= micropro($rr,true,'mpfriend');
                }
                $o .= '</div><div id="contact-block-end"></div>';
                $o .=  '<div id="viewcontacts"><a id="viewcontacts-link" href="viewcontacts/' . $a->profile['nickname'] . '">' . t('View Contacts') . '</a></div>';
@@ -1809,6 +2067,44 @@ function contact_block() {
 
 }}
 
+if(! function_exists('micropro')) {
+function micropro($contact, $redirect = false, $class = '', $textmode = false) {
+
+       if($class)
+               $class = ' ' . $class;
+
+       $url = $contact['url'];
+       $sparkle = '';
+
+       if($redirect) {
+               $a = get_app();
+               $redirect_url = $a->get_baseurl() . '/redir/' . $contact['id'];
+               if(local_user() && ($contact['uid'] == local_user()) && ($contact['network'] === 'dfrn')) {
+                       $url = $redirect_url;
+                       $sparkle = ' sparkle';
+               }
+       }
+       $click = ((x($contact,'click')) ? ' onclick="' . $contact['click'] . '" ' : '');
+       if($click)
+               $url = '';
+       if($textmode) {
+               return '<div class="contact-block-textdiv' . $class . '"><a class="contact-block-link' . $class . $sparkle 
+                       . (($click) ? ' fakelink' : '') . '" '
+                       . (($url) ? ' href="' . $url . '"' : '') . $click
+                       . '" title="' . $contact['name'] . ' [' . $contact['url'] . ']" alt="' . $contact['name'] 
+                       . '" >'. $contact['name'] . '</a></div>' . "\r\n";
+       }
+       else {
+               return '<div class="contact-block-div' . $class . '"><a class="contact-block-link' . $class . $sparkle 
+                       . (($click) ? ' fakelink' : '') . '" '
+                       . (($url) ? ' href="' . $url . '"' : '') . $click . ' ><img class="contact-block-img' . $class . $sparkle . '" src="' 
+                       . $contact['micro'] . '" title="' . $contact['name'] . ' [' . $contact['url'] . ']" alt="' . $contact['name'] 
+                       . '" /></a></div>' . "\r\n";
+       }
+}}
+
+
+
 if(! function_exists('search')) {
 function search($s) {
        $a = get_app();
@@ -1878,7 +2174,7 @@ function aes_encrypt($val,$ky)
 
 if(! function_exists('linkify')) {
 function linkify($s) {
-       $s = preg_replace("/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\.\=\_\~\#\'\%]*)/", ' <a href="$1" >$1</a>', $s);
+       $s = preg_replace("/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\.\=\_\~\#\'\%\$\!\+]*)/", ' <a href="$1" target="external-link">$1</a>', $s);
        return($s);
 }}
 
@@ -1900,13 +2196,17 @@ function smilies($s) {
        $a = get_app();
 
        return str_replace(
-       array( ':-)', ';-)', ':-(', ':(', ':-P', ':-"', ':-x', ':-X', ':-D', '8-|', '8-O'),
+       array( '&lt;3', '&lt;/3', '&lt;\\3', ':-)', ';-)', ':-(', ':(', ':-P', ':P', ':-"', ':-x', ':-X', ':-D', '8-|', '8-O'),
        array(
+               '<img src="' . $a->get_baseurl() . '/images/smiley-heart.gif" alt="<3" />',
+               '<img src="' . $a->get_baseurl() . '/images/smiley-brokenheart.gif" alt="</3" />',
+               '<img src="' . $a->get_baseurl() . '/images/smiley-brokenheart.gif" alt="<\\3" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-smile.gif" alt=":-)" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-wink.gif" alt=";-)" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-frown.gif" alt=":-(" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-frown.gif" alt=":(" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-tongue-out.gif" alt=":-P" />',
+               '<img src="' . $a->get_baseurl() . '/images/smiley-tongue-out.gif" alt=":P" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-\"" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-x" />',
                '<img src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-X" />',
@@ -2022,10 +2322,17 @@ function profile_sidebar($profile) {
 
        $tabs = '';
 
-       $photo = '<div id="profile=photo-wrapper"><img class="photo" src="' . $profile['photo'] . '" alt="' . $profile['name'] . '" /></div>';
+       $photo = '<div id="profile-photo-wrapper"><img class="photo" src="' . $profile['photo'] . '" alt="' . $profile['name'] . '" /></div>';
 
+       // don't show connect link to yourself
+       
        $connect = (($profile['uid'] != local_user()) ? '<li><a id="dfrn-request-link" href="dfrn_request/' . $profile['nickname'] . '">' . t('Connect') . '</a></li>' : '');
+
+       // don't show connect link to authenticated visitors either
+
+       if((remote_user()) && ($_SESSION['visitor_visiting'] == $profile['uid']))
+               $connect = ''; 
+
        if((x($profile,'address') == 1) 
                || (x($profile,'locality') == 1) 
                || (x($profile,'region') == 1) 
@@ -2050,11 +2357,15 @@ function profile_sidebar($profile) {
 
        $pubkey = ((x($profile,'pubkey') == 1) ? '<div class="key" style="display:none;">' . $profile['pubkey'] . '</div>' : '');
 
-       $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><div class="profile-clear"></div>' : '');
+       $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>' : '');
 
-       $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><div class="profile-clear"></div>' : '');
+       $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>' : '');
+
+       if($profile['hidewall'] && (! local_user()) && (! remote_user())) {
+               $location = $gender = $marital = $homepage = '';
+       }
 
-       $tpl = load_view_file('view/profile_vcard.tpl');
+       $tpl = get_markup_template('profile_vcard.tpl');
 
        $o .= replace_macros($tpl, array(
                '$fullname' => $fullname,
@@ -2112,6 +2423,7 @@ function unregister_hook($hook,$file,$function) {
 if(! function_exists('load_hooks')) {
 function load_hooks() {
        $a = get_app();
+       $a->hooks = array();
        $r = q("SELECT * FROM `hook` WHERE 1");
        if(count($r)) {
                foreach($r as $rr) {
@@ -2161,9 +2473,7 @@ function get_birthdays() {
        if(! local_user())
                return $o;
 
-       $bd_format = get_config('system','birthday_format');
-       if(! $bd_format)
-               $bd_format = 'g A l F d' ; // 8 AM Friday January 18
+       $bd_format = t('g A l F d') ; // 8 AM Friday January 18
 
        $r = q("SELECT `event`.*, `event`.`id` AS `eid`, `contact`.* FROM `event` 
                LEFT JOIN `contact` ON `contact`.`id` = `event`.`cid` 
@@ -2175,25 +2485,39 @@ function get_birthdays() {
        );
 
        if($r && count($r)) {
-               $o .= '<div id="birthday-wrapper"><div id="birthday-title">' . t('Birthdays this week:') . '</div>'; 
-               $o .= '<div id="birthday-adjust">' . t("\x28Adjusted for local time\x29") . '</div>';
-               $o .= '<div id="birthday-title-end"></div>';
-
-               foreach($r as $rr) {
-                       $now = strtotime('now');
-                       $today = (((strtotime($rr['start'] . ' +00:00') < $now) && (strtotime($rr['finish'] . ' +00:00') > $now)) ? true : false); 
-
-                       $o .= '<div class="birthday-list" id="birthday-' . $rr['eid'] . '"><a class="sparkle" href="' 
-                       . $a->get_baseurl() . '/redir/'  . $rr['cid'] . '">' . $rr['name'] . '</a> ' 
-                       . day_translate(datetime_convert('UTC', $a->timezone, $rr['start'], $bd_format)) . (($today) ?  ' ' . t('[today]') : '')
-                       . '</div>' ;
+               $total = 0;
+               foreach($r as $rr)
+                       if(strlen($rr['name']))
+                               $total ++;
+
+               if($total) {
+                       $o .= '<div id="birthday-notice" class="birthday-notice fakelink" onclick=openClose(\'birthday-wrapper\'); >' . t('Birthday Reminders') . ' ' . '(' . $total . ')' . '</div>'; 
+                       $o .= '<div id="birthday-wrapper" style="display: none;" ><div id="birthday-title">' . t('Birthdays this week:') . '</div>'; 
+                       $o .= '<div id="birthday-adjust">' . t("\x28Adjusted for local time\x29") . '</div>';
+                       $o .= '<div id="birthday-title-end"></div>';
+
+                       foreach($r as $rr) {
+                               if(! strlen($rr['name']))
+                                       continue;
+                               $now = strtotime('now');
+                               $today = (((strtotime($rr['start'] . ' +00:00') < $now) && (strtotime($rr['finish'] . ' +00:00') > $now)) ? true : false); 
+       
+                               $o .= '<div class="birthday-list" id="birthday-' . $rr['eid'] . '"><a class="sparkle" href="' 
+                               . $a->get_baseurl() . '/redir/'  . $rr['cid'] . '">' . $rr['name'] . '</a> ' 
+                               . day_translate(datetime_convert('UTC', $a->timezone, $rr['start'], $bd_format)) . (($today) ?  ' ' . t('[today]') : '')
+                               . '</div>' ;
+                       }
+                       $o .= '</div></div>';
                }
-
-               $o .= '</div>';
        }
+       return $o;
+}}
 
-  return $o;
 
+if(! function_exists('normalise_link')) {
+function normalise_link($url) {
+       $ret = str_replace(array('https:','//www.'), array('http:','//'), $url);
+       return(rtrim($ret,'/'));
 }}
 
 /**
@@ -2209,23 +2533,266 @@ function get_birthdays() {
 
 if(! function_exists('link_compare')) {
 function link_compare($a,$b) {
-       $a1 = str_replace(array('https:','//www.'), array('http:','//'), $a);
-       $b1 = str_replace(array('https:','//www.'), array('http:','//'), $b);
-       if(strcasecmp($a1,$b1) === 0)
+       if(strcasecmp(normalise_link($a),normalise_link($b)) === 0)
                return true;
        return false;
 }}
 
 
 if(! function_exists('prepare_body')) {
-function prepare_body($item) {
+function prepare_body($item,$attach = false) {
+
+       $s = prepare_text($item['body']);
+       if(! $attach)
+               return $s;
+
+       $arr = explode(',',$item['attach']);
+       $s .= '<div class="body-attach">';
+       if(count($arr)) {
+               foreach($arr as $r) {
+                       $matches = false;
+                       $icon = '';
+                       $cnt = preg_match('|\[attach\]href=\"(.+?)\" size=\"(.+?)\" type=\"(.+?)\" title=\"(.+?)\"\[\/attach\]|',$r,$matches);
+                       if($cnt) {
+                               $icontype = strtolower(substr($matches[3],0,strpos($matches[3],'/')));
+                               switch($icontype) {
+                                       case 'video':
+                                       case 'audio':
+                                       case 'image':
+                                       case 'text':
+                                               $icon = '<div class="attachtype type-' . $icontype . '"></div>';
+                                               break;
+                                       default:
+                                               $icon = '<div class="attachtype type-unkn"></div>';
+                                               break;
+                               }
+                               $title = ((strlen(trim($matches[4]))) ? escape_tags(trim($matches[4])) : escape_tags($matches[1]));
+                               $title .= ' ' . $matches[2] . ' ' . t('bytes');
+
+                               $s .= '<a href="' . strip_tags($matches[1]) . '" title="' . $title . '" class="attachlink" target="external-link" >' . $icon . '</a>';
+                       }
+               }
+       }
+       $s .= '<div class="clear"></div></div>';
+       return $s;
+}}
+
+if(! function_exists('prepare_text')) {
+function prepare_text($text) {
 
        require_once('include/bbcode.php');
 
-       $s = smilies(bbcode($item['body']));
+       $s = smilies(bbcode($text));
 
        return $s;
+}}
+
+/**
+ * 
+ * Wrap calls to proc_close(proc_open()) and call hook
+ * so plugins can take part in process :)
+ * 
+ * args:
+ * $cmd program to run
+ *  next args are passed as $cmd command line
+ * 
+ * e.g.: proc_run("ls","-la","/tmp");
+ * 
+ * $cmd and string args are surrounded with ""
+ */
+
+if(! function_exists('proc_run')) {
+function proc_run($cmd){
+
+       $a = get_app();
+
+       $args = func_get_args();
+       call_hooks("proc_run", $args);
+
+       if(count($args) && $args[0] === 'php')
+        $args[0] = ((x($a->config,'php_path')) && (strlen($a->config['php_path'])) ? $a->config['php_path'] : 'php');
+       
+       foreach ($args as $arg){
+               $arg = escapeshellarg($arg);
+       }
+       $cmdline = implode($args," ");
+       proc_close(proc_open($cmdline." &",array(),$foo));
+}}
+
+if(! function_exists('current_theme')) {
+function current_theme(){
+       $app_base_themes = array('duepuntozero', 'loozah');
+       
+       $a = get_app();
+       
+       $system_theme = ((isset($a->config['system']['theme'])) ? $a->config['system']['theme'] : '');
+       $theme_name = ((is_array($_SESSION) && x($_SESSION,'theme')) ? $_SESSION['theme'] : $system_theme);
+       
+       if($theme_name && file_exists('view/theme/' . $theme_name . '/style.css'))
+               return($theme_name);
+       
+       foreach($app_base_themes as $t) {
+               if(file_exists('view/theme/' . $t . '/style.css'))
+                       return($t);
+       }
+       
+       $fallback = glob('view/theme/*/style.css');
+       if(count($fallback))
+               return (str_replace('view/theme/','', str_replace("/style.css","",$fallback[0])));
+
+}}
+
+/*
+* Return full URL to theme which is currently in effect.
+* Provide a sane default if nothing is chosen or the specified theme does not exist.
+*/
+if(! function_exists('current_theme_url')) {
+function current_theme_url() {
+       global $a;
+       $t = current_theme();
+       return($a->get_baseurl() . '/view/theme/' . $t . '/style.css');
+}}
+
+if(! function_exists('feed_birthday')) {
+function feed_birthday($uid,$tz) {
+
+       /**
+        *
+        * Determine the next birthday, but only if the birthday is published
+        * in the default profile. We _could_ also look for a private profile that the
+        * recipient can see, but somebody could get mad at us if they start getting
+        * public birthday greetings when they haven't made this info public. 
+        *
+        * Assuming we are able to publish this info, we are then going to convert
+        * the start time from the owner's timezone to UTC. 
+        *
+        * This will potentially solve the problem found with some social networks
+        * where birthdays are converted to the viewer's timezone and salutations from
+        * elsewhere in the world show up on the wrong day. We will convert it to the
+        * viewer's timezone also, but first we are going to convert it from the birthday
+        * person's timezone to GMT - so the viewer may find the birthday starting at
+        * 6:00PM the day before, but that will correspond to midnight to the birthday person.
+        *
+        */
+
+       $birthday = '';
+
+       $p = q("SELECT `dob` FROM `profile` WHERE `is-default` = 1 AND `uid` = %d LIMIT 1",
+               intval($uid)
+       );
+
+       if($p && count($p)) {
+               $tmp_dob = substr($p[0]['dob'],5);
+               if(intval($tmp_dob)) {
+                       $y = datetime_convert($tz,$tz,'now','Y');
+                       $bd = $y . '-' . $tmp_dob . ' 00:00';
+                       $t_dob = strtotime($bd);
+                       $now = strtotime(datetime_convert($tz,$tz,'now'));
+                       if($t_dob < $now)
+                               $bd = $y + 1 . '-' . $tmp_dob . ' 00:00';
+                       $birthday = datetime_convert($tz,'UTC',$bd,ATOM_TIME); 
+               }
+       }
+
+       return $birthday;
+}}
+
+/**
+ * return atom link elements for all of our hubs
+ */
+
+if(! function_exists('feed_hublinks')) {
+function feed_hublinks() {
+
+       $hub = get_config('system','huburl');
+
+       $hubxml = '';
+       if(strlen($hub)) {
+               $hubs = explode(',', $hub);
+               if(count($hubs)) {
+                       foreach($hubs as $h) {
+                               $h = trim($h);
+                               if(! strlen($h))
+                                       continue;
+                               $hubxml .= '<link rel="hub" href="' . xmlify($h) . '" />' . "\n" ;
+                       }
+               }
+       }
+       return $hubxml;
+}}
+
+/* return atom link elements for salmon endpoints */
+
+if(! function_exists('feed_salmonlinks')) {
+function feed_salmonlinks($nick) {
+
+       $a = get_app();
+
+       $salmon  = '<link rel="salmon" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ;
 
+       // old style links that status.net still needed as of 12/2010 
 
+       $salmon .= '  <link rel="http://salmon-protocol.org/ns/salmon-replies" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ; 
+       $salmon .= '  <link rel="http://salmon-protocol.org/ns/salmon-mention" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ; 
+       return $salmon;
+}}
+
+if(! function_exists('get_plink')) {
+function get_plink($item) {
+       $a = get_app(); 
+       $plink = (((x($item,'plink')) && (! $item['private'])) ? '<div class="wall-item-links-wrapper"><a href="' 
+                       . $item['plink'] . '" title="' . t('link to source') . '" target="external-link" class="icon remote-link"></a></div>' : '');
+       return $plink;
+}}
+
+if(! function_exists('unamp')) {
+function unamp($s) {
+       return str_replace('&amp;', '&', $s);
+}}
+
+
+
+
+if(! function_exists('lang_selector')) {
+function lang_selector() {
+       global $lang;
+       $o .= '<div id="language-selector" style="display: none;" >';
+       $o .= '<form action="" method="post" ><select name="system_language" onchange="this.form.submit();" >';
+       $langs = glob('view/*/strings.php');
+       if(is_array($langs) && count($langs)) {
+               if(! in_array('view/en/strings.php',$langs))
+                       $langs[] = 'view/en/';
+               foreach($langs as $l) {
+                       $ll = substr($l,5);
+                       $ll = substr($ll,0,strrpos($ll,'/'));
+                       $selected = (($ll === $lang) ? ' selected="selected" ' : '');
+                       $o .= '<option value="' . $ll . '"' . $selected . '>' . $ll . '</option>';
+               }
+       }
+       $o .= '</select></form></div>';
+       return $o;
+}}
+
+
+if(! function_exists('parse_xml_string')) {
+function parse_xml_string($s) {
+       if(! strstr($s,'<?xml'))
+               return false;
+       $s2 = substr($s,strpos($s,'<?xml'));
+       libxml_use_internal_errors(true);
+       $x = @simplexml_load_string($s2);
+       if(count(libxml_get_errors()))
+               foreach(libxml_get_errors() as $err)
+                       logger('libxml: parse: ' . $err->code." at ".$err->line.":".$err->column." : ".$err->message, LOGGER_DATA);
+       libxml_clear_errors();
+       return $x;
+}}
+
+if(! function_exists('is_site_admin')) {
+function is_site_admin() {
+       $a = get_app();
+       if(local_user() && x($a->user,'email') && x($a->config,'admin_email') && ($a->user['email'] === $a->config['admin_email']))
+               return true;
+       return false;
+}}
 
-}}
\ No newline at end of file