Seditio Source
Root |
./othercms/GetSimpleCMS-3.3.16/admin/inc/basic.php
<?php if(!defined('IN_GS')){ die('you cannot load this page directly.'); }
/**
 * Basic Functions
 *
 * These functions are used throughout the installation of GetSimple.
 *
 * @package GetSimple
 * @subpackage Basic-Functions
 */

/**
 * Clean URL
 *
 * @since 1.0
 *
 * @param string $text
 * @return string
 */
function clean_url($text)  {
   
$text = strip_tags(lowercase($text));
   
$code_entities_match = array(' ?',' ','--','&quot;','!','@','#','$','%','^','&','*','(',')','+','{','}','|',':','"','<','>','?','[',']','\\',';',"'",',','/','*','+','~','`','=','.');
   
$code_entities_replace = array('','-','-','','','','','','','','','','','','','','','','','','','','','','','','');
   
$text = str_replace($code_entities_match, $code_entities_replace, $text);
   
$text = urlencode($text);
   
$text = str_replace('--','-',$text);
   
$text = rtrim($text, "-");
    return
$text;
}

/**
 * Clean Image Name
 *
 * Mirror image of Clean URL, but it allows periods so file extentions still work
 *
 * @since 2.0
 *
 * @param string $text
 * @return string
 */
function clean_img_name($text)  {
   
$text = getDef('GSUPLOADSLC',true) ? strip_tags(lowercase($text)) : strip_tags($text);
   
$code_entities_match = array(' ?',' ','--','&quot;','!','#','$','%','^','&','*','(',')','+','{','}','|',':','"','<','>','?','[',']','\\',';',"'",',','/','*','+','~','`','=');
   
$code_entities_replace = array('','-','-','','','','','','','','','','','','','','','','','','','','','','');
   
$text = str_replace($code_entities_match, $code_entities_replace, $text);
   
$text = urlencode($text);
   
$text = str_replace('--','-',$text);
   
$text = str_replace('%40','@',$text); // ensure @ is not encoded
   
$text = rtrim($text, "-");
    return
$text;
}

/**
 * 7bit Text Converter
 *
 * Converts a string to a different encoding format
 *
 * @since 1.0
 *
 * @param string $text
 * @param string $from_enc
 * @return string
 */
function to7bit($text,$from_enc="UTF-8") {
    if (
function_exists('mb_convert_encoding')) {
           
$text = mb_convert_encoding($text,'HTML-ENTITIES',$from_enc);
    } else {
       
$text = htmlspecialchars_decode(utf8_decode(htmlentities($text, ENT_COMPAT, 'utf-8', false)));
    }
   
$text = preg_replace(
        array(
'/&szlig;/','/&(..)lig;/',
             
'/&([aouAOU])uml;/','/&(.)[^;]*;/'),
        array(
'ss',"$1","$1".'e',"$1"),
       
$text);
    return
$text;
}


/**
 * Formats Email to HTML Style
 *
 * @since 3.1
 *
 * @param string $message
 * @return string
 */
function email_template($message) {
   
$data = '
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >
    <style>
     table td p {margin-bottom:15px;}
     a img {border:none;}
    </style>
    </head>
    <body style="padding:0;margin:0;background: #f3f3f3;font-family:arial, \'helvetica neue\', helvetica, serif" >
    <table cellpadding="0" cellspacing="0" border="0" align="center" width="100%" style="padding: 0 0 35px 0; background: #f3f3f3;">
      <tr>
        <td align="center" style="margin: 0; padding: 0;">
          <center>
            <table border="0" cellpadding="0" cellspacing="0" width="580" style="border-radius:3px;">
                        <tr>
                            <th style="padding:15px 0 15px 20px;text-align:left;vertical-align:top;background:#171E25;border-radius:4px 4px 0 0;" >
                                <a href="http://get-simple.info/"><img src="http://get-simple.info/GSSW/gssw_assets/images/logo.png" alt="GetSimple CMS"></a>
                            </th>
                        </tr>
                        <tr>
                            <td style="background:#fff;border-bottom:1px solid #e1e1e1;border-right:1px solid #e1e1e1;border-left:1px solid #e1e1e1;font-size:13px;font-family:arial, helvetica, sans-serif;padding:20px;line-height:22px;" >
                                '
.$message.'
                            </td>
                        </tr>
                        <tr>
                            <td style="padding-top:10px;font-size:10px;color:#aaa;line-height:14px;font-family:arial, \'helvetica neue\', helvetica, serif" >
                                <p class="meta">This is a system-generated email, please do not reply to it. For help or questions about GetSimple, please visit our <a href="http://get-simple.info/" style="color:#aaa;" >website</a>.<br />&copy; '
.date('Y').' GetSimple CMS. All Rights Reserved.&nbsp;<a href="http://get-simple.info/start/privacy" style="color:#aaa;" >Privacy Policy</a>. </p>
                            </td>
                        </tr>
                    </table>
                </center>
            </td>
        </tr>
    </table>
    </body>
    </html>
    '
;
    return
$data;
}


