2010-07-01 19:48:07 -04:00
< ? php
set_time_limit ( 0 );
2011-02-15 06:13:38 -05:00
define ( 'BUILD_ID' , 1039 );
define ( 'FRIENDIKA_VERSION' , '2.10.0907' );
2011-02-02 00:21:47 -05:00
define ( 'DFRN_PROTOCOL_VERSION' , '2.1' );
2010-07-01 19:48:07 -04:00
2010-10-13 05:47:32 -04:00
define ( 'EOL' , " <br /> \r \n " );
define ( 'ATOM_TIME' , 'Y-m-d\TH:i:s\Z' );
2010-12-11 07:16:58 -05:00
define ( 'DOWN_ARROW' , '⇩' );
2011-01-30 01:35:11 -05:00
/**
* SSL redirection policies
*/
define ( 'SSL_POLICY_NONE' , 0 );
define ( 'SSL_POLICY_FULL' , 1 );
2011-01-30 01:41:01 -05:00
define ( 'SSL_POLICY_SELFSIGN' , 2 );
2011-01-30 01:35:11 -05:00
2010-12-10 07:04:35 -05:00
/**
* log levels
*/
2010-11-01 20:56:36 -04:00
define ( 'LOGGER_NORMAL' , 0 );
define ( 'LOGGER_TRACE' , 1 );
define ( 'LOGGER_DEBUG' , 2 );
define ( 'LOGGER_DATA' , 3 );
define ( 'LOGGER_ALL' , 4 );
2010-12-10 07:04:35 -05:00
/**
* registration policies
*/
2010-10-13 05:47:32 -04:00
define ( 'REGISTER_CLOSED' , 0 );
define ( 'REGISTER_APPROVE' , 1 );
define ( 'REGISTER_OPEN' , 2 );
2010-07-01 19:48:07 -04:00
2010-12-10 07:04:35 -05:00
/**
* relationship types
*/
2010-07-01 19:48:07 -04:00
2010-09-09 19:48:33 -04:00
define ( 'REL_VIP' , 1 );
define ( 'REL_FAN' , 2 );
define ( 'REL_BUD' , 3 );
2010-12-22 17:16:22 -05:00
/**
* Hook array order
*/
define ( 'HOOK_HOOK' , 0 );
define ( 'HOOK_FILE' , 1 );
define ( 'HOOK_FUNCTION' , 2 );
2010-10-17 01:11:21 -04:00
2010-12-10 07:04:35 -05:00
/**
*
* page / profile types
*
* PAGE_NORMAL is a typical personal profile account
* PAGE_SOAPBOX automatically approves all friend requests as REL_FAN , ( readonly )
* PAGE_COMMUNITY automatically approves all friend requests as REL_FAN , but with
* write access to wall and comments ( no email and not included in page owner ' s ACL lists )
* PAGE_FREELOVE automatically approves all friend requests as full friends ( REL_BUD ) .
*
*/
2010-10-17 01:11:21 -04:00
define ( 'PAGE_NORMAL' , 0 );
2010-10-17 23:04:17 -04:00
define ( 'PAGE_SOAPBOX' , 1 );
define ( 'PAGE_COMMUNITY' , 2 );
define ( 'PAGE_FREELOVE' , 3 );
2010-10-17 01:11:21 -04:00
2010-12-10 07:04:35 -05:00
/**
* Maximum number of " people who like (or don't like) this " that we will list by name
*/
2010-10-12 20:11:06 -04:00
define ( 'MAX_LIKERS' , 75 );
2010-12-10 07:04:35 -05:00
/**
* email notification options
*/
2010-10-12 20:11:06 -04:00
2010-07-22 05:13:39 -04:00
define ( 'NOTIFY_INTRO' , 0x0001 );
define ( 'NOTIFY_CONFIRM' , 0x0002 );
define ( 'NOTIFY_WALL' , 0x0004 );
define ( 'NOTIFY_COMMENT' , 0x0008 );
define ( 'NOTIFY_MAIL' , 0x0010 );
2010-12-10 07:04:35 -05:00
/**
* various namespaces we may need to parse
*/
2010-10-13 05:47:32 -04:00
2010-09-09 20:55:59 -04:00
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/' );
2010-10-24 23:39:24 -04:00
define ( 'NAMESPACE_ACTIVITY_SCHEMA' , 'http://activitystrea.ms/schema/1.0/' );
2010-11-03 19:48:21 -04:00
define ( 'NAMESPACE_MEDIA' , 'http://purl.org/syndication/atommedia' );
2010-10-24 23:39:24 -04:00
define ( 'NAMESPACE_SALMON_ME' , 'http://salmon-protocol.org/ns/magic-env' );
define ( 'NAMESPACE_OSTATUSSUB' , 'http://ostatus.org/schema/1.0/subscribe' );
define ( 'NAMESPACE_GEORSS' , 'http://www.georss.org/georss' );
define ( 'NAMESPACE_POCO' , 'http://portablecontacts.net/spec/1.0' );
define ( 'NAMESPACE_FEED' , 'http://schemas.google.com/g/2010#updates-from' );
2010-09-09 20:55:59 -04:00
2010-12-10 07:04:35 -05:00
/**
* activity stream defines
*/
2010-10-13 05:47:32 -04:00
2010-09-08 23:14:17 -04:00
define ( 'ACTIVITY_LIKE' , NAMESPACE_ACTIVITY_SCHEMA . 'like' );
2010-09-09 21:49:19 -04:00
define ( 'ACTIVITY_DISLIKE' , NAMESPACE_DFRN . '/dislike' );
2010-09-09 20:55:59 -04:00
define ( 'ACTIVITY_OBJ_HEART' , NAMESPACE_DFRN . '/heart' );
2010-09-08 23:14:17 -04:00
define ( 'ACTIVITY_FRIEND' , NAMESPACE_ACTIVITY_SCHEMA . 'make-friend' );
2010-10-22 00:48:22 -04:00
define ( 'ACTIVITY_FOLLOW' , NAMESPACE_ACTIVITY_SCHEMA . 'follow' );
2011-01-03 08:58:27 -05:00
define ( 'ACTIVITY_UNFOLLOW' , NAMESPACE_ACTIVITY_SCHEMA . 'stop-following' );
2010-09-08 23:14:17 -04:00
define ( 'ACTIVITY_POST' , NAMESPACE_ACTIVITY_SCHEMA . 'post' );
define ( 'ACTIVITY_UPDATE' , NAMESPACE_ACTIVITY_SCHEMA . 'update' );
2010-11-04 23:47:44 -04:00
define ( 'ACTIVITY_TAG' , NAMESPACE_ACTIVITY_SCHEMA . 'tag' );
2010-09-08 23:14:17 -04:00
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' );
2010-12-10 07:04:35 -05:00
/**
* item weight for query ordering
*/
2010-10-13 05:47:32 -04:00
2010-09-17 06:10:19 -04:00
define ( 'GRAVITY_PARENT' , 0 );
define ( 'GRAVITY_LIKE' , 3 );
define ( 'GRAVITY_COMMENT' , 6 );
2010-09-08 23:14:17 -04:00
2010-12-10 07:04:35 -05:00
/**
*
* Reverse the effect of magic_quotes_gpc if it is enabled .
* Please disable magic_quotes_gpc so we don ' t have to do this .
* See http :// php . net / manual / en / security . magicquotes . disabling . php
*
*/
2010-11-24 02:42:45 -05:00
if ( get_magic_quotes_gpc ()) {
$process = array ( & $_GET , & $_POST , & $_COOKIE , & $_REQUEST );
while ( list ( $key , $val ) = each ( $process )) {
foreach ( $val as $k => $v ) {
unset ( $process [ $key ][ $k ]);
if ( is_array ( $v )) {
$process [ $key ][ stripslashes ( $k )] = $v ;
$process [] = & $process [ $key ][ stripslashes ( $k )];
} else {
$process [ $key ][ stripslashes ( $k )] = stripslashes ( $v );
}
}
}
unset ( $process );
}
2010-07-22 05:13:39 -04:00
2010-12-10 07:04:35 -05:00
/**
*
* class : App
*
* Our main application structure for the life of this page
* Primarily deals with the URL that got us here
* and tries to make some sense of it , and
* stores our page contents and config storage
* and anything else that might need to be passed around
* before we spit the page out .
*
*/
2010-09-27 20:16:52 -04:00
2010-07-01 19:48:07 -04:00
if ( ! class_exists ( 'App' )) {
class App {
public $module_loaded = false ;
2010-12-14 17:15:31 -05:00
public $query_string ;
2010-07-01 19:48:07 -04:00
public $config ;
public $page ;
public $profile ;
public $user ;
2010-07-06 00:39:55 -04:00
public $cid ;
2010-07-16 20:16:50 -04:00
public $contact ;
2010-07-01 19:48:07 -04:00
public $content ;
2010-08-04 01:33:53 -04:00
public $data ;
2010-07-01 19:48:07 -04:00
public $error = false ;
public $cmd ;
public $argv ;
public $argc ;
public $module ;
2010-07-10 03:45:18 -04:00
public $pager ;
2010-07-27 01:48:08 -04:00
public $strings ;
2010-08-16 00:49:29 -04:00
public $path ;
2010-12-20 22:38:34 -05:00
public $hooks ;
2011-01-13 23:28:33 -05:00
public $timezone ;
2010-10-17 23:04:17 -04:00
public $interactive = true ;
2011-02-10 19:17:21 -05:00
public $plugins ;
2010-12-20 22:38:34 -05:00
2010-07-01 19:48:07 -04:00
private $scheme ;
private $hostname ;
2010-07-18 23:49:10 -04:00
private $baseurl ;
2010-07-01 19:48:07 -04:00
private $db ;
2010-10-14 01:01:23 -04:00
private $curl_code ;
2010-10-21 07:53:43 -04:00
private $curl_headers ;
2010-10-14 01:01:23 -04:00
2010-07-01 19:48:07 -04:00
function __construct () {
$this -> config = array ();
$this -> page = array ();
2010-07-10 03:45:18 -04:00
$this -> pager = array ();
2010-07-01 19:48:07 -04:00
2010-12-14 17:15:31 -05:00
$this -> query_string = '' ;
2010-10-19 18:51:56 -04:00
$this -> scheme = (( isset ( $_SERVER [ 'HTTPS' ]) && ( $_SERVER [ 'HTTPS' ])) ? 'https' : 'http' );
2010-10-30 16:25:37 -04:00
2011-02-06 22:15:20 -05:00
if ( x ( $_SERVER , 'SERVER_NAME' )) {
2010-10-30 16:25:37 -04:00
$this -> hostname = $_SERVER [ 'SERVER_NAME' ];
2011-02-06 22:15:20 -05:00
/**
* 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 ;
}
2010-10-19 18:51:56 -04:00
set_include_path ( " include/ $this->hostname " . PATH_SEPARATOR . 'include' . PATH_SEPARATOR . '.' );
2010-11-14 18:17:27 -05:00
if (( x ( $_SERVER , 'QUERY_STRING' )) && substr ( $_SERVER [ 'QUERY_STRING' ], 0 , 2 ) === " q= " )
2010-12-14 17:15:31 -05:00
$this -> query_string = substr ( $_SERVER [ 'QUERY_STRING' ], 2 );
2010-10-30 16:25:37 -04:00
if ( x ( $_GET , 'q' ))
2010-12-23 17:40:32 -05:00
$this -> cmd = trim ( $_GET [ 'q' ], '/\\' );
2010-07-01 19:48:07 -04:00
2010-07-10 03:45:18 -04:00
2010-12-10 23:21:34 -05:00
/**
*
* Break the URL path into C style argc / argv style arguments for our
* modules . Given " http://example.com/module/arg1/arg2 " , $this -> argc
* will be 3 ( integer ) and $this -> argv will contain :
* [ 0 ] => 'module'
* [ 1 ] => 'arg1'
* [ 2 ] => 'arg2'
*
*
* There will always be one argument . If provided a naked domain
* URL , $this -> argv [ 0 ] is set to " home " .
*
*/
2010-07-01 19:48:07 -04:00
$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 ];
}
else {
$this -> module = 'home' ;
}
2010-07-23 19:33:34 -04:00
2010-12-10 23:21:34 -05:00
/**
* Special handling for the webfinger / lrdd host XRD file
* Just spit out the contents and exit .
*/
2010-09-26 20:24:20 -04:00
if ( $this -> cmd === '.well-known/host-meta' )
2010-07-23 19:33:34 -04:00
require_once ( 'include/hostxrd.php' );
2010-11-11 05:49:28 -05:00
2010-12-10 23:21:34 -05:00
/**
* See if there is any page number information , and initialise
* pagination
*/
2010-07-10 03:45:18 -04:00
$this -> pager [ 'page' ] = (( x ( $_GET , 'page' )) ? $_GET [ 'page' ] : 1 );
$this -> pager [ 'itemspage' ] = 50 ;
$this -> pager [ 'start' ] = ( $this -> pager [ 'page' ] * $this -> pager [ 'itemspage' ]) - $this -> pager [ 'itemspage' ];
$this -> pager [ 'total' ] = 0 ;
2010-07-01 19:48:07 -04:00
}
function get_baseurl ( $ssl = false ) {
2010-07-18 23:49:10 -04:00
2011-01-30 01:35:11 -05:00
$scheme = $this -> scheme ;
2011-01-30 22:38:03 -05:00
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' ;
}
2011-01-30 01:35:11 -05:00
2011-01-30 01:38:58 -05:00
$this -> baseurl = $scheme . " :// " . $this -> hostname . (( isset ( $this -> path ) && strlen ( $this -> path )) ? '/' . $this -> path : '' );
2010-07-18 23:49:10 -04:00
return $this -> baseurl ;
}
function set_baseurl ( $url ) {
2011-02-06 22:15:20 -05:00
$parsed = parse_url ( $url );
2010-07-18 23:49:10 -04:00
$this -> baseurl = $url ;
2011-02-06 22:15:20 -05:00
if ( $parsed ) {
$this -> scheme = $parsed [ 'scheme' ];
$this -> hostname = $parsed [ 'host' ];
2011-02-09 00:26:28 -05:00
if ( x ( $parsed , 'port' ))
2011-02-06 22:15:20 -05:00
$this -> hostname .= ':' . $parsed [ 'port' ];
2011-02-09 00:26:28 -05:00
if ( x ( $parsed , 'path' ))
2011-02-06 22:15:20 -05:00
$this -> path = trim ( $parsed [ 'path' ], '\\/' );
}
2010-07-01 19:48:07 -04:00
}
2010-07-19 02:23:18 -04:00
function get_hostname () {
return $this -> hostname ;
}
function set_hostname ( $h ) {
$this -> hostname = $h ;
}
2010-07-18 23:49:10 -04:00
2010-07-01 19:48:07 -04:00
function set_path ( $p ) {
2010-10-19 18:51:56 -04:00
$this -> path = trim ( trim ( $p ), '/' );
2010-07-01 19:48:07 -04:00
}
2010-07-20 01:52:31 -04:00
function get_path () {
return $this -> path ;
}
2010-07-10 03:45:18 -04:00
function set_pager_total ( $n ) {
$this -> pager [ 'total' ] = intval ( $n );
}
2010-07-20 01:52:31 -04:00
2010-07-10 03:45:18 -04:00
function set_pager_itemspage ( $n ) {
$this -> pager [ 'itemspage' ] = intval ( $n );
$this -> pager [ 'start' ] = ( $this -> pager [ 'page' ] * $this -> pager [ 'itemspage' ]) - $this -> pager [ 'itemspage' ];
}
2010-07-01 19:48:07 -04:00
function init_pagehead () {
2011-01-03 04:03:21 -05:00
$this -> page [ 'title' ] = $this -> config [ 'sitename' ];
2010-09-22 21:00:19 -04:00
$tpl = load_view_file ( " view/head.tpl " );
$this -> page [ 'htmlhead' ] = replace_macros ( $tpl , array (
2011-01-14 05:04:09 -05:00
'$baseurl' => $this -> get_baseurl () . '/' ,
'$generator' => 'Friendika' . ' ' . FRIENDIKA_VERSION
2010-08-16 08:23:26 -04:00
));
2010-07-01 19:48:07 -04:00
}
2010-10-14 01:01:23 -04:00
function set_curl_code ( $code ) {
$this -> curl_code = $code ;
}
function get_curl_code () {
return $this -> curl_code ;
}
2010-10-21 07:53:43 -04:00
function set_curl_headers ( $headers ) {
$this -> curl_headers = $headers ;
}
function get_curl_headers () {
return $this -> curl_headers ;
}
2010-07-01 19:48:07 -04:00
}}
2010-10-06 20:40:58 -04:00
// retrieve the App structure
// useful in functions which require it but don't get it passed to them
if ( ! function_exists ( 'get_app' )) {
function get_app () {
global $a ;
return $a ;
}};
2010-07-01 19:48:07 -04:00
2010-09-27 20:16:52 -04:00
// Multi-purpose function to check variable state.
// Usage: x($var) or $x($array,'key')
// returns false if variable/key is not set
// if variable is set, returns 1 if has 'non-zero' value, otherwise returns 0.
// e.g. x('') or x(0) returns 0;
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'x' )) {
function x ( $s , $k = NULL ) {
if ( $k != NULL ) {
if (( is_array ( $s )) && ( array_key_exists ( $k , $s ))) {
if ( $s [ $k ])
return ( int ) 1 ;
return ( int ) 0 ;
}
return false ;
}
else {
if ( isset ( $s )) {
if ( $s ) {
return ( int ) 1 ;
}
return ( int ) 0 ;
}
return false ;
}
}}
2010-09-27 20:16:52 -04:00
// called from db initialisation if db is dead.
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'system_unavailable' )) {
function system_unavailable () {
include ( 'system_unavailable.php' );
killme ();
}}
2010-09-27 20:16:52 -04:00
// Primarily involved with database upgrade, but also sets the
// base url for use in cmdline programs which don't have
2010-12-22 17:16:22 -05:00
// $_SERVER variables, and synchronising the state of installed plugins.
2010-08-14 21:11:36 -04:00
if ( ! function_exists ( 'check_config' )) {
function check_config ( & $a ) {
2010-08-16 01:43:42 -04:00
2011-02-06 22:15:20 -05:00
2010-08-19 07:59:31 -04:00
load_config ( 'system' );
2011-02-06 22:15:20 -05:00
if ( ! x ( $_SERVER , 'SERVER_NAME' ))
return ;
2010-08-16 01:43:42 -04:00
$build = get_config ( 'system' , 'build' );
if ( ! x ( $build ))
$build = set_config ( 'system' , 'build' , BUILD_ID );
$url = get_config ( 'system' , 'url' );
if ( ! x ( $url ))
$url = set_config ( 'system' , 'url' , $a -> get_baseurl ());
if ( $build != BUILD_ID ) {
$stored = intval ( $build );
$current = intval ( BUILD_ID );
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.
require_once ( 'update.php' );
2010-08-31 00:08:45 -04:00
for ( $x = $stored ; $x < $current ; $x ++ ) {
2010-08-16 01:43:42 -04:00
if ( function_exists ( 'update_' . $x )) {
$func = 'update_' . $x ;
$func ( $a );
2010-08-14 22:31:10 -04:00
}
}
2010-08-16 01:43:42 -04:00
set_config ( 'system' , 'build' , BUILD_ID );
2010-08-14 22:31:10 -04:00
}
}
2010-12-22 17:16:22 -05:00
/**
*
* Synchronise plugins :
*
* $a -> config [ 'system' ][ 'addon' ] contains a comma - separated list of names
* of plugins / addons which are used on this system .
* Go through the database list of already installed addons , and if we have
* an entry , but it isn ' t in the config list , call the uninstall procedure
* and mark it uninstalled in the database ( for now we ' ll remove it ) .
* Then go through the config list and if we have a plugin that isn ' t installed ,
* call the install procedure and add it to the database .
*
*/
$r = q ( " SELECT * FROM `addon` WHERE `installed` = 1 " );
if ( count ( $r ))
$installed = $r ;
2010-12-22 20:25:58 -05:00
else
$installed = array ();
2010-12-22 17:16:22 -05:00
$plugins = get_config ( 'system' , 'addon' );
$plugins_arr = array ();
if ( $plugins )
$plugins_arr = explode ( ',' , str_replace ( ' ' , '' , $plugins ));
2011-02-10 19:17:21 -05:00
$a -> plugins = $plugins_arr ;
2010-12-22 17:16:22 -05:00
$installed_arr = array ();
2010-12-22 20:25:58 -05:00
if ( count ( $installed )) {
foreach ( $installed as $i ) {
if ( ! in_array ( $i [ 'name' ], $plugins_arr )) {
logger ( " Addons: uninstalling " . $i [ 'name' ]);
q ( " DELETE FROM `addon` WHERE `id` = %d LIMIT 1 " ,
intval ( $i [ 'id' ])
);
@ include_once ( 'addon/' . $i [ 'name' ] . '/' . $i [ 'name' ] . '.php' );
if ( function_exists ( $i [ 'name' ] . '_uninstall' )) {
$func = $i [ 'name' ] . '_uninstall' ;
$func ();
}
2010-12-22 17:16:22 -05:00
}
2010-12-22 20:25:58 -05:00
else
$installed_arr [] = $i [ 'name' ];
2010-12-22 17:16:22 -05:00
}
}
if ( count ( $plugins_arr )) {
foreach ( $plugins_arr as $p ) {
if ( ! in_array ( $p , $installed_arr )) {
logger ( " Addons: installing " . $p );
@ 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 )
);
}
}
}
}
2011-02-11 05:35:19 -05:00
load_hooks ();
2010-12-22 17:16:22 -05:00
2010-08-14 22:31:10 -04:00
return ;
2010-08-14 21:11:36 -04:00
}}
2010-09-27 20:16:52 -04:00
// This is our template processor.
// $s is the string requiring macro substitution.
// $r is an array of key value pairs (search => replace)
// returns substituted string.
2010-10-05 22:56:09 -04:00
// WARNING: this is pretty basic, and doesn't properly handle search strings that are substrings of each other.
// 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.
2010-08-14 21:11:36 -04:00
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'replace_macros' )) {
function replace_macros ( $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 );
}}
2010-10-13 05:47:32 -04:00
// load string translation table for alternate language
2010-09-27 20:16:52 -04:00
2010-08-09 00:03:08 -04:00
if ( ! function_exists ( 'load_translation_table' )) {
2010-07-27 01:48:08 -04:00
function load_translation_table ( $lang ) {
global $a ;
2010-10-06 20:40:58 -04:00
if ( file_exists ( " view/ $lang /strings.php " ))
include ( " view/ $lang /strings.php " );
2010-08-09 00:03:08 -04:00
}}
2010-07-27 01:48:08 -04:00
2010-09-27 20:16:52 -04:00
// translate string if translation exists
2010-08-09 00:03:08 -04:00
if ( ! function_exists ( 't' )) {
2010-07-27 01:48:08 -04:00
function t ( $s ) {
2010-11-08 20:30:00 -05:00
2010-10-06 20:40:58 -04:00
$a = get_app ();
2010-07-27 01:48:08 -04:00
2010-11-08 20:30:00 -05:00
if ( x ( $a -> strings , $s ))
2010-07-27 01:48:08 -04:00
return $a -> strings [ $s ];
return $s ;
2010-08-09 00:03:08 -04:00
}}
2010-07-01 19:48:07 -04:00
2010-09-27 20:16:52 -04:00
// curl wrapper. If binary flag is true, return binary
// results.
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'fetch_url' )) {
2010-10-21 07:53:43 -04:00
function fetch_url ( $url , $binary = false , & $redirects = 0 ) {
2010-11-25 19:13:10 -05:00
$a = get_app ();
2010-07-01 19:48:07 -04:00
$ch = curl_init ( $url );
2010-10-21 07:53:43 -04:00
if (( $redirects > 8 ) || ( ! $ch ))
return false ;
2010-07-01 19:48:07 -04:00
2010-10-21 19:45:26 -04:00
curl_setopt ( $ch , CURLOPT_HEADER , true );
2010-07-01 19:48:07 -04:00
curl_setopt ( $ch , CURLOPT_RETURNTRANSFER , true );
2010-10-04 19:04:52 -04:00
2010-11-15 19:49:27 -05:00
$curl_time = intval ( get_config ( 'system' , 'curl_timeout' ));
2010-11-22 02:00:01 -05:00
curl_setopt ( $ch , CURLOPT_TIMEOUT , (( $curl_time !== false ) ? $curl_time : 60 ));
2010-11-15 19:49:27 -05:00
2010-10-04 19:04:52 -04:00
// by default we will allow self-signed certs
// but you can override this
$check_cert = get_config ( 'system' , 'verifyssl' );
curl_setopt ( $ch , CURLOPT_SSL_VERIFYPEER , (( $check_cert ) ? true : false ));
2010-08-17 21:44:13 -04:00
$prx = get_config ( 'system' , 'proxy' );
if ( strlen ( $prx )) {
curl_setopt ( $ch , CURLOPT_HTTPPROXYTUNNEL , 1 );
curl_setopt ( $ch , CURLOPT_PROXY , $prx );
$prxusr = get_config ( 'system' , 'proxyuser' );
if ( strlen ( $prxusr ))
curl_setopt ( $ch , CURLOPT_PROXYUSERPWD , $prxusr );
}
2010-07-01 19:48:07 -04:00
if ( $binary )
curl_setopt ( $ch , CURLOPT_BINARYTRANSFER , 1 );
2010-11-25 18:03:59 -05:00
$a -> set_curl_code ( 0 );
2010-12-09 17:03:28 -05:00
// don't let curl abort the entire application
// if it throws any errors.
$s = @ curl_exec ( $ch );
2010-10-21 07:53:43 -04:00
2010-11-22 02:00:01 -05:00
$http_code = intval ( curl_getinfo ( $ch , CURLINFO_HTTP_CODE ));
2010-10-21 07:53:43 -04:00
$header = substr ( $s , 0 , strpos ( $s , " \r \n \r \n " ));
2010-10-21 19:45:26 -04:00
if ( stristr ( $header , '100' ) && ( strlen ( $header ) < 30 )) {
// 100 Continue has two headers, get the real one
$s = substr ( $s , strlen ( $header ) + 4 );
$header = substr ( $s , 0 , strpos ( $s , " \r \n \r \n " ));
}
2010-10-21 07:53:43 -04:00
if ( $http_code == 301 || $http_code == 302 || $http_code == 303 ) {
$matches = array ();
preg_match ( '/(Location:|URI:)(.*?)\n/' , $header , $matches );
$url = trim ( array_pop ( $matches ));
$url_parsed = parse_url ( $url );
if ( isset ( $url_parsed )) {
$redirects ++ ;
return fetch_url ( $url , $binary , $redirects );
}
}
$a -> set_curl_code ( $http_code );
2011-02-08 02:20:38 -05:00
2010-10-21 07:53:43 -04:00
$body = substr ( $s , strlen ( $header ) + 4 );
2011-02-08 02:20:38 -05:00
/* 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 );
}
2010-10-21 07:53:43 -04:00
$a -> set_curl_headers ( $header );
2010-07-01 19:48:07 -04:00
curl_close ( $ch );
2010-10-21 19:45:26 -04:00
return ( $body );
2010-07-01 19:48:07 -04:00
}}
2010-09-27 20:16:52 -04:00
// post request to $url. $params is an array of post variables.
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'post_url' )) {
2010-10-26 00:52:30 -04:00
function post_url ( $url , $params , $headers = null , & $redirects = 0 ) {
2010-11-25 19:13:10 -05:00
$a = get_app ();
2010-07-01 19:48:07 -04:00
$ch = curl_init ( $url );
2010-10-21 07:53:43 -04:00
if (( $redirects > 8 ) || ( ! $ch ))
return false ;
2010-07-01 19:48:07 -04:00
2010-10-21 19:45:26 -04:00
curl_setopt ( $ch , CURLOPT_HEADER , true );
2010-07-01 19:48:07 -04:00
curl_setopt ( $ch , CURLOPT_RETURNTRANSFER , true );
curl_setopt ( $ch , CURLOPT_POST , 1 );
curl_setopt ( $ch , CURLOPT_POSTFIELDS , $params );
2010-10-21 07:53:43 -04:00
2010-11-15 19:49:27 -05:00
$curl_time = intval ( get_config ( 'system' , 'curl_timeout' ));
2010-11-22 02:00:01 -05:00
curl_setopt ( $ch , CURLOPT_TIMEOUT , (( $curl_time !== false ) ? $curl_time : 60 ));
2010-11-15 19:49:27 -05:00
2010-10-26 00:52:30 -04:00
if ( is_array ( $headers ))
curl_setopt ( $ch , CURLOPT_HTTPHEADER , $headers );
2010-10-04 19:04:52 -04:00
$check_cert = get_config ( 'system' , 'verifyssl' );
curl_setopt ( $ch , CURLOPT_SSL_VERIFYPEER , (( $check_cert ) ? true : false ));
2010-08-17 21:44:13 -04:00
$prx = get_config ( 'system' , 'proxy' );
if ( strlen ( $prx )) {
curl_setopt ( $ch , CURLOPT_HTTPPROXYTUNNEL , 1 );
curl_setopt ( $ch , CURLOPT_PROXY , $prx );
$prxusr = get_config ( 'system' , 'proxyuser' );
if ( strlen ( $prxusr ))
curl_setopt ( $ch , CURLOPT_PROXYUSERPWD , $prxusr );
}
2010-07-01 19:48:07 -04:00
2010-11-25 18:03:59 -05:00
$a -> set_curl_code ( 0 );
2010-12-09 17:03:28 -05:00
// don't let curl abort the entire application
// if it throws any errors.
$s = @ curl_exec ( $ch );
2010-10-21 07:53:43 -04:00
2010-11-22 02:00:01 -05:00
$http_code = intval ( curl_getinfo ( $ch , CURLINFO_HTTP_CODE ));
2010-10-21 07:53:43 -04:00
$header = substr ( $s , 0 , strpos ( $s , " \r \n \r \n " ));
2010-10-21 19:45:26 -04:00
if ( stristr ( $header , '100' ) && ( strlen ( $header ) < 30 )) {
// 100 Continue has two headers, get the real one
$s = substr ( $s , strlen ( $header ) + 4 );
$header = substr ( $s , 0 , strpos ( $s , " \r \n \r \n " ));
}
2010-10-21 07:53:43 -04:00
if ( $http_code == 301 || $http_code == 302 || $http_code == 303 ) {
$matches = array ();
preg_match ( '/(Location:|URI:)(.*?)\n/' , $header , $matches );
$url = trim ( array_pop ( $matches ));
$url_parsed = parse_url ( $url );
if ( isset ( $url_parsed )) {
$redirects ++ ;
2010-10-26 00:52:30 -04:00
return post_url ( $url , $binary , $headers , $redirects );
2010-10-21 07:53:43 -04:00
}
}
$a -> set_curl_code ( $http_code );
$body = substr ( $s , strlen ( $header ) + 4 );
2011-02-08 02:20:38 -05:00
/* 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 );
}
2010-10-21 07:53:43 -04:00
$a -> set_curl_headers ( $header );
2010-07-01 19:48:07 -04:00
curl_close ( $ch );
2010-10-21 19:45:26 -04:00
return ( $body );
2010-07-01 19:48:07 -04:00
}}
2010-09-27 20:16:52 -04:00
// random hash, 64 chars
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'random_string' )) {
function random_string () {
return ( hash ( 'sha256' , uniqid ( rand (), true )));
}}
2010-12-07 17:37:56 -05:00
/**
* This is our primary input filter .
*
* The high bit hack only involved some old IE browser , forget which ( IE5 / Mac ? )
* that had an XSS attack vector due to stripping the high - bit on an 8 - bit character
* after cleansing , and angle chars with the high bit set could get through as markup .
*
* This is now disabled because it was interfering with some legitimate unicode sequences
* and hopefully there aren ' t a lot of those browsers left .
*
* Use this on any text input where angle chars are not valid or permitted
* They will be replaced with safer brackets . This may be filtered further
* if these are not allowed either .
*
*/
2010-09-27 20:16:52 -04:00
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'notags' )) {
function notags ( $string ) {
2010-12-07 17:37:56 -05:00
return ( str_replace ( array ( " < " , " > " ), array ( '[' , ']' ), $string ));
// High-bit filter no longer used
// return(str_replace(array("<",">","\xBA","\xBC","\xBE"), array('[',']','','',''), $string));
2010-07-01 19:48:07 -04:00
}}
2010-09-27 20:16:52 -04:00
// use this on "body" or "content" input where angle chars shouldn't be removed,
// and allow them to be safely displayed.
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'escape_tags' )) {
function escape_tags ( $string ) {
2010-07-19 09:58:03 -04:00
return ( htmlspecialchars ( $string ));
2010-07-01 19:48:07 -04:00
}}
2010-09-27 20:16:52 -04:00
// wrapper for adding a login box. If $register == true provide a registration
// link. This will most always depend on the value of $a->config['register_policy'].
2010-10-13 05:47:32 -04:00
// returns the complete html for inserting into the page
2010-09-27 20:16:52 -04:00
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'login' )) {
function login ( $register = false ) {
$o = " " ;
2010-09-22 21:00:19 -04:00
$register_html = (( $register ) ? load_view_file ( " view/register-link.tpl " ) : " " );
2010-07-01 19:48:07 -04:00
2010-11-28 23:58:23 -05:00
$noid = get_config ( 'system' , 'no_openid' );
if ( $noid ) {
$classname = 'no-openid' ;
$namelabel = t ( 'Nickname or Email address: ' );
$passlabel = t ( 'Password: ' );
$login = t ( 'Login' );
}
else {
$classname = 'openid' ;
$namelabel = t ( 'Nickname/Email/OpenID: ' );
$passlabel = t ( " Password \x28 if not OpenID \x29 : " );
$login = t ( 'Login' );
}
$lostpass = t ( 'Forgot your password?' );
$lostlink = t ( 'Password Reset' );
2010-07-01 19:48:07 -04:00
2011-02-07 02:06:50 -05:00
if ( local_user ()) {
2010-11-28 23:58:23 -05:00
$tpl = load_view_file ( " view/logout.tpl " );
2010-07-01 19:48:07 -04:00
}
else {
2010-11-28 23:58:23 -05:00
$tpl = load_view_file ( " view/login.tpl " );
2010-07-01 19:48:07 -04:00
}
2010-11-28 23:58:23 -05:00
$o = replace_macros ( $tpl , array (
'$register_html' => $register_html ,
2011-02-07 02:04:10 -05:00
'$classname' => $classname ,
'$namelabel' => $namelabel ,
'$passlabel' => $passlabel ,
'$login' => $login ,
'$lostpass' => $lostpass ,
'$lostlink' => $lostlink
2010-11-28 23:58:23 -05:00
));
2010-07-01 19:48:07 -04:00
return $o ;
}}
2010-09-27 20:16:52 -04:00
// generate a string that's random, but usually pronounceable.
// used to generate initial passwords
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'autoname' )) {
function autoname ( $len ) {
$vowels = array ( 'a' , 'a' , 'ai' , 'au' , 'e' , 'e' , 'e' , 'ee' , 'ea' , 'i' , 'ie' , 'o' , 'ou' , 'u' );
if ( mt_rand ( 0 , 5 ) == 4 )
$vowels [] = 'y' ;
$cons = array (
'b' , 'bl' , 'br' ,
'c' , 'ch' , 'cl' , 'cr' ,
'd' , 'dr' ,
'f' , 'fl' , 'fr' ,
'g' , 'gh' , 'gl' , 'gr' ,
'h' ,
'j' ,
'k' , 'kh' , 'kl' , 'kr' ,
'l' ,
'm' ,
'n' ,
'p' , 'ph' , 'pl' , 'pr' ,
'qu' ,
'r' , 'rh' ,
's' , 'sc' , 'sh' , 'sm' , 'sp' , 'st' ,
't' , 'th' , 'tr' ,
'v' ,
'w' , 'wh' ,
'x' ,
'z' , 'zh'
);
$midcons = array ( 'ck' , 'ct' , 'gn' , 'ld' , 'lf' , 'lm' , 'lt' , 'mb' , 'mm' , 'mn' , 'mp' ,
'nd' , 'ng' , 'nk' , 'nt' , 'rn' , 'rp' , 'rt' );
$noend = array ( 'bl' , 'br' , 'cl' , 'cr' , 'dr' , 'fl' , 'fr' , 'gl' , 'gr' ,
'kh' , 'kl' , 'kr' , 'mn' , 'pl' , 'pr' , 'rh' , 'tr' , 'qu' , 'wh' );
$start = mt_rand ( 0 , 2 );
if ( $start == 0 )
$table = $vowels ;
else
$table = $cons ;
$word = '' ;
for ( $x = 0 ; $x < $len ; $x ++ ) {
$r = mt_rand ( 0 , count ( $table ) - 1 );
$word .= $table [ $r ];
if ( $table == $vowels )
$table = array_merge ( $cons , $midcons );
else
$table = $vowels ;
}
$word = substr ( $word , 0 , $len );
foreach ( $noend as $noe ) {
if (( strlen ( $word ) > 2 ) && ( substr ( $word , - 2 ) == $noe )) {
$word = substr ( $word , 0 , - 1 );
break ;
}
}
if ( substr ( $word , - 1 ) == 'q' )
$word = substr ( $word , 0 , - 1 );
return $word ;
}}
2010-09-27 20:16:52 -04:00
// Used to end the current process, after saving session state.
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'killme' )) {
function killme () {
session_write_close ();
exit ;
}}
2010-09-27 20:16:52 -04:00
// redirect to another URL and terminate this process.
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'goaway' )) {
function goaway ( $s ) {
header ( " Location: $s " );
killme ();
}}
2010-09-27 20:16:52 -04:00
// Generic XML return
2010-10-10 19:16:29 -04:00
// Outputs a basic dfrn XML status structure to STDOUT, with a <status> variable
// of $st and an optional text <message> of $message and terminates the current process.
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'xml_status' )) {
2010-10-10 19:16:29 -04:00
function xml_status ( $st , $message = '' ) {
2010-10-31 19:38:22 -04:00
$xml_message = (( strlen ( $message )) ? " \t <message> " . xmlify ( $message ) . " </message> \r \n " : '' );
2010-10-10 19:16:29 -04:00
2010-11-19 00:01:54 -05:00
if ( $st )
logger ( 'xml_status returning non_zero: ' . $st . " message= " . $message );
2010-07-19 02:23:18 -04:00
header ( " Content-type: text/xml " );
2010-07-01 19:48:07 -04:00
echo '<?xml version="1.0" encoding="UTF-8"?>' . " \r \n " ;
2010-10-10 19:16:29 -04:00
echo " <result> \r \n \t <status> $st </status> \r \n $xml_message </result> \r \n " ;
2010-07-01 19:48:07 -04:00
killme ();
}}
2010-10-13 05:47:32 -04:00
// Returns the uid of locally logged in user or false.
2010-09-27 20:16:52 -04:00
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'local_user' )) {
function local_user () {
if (( x ( $_SESSION , 'authenticated' )) && ( x ( $_SESSION , 'uid' )))
2010-10-18 03:43:49 -04:00
return intval ( $_SESSION [ 'uid' ]);
2010-07-01 19:48:07 -04:00
return false ;
}}
2010-09-27 20:16:52 -04:00
// Returns contact id of authenticated site visitor or false
2010-07-01 19:48:07 -04:00
if ( ! function_exists ( 'remote_user' )) {
function remote_user () {
2010-07-27 22:27:14 -04:00
if (( x ( $_SESSION , 'authenticated' )) && ( x ( $_SESSION , 'visitor_id' )))
2010-10-18 03:43:49 -04:00
return intval ( $_SESSION [ 'visitor_id' ]);
2010-07-01 19:48:07 -04:00
return false ;
}}
2010-09-27 20:16:52 -04:00
// contents of $s are displayed prominently on the page the next time
// a page is loaded. Usually used for errors or alerts.
2010-07-02 20:02:41 -04:00
if ( ! function_exists ( 'notice' )) {
function notice ( $s ) {
2010-10-17 23:04:17 -04:00
$a = get_app ();
if ( $a -> interactive )
$_SESSION [ 'sysmsg' ] .= $s ;
2010-07-08 10:03:25 -04:00
}}
2010-09-27 20:16:52 -04:00
// wrapper around config to limit the text length of an incoming message
2010-07-18 23:49:10 -04:00
if ( ! function_exists ( 'get_max_import_size' )) {
function get_max_import_size () {
global $a ;
return (( x ( $a -> config , 'max_import_size' )) ? $a -> config [ 'max_import_size' ] : 0 );
}}
2010-07-08 10:03:25 -04:00
2010-09-27 20:16:52 -04:00
// escape text ($str) for XML transport
// returns escaped text.
2010-07-08 10:03:25 -04:00
if ( ! function_exists ( 'xmlify' )) {
function xmlify ( $str ) {
$buffer = '' ;
for ( $x = 0 ; $x < strlen ( $str ); $x ++ ) {
$char = $str [ $x ];
switch ( $char ) {
case " \r " :
break ;
case " & " :
$buffer .= '&' ;
break ;
case " ' " :
$buffer .= ''' ;
break ;
case " \" " :
$buffer .= '"' ;
break ;
case '<' :
$buffer .= '<' ;
break ;
case '>' :
$buffer .= '>' ;
break ;
case " \n " :
2010-11-05 05:19:39 -04:00
$buffer .= " \n " ;
2010-07-08 10:03:25 -04:00
break ;
default :
$buffer .= $char ;
break ;
}
}
$buffer = trim ( $buffer );
return ( $buffer );
}}
2010-09-27 20:16:52 -04:00
// undo an xmlify
// pass xml escaped text ($s), returns unescaped text
2010-08-09 00:03:08 -04:00
if ( ! function_exists ( 'unxmlify' )) {
2010-07-17 22:26:00 -04:00
function unxmlify ( $s ) {
$ret = str_replace ( '&' , '&' , $s );
$ret = str_replace ( array ( '<' , '>' , '"' , ''' ), array ( '<' , '>' , '"' , " ' " ), $ret );
return $ret ;
2010-08-09 00:03:08 -04:00
}}
2010-07-08 10:03:25 -04:00
2010-09-27 20:16:52 -04:00
// convenience wrapper, reverse the operation "bin2hex"
2010-08-09 00:03:08 -04:00
if ( ! function_exists ( 'hex2bin' )) {
2010-07-08 10:03:25 -04:00
function hex2bin ( $s ) {
2011-01-18 00:08:16 -05:00
if ( ! ctype_xdigit ( $s )) {
logger ( 'hex2bin: illegal input: ' . print_r ( debug_backtrace (), true ));
return ( $s );
}
2010-07-08 10:03:25 -04:00
return ( pack ( " H* " , $s ));
2010-08-09 00:03:08 -04:00
}}
2010-07-10 01:47:32 -04:00
2010-09-27 20:16:52 -04:00
// Automatic pagination.
// To use, get the count of total items.
// Then call $a->set_pager_total($number_items);
// Optionally call $a->set_pager_itemspage($n) to the number of items to display on each page
// Then call paginate($a) after the end of the display loop to insert the pager block on the page
// (assuming there are enough items to paginate).
// When using with SQL, the setting LIMIT %d, %d => $a->pager['start'],$a->pager['itemspage']
// will limit the results to the correct items for the current page.
// The actual page handling is then accomplished at the application layer.
2010-07-10 03:45:18 -04:00
2010-08-09 00:03:08 -04:00
if ( ! function_exists ( 'paginate' )) {
2010-07-10 03:45:18 -04:00
function paginate ( & $a ) {
$o = '' ;
2010-12-14 17:15:31 -05:00
$stripped = preg_replace ( '/(&page=[0-9]*)/' , '' , $a -> query_string );
2010-07-10 03:45:18 -04:00
$stripped = str_replace ( 'q=' , '' , $stripped );
$stripped = trim ( $stripped , '/' );
$url = $a -> get_baseurl () . '/' . $stripped ;
if ( $a -> pager [ 'total' ] > $a -> pager [ 'itemspage' ]) {
$o .= '<div class="pager">' ;
if ( $a -> pager [ 'page' ] != 1 )
2010-07-27 01:48:08 -04:00
$o .= '<span class="pager_prev">' . " <a href= \" $url " . '&page=' . ( $a -> pager [ 'page' ] - 1 ) . '">' . t ( 'prev' ) . '</a></span> ' ;
2010-07-10 03:45:18 -04:00
2010-07-27 01:48:08 -04:00
$o .= " <span class= \" pager_first \" ><a href= \" $url " . " &page=1 \" > " . t ( 'first' ) . " </a></span> " ;
2010-07-10 03:45:18 -04:00
$numpages = $a -> pager [ 'total' ] / $a -> pager [ 'itemspage' ];
$numstart = 1 ;
$numstop = $numpages ;
if ( $numpages > 14 ) {
$numstart = (( $pagenum > 7 ) ? ( $pagenum - 7 ) : 1 );
$numstop = (( $pagenum > ( $numpages - 7 )) ? $numpages : ( $numstart + 14 ));
}
for ( $i = $numstart ; $i <= $numstop ; $i ++ ){
2010-07-10 06:26:21 -04:00
if ( $i == $a -> pager [ 'page' ])
2010-07-10 03:45:18 -04:00
$o .= '<span class="pager_current">' . (( $i < 10 ) ? ' ' . $i : $i );
else
$o .= " <span class= \" pager_n \" ><a href= \" $url " . " &page= $i\ " > " .(( $i < 10) ? ' '. $i : $i ). " </ a > " ;
$o .= '</span> ' ;
}
if (( $a -> pager [ 'total' ] % $a -> pager [ 'itemspage' ]) != 0 ) {
if ( $i == $a -> pager [ 'page' ])
$o .= '<span class="pager_current">' . (( $i < 10 ) ? ' ' . $i : $i );
else
$o .= " <span class= \" pager_n \" ><a href= \" $url " . " &page= $i\ " > " .(( $i < 10) ? ' '. $i : $i ). " </ a > " ;
$o .= '</span> ' ;
}
$lastpage = (( $numpages > intval ( $numpages )) ? intval ( $numpages ) + 1 : $numpages );
2010-07-27 01:48:08 -04:00
$o .= " <span class= \" pager_last \" ><a href= \" $url " . " &page= $lastpage\ " > " . t('last') . " </ a ></ span > " ;
2010-07-10 03:45:18 -04:00
if (( $a -> pager [ 'total' ] - ( $a -> pager [ 'itemspage' ] * $a -> pager [ 'page' ])) > 0 )
2010-07-27 01:48:08 -04:00
$o .= '<span class="pager_next">' . " <a href= \" $url " . " &page= " . ( $a -> pager [ 'page' ] + 1 ) . '">' . t ( 'next' ) . '</a></span>' ;
2010-07-10 03:45:18 -04:00
$o .= '</div>' . " \r \n " ;
}
return $o ;
2010-08-09 00:03:08 -04:00
}}
2010-07-15 02:04:10 -04:00
2010-09-27 20:16:52 -04:00
// Turn user/group ACLs stored as angle bracketed text into arrays
2010-08-09 00:03:08 -04:00
if ( ! function_exists ( 'expand_acl' )) {
2010-07-15 02:04:10 -04:00
function expand_acl ( $s ) {
2010-09-26 22:44:03 -04:00
// turn string array of angle-bracketed elements into numeric array
// e.g. "<1><2><3>" => array(1,2,3);
$ret = array ();
2010-07-15 02:04:10 -04:00
if ( strlen ( $s )) {
2010-09-26 22:44:03 -04:00
$t = str_replace ( '<' , '' , $s );
$a = explode ( '>' , $t );
foreach ( $a as $aa ) {
if ( intval ( $aa ))
$ret [] = intval ( $aa );
2010-07-15 02:04:10 -04:00
}
}
2010-09-26 22:44:03 -04:00
return $ret ;
2010-08-09 00:03:08 -04:00
}}
2010-07-27 01:48:08 -04:00
2010-09-27 20:16:52 -04:00
// Used to wrap ACL elements in angle brackets for storage
2010-08-09 00:03:08 -04:00
if ( ! function_exists ( 'sanitise_acl' )) {
2010-08-07 09:20:27 -04:00
function sanitise_acl ( & $item ) {
2010-08-10 01:58:58 -04:00
if ( intval ( $item ))
$item = '<' . intval ( notags ( trim ( $item ))) . '>' ;
else
unset ( $item );
2010-08-09 00:03:08 -04:00
}}
2010-08-16 01:43:42 -04:00
2010-09-27 20:16:52 -04:00
// retrieve a "family" of config variables from database to cached storage
2010-08-19 07:59:31 -04:00
if ( ! function_exists ( 'load_config' )) {
function load_config ( $family ) {
global $a ;
$r = q ( " SELECT * FROM `config` WHERE `cat` = '%s' " ,
dbesc ( $family )
);
if ( count ( $r )) {
foreach ( $r as $rr ) {
$k = $rr [ 'k' ];
$a -> config [ $family ][ $k ] = $rr [ 'v' ];
}
}
}}
2010-09-27 20:16:52 -04:00
// get a particular config variable given the family name
// and key. Returns false if not set.
// $instore is only used by the set_config function
// to determine if the key already exists in the DB
// If a key is found in the DB but doesn't exist in
// local config cache, pull it into the cache so we don't have
// to hit the DB again for this item.
2010-08-19 07:59:31 -04:00
2010-08-16 01:43:42 -04:00
if ( ! function_exists ( 'get_config' )) {
2010-08-19 10:15:41 -04:00
function get_config ( $family , $key , $instore = false ) {
2010-08-31 00:08:45 -04:00
2010-08-19 07:59:31 -04:00
global $a ;
2010-09-26 19:30:21 -04:00
2010-08-19 10:15:41 -04:00
if ( ! $instore ) {
2010-09-08 23:14:17 -04:00
if ( isset ( $a -> config [ $family ][ $key ])) {
2010-09-26 19:30:21 -04:00
if ( $a -> config [ $family ][ $key ] === '!<unset>!' ) {
2010-09-08 23:14:17 -04:00
return false ;
2010-09-26 19:30:21 -04:00
}
2010-08-19 10:15:41 -04:00
return $a -> config [ $family ][ $key ];
2010-09-08 23:14:17 -04:00
}
2010-08-19 10:15:41 -04:00
}
2010-08-16 01:43:42 -04:00
$ret = q ( " SELECT `v` FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1 " ,
dbesc ( $family ),
dbesc ( $key )
);
2010-08-19 07:59:31 -04:00
if ( count ( $ret )) {
$a -> config [ $family ][ $key ] = $ret [ 0 ][ 'v' ];
2010-08-16 01:43:42 -04:00
return $ret [ 0 ][ 'v' ];
2010-08-19 07:59:31 -04:00
}
2010-09-08 23:14:17 -04:00
else {
$a -> config [ $family ][ $key ] = '!<unset>!' ;
}
2010-08-16 01:43:42 -04:00
return false ;
}}
2010-09-27 20:16:52 -04:00
// Store a config value ($value) in the category ($family)
// under the key ($key)
// Return the value, or false if the database update failed
2010-08-16 01:43:42 -04:00
if ( ! function_exists ( 'set_config' )) {
function set_config ( $family , $key , $value ) {
2010-08-19 07:59:31 -04:00
global $a ;
2010-08-19 10:15:41 -04:00
if ( get_config ( $family , $key , true ) === false ) {
2010-08-16 01:43:42 -04:00
$ret = q ( " INSERT INTO `config` ( `cat`, `k`, `v` ) VALUES ( '%s', '%s', '%s' ) " ,
dbesc ( $family ),
dbesc ( $key ),
dbesc ( $value )
);
if ( $ret )
return $value ;
return $ret ;
}
2010-08-19 10:15:41 -04:00
$ret = q ( " UPDATE `config` SET `v` = '%s' WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1 " ,
2010-08-16 01:43:42 -04:00
dbesc ( $value ),
dbesc ( $family ),
dbesc ( $key )
);
2011-01-04 02:53:37 -05:00
$a -> config [ $family ][ $key ] = $value ;
2010-08-16 01:43:42 -04:00
if ( $ret )
return $value ;
return $ret ;
}}
2010-08-31 00:08:45 -04:00
2010-12-14 17:15:31 -05:00
2010-12-22 23:23:41 -05:00
if ( ! function_exists ( 'load_pconfig' )) {
function load_pconfig ( $uid , $family ) {
global $a ;
$r = q ( " SELECT * FROM `pconfig` WHERE `cat` = '%s' AND `uid` = %d " ,
dbesc ( $family ),
intval ( $uid )
);
if ( count ( $r )) {
foreach ( $r as $rr ) {
$k = $rr [ 'k' ];
$a -> config [ $uid ][ $family ][ $k ] = $rr [ 'v' ];
}
}
}}
2010-12-14 17:15:31 -05:00
if ( ! function_exists ( 'get_pconfig' )) {
function get_pconfig ( $uid , $family , $key , $instore = false ) {
global $a ;
if ( ! $instore ) {
if ( isset ( $a -> config [ $uid ][ $family ][ $key ])) {
if ( $a -> config [ $uid ][ $family ][ $key ] === '!<unset>!' ) {
return false ;
}
return $a -> config [ $uid ][ $family ][ $key ];
}
}
2011-01-04 02:53:37 -05:00
2010-12-14 17:15:31 -05:00
$ret = q ( " SELECT `v` FROM `pconfig` WHERE `uid` = %d AND `cat` = '%s' AND `k` = '%s' LIMIT 1 " ,
intval ( $uid ),
dbesc ( $family ),
dbesc ( $key )
);
2011-01-04 02:53:37 -05:00
2010-12-14 17:15:31 -05:00
if ( count ( $ret )) {
$a -> config [ $uid ][ $family ][ $key ] = $ret [ 0 ][ 'v' ];
return $ret [ 0 ][ 'v' ];
}
else {
$a -> config [ $uid ][ $family ][ $key ] = '!<unset>!' ;
}
return false ;
}}
if ( ! function_exists ( 'del_config' )) {
function del_config ( $family , $key ) {
global $a ;
if ( x ( $a -> config [ $family ], $key ))
unset ( $a -> config [ $family ][ $key ]);
$ret = q ( " DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1 " ,
dbesc ( $cat ),
dbesc ( $key )
);
return $ret ;
}}
// Same as above functions except these are for personal config storage and take an
// additional $uid argument.
if ( ! function_exists ( 'set_pconfig' )) {
function set_pconfig ( $uid , $family , $key , $value ) {
global $a ;
if ( get_pconfig ( $uid , $family , $key , true ) === false ) {
$ret = q ( " INSERT INTO `pconfig` ( `uid`, `cat`, `k`, `v` ) VALUES ( %d, '%s', '%s', '%s' ) " ,
intval ( $uid ),
dbesc ( $family ),
dbesc ( $key ),
dbesc ( $value )
);
if ( $ret )
return $value ;
return $ret ;
}
$ret = q ( " UPDATE `pconfig` SET `v` = '%s' WHERE `uid` = %d AND `cat` = '%s' AND `k` = '%s' LIMIT 1 " ,
dbesc ( $value ),
2010-12-23 20:07:19 -05:00
intval ( $uid ),
2010-12-14 17:15:31 -05:00
dbesc ( $family ),
dbesc ( $key )
);
2010-12-23 20:07:19 -05:00
2011-01-04 02:53:37 -05:00
$a -> config [ $uid ][ $family ][ $key ] = $value ;
2010-12-14 17:15:31 -05:00
if ( $ret )
return $value ;
return $ret ;
}}
if ( ! function_exists ( 'del_pconfig' )) {
function del_pconfig ( $uid , $family , $key ) {
global $a ;
if ( x ( $a -> config [ $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 ),
2011-02-08 05:45:55 -05:00
dbesc ( $family ),
2010-12-14 17:15:31 -05:00
dbesc ( $key )
);
return $ret ;
}}
2010-09-27 20:16:52 -04:00
// convert an XML document to a normalised, case-corrected array
// used by webfinger
2010-08-31 00:08:45 -04:00
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 )));
}
}}
2010-09-27 20:16:52 -04:00
// Given an email style address, perform webfinger lookup and
2010-10-13 05:47:32 -04:00
// return the resulting DFRN profile URL, or if no DFRN profile URL
// is located, returns an OStatus subscription template (prefixed
// with the string 'stat:' to identify it as on OStatus template).
2010-09-27 20:16:52 -04:00
// If this isn't an email style address just return $s.
// Return an empty string if email-style addresses but webfinger fails,
2010-10-13 05:47:32 -04:00
// or if the resultant personal XRD doesn't contain a supported
// subscription/friend-request attribute.
2010-08-31 00:08:45 -04:00
2010-10-12 19:50:12 -04:00
if ( ! function_exists ( 'webfinger_dfrn' )) {
function webfinger_dfrn ( $s ) {
2010-09-08 23:14:17 -04:00
if ( ! strstr ( $s , '@' )) {
2010-08-31 00:08:45 -04:00
return $s ;
2010-09-08 23:14:17 -04:00
}
2010-10-12 19:50:12 -04:00
$links = webfinger ( $s );
2010-11-09 21:24:35 -05:00
logger ( 'webfinger_dfrn: ' . $s . ':' . print_r ( $links , true ), LOGGER_DATA );
2010-10-12 19:50:12 -04:00
if ( count ( $links )) {
foreach ( $links as $link )
2010-10-12 20:11:06 -04:00
if ( $link [ '@attributes' ][ 'rel' ] === NAMESPACE_DFRN )
2010-10-12 19:50:12 -04:00
return $link [ '@attributes' ][ 'href' ];
2010-10-12 22:32:15 -04:00
foreach ( $links as $link )
if ( $link [ '@attributes' ][ 'rel' ] === NAMESPACE_OSTATUSSUB )
2010-10-13 05:47:32 -04:00
return 'stat:' . $link [ '@attributes' ][ 'template' ];
2010-10-12 19:50:12 -04:00
}
return '' ;
}}
2010-08-31 00:08:45 -04:00
2010-10-12 19:50:12 -04:00
// Given an email style address, perform webfinger lookup and
// return the array of link attributes from the personal XRD file.
// On error/failure return an empty array.
2010-08-31 00:08:45 -04:00
2010-10-12 19:50:12 -04:00
if ( ! function_exists ( 'webfinger' )) {
function webfinger ( $s ) {
$host = '' ;
if ( strstr ( $s , '@' )) {
$host = substr ( $s , strpos ( $s , '@' ) + 1 );
}
if ( strlen ( $host )) {
$tpl = fetch_lrdd_template ( $host );
2010-11-09 21:24:35 -05:00
logger ( 'webfinger: lrdd template: ' . $tpl );
2010-10-12 19:50:12 -04:00
if ( strlen ( $tpl )) {
2010-10-24 23:39:24 -04:00
$pxrd = str_replace ( '{uri}' , urlencode ( 'acct:' . $s ), $tpl );
2011-02-08 21:44:30 -05:00
logger ( 'webfinger: pxrd: ' . $pxrd );
2010-10-12 19:50:12 -04:00
$links = fetch_xrd_links ( $pxrd );
if ( ! count ( $links )) {
2010-10-24 23:39:24 -04:00
// try with double slashes
$pxrd = str_replace ( '{uri}' , urlencode ( 'acct://' . $s ), $tpl );
2011-02-08 21:44:30 -05:00
logger ( 'webfinger: pxrd: ' . $pxrd );
2010-10-12 19:50:12 -04:00
$links = fetch_xrd_links ( $pxrd );
}
return $links ;
}
}
return array ();
}}
2010-10-24 23:39:24 -04:00
if ( ! function_exists ( 'lrdd' )) {
function lrdd ( $uri ) {
$a = get_app ();
if ( strstr ( $uri , '@' )) {
return ( webfinger ( $uri ));
}
else {
$html = fetch_url ( $uri );
$headers = $a -> get_curl_headers ();
2011-02-02 17:48:27 -05:00
logger ( 'lrdd: headers=' . $headers , LOGGER_DEBUG );
2010-10-24 23:39:24 -04:00
$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 ];
break ;
}
2011-02-01 17:55:29 -05:00
// 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 ();
2011-02-02 17:48:27 -05:00
if ( stristr ( $html , '<rss' ) || stristr ( $html , '<feed' ))
return array ();
2010-10-24 23:39:24 -04:00
}
}
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' );
foreach ( $items as $item ) {
$x = $item -> getAttribute ( 'rel' );
if ( $x == " lrdd " ) {
$link = $item -> getAttribute ( 'href' );
break ;
}
}
}
}
if ( isset ( $link ))
return ( fetch_xrd_links ( $link ));
}
return array ();
}}
2010-10-12 19:50:12 -04:00
// Given a host name, locate the LRDD template from that
// host. Returns the LRDD template or an empty string on
// error/failure.
if ( ! function_exists ( 'fetch_lrdd_template' )) {
function fetch_lrdd_template ( $host ) {
$tpl = '' ;
$url = 'http://' . $host . '/.well-known/host-meta' ;
$links = fetch_xrd_links ( $url );
2011-02-08 21:44:30 -05:00
logger ( 'template: ' . print_r ( $links , true ));
2010-10-12 19:50:12 -04:00
if ( count ( $links )) {
foreach ( $links as $link )
if ( $link [ '@attributes' ][ 'rel' ] && $link [ '@attributes' ][ 'rel' ] === 'lrdd' )
$tpl = $link [ '@attributes' ][ 'template' ];
}
if ( ! strpos ( $tpl , '{uri}' ))
$tpl = '' ;
return $tpl ;
}}
// Given a URL, retrieve the page as an XRD document.
// Return an array of links.
// on error/failure return empty array.
2010-08-31 00:08:45 -04:00
2010-10-12 19:50:12 -04:00
if ( ! function_exists ( 'fetch_xrd_links' )) {
function fetch_xrd_links ( $url ) {
2010-08-31 00:08:45 -04:00
2010-11-09 21:24:35 -05:00
2010-10-12 19:50:12 -04:00
$xml = fetch_url ( $url );
2010-08-31 00:08:45 -04:00
if ( ! $xml )
2010-10-12 19:50:12 -04:00
return array ();
2010-11-09 21:24:35 -05:00
logger ( 'fetch_xrd_links: ' . $xml , LOGGER_DATA );
2010-08-31 00:08:45 -04:00
$h = simplexml_load_string ( $xml );
$arr = convert_xml_element_to_array ( $h );
2011-02-08 21:44:30 -05:00
$links = array ();
2010-10-12 19:50:12 -04:00
if ( isset ( $arr [ 'xrd' ][ 'link' ])) {
$link = $arr [ 'xrd' ][ 'link' ];
if ( ! isset ( $link [ 0 ]))
$links = array ( $link );
else
$links = $link ;
}
2011-02-08 21:44:30 -05:00
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 ;
2010-08-31 00:08:45 -04:00
}}
2010-09-08 23:14:17 -04:00
2010-09-27 20:16:52 -04:00
// Convert an ACL array to a storable string
2010-09-08 23:14:17 -04:00
if ( ! function_exists ( 'perms2str' )) {
function perms2str ( $p ) {
$ret = '' ;
$tmp = $p ;
if ( is_array ( $tmp )) {
array_walk ( $tmp , 'sanitise_acl' );
$ret = implode ( '' , $tmp );
}
return $ret ;
}}
2010-09-27 20:16:52 -04:00
// generate a guaranteed unique (for this domain) item ID for ATOM
// safe from birthday paradox
2010-09-08 23:14:17 -04:00
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 ;
}}
2010-09-27 20:16:52 -04:00
// Generate a guaranteed unique photo ID.
// safe from birthday paradox
2010-09-14 01:57:31 -04:00
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 ;
}}
2010-09-27 20:16:52 -04:00
// Take a URL from the wild, prepend http:// if necessary
// and check DNS to see if it's real
// return true if it's OK, false if something is wrong with it
2010-09-08 23:14:17 -04:00
if ( ! function_exists ( 'validate_url' )) {
2010-09-13 20:12:54 -04:00
function validate_url ( & $url ) {
2010-09-08 23:14:17 -04:00
if ( substr ( $url , 0 , 4 ) != 'http' )
$url = 'http://' . $url ;
$h = parse_url ( $url );
2011-01-02 22:05:11 -05:00
if (( $h ) && ( dns_get_record ( $h [ 'host' ], DNS_A + DNS_CNAME + DNS_PTR ))) {
2010-11-15 23:22:40 -05:00
return true ;
2010-09-13 20:12:54 -04:00
}
2010-11-15 23:22:40 -05:00
return false ;
}}
// checks that email is an actual resolvable internet address
if ( ! function_exists ( 'validate_email' )) {
function validate_email ( $addr ) {
if ( ! strpos ( $addr , '@' ))
2010-09-08 23:14:17 -04:00
return false ;
2010-11-15 23:22:40 -05:00
$h = substr ( $addr , strpos ( $addr , '@' ) + 1 );
2011-01-03 16:26:43 -05:00
if (( $h ) && ( dns_get_record ( $h , DNS_A + DNS_CNAME + DNS_PTR + DNS_MX ))) {
2010-11-15 23:22:40 -05:00
return true ;
2010-09-13 20:12:54 -04:00
}
2010-11-15 23:22:40 -05:00
return false ;
2010-09-08 23:14:17 -04:00
}}
2010-09-27 20:16:52 -04:00
// Check $url against our list of allowed sites,
// wildcards allowed. If allowed_sites is unset return true;
// If url is allowed, return true.
// otherwise, return false
2010-09-13 20:12:54 -04:00
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 ;
}}
2010-09-08 23:14:17 -04:00
2010-09-27 20:16:52 -04:00
// check if email address is allowed to register here.
// Compare against our list (wildcards allowed).
// Returns false if not allowed, true if allowed or if
// allowed list is not configured.
2010-09-23 18:36:21 -04:00
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 ;
}}
2010-09-27 20:16:52 -04:00
// 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
2010-09-23 18:36:21 -04:00
2010-09-17 06:10:19 -04:00
if ( ! function_exists ( 'format_like' )) {
function format_like ( $cnt , $arr , $type , $id ) {
2010-10-30 16:25:37 -04:00
$o = '' ;
2010-09-17 06:10:19 -04:00
if ( $cnt == 1 )
2010-09-26 20:24:20 -04:00
$o .= $arr [ 0 ] . (( $type === 'like' ) ? t ( ' likes this.' ) : t ( ' doesn\'t like this.' )) . EOL ;
2010-09-17 06:10:19 -04:00
else {
$o .= '<span class="fakelink" onclick="openClose(\'' . $type . 'list-' . $id . '\');" >'
2010-09-26 20:24:20 -04:00
. $cnt . ' ' . t ( 'people' ) . '</span> ' . (( $type === 'like' ) ? t ( 'like this.' ) : t ( 'don\'t like this.' )) . EOL ;
2010-09-17 06:10:19 -04:00
$total = count ( $arr );
2010-10-12 20:11:06 -04:00
if ( $total >= MAX_LIKERS )
$arr = array_slice ( $arr , 0 , MAX_LIKERS - 1 );
if ( $total < MAX_LIKERS )
2010-09-17 06:10:19 -04:00
$arr [ count ( $arr ) - 1 ] = t ( 'and' ) . ' ' . $arr [ count ( $arr ) - 1 ];
$str = implode ( ', ' , $arr );
2010-10-12 20:11:06 -04:00
if ( $total >= MAX_LIKERS )
$str .= t ( ', and ' ) . $total - MAX_LIKERS . t ( ' other people' );
2010-09-26 20:24:20 -04:00
$str .= (( $type === 'like' ) ? t ( ' like this.' ) : t ( ' don\'t like this.' ));
2010-10-19 19:09:10 -04:00
$o .= " \t " . '<div id="' . $type . 'list-' . $id . '" style="display: none;" >' . $str . '</div>' ;
2010-09-17 06:10:19 -04:00
}
return $o ;
}}
2010-09-27 20:16:52 -04:00
// wrapper to load a view template, checking for alternate
// languages before falling back to the default
2010-09-22 21:00:19 -04:00
if ( ! function_exists ( 'load_view_file' )) {
function load_view_file ( $s ) {
$b = basename ( $s );
$d = dirname ( $s );
$lang = get_config ( 'system' , 'language' );
2010-11-16 00:22:22 -05:00
if ( $lang === false )
$lang = 'en' ;
if ( file_exists ( " $d / $lang / $b " ))
2010-09-22 21:00:19 -04:00
return file_get_contents ( " $d / $lang / $b " );
return file_get_contents ( $s );
2010-10-19 18:51:56 -04:00
}}
2010-10-26 00:52:30 -04:00
// 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'.
// you can't use a normal sub string search because you
// might match 'notclass3' and a regex to do the job is
// possible but a bit complicated.
// pass the attribute string as $attr and the attribute you
// are looking for as $s - returns true if found, otherwise false
if ( ! function_exists ( 'attribute_contains' )) {
function attribute_contains ( $attr , $s ) {
$a = explode ( ' ' , $attr );
if ( count ( $a ) && in_array ( $s , $a ))
return true ;
return false ;
}}
2010-10-19 18:51:56 -04:00
2010-10-27 01:09:13 -04:00
if ( ! function_exists ( 'logger' )) {
2010-11-01 20:56:36 -04:00
function logger ( $msg , $level = 0 ) {
2010-10-27 01:09:13 -04:00
$debugging = get_config ( 'system' , 'debugging' );
2010-11-01 20:56:36 -04:00
$loglevel = intval ( get_config ( 'system' , 'loglevel' ));
2010-10-27 01:09:13 -04:00
$logfile = get_config ( 'system' , 'logfile' );
2010-11-01 20:56:36 -04:00
if (( ! $debugging ) || ( ! $logfile ) || ( $level > $loglevel ))
2010-10-27 01:09:13 -04:00
return ;
@ file_put_contents ( $logfile , datetime_convert () . ':' . session_id () . ' ' . $msg . " \n " , FILE_APPEND );
return ;
}}
2010-10-27 18:50:44 -04:00
if ( ! function_exists ( 'activity_match' )) {
function activity_match ( $haystack , $needle ) {
2010-10-30 07:59:10 -04:00
if (( $haystack === $needle ) || (( basename ( $needle ) === $haystack ) && strstr ( $needle , NAMESPACE_ACTIVITY_SCHEMA )))
2010-10-27 18:50:44 -04:00
return true ;
return false ;
2010-10-28 19:05:09 -04:00
}}
2010-10-28 23:11:50 -04:00
// Pull out all #hashtags and @person tags from $s;
// We also get @person@domain.com - which would make
// the regex quite complicated as tags can also
// end a sentence. So we'll run through our results
// and strip the period from any tags which end with one.
// Returns array of tags found, or empty array.
2010-10-28 19:05:09 -04:00
if ( ! function_exists ( 'get_tags' )) {
function get_tags ( $s ) {
2010-10-28 21:18:20 -04:00
$ret = array ();
2011-01-23 19:29:30 -05:00
// ignore anything in a code block
$s = preg_replace ( '/\[code\](.*?)\[\/code\]/sm' , '' , $s );
2011-01-28 00:24:21 -05:00
if ( preg_match_all ( '/([@#][^ \x0D\x0A,:?]+)([ \x0D\x0A,:?]|$)/' , $s , $match )) {
2010-10-28 21:18:20 -04:00
foreach ( $match [ 1 ] as $match ) {
2010-11-24 21:37:10 -05:00
if ( strstr ( $match , " ] " )) {
// we might be inside a bbcode color tag - leave it alone
2010-11-24 20:21:31 -05:00
continue ;
2010-11-24 21:37:10 -05:00
}
2010-10-28 21:18:20 -04:00
if ( substr ( $match , - 1 , 1 ) === '.' )
$ret [] = substr ( $match , 0 , - 1 );
else
$ret [] = $match ;
}
}
return $ret ;
2010-10-28 19:05:09 -04:00
}}
2010-10-28 23:11:50 -04:00
// quick and dirty quoted_printable encoding
2010-10-28 19:05:09 -04:00
if ( ! function_exists ( 'qp' )) {
function qp ( $s ) {
return str_replace ( " % " , " = " , rawurlencode ( $s ));
}}
2010-10-31 19:38:22 -04:00
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' ])) {
2010-11-19 17:28:28 -05:00
$url = $item [ 'author-link' ];
2011-02-15 05:30:01 -05:00
if (( local_user ()) && ( local_user () == $item [ 'uid' ]) && ( $item [ 'network' ] === 'dfrn' ) && ( ! $item [ 'self' ]) && ( link_compare ( $item [ 'author-link' ], $item [ 'url' ]))) {
2010-11-20 02:59:23 -05:00
$url = $a -> get_baseurl () . '/redir/' . $item [ 'contact-id' ];
$sparkle = ' class="sparkle" ' ;
}
2010-10-31 19:38:22 -04:00
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' ]] ++ ;
2010-11-19 17:28:28 -05:00
$arr [ $item [ 'parent' ] . '-l' ][] = '<a href="' . $url . '"' . $sparkle . '>' . $item [ 'author-name' ] . '</a>' ;
2010-10-31 19:38:22 -04:00
}
return ;
}}
2010-11-05 08:01:54 -04:00
if ( ! function_exists ( 'get_mentions' )) {
2010-11-01 00:57:30 -04:00
function get_mentions ( $item ) {
$o = '' ;
if ( ! strlen ( $item [ 'tag' ]))
return $o ;
$arr = explode ( ',' , $item [ 'tag' ]);
foreach ( $arr as $x ) {
$matches = null ;
if ( preg_match ( '/@\[url=([^\]]*)\]/' , $x , $matches ))
$o .= " \t \t " . '<link rel="mentioned" href="' . $matches [ 1 ] . '" />' . " \r \n " ;
}
return $o ;
2010-11-05 08:01:54 -04:00
}}
if ( ! function_exists ( 'contact_block' )) {
function contact_block () {
$o = '' ;
$a = get_app ();
2010-12-26 18:48:44 -05:00
$shown = get_pconfig ( $a -> profile [ 'uid' ], 'system' , 'display_friend_count' );
if ( ! $shown )
$shown = 24 ;
2010-11-05 08:01:54 -04:00
if (( ! is_array ( $a -> profile )) || ( $a -> profile [ 'hide-friends' ]))
return $o ;
2010-11-08 05:45:22 -05:00
$r = q ( " SELECT COUNT(*) AS `total` FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0 " ,
2010-11-05 08:01:54 -04:00
intval ( $a -> profile [ 'uid' ])
);
if ( count ( $r )) {
$total = intval ( $r [ 0 ][ 'total' ]);
}
if ( ! $total ) {
$o .= '<h4 class="contact-h4">' . t ( 'No contacts' ) . '</h4>' ;
return $o ;
}
2010-12-26 18:48:44 -05:00
$r = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0 ORDER BY RAND() LIMIT %d " ,
intval ( $a -> profile [ 'uid' ]),
intval ( $shown )
2010-11-05 08:01:54 -04:00
);
if ( count ( $r )) {
$o .= '<h4 class="contact-h4">' . $total . ' ' . t ( 'Contacts' ) . '</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 " ;
}
2010-11-05 08:14:13 -04:00
$o .= '</div><div id="contact-block-end"></div>' ;
2010-11-07 06:46:14 -05:00
$o .= '<div id="viewcontacts"><a id="viewcontacts-link" href="viewcontacts/' . $a -> profile [ 'nickname' ] . '">' . t ( 'View Contacts' ) . '</a></div>' ;
2010-11-05 08:01:54 -04:00
}
2010-12-22 23:23:41 -05:00
2010-12-26 18:48:44 -05:00
$arr = array ( 'contacts' => $r , 'output' => $o );
call_hooks ( 'contact_block_end' , $arr );
2010-11-05 08:01:54 -04:00
return $o ;
}}
2010-11-08 20:30:00 -05:00
if ( ! function_exists ( 'search' )) {
function search ( $s ) {
$a = get_app ();
$o = '<div id="search-box">' ;
$o .= '<form action="' . $a -> get_baseurl () . '/search' . '" method="get" >' ;
$o .= '<input type="text" name="search" id="search-text" value="' . $s . '" />' ;
$o .= '<input type="submit" name="submit" id="search-submit" value="' . t ( 'Search' ) . '" />' ;
$o .= '</form></div>' ;
return $o ;
}}
2010-11-14 03:32:31 -05:00
if ( ! function_exists ( 'valid_email' )) {
function valid_email ( $x ){
if ( preg_match ( '/^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$/' , $x ))
return true ;
return false ;
}}
2010-11-15 19:49:27 -05:00
if ( ! function_exists ( 'gravatar_img' )) {
function gravatar_img ( $email ) {
$size = 175 ;
$opt = 'identicon' ; // psuedo-random geometric pattern if not found
$rating = 'pg' ;
$hash = md5 ( trim ( strtolower ( $email )));
$url = 'http://www.gravatar.com/avatar/' . $hash . '.jpg'
. '?s=' . $size . '&d=' . $opt . '&r=' . $rating ;
logger ( 'gravatar: ' . $email . ' ' . $url );
return $url ;
}}
2010-11-30 21:32:34 -05:00
if ( ! function_exists ( 'aes_decrypt' )) {
function aes_decrypt ( $val , $ky )
{
$key = " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 " ;
for ( $a = 0 ; $a < strlen ( $ky ); $a ++ )
$key [ $a % 16 ] = chr ( ord ( $key [ $a % 16 ]) ^ ord ( $ky [ $a ]));
$mode = MCRYPT_MODE_ECB ;
$enc = MCRYPT_RIJNDAEL_128 ;
$dec = @ mcrypt_decrypt ( $enc , $key , $val , $mode , @ mcrypt_create_iv ( @ mcrypt_get_iv_size ( $enc , $mode ), MCRYPT_DEV_URANDOM ) );
return rtrim ( $dec ,(( ord ( substr ( $dec , strlen ( $dec ) - 1 , 1 )) >= 0 and ord ( substr ( $dec , strlen ( $dec ) - 1 , 1 )) <= 16 ) ? chr ( ord ( substr ( $dec , strlen ( $dec ) - 1 , 1 ))) : null ));
}}
if ( ! function_exists ( 'aes_encrypt' )) {
function aes_encrypt ( $val , $ky )
{
$key = " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 " ;
for ( $a = 0 ; $a < strlen ( $ky ); $a ++ )
$key [ $a % 16 ] = chr ( ord ( $key [ $a % 16 ]) ^ ord ( $ky [ $a ]));
$mode = MCRYPT_MODE_ECB ;
$enc = MCRYPT_RIJNDAEL_128 ;
$val = str_pad ( $val , ( 16 * ( floor ( strlen ( $val ) / 16 ) + ( strlen ( $val ) % 16 == 0 ? 2 : 1 ))), chr ( 16 - ( strlen ( $val ) % 16 )));
return mcrypt_encrypt ( $enc , $key , $val , $mode , mcrypt_create_iv ( mcrypt_get_iv_size ( $enc , $mode ), MCRYPT_DEV_URANDOM ));
2010-12-02 00:13:09 -05:00
}}
2010-12-14 17:15:31 -05:00
/**
*
* Function : linkify
*
* Replace naked text hyperlink with HTML formatted hyperlink
*
*/
2010-12-02 00:13:09 -05:00
if ( ! function_exists ( 'linkify' )) {
function linkify ( $s ) {
2011-01-27 17:34:11 -05:00
$s = preg_replace ( " /(https? \ : \ / \ /[a-zA-Z0-9 \ : \ / \ - \ ? \ & \ . \ = \ _ \ ~ \ # \ ' \ %]*)/ " , ' <a href="$1" target="external-link">$1</a>' , $s );
2010-12-02 00:13:09 -05:00
return ( $s );
2010-12-08 20:05:51 -05:00
}}
2010-12-14 17:15:31 -05:00
/**
*
* Function : smilies
*
* Description :
* Replaces text emoticons with graphical images
*
* @ Parameter : string $s
*
* Returns string
*/
2010-12-08 20:05:51 -05:00
if ( ! function_exists ( 'smilies' )) {
function smilies ( $s ) {
$a = get_app ();
return str_replace (
2011-02-14 23:21:28 -05:00
array ( '<3' , '</3' , '<\\3' , ':-)' , ';-)' , ':-(' , ':(' , ':-P' , ':-"' , ':-x' , ':-X' , ':-D' , '8-|' , '8-O' ),
2010-12-08 20:05:51 -05:00
array (
2011-02-13 20:24:42 -05:00
'<img src="' . $a -> get_baseurl () . '/images/smiley-heart.gif" alt="<3" />' ,
2011-02-14 23:21:28 -05:00
'<img src="' . $a -> get_baseurl () . '/images/smiley-brokenheart.gif" alt="</3" />' ,
'<img src="' . $a -> get_baseurl () . '/images/smiley-brokenheart.gif" alt="<\\3" />' ,
2010-12-08 20:05:51 -05:00
'<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-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" />' ,
'<img src="' . $a -> get_baseurl () . '/images/smiley-laughing.gif" alt=":-D" />' ,
'<img src="' . $a -> get_baseurl () . '/images/smiley-surprised.gif" alt="8-|" />' ,
'<img src="' . $a -> get_baseurl () . '/images/smiley-surprised.gif" alt="8-O" />'
), $s );
2010-12-11 07:16:58 -05:00
}}
/**
*
* Function : profile_load
* @ parameter App $a
* @ parameter string $nickname
* @ parameter int $profile
*
* Summary : Loads a profile into the page sidebar .
* The function requires a writeable copy of the main App structure , and the nickname
* of a registered local account .
*
* If the viewer is an authenticated remote viewer , the profile displayed is the
* one that has been configured for his / her viewing in the Contact manager .
* Passing a non - zero profile ID can also allow a preview of a selected profile
* by the owner .
*
* Profile information is placed in the App structure for later retrieval .
* Honours the owner ' s chosen theme for display .
*
*/
if ( ! function_exists ( 'profile_load' )) {
function profile_load ( & $a , $nickname , $profile = 0 ) {
if ( remote_user ()) {
$r = q ( " SELECT `profile-id` FROM `contact` WHERE `id` = %d LIMIT 1 " ,
intval ( $_SESSION [ 'visitor_id' ]));
if ( count ( $r ))
$profile = $r [ 0 ][ 'profile-id' ];
}
$r = null ;
if ( $profile ) {
$profile_int = intval ( $profile );
$r = q ( " SELECT `profile`.`uid` AS `profile_uid`, `profile`.* , `user`.* FROM `profile`
LEFT JOIN `user` ON `profile` . `uid` = `user` . `uid`
WHERE `user` . `nickname` = '%s' AND `profile` . `id` = % d LIMIT 1 " ,
dbesc ( $nickname ),
intval ( $profile_int )
);
}
if ( ! count ( $r )) {
$r = q ( " SELECT `profile`.`uid` AS `profile_uid`, `profile`.* , `user`.* FROM `profile`
LEFT JOIN `user` ON `profile` . `uid` = `user` . `uid`
WHERE `user` . `nickname` = '%s' AND `profile` . `is-default` = 1 LIMIT 1 " ,
dbesc ( $nickname )
);
}
if (( $r === false ) || ( ! count ( $r ))) {
notice ( t ( 'No profile' ) . EOL );
$a -> error = 404 ;
return ;
}
$a -> profile = $r [ 0 ];
2011-01-03 04:20:42 -05:00
$a -> page [ 'title' ] = $a -> profile [ 'name' ] . " @ " . $a -> config [ 'sitename' ];
2010-12-11 07:16:58 -05:00
$_SESSION [ 'theme' ] = $a -> profile [ 'theme' ];
if ( ! ( x ( $a -> page , 'aside' )))
$a -> page [ 'aside' ] = '' ;
2010-12-14 17:15:31 -05:00
$a -> page [ 'aside' ] .= profile_sidebar ( $a -> profile );
2010-12-11 07:16:58 -05:00
$a -> page [ 'aside' ] .= contact_block ();
return ;
}}
2010-12-14 17:15:31 -05:00
/**
*
* Function : profile_sidebar
*
* Formats a profile for display in the sidebar .
* It is very difficult to templatise the HTML completely
* because of all the conditional logic .
*
* @ parameter : array $profile
*
* Returns HTML string stuitable for sidebar inclusion
* Exceptions : Returns empty string if passed $profile is wrong type or not populated
*
*/
if ( ! function_exists ( 'profile_sidebar' )) {
function profile_sidebar ( $profile ) {
$o = '' ;
$location = '' ;
$address = false ;
if (( ! is_array ( $profile )) && ( ! count ( $profile )))
return $o ;
2011-01-18 23:05:44 -05:00
call_hooks ( 'profile_sidebar_enter' , $profile );
2010-12-14 17:15:31 -05:00
$fullname = '<div class="fn">' . $profile [ 'name' ] . '</div>' ;
2011-01-18 22:25:28 -05:00
$pdesc = '<div class="title">' . $profile [ 'pdesc' ] . '</div>' ;
2010-12-14 17:15:31 -05:00
$tabs = '' ;
2011-02-11 21:46:54 -05:00
$photo = '<div id="profile-photo-wrapper"><img class="photo" src="' . $profile [ 'photo' ] . '" alt="' . $profile [ 'name' ] . '" /></div>' ;
2010-12-14 17:15:31 -05:00
$connect = (( $profile [ 'uid' ] != local_user ()) ? '<li><a id="dfrn-request-link" href="dfrn_request/' . $profile [ 'nickname' ] . '">' . t ( 'Connect' ) . '</a></li>' : '' );
if (( x ( $profile , 'address' ) == 1 )
|| ( x ( $profile , 'locality' ) == 1 )
|| ( x ( $profile , 'region' ) == 1 )
|| ( x ( $profile , 'postal-code' ) == 1 )
|| ( x ( $profile , 'country-name' ) == 1 ))
$address = true ;
if ( $address ) {
$location .= '<div class="location"><span class="location-label">' . t ( 'Location:' ) . '</span> <div class="adr">' ;
$location .= (( x ( $profile , 'address' ) == 1 ) ? '<div class="street-address">' . $profile [ 'address' ] . '</div>' : '' );
$location .= ((( x ( $profile , 'locality' ) == 1 ) || ( x ( $profile , 'region' ) == 1 ) || ( x ( $profile , 'postal-code' ) == 1 ))
? '<span class="city-state-zip"><span class="locality">' . $profile [ 'locality' ] . '</span>'
. (( x ( $profile [ 'locality' ]) == 1 ) ? t ( ', ' ) : '' )
. '<span class="region">' . $profile [ 'region' ] . '</span>'
. ' <span class="postal-code">' . $profile [ 'postal-code' ] . '</span></span>' : '' );
$location .= (( x ( $profile , 'country-name' ) == 1 ) ? ' <span class="country-name">' . $profile [ 'country-name' ] . '</span>' : '' );
$location .= '</div></div><div class="profile-clear"></div>' ;
}
$gender = (( x ( $profile , 'gender' ) == 1 ) ? '<div class="mf"><span class="gender-label">' . t ( 'Gender:' ) . '</span> <span class="x-gender">' . $profile [ 'gender' ] . '</span></div><div class="profile-clear"></div>' : '' );
2010-12-20 17:21:12 -05:00
$pubkey = (( x ( $profile , 'pubkey' ) == 1 ) ? '<div class="key" style="display:none;">' . $profile [ 'pubkey' ] . '</div>' : '' );
2010-12-14 17:15:31 -05:00
$marital = (( x ( $profile , 'marital' ) == 1 ) ? '<div class="marital"><span class="marital-label"><span class="heart">♥</span> ' . t ( 'Status:' ) . ' </span><span class="marital-text">' . $profile [ 'marital' ] . '</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><div class="profile-clear"></div>' : '' );
$tpl = load_view_file ( 'view/profile_vcard.tpl' );
$o .= replace_macros ( $tpl , array (
'$fullname' => $fullname ,
2011-01-18 22:25:28 -05:00
'$pdesc' => $pdesc ,
2010-12-14 17:15:31 -05:00
'$tabs' => $tabs ,
'$photo' => $photo ,
'$connect' => $connect ,
'$location' => $location ,
'$gender' => $gender ,
'$pubkey' => $pubkey ,
'$marital' => $marital ,
'$homepage' => $homepage
));
2011-01-18 23:05:44 -05:00
$arr = array ( 'profile' => $profile , 'entry' => $o );
call_hooks ( 'profile_sidebar' , $arr );
2010-12-22 23:23:41 -05:00
2010-12-14 17:15:31 -05:00
return $o ;
2010-12-20 22:38:34 -05:00
}}
if ( ! function_exists ( 'register_hook' )) {
function register_hook ( $hook , $file , $function ) {
2010-12-25 02:44:17 -05:00
$r = q ( " SELECT * FROM `hook` WHERE `hook` = '%s' AND `file` = '%s' AND `function` = '%s' LIMIT 1 " ,
2010-12-23 20:07:19 -05:00
dbesc ( $hook ),
dbesc ( $file ),
dbesc ( $function )
);
if ( count ( $r ))
return true ;
2010-12-20 22:38:34 -05:00
$r = q ( " INSERT INTO `hook` (`hook`, `file`, `function`) VALUES ( '%s', '%s', '%s' ) " ,
dbesc ( $hook ),
dbesc ( $file ),
dbesc ( $function )
);
return $r ;
}}
if ( ! function_exists ( 'unregister_hook' )) {
function unregister_hook ( $hook , $file , $function ) {
$r = q ( " DELETE FROM `hook` WHERE `hook` = '%s' AND `file` = '%s' AND `function` = '%s' LIMIT 1 " ,
dbesc ( $hook ),
dbesc ( $file ),
dbesc ( $function )
);
return $r ;
}}
if ( ! function_exists ( 'load_hooks' )) {
function load_hooks () {
$a = get_app ();
2011-02-11 05:35:19 -05:00
$a -> hooks = array ();
2010-12-20 22:38:34 -05:00
$r = q ( " SELECT * FROM `hook` WHERE 1 " );
if ( count ( $r )) {
foreach ( $r as $rr ) {
$a -> hooks [] = array ( $rr [ 'hook' ], $rr [ 'file' ], $rr [ 'function' ]);
}
}
}}
if ( ! function_exists ( 'call_hooks' )) {
2010-12-23 20:07:19 -05:00
function call_hooks ( $name , & $data = null ) {
2010-12-20 22:38:34 -05:00
$a = get_app ();
if ( count ( $a -> hooks )) {
foreach ( $a -> hooks as $hook ) {
2010-12-22 17:16:22 -05:00
if ( $hook [ HOOK_HOOK ] === $name ) {
@ include_once ( $hook [ HOOK_FILE ]);
if ( function_exists ( $hook [ HOOK_FUNCTION ])) {
$func = $hook [ HOOK_FUNCTION ];
2010-12-20 22:38:34 -05:00
$func ( $a , $data );
}
}
}
}
}}
2011-01-13 23:28:33 -05:00
if ( ! function_exists ( 'day_translate' )) {
function day_translate ( $s ) {
$ret = str_replace ( array ( 'Monday' , 'Tuesday' , 'Wednesday' , 'Thursday' , 'Friday' , 'Saturday' , 'Sunday' ),
array ( t ( 'Monday' ), t ( 'Tuesday' ), t ( 'Wednesday' ), t ( 'Thursday' ), t ( 'Friday' ), t ( 'Saturday' ), t ( 'Sunday' )),
$s );
$ret = str_replace ( array ( 'January' , 'February' , 'March' , 'April' , 'May' , 'June' , 'July' , 'August' , 'September' , 'October' , 'November' , 'December' ),
array ( t ( 'January' ), t ( 'February' ), t ( 'March' ), t ( 'April' ), t ( 'May' ), t ( 'June' ), t ( 'July' ), t ( 'August' ), t ( 'September' ), t ( 'October' ), t ( 'November' ), t ( 'December' )),
$ret );
return $ret ;
}}
if ( ! function_exists ( 'get_birthdays' )) {
function get_birthdays () {
$a = get_app ();
$o = '' ;
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
$r = q ( " SELECT `event`.*, `event`.`id` AS `eid`, `contact`.* FROM `event`
LEFT JOIN `contact` ON `contact` . `id` = `event` . `cid`
WHERE `event` . `uid` = % d AND `type` = 'birthday' AND `start` < '%s' AND `finish` > '%s'
ORDER BY `start` DESC " ,
intval ( local_user ()),
dbesc ( datetime_convert ( 'UTC' , 'UTC' , 'now + 6 days' )),
dbesc ( datetime_convert ( 'UTC' , 'UTC' , 'now' ))
);
if ( $r && count ( $r )) {
$o .= '<div id="birthday-wrapper"><div id="birthday-title">' . t ( 'Birthdays this week:' ) . '</div>' ;
$o .= '<div id="birthday-adjust">' . t ( " \x28 Adjusted for local time \x29 " ) . '</div>' ;
$o .= '<div id="birthday-title-end"></div>' ;
foreach ( $r as $rr ) {
$now = strtotime ( 'now' );
2011-01-17 05:51:26 -05:00
$today = ((( strtotime ( $rr [ 'start' ] . ' +00:00' ) < $now ) && ( strtotime ( $rr [ 'finish' ] . ' +00:00' ) > $now )) ? true : false );
2011-01-13 23:28:33 -05:00
$o .= '<div class="birthday-list" id="birthday-' . $rr [ 'eid' ] . '"><a class="sparkle" href="'
. $a -> get_baseurl () . '/redir/' . $rr [ 'cid' ] . '">' . $rr [ 'name' ] . '</a> '
2011-01-16 20:56:26 -05:00
. day_translate ( datetime_convert ( 'UTC' , $a -> timezone , $rr [ 'start' ], $bd_format )) . (( $today ) ? ' ' . t ( '[today]' ) : '' )
. '</div>' ;
2011-01-13 23:28:33 -05:00
}
$o .= '</div>' ;
}
return $o ;
}}
2011-01-19 22:51:34 -05:00
/**
*
* Compare two URLs to see if they are the same , but ignore
* slight but hopefully insignificant differences such as if one
* is https and the other isn ' t , or if one is www . something and
* the other isn ' t - and also ignore case differences .
*
* Return true if the URLs match , otherwise false .
*
*/
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 )
return true ;
return false ;
}}
2011-01-25 02:08:39 -05:00
if ( ! function_exists ( 'prepare_body' )) {
function prepare_body ( $item ) {
require_once ( 'include/bbcode.php' );
$s = smilies ( bbcode ( $item [ 'body' ]));
return $s ;
2011-01-28 21:50:20 -05:00
}}
2011-01-25 02:08:39 -05:00
2011-01-24 16:00:02 -05:00
/**
*
* 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 " "
*/
2011-01-25 02:08:39 -05:00
2011-01-24 16:00:02 -05:00
if ( ! function_exists ( 'run_proc' )) {
function proc_run ( $cmd ){
$args = func_get_args ();
2011-01-28 08:01:50 -05:00
call_hooks ( " proc_run " , $args );
2011-01-24 16:00:02 -05:00
foreach ( $args as & $arg ){
if ( is_string ( $arg )) $arg = '"' . $arg . '"' ;
}
$cmdline = implode ( $args , " " );
proc_close ( proc_open ( $cmdline . " & " , array (), $foo ));
}}
2011-01-25 02:08:39 -05:00
2011-02-06 18:50:50 -05:00
/*
* 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 () {
$app_base_themes = array ( 'duepuntozero' , 'loozah' );
$a = get_app ();
$system_theme = (( isset ( $a -> config [ 'system' ][ 'theme' ])) ? $a -> config [ 'system' ][ 'theme' ] : '' );
$theme_name = (( x ( $_SESSION , 'theme' )) ? $_SESSION [ 'theme' ] : $system_theme );
if ( $theme_name && file_exists ( 'view/theme/' . $theme_name . '/style.css' ))
return ( $a -> get_baseurl () . '/view/theme/' . $theme_name . '/style.css' );
foreach ( $app_base_themes as $t ) {
if ( file_exists ( 'view/theme/' . $t . '/style.css' ))
return ( $a -> get_baseurl () . '/view/theme/' . $t . '/style.css' );
}
$fallback = glob ( 'view/theme/*/style.css' );
if ( count ( $fallback ))
return ( $a -> get_baseurl () . $fallback [ 0 ]);
}}
2011-02-07 01:41:07 -05:00
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 : 00 PM 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 ;
2011-02-07 20:06:04 -05:00
}}
/**
* 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 ;
}}
2011-02-16 05:07:11 -05:00
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' ) . '"><img src="' . $a -> get_baseurl () . '/images/link-icon.gif" alt="' . t ( 'link to source' ) . '" /></a></div>' : '' );
return $plink ;
}}