2011-08-01 23:51:01 +00:00
< ? php
// 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.
// 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,
2013-01-26 15:46:43 +00:00
// depending on the order in which they were declared in the array.
2011-08-01 23:51:01 +00:00
require_once ( " include/template_processor.php " );
2012-12-22 19:57:29 +00:00
require_once ( " include/friendica_smarty.php " );
2011-08-01 23:51:01 +00:00
2013-01-26 15:46:43 +00:00
if ( ! function_exists ( 'replace_macros' )) {
2013-03-27 09:11:40 +00:00
/**
* This is our template processor
*
* @ param string | FriendicaSmarty $s the string requiring macro substitution ,
* or an instance of FriendicaSmarty
* @ param array $r key value pairs ( search => replace )
* @ return string substituted string
*/
2011-08-01 23:51:01 +00:00
function replace_macros ( $s , $r ) {
2013-03-27 09:11:40 +00:00
2013-01-26 15:46:43 +00:00
$stamp1 = microtime ( true );
2012-12-22 19:57:29 +00:00
$a = get_app ();
2013-03-27 14:37:59 +00:00
$t = $a -> template_engine ();
$output = $t -> replace_macros ( $s , $r );
2013-01-26 15:46:43 +00:00
2013-01-27 12:57:44 +00:00
$a -> save_timestamp ( $stamp1 , " rendering " );
2013-01-26 15:46:43 +00:00
2012-12-22 19:57:29 +00:00
return $output ;
2011-08-01 23:51:01 +00:00
}}
2011-08-11 04:06:35 +00:00
// random string, there are 86 characters max in text mode, 128 for hex
// output is urlsafe
define ( 'RANDOM_STRING_HEX' , 0x00 );
define ( 'RANDOM_STRING_TEXT' , 0x01 );
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'random_string' )) {
2011-08-11 04:06:35 +00:00
function random_string ( $size = 64 , $type = RANDOM_STRING_HEX ) {
// generate a bit of entropy and run it through the whirlpool
$s = hash ( 'whirlpool' , ( string ) rand () . uniqid ( rand (), true ) . ( string ) rand (),(( $type == RANDOM_STRING_TEXT ) ? true : false ));
$s = (( $type == RANDOM_STRING_TEXT ) ? str_replace ( " \n " , " " , base64url_encode ( $s , true )) : $s );
return ( substr ( $s , 0 , $size ));
2011-08-01 23:51:01 +00:00
}}
2013-03-27 09:11:40 +00:00
if ( ! function_exists ( 'notags' )) {
2011-08-01 23:51:01 +00: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 .
*
2013-03-27 09:11:40 +00:00
* @ param string $string Input string
* @ return string Filtered string
2011-08-01 23:51:01 +00:00
*/
function notags ( $string ) {
return ( str_replace ( array ( " < " , " > " ), array ( '[' , ']' ), $string ));
// High-bit filter no longer used
// return(str_replace(array("<",">","\xBA","\xBC","\xBE"), array('[',']','','',''), $string));
}}
2013-03-27 09:11:40 +00:00
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'escape_tags' )) {
2013-03-27 09:11:40 +00:00
/**
* use this on " body " or " content " input where angle chars shouldn ' t be removed ,
* and allow them to be safely displayed .
* @ param string $string
* @ return string
*/
2011-08-01 23:51:01 +00:00
function escape_tags ( $string ) {
2012-08-15 12:09:44 +00:00
return ( htmlspecialchars ( $string , ENT_COMPAT , 'UTF-8' , false ));
2011-08-01 23:51:01 +00:00
}}
// generate a string that's random, but usually pronounceable.
// used to generate initial passwords
if ( ! function_exists ( 'autoname' )) {
2013-03-27 09:11:40 +00:00
/**
* generate a string that ' s random , but usually pronounceable .
* used to generate initial passwords
* @ param int $len
* @ return string
*/
2011-08-01 23:51:01 +00:00
function autoname ( $len ) {
2012-04-07 08:04:45 +00:00
if ( $len <= 0 )
2012-04-06 01:44:36 +00:00
return '' ;
2011-08-01 23:51:01 +00:00
$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 ;
}}
// escape text ($str) for XML transport
// returns escaped text.
if ( ! function_exists ( 'xmlify' )) {
2013-03-27 09:11:40 +00:00
/**
* escape text ( $str ) for XML transport
* @ param string $str
* @ return string Escaped text .
*/
2011-08-01 23:51:01 +00:00
function xmlify ( $str ) {
2013-02-07 05:30:27 +00:00
/* $buffer = '' ;
2011-08-01 23:51:01 +00:00
2013-02-06 07:37:15 +00:00
$len = mb_strlen ( $str );
for ( $x = 0 ; $x < $len ; $x ++ ) {
$char = mb_substr ( $str , $x , 1 );
2011-08-01 23:51:01 +00:00
switch ( $char ) {
case " \r " :
break ;
case " & " :
$buffer .= '&' ;
break ;
case " ' " :
$buffer .= ''' ;
break ;
case " \" " :
$buffer .= '"' ;
break ;
case '<' :
$buffer .= '<' ;
break ;
case '>' :
$buffer .= '>' ;
break ;
case " \n " :
$buffer .= " \n " ;
break ;
default :
$buffer .= $char ;
break ;
}
2013-02-07 05:30:27 +00:00
} */
$buffer = mb_ereg_replace ( " & " , " & " , $str );
$buffer = mb_ereg_replace ( " ' " , " ' " , $buffer );
$buffer = mb_ereg_replace ( " \" " , " " " , $buffer );
$buffer = mb_ereg_replace ( " < " , " < " , $buffer );
$buffer = mb_ereg_replace ( " > " , " > " , $buffer );
2011-08-01 23:51:01 +00:00
$buffer = trim ( $buffer );
return ( $buffer );
}}
if ( ! function_exists ( 'unxmlify' )) {
2013-03-27 09:11:40 +00:00
/**
* undo an xmlify
* @ param string $s xml escaped text
* @ return string unescaped text
*/
2011-08-01 23:51:01 +00:00
function unxmlify ( $s ) {
2013-02-07 05:30:27 +00:00
// $ret = str_replace('&','&', $s);
// $ret = str_replace(array('<','>','"','''),array('<','>','"',"'"),$ret);
$ret = mb_ereg_replace ( '&' , '&' , $s );
$ret = mb_ereg_replace ( ''' , " ' " , $ret );
$ret = mb_ereg_replace ( '"' , '"' , $ret );
$ret = mb_ereg_replace ( '<' , " < " , $ret );
$ret = mb_ereg_replace ( '>' , " > " , $ret );
2011-08-01 23:51:01 +00:00
return $ret ;
}}
if ( ! function_exists ( 'hex2bin' )) {
2013-03-27 09:11:40 +00:00
/**
* convenience wrapper , reverse the operation " bin2hex "
* @ param string $s
* @ return number
*/
2011-08-01 23:51:01 +00:00
function hex2bin ( $s ) {
2011-10-21 02:11:34 +00:00
if ( ! ( is_string ( $s ) && strlen ( $s )))
return '' ;
2011-08-01 23:51:01 +00:00
if ( ! ctype_xdigit ( $s )) {
return ( $s );
}
return ( pack ( " H* " , $s ));
}}
2013-03-27 09:11:40 +00:00
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'paginate' )) {
2013-03-27 09:11:40 +00: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 .
*
* @ param App $a App instance
* @ return string html for pagination #FIXME remove html
*/
2011-08-01 23:51:01 +00:00
function paginate ( & $a ) {
$o = '' ;
$stripped = preg_replace ( '/(&page=[0-9]*)/' , '' , $a -> query_string );
2012-04-02 07:45:45 +00:00
// $stripped = preg_replace('/&zrl=(.*?)([\?&]|$)/ism','',$stripped);
2011-08-01 23:51:01 +00:00
$stripped = str_replace ( 'q=' , '' , $stripped );
$stripped = trim ( $stripped , '/' );
$pagenum = $a -> pager [ 'page' ];
$url = $a -> get_baseurl () . '/' . $stripped ;
if ( $a -> pager [ 'total' ] > $a -> pager [ 'itemspage' ]) {
$o .= '<div class="pager">' ;
if ( $a -> pager [ 'page' ] != 1 )
$o .= '<span class="pager_prev">' . " <a href= \" $url " . '&page=' . ( $a -> pager [ 'page' ] - 1 ) . '">' . t ( 'prev' ) . '</a></span> ' ;
$o .= " <span class= \" pager_first \" ><a href= \" $url " . " &page=1 \" > " . t ( 'first' ) . " </a></span> " ;
$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 ++ ){
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> ' ;
}
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 );
$o .= " <span class= \" pager_last \" ><a href= \" $url " . " &page= $lastpage\ " > " . t('last') . " </ a ></ span > " ;
if (( $a -> pager [ 'total' ] - ( $a -> pager [ 'itemspage' ] * $a -> pager [ 'page' ])) > 0 )
$o .= '<span class="pager_next">' . " <a href= \" $url " . " &page= " . ( $a -> pager [ 'page' ] + 1 ) . '">' . t ( 'next' ) . '</a></span>' ;
$o .= '</div>' . " \r \n " ;
}
return $o ;
}}
2012-07-14 18:21:58 +00:00
if ( ! function_exists ( 'alt_pager' )) {
2013-03-27 09:11:40 +00:00
/**
* Alternative pager
* @ param App $a App instance
* @ param int $i
* @ return string html for pagination #FIXME remove html
*/
2012-07-14 18:21:58 +00:00
function alt_pager ( & $a , $i ) {
$o = '' ;
$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 ;
$o .= '<div class="pager">' ;
if ( $a -> pager [ 'page' ] > 1 )
2012-12-17 20:12:11 +00:00
$o .= " <a href= \" $url " . " &page= " . ( $a -> pager [ 'page' ] - 1 ) . '" class="pager_newer">' . t ( 'newer' ) . '</a>' ;
2012-07-14 18:21:58 +00:00
if ( $i > 0 ) {
if ( $a -> pager [ 'page' ] > 1 )
$o .= " - " ;
2012-12-17 20:12:11 +00:00
$o .= " <a href= \" $url " . " &page= " . ( $a -> pager [ 'page' ] + 1 ) . '" class="pager_older">' . t ( 'older' ) . '</a>' ;
2012-07-14 18:21:58 +00:00
}
$o .= '</div>' . " \r \n " ;
return $o ;
}}
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'expand_acl' )) {
2013-03-27 09:11:40 +00:00
/**
* Turn user / group ACLs stored as angle bracketed text into arrays
*
* @ param string $s
* @ return array
*/
2011-08-01 23:51:01 +00:00
function expand_acl ( $s ) {
// turn string array of angle-bracketed elements into numeric array
// e.g. "<1><2><3>" => array(1,2,3);
$ret = array ();
if ( strlen ( $s )) {
$t = str_replace ( '<' , '' , $s );
$a = explode ( '>' , $t );
foreach ( $a as $aa ) {
if ( intval ( $aa ))
$ret [] = intval ( $aa );
}
}
return $ret ;
}}
if ( ! function_exists ( 'sanitise_acl' )) {
2013-03-27 09:11:40 +00:00
/**
* Wrap ACL elements in angle brackets for storage
* @ param string $item
*/
2011-08-01 23:51:01 +00:00
function sanitise_acl ( & $item ) {
if ( intval ( $item ))
$item = '<' . intval ( notags ( trim ( $item ))) . '>' ;
else
unset ( $item );
}}
if ( ! function_exists ( 'perms2str' )) {
2013-03-27 09:11:40 +00:00
/**
* Convert an ACL array to a storable string
*
* Normally ACL permissions will be an array .
* We ' ll also allow a comma - separated string .
*
* @ param string | array $p
* @ return string
*/
2011-08-01 23:51:01 +00:00
function perms2str ( $p ) {
$ret = '' ;
2012-11-11 21:56:21 +00:00
if ( is_array ( $p ))
$tmp = $p ;
else
$tmp = explode ( ',' , $p );
2011-08-01 23:51:01 +00:00
if ( is_array ( $tmp )) {
array_walk ( $tmp , 'sanitise_acl' );
$ret = implode ( '' , $tmp );
}
return $ret ;
}}
if ( ! function_exists ( 'item_new_uri' )) {
2013-03-27 09:11:40 +00:00
/**
* generate a guaranteed unique ( for this domain ) item ID for ATOM
* safe from birthday paradox
*
* @ param string $hostname
* @ param int $uid
* @ return string
*/
2011-08-01 23:51:01 +00:00
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 ;
}}
// Generate a guaranteed unique photo ID.
// safe from birthday paradox
if ( ! function_exists ( 'photo_new_resource' )) {
2013-03-27 09:11:40 +00:00
/**
* Generate a guaranteed unique photo ID .
* safe from birthday paradox
*
* @ return string
*/
2011-08-01 23:51:01 +00:00
function photo_new_resource () {
do {
$found = false ;
$resource = hash ( 'md5' , uniqid ( mt_rand (), true ));
$r = q ( " SELECT `id` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1 " ,
dbesc ( $resource )
);
if ( count ( $r ))
$found = true ;
} while ( $found == true );
return $resource ;
}}
if ( ! function_exists ( 'load_view_file' )) {
2013-03-27 09:11:40 +00:00
/**
* @ deprecated
* wrapper to load a view template , checking for alternate
* languages before falling back to the default
*
* @ global string $lang
* @ global App $a
* @ param string $s view name
* @ return string
*/
2011-08-01 23:51:01 +00:00
function load_view_file ( $s ) {
global $lang , $a ;
if ( ! isset ( $lang ))
$lang = 'en' ;
$b = basename ( $s );
$d = dirname ( $s );
2013-01-26 17:35:39 +00:00
if ( file_exists ( " $d / $lang / $b " )) {
$stamp1 = microtime ( true );
$content = file_get_contents ( " $d / $lang / $b " );
$a -> save_timestamp ( $stamp1 , " file " );
return $content ;
}
2013-01-26 15:46:43 +00:00
2011-08-01 23:51:01 +00:00
$theme = current_theme ();
2012-07-24 02:37:00 +00:00
2013-01-26 17:35:39 +00:00
if ( file_exists ( " $d /theme/ $theme / $b " )) {
$stamp1 = microtime ( true );
$content = file_get_contents ( " $d /theme/ $theme / $b " );
$a -> save_timestamp ( $stamp1 , " file " );
return $content ;
}
2013-01-26 15:46:43 +00:00
2013-01-26 17:35:39 +00:00
$stamp1 = microtime ( true );
$content = file_get_contents ( $s );
$a -> save_timestamp ( $stamp1 , " file " );
return $content ;
2011-08-01 23:51:01 +00:00
}}
if ( ! function_exists ( 'get_intltext_template' )) {
2013-03-27 09:11:40 +00:00
/**
* load a view template , checking for alternate
* languages before falling back to the default
*
* @ global string $lang
* @ param string $s view path
* @ return string
*/
2011-08-01 23:51:01 +00:00
function get_intltext_template ( $s ) {
global $lang ;
2012-12-22 19:57:29 +00:00
$a = get_app ();
$engine = '' ;
if ( $a -> theme [ 'template_engine' ] === 'smarty3' )
$engine = " /smarty3 " ;
2011-08-01 23:51:01 +00:00
if ( ! isset ( $lang ))
$lang = 'en' ;
2013-01-26 17:35:39 +00:00
if ( file_exists ( " view/ $lang $engine / $s " )) {
$stamp1 = microtime ( true );
$content = file_get_contents ( " view/ $lang $engine / $s " );
$a -> save_timestamp ( $stamp1 , " file " );
return $content ;
} elseif ( file_exists ( " view/en $engine / $s " )) {
$stamp1 = microtime ( true );
$content = file_get_contents ( " view/en $engine / $s " );
$a -> save_timestamp ( $stamp1 , " file " );
return $content ;
} else {
$stamp1 = microtime ( true );
$content = file_get_contents ( " view $engine / $s " );
$a -> save_timestamp ( $stamp1 , " file " );
return $content ;
}
2011-08-01 23:51:01 +00:00
}}
if ( ! function_exists ( 'get_markup_template' )) {
2013-03-27 09:11:40 +00:00
/**
* load template $s
*
* @ param string $s
* @ param string $root
* @ return string
*/
2012-12-22 19:57:29 +00:00
function get_markup_template ( $s , $root = '' ) {
2013-01-26 15:46:43 +00:00
$stamp1 = microtime ( true );
2012-12-22 19:57:29 +00:00
$a = get_app ();
2013-03-27 14:37:59 +00:00
$t = $a -> template_engine ();
$template = $t -> get_template_file ( $s , $root );
$a -> save_timestamp ( $stamp1 , " file " );
return $template ;
/*
2012-12-22 19:57:29 +00:00
if ( $a -> theme [ 'template_engine' ] === 'smarty3' ) {
$template_file = get_template_file ( $a , 'smarty3/' . $s , $root );
$template = new FriendicaSmarty ();
$template -> filename = $template_file ;
2013-01-26 17:35:39 +00:00
$a -> save_timestamp ( $stamp1 , " rendering " );
2013-01-26 15:46:43 +00:00
2012-12-22 19:57:29 +00:00
return $template ;
}
else {
$template_file = get_template_file ( $a , $s , $root );
2013-01-26 17:35:39 +00:00
$a -> save_timestamp ( $stamp1 , " rendering " );
2013-01-26 15:46:43 +00:00
2013-01-26 17:35:39 +00:00
$stamp1 = microtime ( true );
$content = file_get_contents ( $template_file );
$a -> save_timestamp ( $stamp1 , " file " );
return $content ;
2013-01-26 15:46:43 +00:00
}
2013-03-27 14:37:59 +00:00
*/
2012-12-22 19:57:29 +00:00
}}
if ( ! function_exists ( " get_template_file " )) {
2013-03-27 09:11:40 +00:00
/**
*
* @ param App $a
* @ param string $filename
* @ param string $root
* @ return string
*/
2012-12-22 19:57:29 +00:00
function get_template_file ( $a , $filename , $root = '' ) {
2011-08-01 23:51:01 +00:00
$theme = current_theme ();
2012-12-22 19:57:29 +00:00
// Make sure $root ends with a slash /
if ( $root !== '' && $root [ strlen ( $root ) - 1 ] !== '/' )
$root = $root . '/' ;
2013-01-12 12:58:54 +00:00
if ( file_exists ( " { $root } view/theme/ $theme / $filename " ))
$template_file = " { $root } view/theme/ $theme / $filename " ;
elseif ( x ( $a -> theme_info , " extends " ) && file_exists ( " { $root } view/theme/ { $a -> theme_info [ " extends " ] } / $filename " ))
$template_file = " { $root } view/theme/ { $a -> theme_info [ " extends " ] } / $filename " ;
2011-08-01 23:51:01 +00:00
else
2013-01-12 12:58:54 +00:00
$template_file = " { $root } view/ $filename " ;
2011-08-01 23:51:01 +00:00
2012-12-22 19:57:29 +00:00
return $template_file ;
}}
2011-08-01 23:51:01 +00:00
2013-03-27 09:11:40 +00:00
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'attribute_contains' )) {
2013-03-27 09:11:40 +00: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
*
* @ param string $attr attribute value
* @ param string $s string to search
* @ return boolean True if found , False otherwise
*/
2011-08-01 23:51:01 +00:00
function attribute_contains ( $attr , $s ) {
$a = explode ( ' ' , $attr );
if ( count ( $a ) && in_array ( $s , $a ))
return true ;
return false ;
}}
if ( ! function_exists ( 'logger' )) {
2013-03-27 09:11:40 +00:00
/**
* log levels :
* LOGGER_NORMAL ( default )
* LOGGER_TRACE
* LOGGER_DEBUG
* LOGGER_DATA
* LOGGER_ALL
*
* @ global App $a
* @ global dba $db
* @ param string $msg
* @ param int $level
*/
2011-08-01 23:51:01 +00:00
function logger ( $msg , $level = 0 ) {
2012-01-02 19:11:06 +00:00
// turn off logger in install mode
global $a ;
2012-02-12 22:18:32 +00:00
global $db ;
if (( $a -> module == 'install' ) || ( ! ( $db && $db -> connected ))) return ;
2011-08-01 23:51:01 +00:00
$debugging = get_config ( 'system' , 'debugging' );
$loglevel = intval ( get_config ( 'system' , 'loglevel' ));
$logfile = get_config ( 'system' , 'logfile' );
if (( ! $debugging ) || ( ! $logfile ) || ( $level > $loglevel ))
return ;
2013-01-26 17:35:39 +00:00
$stamp1 = microtime ( true );
2011-08-01 23:51:01 +00:00
@ file_put_contents ( $logfile , datetime_convert () . ':' . session_id () . ' ' . $msg . " \n " , FILE_APPEND );
2013-01-26 17:35:39 +00:00
$a -> save_timestamp ( $stamp1 , " file " );
2011-08-01 23:51:01 +00:00
return ;
}}
if ( ! function_exists ( 'activity_match' )) {
2013-03-27 09:11:40 +00:00
/**
* Compare activity uri . Knows about activity namespace .
*
* @ param string $haystack
* @ param string $needle
* @ return boolean
*/
2011-08-01 23:51:01 +00:00
function activity_match ( $haystack , $needle ) {
if (( $haystack === $needle ) || (( basename ( $needle ) === $haystack ) && strstr ( $needle , NAMESPACE_ACTIVITY_SCHEMA )))
return true ;
return false ;
}}
if ( ! function_exists ( 'get_tags' )) {
2013-03-27 09:11:40 +00: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 .
*
* @ param string $s
* @ return array
*/
2011-08-01 23:51:01 +00:00
function get_tags ( $s ) {
$ret = array ();
// ignore anything in a code block
$s = preg_replace ( '/\[code\](.*?)\[\/code\]/sm' , '' , $s );
2013-01-13 16:13:01 +00:00
// Force line feeds at bbtags
$s = str_replace ( array ( " [ " , " ] " ), array ( " \n [ " , " ] \n " ), $s );
2012-08-07 02:50:57 +00:00
2013-01-13 16:13:01 +00:00
// ignore anything in a bbtag
2012-08-07 02:50:57 +00:00
$s = preg_replace ( '/\[(.*?)\]/sm' , '' , $s );
2011-08-01 23:51:01 +00:00
// Match full names against @tags including the space between first and last
// We will look these up afterward to see if they are full names or not recognisable.
2011-11-03 04:07:17 +00:00
if ( preg_match_all ( '/(@[^ \x0D\x0A,:?]+ [^ \x0D\x0A@,:?]+)([ \x0D\x0A@,:?]|$)/' , $s , $match )) {
2011-08-01 23:51:01 +00:00
foreach ( $match [ 1 ] as $mtch ) {
if ( strstr ( $mtch , " ] " )) {
// we might be inside a bbcode color tag - leave it alone
continue ;
}
if ( substr ( $mtch , - 1 , 1 ) === '.' )
$ret [] = substr ( $mtch , 0 , - 1 );
else
$ret [] = $mtch ;
}
}
// Otherwise pull out single word tags. These can be @nickname, @first_last
// and #hash tags.
2011-10-26 02:59:57 +00:00
if ( preg_match_all ( '/([@#][^ \x0D\x0A,;:?]+)([ \x0D\x0A,;:?]|$)/' , $s , $match )) {
2011-08-01 23:51:01 +00:00
foreach ( $match [ 1 ] as $mtch ) {
if ( strstr ( $mtch , " ] " )) {
// we might be inside a bbcode color tag - leave it alone
continue ;
}
2011-09-10 00:35:26 +00:00
if ( substr ( $mtch , - 1 , 1 ) === '.' )
$mtch = substr ( $mtch , 0 , - 1 );
2011-08-01 23:51:01 +00:00
// ignore strictly numeric tags like #1
if (( strpos ( $mtch , '#' ) === 0 ) && ctype_digit ( substr ( $mtch , 1 )))
continue ;
2011-11-26 06:41:50 +00:00
// try not to catch url fragments
if ( strpos ( $s , $mtch ) && preg_match ( '/[a-zA-z0-9\/]/' , substr ( $s , strpos ( $s , $mtch ) - 1 , 1 )))
continue ;
2011-09-10 00:35:26 +00:00
$ret [] = $mtch ;
2011-08-01 23:51:01 +00:00
}
}
return $ret ;
}}
2013-03-27 09:11:40 +00:00
//
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'qp' )) {
2013-03-27 09:11:40 +00:00
/**
* quick and dirty quoted_printable encoding
*
* @ param string $s
* @ return string
*/
2011-08-01 23:51:01 +00:00
function qp ( $s ) {
return str_replace ( " % " , " = " , rawurlencode ( $s ));
}}
if ( ! function_exists ( 'get_mentions' )) {
2013-03-27 09:11:40 +00:00
/**
* @ param array $item
* @ return string html for mentions #FIXME: remove html
*/
2011-08-01 23:51:01 +00: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 " ;
$o .= " \t \t " . '<link rel="ostatus:attention" href="' . $matches [ 1 ] . '" />' . " \r \n " ;
}
}
return $o ;
}}
if ( ! function_exists ( 'contact_block' )) {
2013-03-27 09:11:40 +00:00
/**
* Get html for contact block .
*
* @ template contact_block . tpl
* @ hook contact_block_end ( contacts => array , output => string )
* @ return string
*/
2011-08-01 23:51:01 +00:00
function contact_block () {
$o = '' ;
$a = get_app ();
$shown = get_pconfig ( $a -> profile [ 'uid' ], 'system' , 'display_friend_count' );
2012-02-12 07:49:05 +00:00
if ( $shown === false )
2011-08-01 23:51:01 +00:00
$shown = 24 ;
2012-02-12 07:49:05 +00:00
if ( $shown == 0 )
return ;
2011-08-01 23:51:01 +00:00
if (( ! is_array ( $a -> profile )) || ( $a -> profile [ 'hide-friends' ]))
return $o ;
2012-04-28 00:17:58 +00:00
$r = q ( " SELECT COUNT(*) AS `total` FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0 AND `hidden` = 0 AND `archive` = 0 " ,
2011-08-01 23:51:01 +00:00
intval ( $a -> profile [ 'uid' ])
);
if ( count ( $r )) {
$total = intval ( $r [ 0 ][ 'total' ]);
}
if ( ! $total ) {
2011-08-31 15:31:44 +00:00
$contacts = t ( 'No contacts' );
$micropro = Null ;
2011-08-01 23:51:01 +00:00
2011-08-31 15:31:44 +00:00
} else {
2012-04-28 00:17:58 +00:00
$r = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0 AND `hidden` = 0 AND `archive` = 0 ORDER BY RAND() LIMIT %d " ,
2011-08-31 15:31:44 +00:00
intval ( $a -> profile [ 'uid' ]),
intval ( $shown )
);
if ( count ( $r )) {
$contacts = sprintf ( tt ( '%d Contact' , '%d Contacts' , $total ), $total );
$micropro = Array ();
foreach ( $r as $rr ) {
$micropro [] = micropro ( $rr , true , 'mpfriend' );
}
}
2011-08-01 23:51:01 +00:00
}
2011-08-31 15:31:44 +00:00
$tpl = get_markup_template ( 'contact_block.tpl' );
$o = replace_macros ( $tpl , array (
'$contacts' => $contacts ,
'$nickname' => $a -> profile [ 'nickname' ],
'$viewcontacts' => t ( 'View Contacts' ),
'$micropro' => $micropro ,
));
2011-08-01 23:51:01 +00:00
$arr = array ( 'contacts' => $r , 'output' => $o );
call_hooks ( 'contact_block_end' , $arr );
return $o ;
}}
if ( ! function_exists ( 'micropro' )) {
2013-03-27 09:11:40 +00:00
/**
*
* @ param array $contact
* @ param boolean $redirect
* @ param string $class
* @ param boolean $textmode
* @ return string #FIXME: remove html
*/
2011-08-01 23:51:01 +00:00
function micropro ( $contact , $redirect = false , $class = '' , $textmode = false ) {
if ( $class )
$class = ' ' . $class ;
$url = $contact [ 'url' ];
$sparkle = '' ;
2011-09-09 23:22:32 +00:00
$redir = false ;
2011-08-01 23:51:01 +00:00
if ( $redirect ) {
$a = get_app ();
$redirect_url = $a -> get_baseurl () . '/redir/' . $contact [ 'id' ];
if ( local_user () && ( $contact [ 'uid' ] == local_user ()) && ( $contact [ 'network' ] === 'dfrn' )) {
2011-09-09 23:22:32 +00:00
$redir = true ;
2011-08-01 23:51:01 +00:00
$url = $redirect_url ;
$sparkle = ' sparkle' ;
}
2012-03-30 03:58:32 +00:00
else
$url = zrl ( $url );
2011-08-01 23:51:01 +00:00
}
$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' : '' ) . '" '
2011-09-09 23:22:32 +00:00
. (( $redir ) ? ' target="redir" ' : '' )
2011-08-01 23:51:01 +00:00
. (( $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' : '' ) . '" '
2011-09-09 23:22:32 +00:00
. (( $redir ) ? ' target="redir" ' : '' )
2011-08-01 23:51:01 +00:00
. (( $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' )) {
2013-03-27 09:11:40 +00:00
/**
* search box
*
* @ param string $s search query
* @ param string $id html id
* @ param string $url search url
* @ param boolean $save show save search button
* @ return string html for search box #FIXME: remove html
*/
2011-09-05 00:35:06 +00:00
function search ( $s , $id = 'search-box' , $url = '/search' , $save = false ) {
2011-08-01 23:51:01 +00:00
$a = get_app ();
$o = '<div id="' . $id . '">' ;
2012-03-16 12:51:04 +00:00
$o .= '<form action="' . $a -> get_baseurl (( stristr ( $url , 'network' )) ? true : false ) . $url . '" method="get" >' ;
2012-05-23 19:58:22 +00:00
$o .= '<input type="text" name="search" id="search-text" placeholder="' . t ( 'Search' ) . '" value="' . $s . '" />' ;
2011-08-01 23:51:01 +00:00
$o .= '<input type="submit" name="submit" id="search-submit" value="' . t ( 'Search' ) . '" />' ;
2011-09-05 00:35:06 +00:00
if ( $save )
$o .= '<input type="submit" name="save" id="search-save" value="' . t ( 'Save' ) . '" />' ;
2011-08-01 23:51:01 +00:00
$o .= '</form></div>' ;
return $o ;
}}
if ( ! function_exists ( 'valid_email' )) {
2013-03-27 09:11:40 +00:00
/**
* Check if $x is a valid email string
*
* @ param string $x
* @ return boolean
*/
2011-08-01 23:51:01 +00:00
function valid_email ( $x ){
2012-07-02 01:56:00 +00:00
if ( get_config ( 'system' , 'disable_email_validation' ))
return true ;
2011-12-16 22:31:39 +00:00
if ( preg_match ( '/^[_a-zA-Z0-9\-\+]+(\.[_a-zA-Z0-9\-\+]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$/' , $x ))
2011-08-01 23:51:01 +00:00
return true ;
return false ;
}}
2013-03-27 09:11:40 +00:00
if ( ! function_exists ( 'linkify' )) {
2011-08-01 23:51:01 +00:00
/**
* Replace naked text hyperlink with HTML formatted hyperlink
*
2013-03-27 09:11:40 +00:00
* @ param string $s
2011-08-01 23:51:01 +00:00
*/
function linkify ( $s ) {
2011-09-15 03:47:49 +00:00
$s = preg_replace ( " /(https? \ : \ / \ /[a-zA-Z0-9 \ : \ / \ - \ ? \ & \ ; \ . \ = \ _ \ ~ \ # \ ' \ % \$ \ ! \ +]*)/ " , ' <a href="$1" target="external-link">$1</a>' , $s );
$s = preg_replace ( " / \ <(.*?)(src|href)=(.*?) \ & \ ;(.*?) \ >/ism " , '<$1$2=$3&$4>' , $s );
2011-08-01 23:51:01 +00:00
return ( $s );
}}
2013-03-27 09:11:40 +00:00
/**
* Load poke verbs
*
* @ return array index is present tense verb
value is array containing past tense verb , translation of present , translation of past
* @ hook poke_verbs pokes array
*/
2012-07-20 01:17:16 +00:00
function get_poke_verbs () {
// index is present tense verb
// value is array containing past tense verb, translation of present, translation of past
$arr = array (
'poke' => array ( 'poked' , t ( 'poke' ), t ( 'poked' )),
2012-07-20 05:40:45 +00:00
'ping' => array ( 'pinged' , t ( 'ping' ), t ( 'pinged' )),
2012-07-20 01:17:16 +00:00
'prod' => array ( 'prodded' , t ( 'prod' ), t ( 'prodded' )),
'slap' => array ( 'slapped' , t ( 'slap' ), t ( 'slapped' )),
2012-07-20 07:47:30 +00:00
'finger' => array ( 'fingered' , t ( 'finger' ), t ( 'fingered' )),
'rebuff' => array ( 'rebuffed' , t ( 'rebuff' ), t ( 'rebuffed' )),
2012-07-20 01:17:16 +00:00
);
call_hooks ( 'poke_verbs' , $arr );
return $arr ;
}
2011-08-01 23:51:01 +00:00
2013-03-27 09:11:40 +00:00
/**
* Load moods
* @ return array index is mood , value is translated mood
* @ hook mood_verbs moods array
*/
2012-08-23 04:36:55 +00:00
function get_mood_verbs () {
$arr = array (
'happy' => t ( 'happy' ),
'sad' => t ( 'sad' ),
'mellow' => t ( 'mellow' ),
'tired' => t ( 'tired' ),
'perky' => t ( 'perky' ),
'angry' => t ( 'angry' ),
'stupefied' => t ( 'stupified' ),
'puzzled' => t ( 'puzzled' ),
'interested' => t ( 'interested' ),
'bitter' => t ( 'bitter' ),
'cheerful' => t ( 'cheerful' ),
'alive' => t ( 'alive' ),
'annoyed' => t ( 'annoyed' ),
'anxious' => t ( 'anxious' ),
'cranky' => t ( 'cranky' ),
'disturbed' => t ( 'disturbed' ),
'frustrated' => t ( 'frustrated' ),
'motivated' => t ( 'motivated' ),
'relaxed' => t ( 'relaxed' ),
'surprised' => t ( 'surprised' ),
);
call_hooks ( 'mood_verbs' , $arr );
return $arr ;
}
2013-03-27 09:11:40 +00:00
if ( ! function_exists ( 'smilies' )) {
2011-08-01 23:51:01 +00:00
/**
* Replaces text emoticons with graphical images
*
2012-02-22 09:50:06 +00:00
* It is expected that this function will be called using HTML text .
* We will escape text between HTML pre and code blocks from being
* processed .
*
* At a higher level , the bbcode [ nosmile ] tag can be used to prevent this
* function from being executed by the prepare_text () routine when preparing
* bbcode source for HTML display
*
2013-03-27 09:11:40 +00:00
* @ param string $s
* @ param boolean $sample
* @ return string
* @ hook smilie ( 'texts' => smilies texts array , 'icons' => smilies html array , 'string' => $s )
2011-08-01 23:51:01 +00:00
*/
2012-02-14 23:31:08 +00:00
function smilies ( $s , $sample = false ) {
2011-08-01 23:51:01 +00:00
$a = get_app ();
2012-03-19 10:18:39 +00:00
if ( intval ( get_config ( 'system' , 'no_smilies' ))
|| ( local_user () && intval ( get_pconfig ( local_user (), 'system' , 'no_smilies' ))))
return $s ;
2012-02-22 07:13:03 +00:00
$s = preg_replace_callback ( '/<pre>(.*?)<\/pre>/ism' , 'smile_encode' , $s );
$s = preg_replace_callback ( '/<code>(.*?)<\/code>/ism' , 'smile_encode' , $s );
2012-02-14 23:31:08 +00:00
$texts = array (
'<3' ,
'</3' ,
'<\\3' ,
':-)' ,
';-)' ,
':-(' ,
':-P' ,
2012-03-22 04:45:45 +00:00
':-p' ,
2012-02-14 23:31:08 +00:00
':-"' ,
':-"' ,
':-x' ,
':-X' ,
':-D' ,
'8-|' ,
'8-O' ,
':-O' ,
'\\o/' ,
'o.O' ,
'O.o' ,
2012-04-02 05:57:50 +00:00
'o_O' ,
'O_o' ,
2012-02-14 23:31:08 +00:00
" :'( " ,
" :-! " ,
" :-/ " ,
" :-[ " ,
" 8-) " ,
':beer' ,
':homebrew' ,
':coffee' ,
2012-02-16 23:15:28 +00:00
':facepalm' ,
2012-05-31 00:22:51 +00:00
':like' ,
':dislike' ,
2012-03-19 22:32:19 +00:00
'~friendica'
2012-03-06 20:50:38 +00:00
2012-02-14 23:31:08 +00:00
);
$icons = array (
2012-06-28 23:42:40 +00:00
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-heart.gif" alt="<3" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-brokenheart.gif" alt="</3" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-brokenheart.gif" alt="<\\3" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-smile.gif" alt=":-)" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-wink.gif" alt=";-)" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-frown.gif" alt=":-(" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-tongue-out.gif" alt=":-P" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-tongue-out.gif" alt=":-p" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-kiss.gif" alt=":-\"" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-kiss.gif" alt=":-\"" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-kiss.gif" alt=":-x" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-kiss.gif" alt=":-X" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-laughing.gif" alt=":-D" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-surprised.gif" alt="8-|" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-surprised.gif" alt="8-O" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-surprised.gif" alt=":-O" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-thumbsup.gif" alt="\\o/" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-Oo.gif" alt="o.O" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-Oo.gif" alt="O.o" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-Oo.gif" alt="o_O" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-Oo.gif" alt="O_o" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-cry.gif" alt=":\'(" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-foot-in-mouth.gif" alt=":-!" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-undecided.gif" alt=":-/" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-embarassed.gif" alt=":-[" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-cool.gif" alt="8-)" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/beer_mug.gif" alt=":beer" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/beer_mug.gif" alt=":homebrew" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/coffee.gif" alt=":coffee" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-facepalm.gif" alt=":facepalm" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/like.gif" alt=":like" />' ,
'<img class="smiley" src="' . $a -> get_baseurl () . '/images/dislike.gif" alt=":dislike" />' ,
'<a href="http://friendica.com">~friendica <img class="smiley" src="' . $a -> get_baseurl () . '/images/friendica-16.png" alt="~friendica" /></a>'
2012-02-14 23:31:08 +00:00
);
$params = array ( 'texts' => $texts , 'icons' => $icons , 'string' => $s );
call_hooks ( 'smilie' , $params );
2011-09-12 10:21:39 +00:00
2012-02-14 23:31:08 +00:00
if ( $sample ) {
$s = '<div class="smiley-sample">' ;
for ( $x = 0 ; $x < count ( $params [ 'texts' ]); $x ++ ) {
$s .= '<dl><dt>' . $params [ 'texts' ][ $x ] . '</dt><dd>' . $params [ 'icons' ][ $x ] . '</dd></dl>' ;
}
}
else {
2012-03-06 20:50:38 +00:00
$params [ 'string' ] = preg_replace_callback ( '/<(3+)/' , 'preg_heart' , $params [ 'string' ]);
2012-02-14 23:31:08 +00:00
$s = str_replace ( $params [ 'texts' ], $params [ 'icons' ], $params [ 'string' ]);
}
2012-02-21 02:06:43 +00:00
2012-02-22 07:13:03 +00:00
$s = preg_replace_callback ( '/<pre>(.*?)<\/pre>/ism' , 'smile_decode' , $s );
$s = preg_replace_callback ( '/<code>(.*?)<\/code>/ism' , 'smile_decode' , $s );
2011-09-12 10:21:39 +00:00
return $s ;
2011-08-01 23:51:01 +00:00
}}
2012-02-22 07:13:03 +00:00
function smile_encode ( $m ) {
return ( str_replace ( $m [ 1 ], base64url_encode ( $m [ 1 ]), $m [ 0 ]));
}
function smile_decode ( $m ) {
return ( str_replace ( $m [ 1 ], base64url_decode ( $m [ 1 ]), $m [ 0 ]));
}
2013-03-27 09:11:40 +00:00
/**
* expand < 3333 to the correct number of hearts
*
* @ param string $x
* @ return string
*/
2012-03-06 20:50:38 +00:00
function preg_heart ( $x ) {
$a = get_app ();
if ( strlen ( $x [ 1 ]) == 1 )
return $x [ 0 ];
$t = '' ;
for ( $cnt = 0 ; $cnt < strlen ( $x [ 1 ]); $cnt ++ )
2012-06-28 23:42:40 +00:00
$t .= '<img class="smiley" src="' . $a -> get_baseurl () . '/images/smiley-heart.gif" alt="<3" />' ;
2012-03-06 20:50:38 +00:00
$r = str_replace ( $x [ 0 ], $t , $x [ 0 ]);
return $r ;
}
2012-02-22 07:13:03 +00:00
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'day_translate' )) {
2013-03-27 09:11:40 +00:00
/**
* Translate days and months names
*
* @ param string $s
* @ return string
*/
2011-08-01 23:51:01 +00:00
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 ( 'normalise_link' )) {
2013-03-27 09:11:40 +00:00
/**
* Normalize url
*
* @ param string $url
* @ return string
*/
2011-08-01 23:51:01 +00:00
function normalise_link ( $url ) {
$ret = str_replace ( array ( 'https:' , '//www.' ), array ( 'http:' , '//' ), $url );
return ( rtrim ( $ret , '/' ));
}}
2013-03-27 09:11:40 +00:00
if ( ! function_exists ( 'link_compare' )) {
2011-08-01 23:51:01 +00: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 .
*
2013-03-27 09:11:40 +00:00
* @ param string $a first url
* @ param string $b second url
* @ return boolean True if the URLs match , otherwise False
2011-08-01 23:51:01 +00:00
*
2013-03-27 09:11:40 +00:00
*/
2011-08-01 23:51:01 +00:00
function link_compare ( $a , $b ) {
if ( strcasecmp ( normalise_link ( $a ), normalise_link ( $b )) === 0 )
return true ;
return false ;
}}
2013-03-03 16:44:41 +00:00
if ( ! function_exists ( 'redir_private_images' )) {
2013-03-27 09:11:40 +00:00
/**
* Find any non - embedded images in private items and add redir links to them
*
* @ param App $a
* @ param array $item
*/
2013-03-03 16:44:41 +00:00
function redir_private_images ( $a , & $item ) {
$matches = false ;
$cnt = preg_match_all ( '|\[img\](http[^\[]*?/photo/[a-fA-F0-9]+?(-[0-9]\.[\w]+?)?)\[\/img\]|' , $item [ 'body' ], $matches , PREG_SET_ORDER );
if ( $cnt ) {
//logger("redir_private_images: matches = " . print_r($matches, true));
foreach ( $matches as $mtch ) {
if ( strpos ( $mtch [ 1 ], '/redir' ) !== false )
continue ;
if (( local_user () == $item [ 'uid' ]) && ( $item [ 'private' ] != 0 ) && ( $item [ 'contact-id' ] != $a -> contact [ 'id' ]) && ( $item [ 'network' ] == NETWORK_DFRN )) {
//logger("redir_private_images: redir");
$img_url = $a -> get_baseurl () . '/redir?f=1&quiet=1&url=' . $mtch [ 1 ] . '&conurl=' . $item [ 'author-link' ];
$item [ 'body' ] = str_replace ( $mtch [ 0 ], " [img] " . $img_url . " [/img] " , $item [ 'body' ]);
}
}
}
}}
2011-08-04 04:05:39 +00:00
// Given an item array, convert the body element from bbcode to html and add smilie icons.
// If attach is true, also add icons for item attachments
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'prepare_body' )) {
2013-03-27 09:11:40 +00:00
/**
* Given an item array , convert the body element from bbcode to html and add smilie icons .
* If attach is true , also add icons for item attachments
*
* @ param array $item
* @ param boolean $attach
* @ return string item body html
* @ hook prepare_body_init item array before any work
* @ hook prepare_body ( 'item' => item array , 'html' => body string ) after first bbcode to html
* @ hook prepare_body_final ( 'item' => item array , 'html' => body string ) after attach icons and blockquote special case handling ( spoiler , author )
*/
2011-08-01 23:51:01 +00:00
function prepare_body ( $item , $attach = false ) {
2012-03-14 03:46:37 +00:00
$a = get_app ();
2012-11-16 23:50:39 +00:00
call_hooks ( 'prepare_body_init' , $item );
2012-03-10 17:19:00 +00:00
2013-01-17 22:20:40 +00:00
//$cachefile = get_cachefile($item["guid"]."-".strtotime($item["edited"])."-".hash("crc32", $item['body']));
$cachefile = get_cachefile ( $item [ " guid " ] . " - " . hash ( " md5 " , $item [ 'body' ]));
2011-10-05 09:35:25 +00:00
2012-11-16 23:50:39 +00:00
if (( $cachefile != '' )) {
2013-01-26 17:35:39 +00:00
if ( file_exists ( $cachefile )) {
$stamp1 = microtime ( true );
2012-03-10 17:19:00 +00:00
$s = file_get_contents ( $cachefile );
2013-01-26 17:35:39 +00:00
$a -> save_timestamp ( $stamp1 , " file " );
} else {
2013-03-03 16:44:41 +00:00
redir_private_images ( $a , $item );
2012-03-10 17:19:00 +00:00
$s = prepare_text ( $item [ 'body' ]);
2013-03-03 16:44:41 +00:00
2013-01-26 17:35:39 +00:00
$stamp1 = microtime ( true );
2012-03-10 17:19:00 +00:00
file_put_contents ( $cachefile , $s );
2013-01-26 17:35:39 +00:00
$a -> save_timestamp ( $stamp1 , " file " );
2013-03-03 16:44:41 +00:00
2013-01-17 22:20:40 +00:00
logger ( 'prepare_body: put item ' . $item [ " id " ] . ' into cachefile ' . $cachefile );
2012-03-10 17:19:00 +00:00
}
2013-03-03 16:44:41 +00:00
} else {
redir_private_images ( $a , $item );
2012-03-10 17:19:00 +00:00
$s = prepare_text ( $item [ 'body' ]);
2013-03-03 16:44:41 +00:00
}
2011-10-05 09:35:25 +00:00
2012-06-03 01:05:23 +00:00
2011-10-24 22:47:17 +00:00
$prep_arr = array ( 'item' => $item , 'html' => $s );
call_hooks ( 'prepare_body' , $prep_arr );
$s = $prep_arr [ 'html' ];
2011-10-05 09:35:25 +00:00
2012-03-10 14:50:35 +00:00
if ( ! $attach ) {
2012-12-19 11:18:52 +00:00
// Replace the blockquotes with quotes that are used in mails
$mailquote = '<blockquote type="cite" class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">' ;
$s = str_replace ( array ( '<blockquote>' , '<blockquote class="spoiler">' , '<blockquote class="author">' ), array ( $mailquote , $mailquote , $mailquote ), $s );
2011-08-01 23:51:01 +00:00
return $s ;
2012-03-10 14:50:35 +00:00
}
2011-08-01 23:51:01 +00:00
2013-01-12 13:31:32 +00:00
$arr = explode ( '[/attach],' , $item [ 'attach' ]);
2011-08-01 23:51:01 +00:00
if ( count ( $arr )) {
$s .= '<div class="body-attach">' ;
foreach ( $arr as $r ) {
$matches = false ;
$icon = '' ;
2013-01-12 13:31:32 +00:00
$cnt = preg_match_all ( '|\[attach\]href=\"(.*?)\" length=\"(.*?)\" type=\"(.*?)\" title=\"(.*?)\"|' , $r , $matches , PREG_SET_ORDER );
2011-08-01 23:51:01 +00:00
if ( $cnt ) {
2012-05-22 05:54:39 +00:00
foreach ( $matches as $mtch ) {
2013-02-05 05:15:16 +00:00
$filetype = strtolower ( substr ( $mtch [ 3 ], 0 , strpos ( $mtch [ 3 ], '/' ) ));
if ( $filetype ) {
$filesubtype = strtolower ( substr ( $mtch [ 3 ], strpos ( $mtch [ 3 ], '/' ) + 1 ));
$filesubtype = str_replace ( '.' , '-' , $filesubtype );
}
else {
$filetype = 'unkn' ;
$filesubtype = 'unkn' ;
}
$icon = '<div class="attachtype icon s22 type-' . $filetype . ' subtype-' . $filesubtype . '"></div>' ;
/* $icontype = strtolower ( substr ( $mtch [ 3 ], 0 , strpos ( $mtch [ 3 ], '/' )));
2012-05-22 05:54:39 +00:00
switch ( $icontype ) {
case 'video' :
case 'audio' :
case 'image' :
case 'text' :
$icon = '<div class="attachtype icon s22 type-' . $icontype . '"></div>' ;
break ;
default :
$icon = '<div class="attachtype icon s22 type-unkn"></div>' ;
break ;
2013-02-05 05:15:16 +00:00
} */
2012-05-22 05:54:39 +00:00
$title = (( strlen ( trim ( $mtch [ 4 ]))) ? escape_tags ( trim ( $mtch [ 4 ])) : escape_tags ( $mtch [ 1 ]));
$title .= ' ' . $mtch [ 2 ] . ' ' . t ( 'bytes' );
2012-09-04 04:31:35 +00:00
if (( local_user () == $item [ 'uid' ]) && ( $item [ 'contact-id' ] != $a -> contact [ 'id' ]) && ( $item [ 'network' ] == NETWORK_DFRN ))
2012-05-22 05:54:39 +00:00
$the_url = $a -> get_baseurl () . '/redir/' . $item [ 'contact-id' ] . '?f=1&url=' . $mtch [ 1 ];
else
$the_url = $mtch [ 1 ];
$s .= '<a href="' . strip_tags ( $the_url ) . '" title="' . $title . '" class="attachlink" target="external-link" >' . $icon . '</a>' ;
2011-08-01 23:51:01 +00:00
}
}
}
$s .= '<div class="clear"></div></div>' ;
}
2012-03-13 11:04:26 +00:00
2011-10-24 22:47:17 +00:00
2012-03-17 10:07:49 +00:00
// Look for spoiler
$spoilersearch = '<blockquote class="spoiler">' ;
// Remove line breaks before the spoiler
while (( strpos ( $s , " \n " . $spoilersearch ) !== false ))
$s = str_replace ( " \n " . $spoilersearch , $spoilersearch , $s );
while (( strpos ( $s , " <br /> " . $spoilersearch ) !== false ))
$s = str_replace ( " <br /> " . $spoilersearch , $spoilersearch , $s );
while (( strpos ( $s , $spoilersearch ) !== false )) {
$pos = strpos ( $s , $spoilersearch );
$rnd = random_string ( 8 );
2012-03-17 11:15:59 +00:00
$spoilerreplace = '<br /> <span id="spoiler-wrap-' . $rnd . '" style="white-space:nowrap;" class="fakelink" onclick="openClose(\'spoiler-' . $rnd . '\');">' . sprintf ( t ( 'Click to open/close' )) . '</span>' .
2012-03-17 10:07:49 +00:00
'<blockquote class="spoiler" id="spoiler-' . $rnd . '" style="display: none;">' ;
$s = substr ( $s , 0 , $pos ) . $spoilerreplace . substr ( $s , $pos + strlen ( $spoilersearch ));
}
2012-03-17 11:15:59 +00:00
// Look for quote with author
$authorsearch = '<blockquote class="author">' ;
while (( strpos ( $s , $authorsearch ) !== false )) {
$pos = strpos ( $s , $authorsearch );
$rnd = random_string ( 8 );
$authorreplace = '<br /> <span id="author-wrap-' . $rnd . '" style="white-space:nowrap;" class="fakelink" onclick="openClose(\'author-' . $rnd . '\');">' . sprintf ( t ( 'Click to open/close' )) . '</span>' .
'<blockquote class="author" id="author-' . $rnd . '" style="display: block;">' ;
$s = substr ( $s , 0 , $pos ) . $authorreplace . substr ( $s , $pos + strlen ( $authorsearch ));
}
2011-10-24 22:47:17 +00:00
$prep_arr = array ( 'item' => $item , 'html' => $s );
call_hooks ( 'prepare_body_final' , $prep_arr );
2012-03-10 14:50:35 +00:00
2011-10-24 22:47:17 +00:00
return $prep_arr [ 'html' ];
2011-08-01 23:51:01 +00:00
}}
2011-08-04 04:05:39 +00:00
2011-08-01 23:51:01 +00:00
if ( ! function_exists ( 'prepare_text' )) {
2013-03-27 09:11:40 +00:00
/**
* Given a text string , convert from bbcode to html and add smilie icons .
*
* @ param string $text
* @ return string
*/
2011-08-01 23:51:01 +00:00
function prepare_text ( $text ) {
require_once ( 'include/bbcode.php' );
2012-02-15 07:13:18 +00:00
if ( stristr ( $text , '[nosmile]' ))
$s = bbcode ( $text );
else
$s = smilies ( bbcode ( $text ));
2011-08-01 23:51:01 +00:00
return $s ;
}}
2013-03-27 09:11:40 +00:00
2012-09-20 07:46:49 +00:00
/**
2013-03-27 09:11:40 +00:00
* return array with details for categories and folders for an item
*
* @ param array $item
* @ return array
*
* [
* [ // categories array
2012-09-20 07:46:49 +00:00
* {
* 'name' : 'category name' ,
2013-03-27 09:11:40 +00:00
* 'removeurl' : 'url to remove this category' ,
* 'first' : 'is the first in this array? true/false' ,
2012-09-20 07:46:49 +00:00
* 'last' : 'is the last in this array? true/false' ,
* } ,
* ....
* ],
2013-03-27 09:11:40 +00:00
* [ //folders array
* {
2012-09-20 07:46:49 +00:00
* 'name' : 'folder name' ,
* 'removeurl' : 'url to remove this folder' ,
* 'first' : 'is the first in this array? true/false' ,
* 'last' : 'is the last in this array? true/false' ,
* } ,
* ....
* ]
2013-03-27 09:11:40 +00:00
* ]
2012-09-20 07:46:49 +00:00
*/
function get_cats_and_terms ( $item ) {
2013-03-27 09:11:40 +00:00
2012-09-20 07:46:49 +00:00
$a = get_app ();
$categories = array ();
$folders = array ();
$matches = false ; $first = true ;
$cnt = preg_match_all ( '/<(.*?)>/' , $item [ 'file' ], $matches , PREG_SET_ORDER );
if ( $cnt ) {
foreach ( $matches as $mtch ) {
$categories [] = array (
'name' => xmlify ( file_tag_decode ( $mtch [ 1 ])),
'url' => " # " ,
'removeurl' => (( local_user () == $item [ 'uid' ]) ? $a -> get_baseurl () . '/filerm/' . $item [ 'id' ] . '?f=&cat=' . xmlify ( file_tag_decode ( $mtch [ 1 ])) : " " ),
'first' => $first ,
'last' => false
);
$first = false ;
}
}
if ( count ( $categories )) $categories [ count ( $categories ) - 1 ][ 'last' ] = true ;
2012-09-24 02:22:48 +00:00
if ( local_user () == $item [ 'uid' ]) {
$matches = false ; $first = true ;
$cnt = preg_match_all ( '/\[(.*?)\]/' , $item [ 'file' ], $matches , PREG_SET_ORDER );
if ( $cnt ) {
foreach ( $matches as $mtch ) {
$folders [] = array (
'name' => xmlify ( file_tag_decode ( $mtch [ 1 ])),
'url' => " # " ,
'removeurl' => (( local_user () == $item [ 'uid' ]) ? $a -> get_baseurl () . '/filerm/' . $item [ 'id' ] . '?f=&term=' . xmlify ( file_tag_decode ( $mtch [ 1 ])) : " " ),
'first' => $first ,
'last' => false
);
$first = false ;
}
2012-09-20 07:46:49 +00:00
}
}
if ( count ( $folders )) $folders [ count ( $folders ) - 1 ][ 'last' ] = true ;
2012-09-24 02:22:48 +00:00
2012-09-20 07:46:49 +00:00
return array ( $categories , $folders );
}
2013-03-27 09:11:40 +00:00
if ( ! function_exists ( 'feed_hublinks' )) {
2011-08-01 23:51:01 +00:00
/**
* return atom link elements for all of our hubs
2013-03-27 09:11:40 +00:00
* @ return string hub link xml elements
2011-08-01 23:51:01 +00:00
*/
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 ;
}}
if ( ! function_exists ( 'feed_salmonlinks' )) {
2013-03-27 09:11:40 +00:00
/**
* return atom link elements for salmon endpoints
* @ param string $nick user nickname
* @ return string salmon link xml elements
*/
2011-08-01 23:51:01 +00:00
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' )) {
2013-03-27 09:11:40 +00:00
/**
* get private link for item
* @ param array $item
* @ return boolean | array False if item has not plink , otherwise array ( 'href' => plink url , 'title' => translated title )
*/
2011-08-01 23:51:01 +00:00
function get_plink ( $item ) {
$a = get_app ();
2012-06-29 00:43:29 +00:00
if ( x ( $item , 'plink' ) && ( $item [ 'private' ] != 1 )) {
2011-09-16 10:51:14 +00:00
return array (
'href' => $item [ 'plink' ],
'title' => t ( 'link to source' ),
);
2012-06-29 00:43:29 +00:00
}
else {
2011-09-16 10:51:14 +00:00
return false ;
}
2011-08-01 23:51:01 +00:00
}}
if ( ! function_exists ( 'unamp' )) {
2013-03-27 09:11:40 +00:00
/**
* replace html amp entity with amp char
* @ param string $s
* @ return string
*/
2011-08-01 23:51:01 +00:00
function unamp ( $s ) {
return str_replace ( '&' , '&' , $s );
}}
if ( ! function_exists ( 'lang_selector' )) {
2013-03-27 09:11:40 +00:00
/**
* get html for language selector
* @ global string $lang
* @ return string
* @ template lang_selector . tpl
*/
2011-08-01 23:51:01 +00:00
function lang_selector () {
global $lang ;
2012-04-13 09:56:21 +00:00
2011-08-01 23:51:01 +00:00
$langs = glob ( 'view/*/strings.php' );
2012-04-13 09:56:21 +00:00
$lang_options = array ();
$selected = " " ;
2011-08-01 23:51:01 +00:00
if ( is_array ( $langs ) && count ( $langs )) {
2011-09-21 23:00:17 +00:00
$langs [] = '' ;
2011-08-01 23:51:01 +00:00
if ( ! in_array ( 'view/en/strings.php' , $langs ))
$langs [] = 'view/en/' ;
asort ( $langs );
foreach ( $langs as $l ) {
2011-09-21 23:00:17 +00:00
if ( $l == '' ) {
2012-04-13 09:56:21 +00:00
$lang_options [ " " ] = t ( 'default' );
2011-09-21 23:00:17 +00:00
continue ;
}
2011-08-01 23:51:01 +00:00
$ll = substr ( $l , 5 );
$ll = substr ( $ll , 0 , strrpos ( $ll , '/' ));
2012-04-13 09:56:21 +00:00
$selected = (( $ll === $lang && ( x ( $_SESSION , 'language' ))) ? $ll : $selected );
$lang_options [ $ll ] = $ll ;
2011-08-01 23:51:01 +00:00
}
}
2012-04-13 09:56:21 +00:00
$tpl = get_markup_template ( " lang_selector.tpl " );
$o = replace_macros ( $tpl , array (
'$title' => t ( 'Select an alternate language' ),
'$langs' => array ( $lang_options , $selected ),
));
2011-08-01 23:51:01 +00:00
return $o ;
}}
if ( ! function_exists ( 'return_bytes' )) {
2013-03-27 09:11:40 +00:00
/**
* return number of bytes in size ( K , M , G )
* @ param string $size_str
* @ return number
*/
2011-08-01 23:51:01 +00:00
function return_bytes ( $size_str ) {
switch ( substr ( $size_str , - 1 ))
{
case 'M' : case 'm' : return ( int ) $size_str * 1048576 ;
case 'K' : case 'k' : return ( int ) $size_str * 1024 ;
case 'G' : case 'g' : return ( int ) $size_str * 1073741824 ;
default : return $size_str ;
}
}}
2013-03-27 09:11:40 +00:00
/**
* @ return string
*/
2011-08-07 23:56:26 +00:00
function generate_user_guid () {
2011-08-01 23:51:01 +00:00
$found = true ;
do {
2011-08-08 00:29:26 +00:00
$guid = random_string ( 16 );
2011-08-01 23:51:01 +00:00
$x = q ( " SELECT `uid` FROM `user` WHERE `guid` = '%s' LIMIT 1 " ,
dbesc ( $guid )
);
if ( ! count ( $x ))
$found = false ;
} while ( $found == true );
return $guid ;
}
2013-03-27 09:11:40 +00:00
/**
* @ param string $s
* @ param boolean $strip_padding
* @ return string
*/
2011-08-01 23:51:01 +00:00
function base64url_encode ( $s , $strip_padding = false ) {
$s = strtr ( base64_encode ( $s ), '+/' , '-_' );
if ( $strip_padding )
$s = str_replace ( '=' , '' , $s );
return $s ;
}
2013-03-27 09:11:40 +00:00
/**
* @ param string $s
* @ return string
*/
2011-08-01 23:51:01 +00:00
function base64url_decode ( $s ) {
2012-01-25 00:45:58 +00:00
if ( is_array ( $s )) {
logger ( 'base64url_decode: illegal input: ' . print_r ( debug_backtrace (), true ));
return $s ;
}
2011-08-01 23:51:01 +00:00
/*
* // Placeholder for new rev of salmon which strips base64 padding.
* // PHP base64_decode handles the un-padded input without requiring this step
* // Uncomment if you find you need it.
*
* $l = strlen ( $s );
* if ( ! strpos ( $s , '=' )) {
* $m = $l % 4 ;
* if ( $m == 2 )
* $s .= '==' ;
* if ( $m == 3 )
* $s .= '=' ;
* }
*
*/
return base64_decode ( strtr ( $s , '-_' , '+/' ));
}
2011-08-17 03:05:02 +00:00
2011-09-20 23:31:45 +00:00
if ( ! function_exists ( 'str_getcsv' )) {
2013-03-27 09:28:56 +00:00
/**
* Parse csv string
*
* @ param string $input
* @ param string $delimiter
* @ param string $enclosure
* @ param string $escape
* @ param string $eol
* @ return boolean | array False on error , otherwise array [ row ][ column ]
*/
2011-09-20 23:31:45 +00:00
function str_getcsv ( $input , $delimiter = ',' , $enclosure = '"' , $escape = '\\' , $eol = '\n' ) {
if ( is_string ( $input ) && ! empty ( $input )) {
$output = array ();
$tmp = preg_split ( " / " . $eol . " / " , $input );
if ( is_array ( $tmp ) && ! empty ( $tmp )) {
while ( list ( $line_num , $line ) = each ( $tmp )) {
if ( preg_match ( " / " . $escape . $enclosure . " / " , $line )) {
while ( $strlen = strlen ( $line )) {
$pos_delimiter = strpos ( $line , $delimiter );
$pos_enclosure_start = strpos ( $line , $enclosure );
if (
is_int ( $pos_delimiter ) && is_int ( $pos_enclosure_start )
&& ( $pos_enclosure_start < $pos_delimiter )
) {
$enclosed_str = substr ( $line , 1 );
$pos_enclosure_end = strpos ( $enclosed_str , $enclosure );
$enclosed_str = substr ( $enclosed_str , 0 , $pos_enclosure_end );
$output [ $line_num ][] = $enclosed_str ;
$offset = $pos_enclosure_end + 3 ;
} else {
if ( empty ( $pos_delimiter ) && empty ( $pos_enclosure_start )) {
$output [ $line_num ][] = substr ( $line , 0 );
$offset = strlen ( $line );
} else {
$output [ $line_num ][] = substr ( $line , 0 , $pos_delimiter );
$offset = (
! empty ( $pos_enclosure_start )
&& ( $pos_enclosure_start < $pos_delimiter )
)
? $pos_enclosure_start
: $pos_delimiter + 1 ;
}
}
$line = substr ( $line , $offset );
}
} else {
$line = preg_split ( " / " . $delimiter . " / " , $line );
/*
* Validating against pesky extra line breaks creating false rows .
*/
if ( is_array ( $line ) && ! empty ( $line [ 0 ])) {
$output [ $line_num ] = $line ;
}
}
}
return $output ;
} else {
return false ;
}
} else {
return false ;
}
}
2011-09-26 09:42:48 +00:00
}
2011-10-12 01:24:37 +00:00
2013-03-27 09:28:56 +00:00
/**
* return div element with class ' clear '
* @ return string
* @ deprecated
*/
2011-10-12 01:24:37 +00:00
function cleardiv () {
return '<div class="clear"></div>' ;
}
function bb_translate_video ( $s ) {
$matches = null ;
$r = preg_match_all ( " / \ [video \ ](.*?) \ [ \ /video \ ]/ism " , $s , $matches , PREG_SET_ORDER );
if ( $r ) {
foreach ( $matches as $mtch ) {
if (( stristr ( $mtch [ 1 ], 'youtube' )) || ( stristr ( $mtch [ 1 ], 'youtu.be' )))
$s = str_replace ( $mtch [ 0 ], '[youtube]' . $mtch [ 1 ] . '[/youtube]' , $s );
elseif ( stristr ( $mtch [ 1 ], 'vimeo' ))
$s = str_replace ( $mtch [ 0 ], '[vimeo]' . $mtch [ 1 ] . '[/vimeo]' , $s );
}
}
return $s ;
}
function html2bb_video ( $s ) {
2012-06-14 02:59:20 +00:00
$s = preg_replace ( '#<object[^>]+>(.*?)https?://www.youtube.com/((?:v|cp)/[A-Za-z0-9\-_=]+)(.*?)</object>#ism' ,
2011-10-12 01:24:37 +00:00
'[youtube]$2[/youtube]' , $s );
2012-06-14 02:59:20 +00:00
$s = preg_replace ( '#<iframe[^>](.*?)https?://www.youtube.com/embed/([A-Za-z0-9\-_=]+)(.*?)</iframe>#ism' ,
2011-10-12 01:24:37 +00:00
'[youtube]$2[/youtube]' , $s );
2012-06-14 02:59:20 +00:00
$s = preg_replace ( '#<iframe[^>](.*?)https?://player.vimeo.com/video/([0-9]+)(.*?)</iframe>#ism' ,
2011-10-12 01:24:37 +00:00
'[vimeo]$2[/vimeo]' , $s );
return $s ;
2011-10-27 08:54:52 +00:00
}
/**
* apply xmlify () to all values of array $val , recursively
2013-03-27 09:28:56 +00:00
* @ param array $val
* @ return array
2011-10-27 08:54:52 +00:00
*/
function array_xmlify ( $val ){
if ( is_bool ( $val )) return $val ? " true " : " false " ;
if ( is_array ( $val )) return array_map ( 'array_xmlify' , $val );
return xmlify (( string ) $val );
}
2012-01-18 00:30:32 +00:00
2013-03-27 09:28:56 +00:00
/**
* transorm link href and img src from relative to absolute
*
* @ param string $text
* @ param string $base base url
* @ return string
*/
2012-01-18 00:30:32 +00:00
function reltoabs ( $text , $base )
{
if ( empty ( $base ))
return $text ;
$base = rtrim ( $base , '/' );
$base2 = $base . " / " ;
// Replace links
$pattern = " /<a([^>]*) href= \" (?!http|https| \ /)([^ \" ]*) \" / " ;
$replace = " <a \$ { 1} href= \" " . $base2 . " \$ { 2} \" " ;
$text = preg_replace ( $pattern , $replace , $text );
$pattern = " /<a([^>]*) href= \" (?!http|https)([^ \" ]*) \" / " ;
$replace = " <a \$ { 1} href= \" " . $base . " \$ { 2} \" " ;
$text = preg_replace ( $pattern , $replace , $text );
// Replace images
$pattern = " /<img([^>]*) src= \" (?!http|https| \ /)([^ \" ]*) \" / " ;
$replace = " <img \$ { 1} src= \" " . $base2 . " \$ { 2} \" " ;
$text = preg_replace ( $pattern , $replace , $text );
$pattern = " /<img([^>]*) src= \" (?!http|https)([^ \" ]*) \" / " ;
$replace = " <img \$ { 1} src= \" " . $base . " \$ { 2} \" " ;
$text = preg_replace ( $pattern , $replace , $text );
// Done
return $text ;
}
2013-03-27 09:28:56 +00:00
/**
* get translated item type
*
* @ param array $itme
* @ return string
*/
2012-03-06 20:50:38 +00:00
function item_post_type ( $item ) {
if ( intval ( $item [ 'event-id' ]))
return t ( 'event' );
if ( strlen ( $item [ 'resource-id' ]))
return t ( 'photo' );
if ( strlen ( $item [ 'verb' ]) && $item [ 'verb' ] !== ACTIVITY_POST )
return t ( 'activity' );
if ( $item [ 'id' ] != $item [ 'parent' ])
return t ( 'comment' );
return t ( 'post' );
}
2012-03-12 03:19:56 +00:00
// post categories and "save to file" use the same item.file table for storage.
// We will differentiate the different uses by wrapping categories in angle brackets
// and save to file categories in square brackets.
// To do this we need to escape these characters if they appear in our tag.
2012-03-06 20:50:38 +00:00
2012-03-12 03:19:56 +00:00
function file_tag_encode ( $s ) {
return str_replace ( array ( '<' , '>' , '[' , ']' ), array ( '%3c' , '%3e' , '%5b' , '%5d' ), $s );
}
function file_tag_decode ( $s ) {
return str_replace ( array ( '%3c' , '%3e' , '%5b' , '%5d' ), array ( '<' , '>' , '[' , ']' ), $s );
}
function file_tag_file_query ( $table , $s , $type = 'file' ) {
2012-03-31 21:48:35 +00:00
2012-03-12 03:19:56 +00:00
if ( $type == 'file' )
2012-03-31 22:25:17 +00:00
$str = preg_quote ( '[' . str_replace ( '%' , '%%' , file_tag_encode ( $s )) . ']' );
2012-03-12 03:19:56 +00:00
else
2012-03-31 22:25:17 +00:00
$str = preg_quote ( '<' . str_replace ( '%' , '%%' , file_tag_encode ( $s )) . '>' );
2012-03-12 03:19:56 +00:00
return " AND " . (( $table ) ? dbesc ( $table ) . '.' : '' ) . " file regexp ' " . dbesc ( $str ) . " ' " ;
2012-03-12 04:32:11 +00:00
}
2012-04-02 01:28:31 +00:00
// ex. given music,video return <music><video> or [music][video]
function file_tag_list_to_file ( $list , $type = 'file' ) {
$tag_list = '' ;
if ( strlen ( $list )) {
$list_array = explode ( " , " , $list );
if ( $type == 'file' ) {
$lbracket = '[' ;
$rbracket = ']' ;
}
else {
$lbracket = '<' ;
$rbracket = '>' ;
}
foreach ( $list_array as $item ) {
if ( strlen ( $item )) {
$tag_list .= $lbracket . file_tag_encode ( trim ( $item )) . $rbracket ;
}
}
}
return $tag_list ;
}
// ex. given <music><video>[friends], return music,video or friends
function file_tag_file_to_list ( $file , $type = 'file' ) {
$matches = false ;
$list = '' ;
if ( $type == 'file' ) {
$cnt = preg_match_all ( '/\[(.*?)\]/' , $file , $matches , PREG_SET_ORDER );
}
else {
$cnt = preg_match_all ( '/<(.*?)>/' , $file , $matches , PREG_SET_ORDER );
}
if ( $cnt ) {
foreach ( $matches as $mtch ) {
if ( strlen ( $list ))
$list .= ',' ;
$list .= file_tag_decode ( $mtch [ 1 ]);
}
}
return $list ;
}
function file_tag_update_pconfig ( $uid , $file_old , $file_new , $type = 'file' ) {
// $file_old - categories previously associated with an item
// $file_new - new list of categories for an item
if ( ! intval ( $uid ))
return false ;
if ( $file_old == $file_new )
return true ;
$saved = get_pconfig ( $uid , 'system' , 'filetags' );
if ( strlen ( $saved )) {
if ( $type == 'file' ) {
$lbracket = '[' ;
$rbracket = ']' ;
}
else {
$lbracket = '<' ;
$rbracket = '>' ;
}
$filetags_updated = $saved ;
// check for new tags to be added as filetags in pconfig
$new_tags = array ();
$check_new_tags = explode ( " , " , file_tag_file_to_list ( $file_new , $type ));
foreach ( $check_new_tags as $tag ) {
if ( ! stristr ( $saved , $lbracket . file_tag_encode ( $tag ) . $rbracket ))
$new_tags [] = $tag ;
}
$filetags_updated .= file_tag_list_to_file ( implode ( " , " , $new_tags ), $type );
// check for deleted tags to be removed from filetags in pconfig
$deleted_tags = array ();
$check_deleted_tags = explode ( " , " , file_tag_file_to_list ( $file_old , $type ));
foreach ( $check_deleted_tags as $tag ) {
if ( ! stristr ( $file_new , $lbracket . file_tag_encode ( $tag ) . $rbracket ))
$deleted_tags [] = $tag ;
}
foreach ( $deleted_tags as $key => $tag ) {
$r = q ( " select file from item where uid = %d " . file_tag_file_query ( 'item' , $tag , $type ),
intval ( $uid )
);
if ( count ( $r )) {
unset ( $deleted_tags [ $key ]);
}
else {
$filetags_updated = str_replace ( $lbracket . file_tag_encode ( $tag ) . $rbracket , '' , $filetags_updated );
}
}
if ( $saved != $filetags_updated ) {
set_pconfig ( $uid , 'system' , 'filetags' , $filetags_updated );
}
return true ;
}
else
if ( strlen ( $file_new )) {
set_pconfig ( $uid , 'system' , 'filetags' , $file_new );
}
return true ;
}
2012-03-12 04:32:11 +00:00
function file_tag_save_file ( $uid , $item , $file ) {
$result = false ;
if ( ! intval ( $uid ))
return false ;
$r = q ( " select file from item where id = %d and uid = %d limit 1 " ,
intval ( $item ),
intval ( $uid )
);
if ( count ( $r )) {
if ( ! stristr ( $r [ 0 ][ 'file' ], '[' . file_tag_encode ( $file ) . ']' ))
q ( " update item set file = '%s' where id = %d and uid = %d limit 1 " ,
2012-03-14 01:13:03 +00:00
dbesc ( $r [ 0 ][ 'file' ] . '[' . file_tag_encode ( $file ) . ']' ),
2012-03-12 04:32:11 +00:00
intval ( $item ),
intval ( $uid )
);
$saved = get_pconfig ( $uid , 'system' , 'filetags' );
if (( ! strlen ( $saved )) || ( ! stristr ( $saved , '[' . file_tag_encode ( $file ) . ']' )))
set_pconfig ( $uid , 'system' , 'filetags' , $saved . '[' . file_tag_encode ( $file ) . ']' );
2012-03-28 08:45:16 +00:00
info ( t ( 'Item filed' ) );
2012-03-12 04:32:11 +00:00
}
return true ;
}
2012-05-04 13:42:56 +00:00
function file_tag_unsave_file ( $uid , $item , $file , $cat = false ) {
2012-03-12 04:32:11 +00:00
$result = false ;
if ( ! intval ( $uid ))
return false ;
2012-05-04 13:42:56 +00:00
if ( $cat == true )
$pattern = '<' . file_tag_encode ( $file ) . '>' ;
else
$pattern = '[' . file_tag_encode ( $file ) . ']' ;
2012-03-12 04:32:11 +00:00
$r = q ( " select file from item where id = %d and uid = %d limit 1 " ,
intval ( $item ),
intval ( $uid )
);
if ( ! count ( $r ))
return false ;
q ( " update item set file = '%s' where id = %d and uid = %d limit 1 " ,
dbesc ( str_replace ( $pattern , '' , $r [ 0 ][ 'file' ])),
intval ( $item ),
intval ( $uid )
);
2012-05-05 00:43:47 +00:00
$r = q ( " select file from item where uid = %d and deleted = 0 " . file_tag_file_query ( 'item' , $file ,(( $cat ) ? 'category' : 'file' )),
2012-03-12 04:32:11 +00:00
intval ( $uid )
);
if ( ! count ( $r )) {
$saved = get_pconfig ( $uid , 'system' , 'filetags' );
set_pconfig ( $uid , 'system' , 'filetags' , str_replace ( $pattern , '' , $saved ));
2012-05-04 13:42:56 +00:00
2012-03-12 04:32:11 +00:00
}
return true ;
}
2012-03-06 20:50:38 +00:00
2012-03-19 13:48:11 +00:00
function normalise_openid ( $s ) {
return trim ( str_replace ( array ( 'http://' , 'https://' ), array ( '' , '' ), $s ), '/' );
}
2012-03-22 23:17:10 +00:00
function undo_post_tagging ( $s ) {
$matches = null ;
$cnt = preg_match_all ( '/([@#])\[url=(.*?)\](.*?)\[\/url\]/ism' , $s , $matches , PREG_SET_ORDER );
if ( $cnt ) {
foreach ( $matches as $mtch ) {
$s = str_replace ( $mtch [ 0 ], $mtch [ 1 ] . $mtch [ 3 ], $s );
}
}
return $s ;
}
2012-04-10 23:31:49 +00:00
function fix_mce_lf ( $s ) {
$s = str_replace ( " \r \n " , " \n " , $s );
2012-08-01 08:36:39 +00:00
// $s = str_replace("\n\n","\n",$s);
2012-04-10 23:31:49 +00:00
return $s ;
2012-04-13 09:56:21 +00:00
}
2012-05-09 05:46:40 +00:00
function protect_sprintf ( $s ) {
return ( str_replace ( '%' , '%%' , $s ));
}
2012-06-12 02:36:04 +00:00
function is_a_date_arg ( $s ) {
$i = intval ( $s );
if ( $i > 1900 ) {
$y = date ( 'Y' );
if ( $i <= $y + 1 && strpos ( $s , '-' ) == 4 ) {
$m = intval ( substr ( $s , 5 ));
if ( $m > 0 && $m <= 12 )
return true ;
}
}
return false ;
}