/**
 * Send Email
 *
 * @since 1.0
 * @uses GSFROMEMAIL
 * @uses $EMAIL
 *
 * @param string $to
 * @param string $subject
 * @param string $message
 * @return string
 */
function sendmail($to,$subject,$message) {
   
   
$message = email_template($message);

    if (
defined('GSFROMEMAIL')){
       
$fromemail = GSFROMEMAIL;
    } else {
        if(!empty(
$_SERVER['SERVER_ADMIN']) && check_email_address($_SERVER['SERVER_ADMIN'])) $fromemail = $_SERVER['SERVER_ADMIN'];
        else
$fromemail =  'noreply@'.$_SERVER['SERVER_NAME'];
    }

    global
$EMAIL;
   
$headers  ='"MIME-Version: 1.0' . PHP_EOL;
   
$headers .= 'Content-Type: text/html; charset=UTF-8' . PHP_EOL;
   
$headers .= 'From: '.$fromemail . PHP_EOL;
     
$headers .= 'Reply-To: '.$fromemail . PHP_EOL;
     
$headers .= 'Return-Path: '.$fromemail . PHP_EOL;
   
    if( @
mail($to,'=?UTF-8?B?'.base64_encode($subject).'?=',"$message",$headers) ) {
        return
'success';
    } else {
        return
'error';
    }
}

/**
 * Sub-Array Sort
 *
 * Sorts the passed array by a subkey
 *
 * @since 1.0
 *
 * @param array $a
 * @param string $subkey Key within the array passed you want to sort by
 * @param string $order - order 'asc' ascending or 'desc' descending
 * @param bool $natural - sort using a "natural order" algorithm
 * @return array
 */
function subval_sort($a,$subkey, $order='asc',$natural = true) {
    if (
count($a) != 0 || (!empty($a))) {
        foreach(
$a as $k=>$v) {
            if(isset(
$v[$subkey])) $b[$k] = lowercase($v[$subkey]);
        }

        if(!isset(
$b)) return $a;

        if(
$natural){
           
natsort($b);
            if(
$order=='desc') $b = array_reverse($b,true);    
        }
        else {
            (
$order=='asc')? asort($b) : arsort($b);
        }
       
        foreach(
$b as $key=>$val) {
           
$c[] = $a[$key];
        }

        return
$c;
    }
}

/**
 * SimpleXMLExtended Class
 *
 * Extends the default PHP SimpleXMLElement class by
 * allowing the addition of cdata
 *
 * @since 1.0
 *
 * @param string $cdata_text
 */
class SimpleXMLExtended extends SimpleXMLElement{  
  public function
addCData($cdata_text){  
   
$node= dom_import_simplexml($this);  
   
$no = $node->ownerDocument;  
   
$node->appendChild($no->createCDATASection($cdata_text));  
  }
}

/**
 * Is File
 *
 * @since 1.0
 * @uses tsl
 *
 * @param string $file
 * @param string $path
 * @param string $type Optiona, default is 'xml'
 * @return bool
 */
function isFile($file, $path, $type = 'xml') {
    if(
is_file(tsl($path) . $file) && $file != "." && $file != ".." && (strstr($file, $type))  ) {
        return
true;
    } else {
        return
false;
    }
}

/**
 * Get Files
 *
 * Returns an array of files from the passed path
 *
 * @since 1.0
 *
 * @param string $path
 * @return array
 */
function getFiles($path) {
   
$handle = opendir($path) or die("getFiles: Unable to open $path");
   
$file_arr = array();
    while (
$file = readdir($handle)) {
        if (
$file != '.' && $file != '..') {
           
$file_arr[] = $file;
        }
    }
   
closedir($handle);
    return
$file_arr;
}

$microtime_start = null;

function
get_execution_time($reset=false)
{
    GLOBAL
$microtime_start;
    if(
$reset) $microtime_start = null;
       
    if(
$microtime_start === null)
    {
       
$microtime_start = microtime(true);
        return
0.0;
    }    
    return
round(microtime(true) - $microtime_start,5);
}

/**
 * Get XML Data
 *
 * Turns the XML file into an object
 *
 * @since 1.0
 *
 * @param string $file
 * @return object
 */
function getXML($file) {
   
$xml = @file_get_contents($file);
    if(
$xml){
       
$data = simplexml_load_string($xml, 'SimpleXMLExtended', LIBXML_NOCDATA);
        return
$data;
    }    
}

/**
 * XML Save
 *
 * @since 2.0
 * @todo create and chmod file before ->asXML call (if it doesnt exist already, if so, then just chmod it.)
 *
 * @param object $xml
 * @param string $file Filename that it will be saved as
 * @return bool
 */
function XMLsave($xml, $file) {
   
# get_execution_time(true);
   
if(!is_object($xml)){
       
debugLog(__FUNCTION__ . ' failed to save xml');
        return
false;
    }    
   
$data = @$xml->asXML();
    if(
getDef('GSFORMATXML',true)) $data = formatXmlString($data); // format xml if config setting says so
   
$data = exec_filter('xmlsave',$data); // @filter xmlsave executed before writing string to file
   
$success = file_put_contents($file, $data); // LOCK_EX ?
   
    // debugLog('XMLsave: ' . $file . ' ' . get_execution_time());    
   
if(getDef('GSDOCHMOD') === false) return $success;
    if (
defined('GSCHMOD')) {
        return
$success && chmod($file, GSCHMOD);
    } else {
        return
$success && chmod($file, 0755);
    }
}

/**
 * Long Date Output
 *
 * @since 1.0
 * @uses $i18n
 * @uses i18n_r
 *
 * @param string $dt Date/Time format, default is $i18n['DATE_AND_TIME_FORMAT']
 * @return string
 */
function lngDate($dt) {
    global
$i18n;
   
    if (!
$dt) {
       
$data = date(i18n_r('DATE_AND_TIME_FORMAT'));
    } else {
       
$data = date(i18n_r('DATE_AND_TIME_FORMAT'), strtotime($dt));
    }
    return
$data;
}

/**
 * Short Date Output
 *
 * @since 1.0
 * @uses $i18n
 * @uses i18n_r
 *
 * @param string $dt Date/Time format, default is $i18n['DATE_FORMAT']
 * @return string
 */
function shtDate($dt) {
    global
$i18n;
   
    if (!
$dt) {
       
$data = date(i18n_r('DATE_FORMAT'));
    } else {
       
$data = date(i18n_r('DATE_FORMAT'), strtotime($dt));
    }
    return
$data;
}

/**
 * Clean Utility
 *
 * @since 1.0
 *
 * @param string $data
 * @return string
 */
function cl($data){
   
$data = stripslashes(strip_tags(html_entity_decode($data, ENT_QUOTES, 'UTF-8')));
   
//$data = preg_replace('/[[:cntrl:]]/', '', $data); //remove control characters that cause interface to choke
   
return $data;
}

/**
 * Add Trailing Slash
 *
 * @since 1.0
 *
 * @param string $path
 * @return string
 */
function tsl($path) {
    if(
substr($path, strlen($path) - 1) != '/' ) {
       
$path .= '/';
    }
    return
$path;
}

/**
 * Case-Insensitve In-Array
 *
 * Creates a function that PHP should already have, but doesnt
 *
 * @since 1.0
 *
 * @param string $path
 * @return string
 */
if(!function_exists('in_arrayi')) {
    function
in_arrayi($needle, $haystack) {
        return
in_array(lowercase($needle), array_map('lowercase', $haystack));
    }
}

/**
 * Creates Standard URL for Pages
 *
 * Default function to create the correct url structure for each front-end page
 *
 * @since 2.0
 * @uses $PRETTYURLS
 * @uses $SITEURL
 * @uses $PERMALINK
 * @uses tsl
 *
 * @param string $slug
 * @param string $parent
 * @param string $type Default is 'full', alternative is 'relative'
 * @return string
 */
function find_url($slug, $parent, $type='full') {
    global
$PRETTYURLS;
    global
$SITEURL;
    global
$PERMALINK;
               
    if (
$type == 'full') {
       
$full = $SITEURL;
    } elseif(
$type == 'relative') {
       
$s = pathinfo(htmlentities($_SERVER['PHP_SELF'], ENT_QUOTES));
       
$full = $s['dirname'] .'/';
       
$full = str_replace('//', '/', $full);
    } else {
       
$full = '/';
    }
   
    if (
$parent != '') {
       
$parent = tsl($parent);
    }    

  if (
$PRETTYURLS == '1') {      
    if (
$slug != 'index'){  
       
$url = $full . $parent . $slug . '/';
    } else {
       
$url = $full;
    }  
  } else {
        if (
$slug != 'index'){
       
$url = $full .'index.php?id='.$slug;
    } else {
       
$url = $full;
    }
  }
 
    if (
trim($PERMALINK) != '' && $slug != 'index'){
       
$plink = str_replace('%parent%/', $parent, $PERMALINK);
       
$plink = str_replace('%parent%', $parent, $plink);
       
$plink = str_replace('%slug%', $slug, $plink);
       
$url = $full . $plink;
    }

    return (string)
$url;
}

/**
 * Strip Path
 *
 * Strips all path info from a filepath or basedir
 *
 * @since 2.0
 * @author Martijn van der Ven
 *
 * @param string $path
 * @return string
 */
function strippath($path) {
   
$pathparts = pathinfo($path);
    if(isset(
$pathparts['extension'])) return $pathparts['filename'].'.'.$pathparts['extension'];
    return
$pathparts['basename'];
}

/**
 * Strip Quotes
 *
 * @since 2.0
 *
 * @param string $text
 * @return string
 */
function strip_quotes($text)  {
   
$text = strip_tags($text);
   
$code_entities_match = array('"','\'','&quot;');
   
$text = str_replace($code_entities_match, '', $text);
    return
trim($text);
}

/**
 * Encode Quotes
 *
 * @since 3.0
 *
 * @param string $text
 * @return string
 */
function encode_quotes($text)  {
   
$text = strip_tags($text);
    if (
version_compare(PHP_VERSION, "5.2.3")  >= 0) {    
       
$text = htmlspecialchars($text, ENT_QUOTES, 'UTF-8', false);
    } else {    
       
$text = htmlspecialchars($text, ENT_QUOTES, 'UTF-8');
    }
    return
trim($text);
}

/**
 * Redirect URL
 *
 * @since 3.0
 * @author schlex
 *
 * @param string $url
 */
function redirect($url) {
    global
$i18n;

   
// handle expired sessions for ajax requests
   
if(requestIsAjax() && !cookie_check()){
       
header('HTTP/1.1 401 Unauthorized', true, 401);
       
header('WWW-Authenticate: FormBased');
        die();
    }    

    if (!
headers_sent($filename, $linenum)) {
   
header('Location: '.var_out($url,"url"));
  } else {
    echo
"<html><head><title>".i18n_r('REDIRECT')."</title></head><body>";
    if ( !
isDebug() ) {
        echo
'<script type="text/javascript">';
        echo
'window.location.href="'.var_out($url,"url").'";'; // @todo sanitize url
       
echo '</script>';
        echo
'<noscript>';
        echo
'<meta http-equiv="refresh" content="0;url='.var_out($url,"url").'" />';
        echo
'</noscript>';
      }
    echo
i18n_r('ERROR').": Headers already sent in ".$filename." on line ".$linenum."\n";
   
printf(i18n_r('REDIRECT_MSG'), $url);
        echo
"</body></html>";
    }
   
    exit;
}

/**
 * Display i18n
 *
 * Displays the default language's tranlation, but if it
 * does not exist, it falls back to the en_US one.
 *
 * @since 3.0
 * @author ccagle8
 * @uses GSLANGPATH
 * @uses $i18n
 * @uses $LANG
 *
 * @param string $name
 * @param bool $echo Optional, default is true
 */
function i18n($name, $echo=true) {
    global
$i18n;
    global
$LANG;

    if(isset(
$i18n)){

        if (isset(
$i18n[$name])) {
           
$myVar = $i18n[$name];
        } else {
           
$myVar = '{'.$name.'}';
        }
    }
    else {
       
$myVar = '{'.$name.'}'; // if $i18n doesnt exist yet return something
   
}

    if (!
$echo) {
        return
$myVar;
    } else {
        echo
$myVar;
    }
}

/**
 * Return i18n
 *
 * Same as i18n, but returns instead of echos
 *
 * @since 3.0
 * @author ccagle8
 *
 * @param string $name
 */
function i18n_r($name) {
    return
i18n($name, false);
}

/**
 * i18n Merge
 *
 * Merges a plugin's language file with the global $i18n language
 * This is the function that plugin developers will call to initiate the language merge
 *
 * @since 3.0
 * @author mvlcek
 * @uses i18n_merge_impl
 * @uses $i18n
 * @uses $LANG
 *
 * @param string $plugin
 * @param string $language, default=null
 * @return bool
 */
function i18n_merge($plugin, $language=null) {
  global
$i18n, $LANG;
  return
i18n_merge_impl($plugin, $language ? $language : $LANG, $i18n);
}

/**
 * i18n Merge Implementation
 *
 * Does the merging of a plugin's language file with the global $i18n language
 *
 * @since 3.0
 * @author mvlcek
 * @uses GSPLUGINPATH
 *
 * @param string $plugin null if merging in core langs
 * @param string $lang
 * @param string $globali18n
 * @return bool
 */
function i18n_merge_impl($plugin, $lang, &$globali18n) {

 
$i18n = array(); // local from file
 
if(!isset($globali18n)) $globali18n = array(); //global ref to $i18n
   
 
$path     = ($plugin ? GSPLUGINPATH.$plugin.'/lang/' : GSLANGPATH);
 
$filename = $path.$lang.'.php';
 
$prefix   = $plugin ? $plugin.'/' : '';

  if (!
filepath_is_safe($filename,$path) || !file_exists($filename)) {
    return
false;
  }

  include(
$filename);
 
 
// if core lang and glboal is empty assign
 
if(!$plugin && !$globali18n && count($i18n) > 0){
     
$globali18n = $i18n;
     return
true;
  }

 
// replace on per key basis
 
if (count($i18n) > 0){
    foreach (
$i18n as $code => $text) {
      if (!
array_key_exists($prefix.$code, $globali18n)) {
       
$globali18n[$prefix.$code] = $text;
      }
    }
  }
  return
true;
}

/**
 * Safe AddSlashes HTML
 *
 * @since 2.04
 * @author ccagle8
 *
 * @param string $text
 * @return string
 */
function safe_slash_html($text) {
    if (
get_magic_quotes_gpc()==0) {
       
$text = addslashes(htmlspecialchars($text, ENT_QUOTES, 'UTF-8'));
    } else {
       
$text = htmlspecialchars($text, ENT_QUOTES, 'UTF-8');
    }

    return
xmlFilterChars($text);
}

/**
 * xmlFilterChars
 *
 * @since  3.3.3
 * @param  str $str string to prepare for xml cdata
 * @return str      filtered string
 */
function xmlFilterChars($str){
   
$chr = getRegexUnicode();
   
// filter only xml allowed characters
   
return preg_replace ('/[^'.$chr['ht'].$chr['lf'].$chr['cr'].$chr['lower'].$chr['upper'].']+/u', ' ', $str);
}

/**
 * getRegexUnicode
 * defines unicode char and char ranges for use in regex filters
 *
 * @since  3.3.3
 * @param  str $id key to return from char range array
 * @return mixed     array or str if id specified of regex char strings
 */
function getRegexUnicode($id = null){
   
$chars = array(
       
'null'       => '\x{0000}',            // 0 null
       
'ht'         => '\x{0009}',            // 9 horizontal tab
       
'lf'         => '\x{000a}',            // 10 line feed
       
'vt'         => '\x{000b}',            // 11 vertical tab
       
'FF'         => '\x{000c}',            // 12 form feed
       
'cr'         => '\x{000d}',            // 13 carriage return
       
'cntrl'      => '\x{0001}-\x{0019}',   // 1-31 control codes
       
'cntrllow'   => '\x{0001}-\x{000c}',   // 1-12 low end control codes
       
'cntrlhigh'  => '\x{000e}-\x{0019}',   // 14-31 high end control codes
       
'bom'        => '\x{FEFF}',            // 65279 BOM byte order mark
       
'lower'      => '\x{0020}-\x{D7FF}',   // 32 - 55295
       
'surrogates' => '\x{D800}-\x{DFFF}',   // 55296 - 57343
       
'upper'      => '\x{E000}-\x{FFFD}',   // 57344 - 65533
       
'nonchars'   => '\x{FFFE}-\x{FFFF}',   // 65534 - 65535
       
'privateb'   => '\x{10000}-\x{10FFFD}' // 65536 - 1114109
   
);

    if(isset(
$id)) return $chars[$id];
    return
$chars;
}

/**
 * Safe StripSlashes HTML Decode
 *
 * @since 2.04
 * @author ccagle8
 *
 * @param string $text
 * @return string
 */
function safe_strip_decode($text) {
    if (
get_magic_quotes_gpc()==0) {
       
$text = htmlspecialchars_decode($text, ENT_QUOTES);
    } else {
       
$text = stripslashes(htmlspecialchars_decode($text, ENT_QUOTES));
    }
    return
$text;
}

/**
 * StripSlashes HTML Decode
 *
 * @since 2.04
 * @author ccagle8
 *
 * @param string $text
 * @return string
 */
function strip_decode($text) {
   
$text = stripslashes(htmlspecialchars_decode($text, ENT_QUOTES));
    return
$text;
}

/**
 * Safe Pathinfo Filename
 *
 * for backwards compatibility for before PHP 5.2
 *
 * @since 3.0
 * @author madvic
 *
 * @param string $file
 * @return string
 */
function pathinfo_filename($file) {
    if (
defined('PATHINFO_FILENAME')) return pathinfo($file,PATHINFO_FILENAME);
   
$path_parts = pathinfo($file);

    if(isset(
$path_parts['extension']) && ($file!='..')){
      return
substr($path_parts['basename'],0 ,strlen($path_parts['basename'])-strlen($path_parts['extension'])-1);
    } else{
      return
$path_parts['basename'];
    }
}


function
getFileExtension($file){
    return
lowercase(pathinfo($file,PATHINFO_EXTENSION));
}

/**
 * Suggest Site Path
 *
 * Suggestion function for SITEURL variable
 *
 * @since 2.04
 * @uses $GSAMIN
 * @uses http_protocol
 * @author ccagle8
 *
 * @param bool $parts
 * @return string
 */
function suggest_site_path($parts=false, $protocolRelative = false) {
    global
$GSADMIN;
   
$protocol   = $protocolRelative ? '' : http_protocol().':';
   
$path_parts = pathinfo(htmlentities($_SERVER['PHP_SELF'], ENT_QUOTES));
   
$path_parts = str_replace("/".$GSADMIN, "", $path_parts['dirname']);
   
$port       = ($p=$_SERVER['SERVER_PORT'])!='80'&&$p!='443'?':'.$p:'';
   
    if(
$path_parts == '/') {
   
       
$fullpath = $protocol."//". htmlentities($_SERVER['SERVER_NAME'], ENT_QUOTES) . $port . "/";
   
    } else {
       
       
$fullpath = $protocol."//". htmlentities($_SERVER['SERVER_NAME'], ENT_QUOTES) . $port . $path_parts ."/";
       
    }
       
    if (
$parts) {
        return
$path_parts;
    } else {
        return
$fullpath;
    }
}

/**
 * Myself
 *
 * Returns the page itself
 *
 * @since 2.04
 * @author ccagle8
 *
 * @param bool $echo
 * @return string
 */
function myself($echo=true) {
    if (
$echo) {
        echo
htmlentities(basename($_SERVER['PHP_SELF']), ENT_QUOTES);
    } else {
        return
htmlentities(basename($_SERVER['PHP_SELF']), ENT_QUOTES);
    }
}

/**
 * Get Available Themes
 *
 * @since 2.04
 * @uses GSTHEMESPATH
 * @author ccagle8
 *
 * @param string $temp
 * @return array
 */
function get_themes($temp) {
   
$themes_path = GSTHEMESPATH . $temp .'/';
   
$themes_handle = opendir($themes_path);
    while (
$file = readdir($themes_handle))    {
        if(
is_file($themes_path . $file) && $file != "." && $file != ".." ) {
           
$templates[] = $file;
        }
    }
   
sort($templates);    
    return
$templates;
}


/**
 * HTML Decode
 *
 * @since 2.04
 * @author ccagle8
 *
 * @param string $text
 * @return string
 */
function htmldecode($text) {
    return
html_entity_decode($text, ENT_QUOTES, 'UTF-8');
}

/**
 * Safe to LowerCase
 *
 * @since 2.04
 * @author ccagle8
 *
 * @param string $text
 * @return string
 */
function lowercase($text) {
    if (
function_exists('mb_strtolower')) {
       
$text = mb_strtolower($text, 'UTF-8');
    } else {
       
$text = strtolower($text);
    }
   
    return
$text;
}

/**
 * Find AccessKey
 *
 * Provides a simple way to find the accesskey defined by translators as
 * accesskeys are language dependent.
 *
 * @param string $string, text from the i18n array
 * @return string
 */
function find_accesskey($string) {
 
$found = array();
 
$matched = preg_match('/<em>([a-zA-Z])<\/em>/', $string, $found);
  if (
$matched != 1) {
     return
null;
    }
  return
strtolower($found[1]);
}

/**
 * Clean ID
 *
 * Removes characters that don't work in URLs or IDs
 *
 * @param string $text
 * @return string
 */
function _id($text) {
   
$text = to7bit($text, "UTF-8");
   
$text = clean_url($text);
   
$text = preg_replace('/[[:cntrl:]]/', '', $text); //remove control characters that cause interface to choke
   
return lowercase($text);
}

/**
 * Defined Array
 *
 * Checks an array of PHP constants and verifies they are defined
 *
 * @param array $constants
 * @return bool
 */
function defined_array($constants) {
   
$defined = true;
    foreach (
$constants as $constant) {
        if (!
defined($constant)) {
           
$defined = false;
            break;
        }
    }
    return
$defined;
}


/**
 * Is Folder Empty
 *
 * Check to see if a folder is empty or not
 *
 * @param string $folder
 * @return bool
 */
function check_empty_folder($folder) {
   
$files = array ();
    if (
$handle = opendir ( $folder ) ) {
        while (
false !== ( $file = readdir ( $handle ) ) ) {
            if (
$file != "." && $file != ".." ) {
               
$files [] = $file;
            }
        }
       
closedir ( $handle );
    }
    return (
count ( $files ) > 0 ) ? FALSE : TRUE;
}


/**
 * Folder Items
 *
 * Return the amount of items within the given folder
 *
 * @param string $folder
 * @return string
 */
function folder_items($folder) {
   
$files = array ();
    if (
$handle = opendir ( $folder ) ) {
        while (
false !== ( $file = readdir ( $handle ) ) ) {
            if (
$file != "." && $file != ".." ) {
               
$files [] = $file;
            }
        }
       
closedir($handle);
    }
    return
count($files);
}

/**
 * Validate a URL String
 *
 * @param string $u
 * @return bool
 */
function validate_url($u) {
    return
filter_var($u,FILTER_VALIDATE_URL);
}


/**
 * Format XML to Formatted String
 *
 * @param string $xml
 * @return string
 */
function formatXmlString_legacy($xml) {  
 
 
// add marker linefeeds to aid the pretty-tokeniser (adds a linefeed between all tag-end boundaries)
 
$xml = preg_replace('/(>)(<)(\/*)/', "$1\n$2$3", $xml);
 
 
// now indent the tags
 
$token      = strtok($xml, "\n");
 
$result     = ''; // holds formatted version as it is built
 
$pad        = 0; // initial indent
 
$matches    = array(); // returns from preg_matches()
 
  // scan each line and adjust indent based on opening/closing tags
 
while ($token !== false) :
 
   
// test for the various tag states
   
    // 1. open and closing tags on same line - no change
   
if (preg_match('/.+<\/\w[^>]*>$/', $token, $matches)) :
     
$indent=0;
   
// 2. closing tag - outdent now
   
elseif (preg_match('/^<\/\w/', $token, $matches)) :
     
$pad--;
   
// 3. opening tag - don't pad this one, only subsequent tags
   
elseif (preg_match('/^<\w[^>]*[^\/]>.*$/', $token, $matches)) :
     
$indent=1;
   
// 4. no indentation needed
   
else :
     
$indent = 0;
    endif;
   
   
// pad the line with the required number of leading spaces
   
$line    = str_pad($token, strlen($token)+$pad, ' ', STR_PAD_LEFT);
   
$result .= $line . "\n"; // add to the cumulative result, with linefeed
   
$token   = strtok("\n"); // get the next token
   
$pad    += $indent; // update the pad size for subsequent lines    
 
endwhile;
 
  return
$result;
}

/**
   * formats the xml output readable, accepts simplexmlobject or string
   * @param mixed  $data instance of SimpleXmlObject or string
   * @return string of indented xml-elements
   */
 
function formatXmlString($data){
 
    if(
gettype($data) === 'object') $data = $data->asXML();

   
//Format XML to save indented tree rather than one line
     
$dom = new DOMDocument('1.0');
     
$dom->preserveWhiteSpace = false;
     
$dom->formatOutput = true;
     
$dom->loadXML($data);
 
     
$ret = $dom->saveXML();
      return
$ret;
  }

/**
 * Check Server Protocol
 *
 * Checks to see if the website should be served using HTTP or HTTPS
 *
 * @since 3.1
 * @return string
 */
function http_protocol() {
    if (!empty(
$_SERVER['HTTPS']) && $_SERVER['HTTPS'] !== 'off' || $_SERVER['SERVER_PORT'] == 443) {
      return
'https';
    } else {
        return
'http';
    }
}

/**
 * Get File Mime-Type
 *
 * @since 3.1
 * @param $file, absolute path
 * @return string/bool
 */
function file_mime_type($file) {
    if (!
file_exists($file)) {
        return
false;
        exit;
    }
    if(
function_exists('finfo_open')) {
       
# http://www.php.net/manual/en/function.finfo-file.php
       
$finfo = finfo_open(FILEINFO_MIME_TYPE);
       
$mimetype = finfo_file($finfo, $file);
       
finfo_close($finfo);
       
    } elseif(
function_exists('mime_content_type')) {
       
# Depreciated: http://php.net/manual/en/function.mime-content-type.php
       
$mimetype = mime_content_type($file);
    } else {
        return
false;
        exit;    
    }
    return
$mimetype;
}


/**
 * Check Is FrontEnd
 *
 * Checks to see if the you are on the frontend or not
 *
 * @since 3.1
 * @return bool
 */
function is_frontend() {
  GLOBAL
$base;
    if(isset(
$base)) {
        return
true;
    } else {
        return
false;
    }
}

/**
 * Get Installed GetSimple Version
 *
 * This will return the version of GetSimple that is installed
 *
 * @since 1.0
 * @uses GSVERSION
 *
 * @param bool $echo Optional, default is true. False will 'return' value
 * @return string Echos or returns based on param $echo
 */
function get_site_version($echo=true) {
    include(
GSADMININCPATH.'configuration.php');
    if (
$echo) {
        echo
GSVERSION;
    } else {
        return
GSVERSION;
    }
}


/**
 * Get GetSimple Language
 *
 * @since 3.1
 * @uses $LANG
 *
 * @param string
 */
function get_site_lang($short=false) {
    global
$LANG;
    if (
$short) {
       
$LANG_header = preg_replace('/(?:(?<=([a-z]{2}))).*/', '', $LANG);
        return
$LANG_header;
    } else {
        return
$LANG;
    }
}

/**
 * Convert to Bytes
 *
 * @since 3.0
 *
 * @param $str string
 * @return string
 */
function toBytes($str){
   
$val = trim($str, 'gmkGMK');
   
$last = strtolower($str[strlen($str)-1]);
        switch(
$last) {
            case
'g': $val *= 1024;
            case
'm': $val *= 1024;
            case
'k': $val *= 1024;
        }
    return
$val;
}

/**
 * Remove Relative Paths
 *
 * @since 3.1
 *
 * @param $file string
 * @return string
 */
function removerelativepath($file) {
    while(
strpos($file,'../')!==false) {
       
$file = str_replace('../','',$file);
    }
    return
$file;
}

/**
 * Return a directory of files and folders
 *
 * @since 3.1
 *
 * @param $directory string directory to scan
 * @param $recursive boolean whether to do a recursive scan or not.
 * @return array or files and folders
 */
function directoryToArray($directory, $recursive) {
   
$array_items = array();
    if (
$handle = opendir($directory)) {
        while (
false !== ($file = readdir($handle))) {
            if (
$file != "." && $file != "..") {
                if (
is_dir($directory. "/" . $file)) {
                    if(
$recursive) {
                       
$array_items = array_merge($array_items, directoryToArray($directory. "/" . $file, $recursive));
                    }
                   
$file = $directory . "/" . $file;
                   
$array_items[] = preg_replace("/\/\//si", "/", $file);
                } else {
                   
$file = $directory . "/" . $file;
                   
$array_items[] = preg_replace("/\/\//si", "/", $file);
                }
            }
        }
       
closedir($handle);
    }
    return
$array_items;
}


/**
 * Returns definition safely
 *
 * @since 3.1.3
 *
 * @param str $id
 * @param bool $isbool treat definition as boolean and cast it
 * @return * returns definition or null if not defined
 */
function getDef($id,$isbool = false){
    if(
defined($id) ) {
        if(
$isbool) return (bool) constant($id);
        return
constant($id);
    }
}

/**
 * Alias for checking for debug constant
 * @since 3.2.1
 * @return  bool true if debug enabled
 */
function isDebug(){
    return
getDef('GSDEBUG',true);
}

/**
 * check gs version is Beta
 *
 * @since  3.3.0
 * @return boolean true if beta release
 */
function isBeta(){
    return
strPos(get_site_version(false),"b");
}

/**
 * Check if request is an ajax request
 * @since  3.3.0
 * @return bool true if ajax
 */
function requestIsAjax(){
    return (!empty(
$_SERVER['HTTP_X_REQUESTED_WITH']) && strtolower($_SERVER['HTTP_X_REQUESTED_WITH']) == 'xmlhttprequest') || isset($_GET['ajax']);
}

/**
 * check if array is multidimensional
 * @since 3.3.2
 * @param  mixed $ary
 * @return bool true if $ary is a multidimensional array
 */
function arrayIsMultid($ary){
    return
is_array($ary) && ( count($ary) != count($ary,COUNT_RECURSIVE) );
}

/**
 * normalizes toolbar setting, always returns js array string syntax
 * @since 3.3.2
 *
 * @param mixed $var string or array var to convert to js array syntax
 */
function returnJsArray($var){
   
    if(!
$var) return;

    if(!
is_array($var)) {
       
// if looks like an array string try to parse as array
       
if(strrpos($var, '[') !==false){
           
// normalize array strings
           
$var = stripslashes($var);         // remove escaped quotes
           
$var = trim(trim($var),',');       // remove trailing commas
           
$var = str_replace('\'','"',$var); // replace single quotes with double (for json)
           
           
$ary = json_decode($var);
           
           
// add primary nest if missing
           
if(!is_array($ary) || !arrayIsMultid($ary) ) $ary = json_decode('['.$var.']');
           
           
// if proper array use it
           
if(is_array($ary) ) $var = json_encode($ary);
            else
$var = "'".trim($var,"\"'")."'";
        }
        else{
           
// else quote wrap string, trim to avoid double quoting
           
$var = "'".trim($var,"\"'")."'";
        }    
    }
    else {
       
// convert php array to js array
       
$var = json_encode($var);
    }

    return
$var;
}


/**
 * sends an x-frame-options heaeder
 * @since  3.4
 * @param  string $value header value to send, default `DENY`
 */
function header_xframeoptions($value = null){
    if(!isset(
$value)){
        if(
getDef('GSNOFRAMEDEFAULT',true)) $value = getDef('GSNOFRAMEDEFAULT');
        else
$value = 'DENY';
    }    
   
header('X-Frame-Options: ' . $value); // FF 3.6.9+ Chrome 4.1+ IE 8+ Safari 4+ Opera 10.5+
}


/**
 * strip non printing white space from string
 * replaces various newlines and tab chars with replacement character
 * then cleans up multiple replacement characters
 *
 * eg. strip_whitespace("Line   1\n\tLine 2\r\t\tLine 3  \r\n\t\t\tLine 4\n  "," ");
 * @since 3.3.6
 * @param  str $str     input string
 * @param  string $replace replacement character
 * @return str          new string
 */
function strip_whitespace($str,$replace = ' '){
   
$chars = array("\r\n", "\n", "\r", "\t");
   
$str   = str_replace($chars, $replace, $str);
    return
preg_replace('/['.$replace.']+/', $replace, $str);
}

/**
 * strip shortcodes based on pattern
 * @since  3.3.6
 * @param  str $str     input string
 * @param  string $pattern regex pattern to strip
 * @return str          new string
 */
function strip_content($str, $pattern = '/[({]%.*?%[})]/'){
    if(
getDef('GSCONTENTSTRIPPATTERN',true)) $pattern = getDef('GSCONTENTSTRIPPATTERN');
    return    
preg_replace($pattern, '', $str);
}

/**
 * perform transliteration conversion on string
 * @since  3.3.11
 * @param  str $str string to convert
 * @return str      str after transliteration replacement array ran on it
 */
function doTransliteration($str){
    if (
getTransliteration() && is_array($translit=getTransliteration()) && count($translit>0)) {
       
$str = str_replace(array_keys($translit),array_values($translit),$str);
    }
    return
$str;
}

/**
 * get transliteration set as defined in i18n
 * @since 3.3.11
 * @return str
 */
function getTransliteration(){
    return
i18n_r("TRANSLITERATION");
}

?>