<?php

/***************************************************************************
*                            Dolphin Smart Community Builder
*                              -----------------
*     begin                : Mon Mar 23 2006
*     copyright            : (C) 2006 BoonEx Group
*     website              : http://www.boonex.com/
* This file is part of Dolphin - Smart Community Builder
*
* Dolphin is free software. This work is licensed under a Creative Commons Attribution 3.0 License.
* http://creativecommons.org/licenses/by/3.0/
*
* Dolphin is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
* without even the implied warranty of  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
* See the Creative Commons Attribution 3.0 License for more details.
* You should have received a copy of the Creative Commons Attribution 3.0 License along with Dolphin,
* see license.txt file; if not, write to marketing@boonex.com
***************************************************************************/

require_once("header.inc.php");

bx_import('BxDolModule');
bx_import('BxDolEmailTemplates');

define('BX_DOL_LOCALE_TIME', 2);
define('BX_DOL_LOCALE_DATE_SHORT', 4);
define('BX_DOL_LOCALE_DATE', 5);

define('BX_DOL_LOCALE_PHP', 1);
define('BX_DOL_LOCALE_DB', 2);

define('BX_TAGS_NO_ACTION', 0); // default
define('BX_TAGS_STRIP', 1);
define('BX_TAGS_SPECIAL_CHARS', 8);
define('BX_TAGS_VALIDATE', 16);
define('BX_TAGS_STRIP_AND_NL2BR', 32);

define('BX_SLASHES_AUTO', 0); // default
define('BX_SLASHES_ADD', 1);
define('BX_SLASHES_STRIP', 2);
define('BX_SLASHES_NO_ACTION', 3);

/**
 * The following two functions are needed to convert title to uri and back.
 * It usefull when titles are used in URLs, like in Categories and Tags.
 */
function title2uri($sValue) {
        return str_replace(
                array('&', '/', '\\', '"', '+'),
                array('[and]', '[slash]', '[backslash]', '[quote]', '[plus]'),
                $sValue
        );
}
function uri2title($sValue) {
        return str_replace(
                array('[and]', '[slash]', '[backslash]', '[quote]', '[plus]'),
                array('&', '/', '\\', '"', '+'),
                $sValue
        );
}

/**
 * Convert date(timestamp) in accordance with requested format code.
 *
 * @param string $sTimestamp - timestamp
 * @param integer $iCode - format code
 *                  1(4) - short date format. @see sys_options -> short_date_format_php
 *                  2 - time format. @see sys_options -> time_format_php
 *                  3(5) - long date format. @see sys_options -> date_format_php
 *                  6 - RFC 2822 date format.
 */
function getLocaleDate($sTimestamp = '', $iCode = BX_DOL_LOCALE_DATE_SHORT) {
    $sFormat = (int)$iCode == 6 ? 'r' : getLocaleFormat($iCode);

        return date($sFormat, $sTimestamp);
}
/**
 * Get data format in accordance with requested format code and format type.
 *
 * @param integer $iCode - format code
 *                  1(4) - short date format. @see sys_options -> short_date_format_php
 *                  2 - time format. @see sys_options -> time_format_php
 *                  3(5) - long date format. @see sys_options -> date_format_php
 *                  6 - RFC 2822 date format.
 * @param integer $iType - format type
 *                  1 - for PHP code.
 *                  2 - for database.
 */
function getLocaleFormat($iCode = BX_DOL_LOCALE_DATE_SHORT, $iType = BX_DOL_LOCALE_PHP) {
    $sPostfix = (int)$iType == BX_DOL_LOCALE_PHP ? '_php' : '';

    $sResult = '';
    switch ($iCode) {
                case 2:
                        $sResult = getParam('time_format' . $sPostfix);
                        break;
        case 1:
        case 4:
            $sResult = getParam('short_date_format' . $sPostfix);
            break;
        case 3:
        case 5:
            $sResult = getParam('date_format' . $sPostfix);
            break;
        }

        return $sResult;
}

/**
 * Function will check on blocked status;
 *
 * @param  : $iFirstProfile (integer) - first profile's id;
 * @param  : $iSecondProfile (integer) - second profile's id;
 * @return : (boolean) - true if pair will blocked;
 */
function isBlocked($iFirstProfile, $iSecondProfile)
{
    $iFirstProfile = (int)$iFirstProfile;
    $iSecondProfile = (int)$iSecondProfile;
        $sQuery = "SELECT COUNT(*) FROM `sys_block_list` WHERE `ID` = {$iFirstProfile} AND `Profile` = {$iSecondProfile}";
    return db_value( $sQuery) ? true : false;
}

/*
 * function for work with profile
 */
function is_friends($id1, $id2) {
        $id1 = (int)$id1;
        $id2 = (int)$id2;
        if ($id1 == 0 || $id2 == 0)
           return;
    $cnt = db_arr("SELECT SUM(`Check`) AS 'cnt' FROM `sys_friend_list` WHERE `ID`='{$id1}' AND `Profile`='{$id2}' OR `ID`='{$id2}' AND `Profile`='{$id1}'");
        return ($cnt['cnt'] > 0 ? true : false);
}

/*
 * functions for limiting maximal word length (returned from ash).
 */
function WordWrapStr($input, $len = 35) {
        $output = wordwrap($input, $len, " ", true);
        return $output;
}

/*
 * functions for limiting maximal word length
 */
function strmaxwordlen($input, $len = 100) {
        return $input;
}

/*
 * functions for limiting maximal text length
 */
function strmaxtextlen($input, $len = 60) {
        if ( strlen($input) > $len )
                return mb_substr($input, 0, $len - 4) . "...";
        else
                return $input;
}

function html2txt($content, $tags = "") {
        while($content != strip_tags($content, $tags)) {
                $content = strip_tags($content, $tags);
        }

        return $content;
}

function html_encode($text) {
     $searcharray =  array(
    "'([-_\w\d.]+@[-_\w\d.]+)'",
    "'((?:(?!://).{3}|^.{0,2}))(www\.[-\d\w\.\/]+)'",
    "'(http[s]?:\/\/[-_~\w\d\.\/]+)'");

    $replacearray = array(
    "<a href=\"mailto:\\1\">\\1</a>",
    "\\1http://\\2",
    "<a href=\"\\1\" target=_blank>\\1</a>");

   return preg_replace($searcharray, $replacearray, stripslashes($text));
}

/*
 * functions for input data into database
 * @param $text string to pass to database
 * @param $strip_tags tags parameter:
 *          BX_TAGS_STRIP - strip tags
 *          BX_TAGS_SPECIAL_CHARS - translate to special html chars (not good to use this, it is better to do such thing during output to browser)
 *          BX_TAGS_VALIDATE - validate HTML
 *          BX_TAGS_NO_ACTION - do not perform any action with tags
 *  @param $addslashes slashes parameter:
 *          BX_SLASHES_AUTO - automatically detect magic_quotes_gpc setting
 *          BX_SLASHES_STRIP - strip slashes
 *          BX_SLASHES_ADD - add slashes
 *          BX_SLASHES_NO_ACTION - do not perform any action with slashes
 */
function process_db_input( $text, $strip_tags = 0, $addslashes = 0 ) {

    if (is_array($text)) {
        foreach ($text as $k => $v)
            $text[$k] = process_db_input($v, $strip_tags, $addslashes);
        return $text;
    }

    if ((get_magic_quotes_gpc() && $addslashes == BX_SLASHES_AUTO) || $addslashes == BX_SLASHES_STRIP)
        $text = stripslashes($text);
    elseif ($addslashes == BX_SLASHES_ADD)
        $text = addslashes($text);

    switch ($strip_tags) {
    case BX_TAGS_STRIP_AND_NL2BR:
        return mysql_real_escape_string(nl2br(strip_tags($text)));
    case BX_TAGS_STRIP:
        return mysql_real_escape_string(strip_tags($text));
    case BX_TAGS_SPECIAL_CHARS:
        return mysql_real_escape_string(htmlspecialchars($text, ENT_QUOTES, 'UTF-8'));
    case BX_TAGS_VALIDATE:
        return mysql_real_escape_string(clear_xss($text));
    case BX_TAGS_NO_ACTION:
    default:
        return mysql_real_escape_string($text);
    }
}

/*
 * function for processing pass data
 *
 * This function cleans the GET/POST/COOKIE data if magic_quotes_gpc() is on
 * for data which should be outputed immediately after submit
 */
function process_pass_data( $text, $strip_tags = 0 ) {
        if ( $strip_tags )
                $text = strip_tags($text);

        if ( !get_magic_quotes_gpc() )
                return $text;
        else
                return stripslashes($text);
}

/*
 * function for output data from database into html
 */
function htmlspecialchars_adv( $string ) {
    //return htmlspecialchars($string, ENT_COMPAT, 'UTF-8');
$string = htmlspecialchars($string, ENT_COMPAT, 'UTF-8');
$replaces = array("&ouml;", "&auml;", "&uuml;", "&Ouml;", "&Auml;", "&Uuml;", "&szlig;");
$patterns = array("&amp;ouml;", "&amp;auml;", "&amp;uuml;", "&amp;Ouml;", "&amp;Auml;", "&amp;Uuml;", "&amp;szlig;");
$string = str_replace($patterns, $replaces, $string);
return $string;

    /*
        $patterns = array( "/(?!&#\d{2,};)&/m", "/>/m", "/</m", "/\"/m", "/'/m" );
        $replaces = array( "&amp;", "&gt;", "&lt;", "&quot;", "&#039;" );
        return preg_replace( $patterns, $replaces, $string );
        */
}

function process_text_output( $text, $maxwordlen = 100 ) {
        return ( htmlspecialchars_adv( strmaxwordlen( $text, $maxwordlen ) ) );
}

function process_textarea_output( $text, $maxwordlen = 100 ) {
        return htmlspecialchars_adv( strmaxwordlen( $text, $maxwordlen ) );
}

function process_text_withlinks_output( $text, $maxwordlen = 100 ) {
        return nl2br( html_encode( htmlspecialchars_adv( strmaxwordlen( $text, $maxwordlen ) ) ) );
}

function process_line_output( $text, $maxwordlen = 100 ) {
        return htmlspecialchars_adv( strmaxwordlen( $text, $maxwordlen ) );
}

function process_html_output( $text, $maxwordlen = 100 ) {
        return strmaxwordlen( $text, $maxwordlen );
}

/**
*        Used to construct sturctured arrays in GET or POST data. Supports multidimensional arrays.
*
*        @param array        $Values        Specifies values and values names, that should be submitted. Can be multidimensional.
*
*        @return string        HTML code, which contains <input type="hidden"...> tags with names and values, specified in $Values array.
*/
function ConstructHiddenValues($Values) {
        /**
        *        Recursive function, processes multidimensional arrays
        *
        *        @param string $Name        Full name of array, including all subarrays' names
        *
        *        @param array $Value        Array of values, can be multidimensional
        *
        *        @return string        Properly consctructed <input type="hidden"...> tags
        */
        function ConstructHiddenSubValues($Name, $Value)         {
                if (is_array($Value)) {
                        $Result = "";
                        foreach ($Value as $KeyName => $SubValue) {
                                $Result .= ConstructHiddenSubValues("{$Name}[{$KeyName}]", $SubValue);
                        }
                } else
                        // Exit recurse
                        $Result = "<input type=\"hidden\" name=\"".htmlspecialchars($Name)."\" value=\"".htmlspecialchars($Value)."\" />\n";

                return $Result;
        }
        /* End of ConstructHiddenSubValues function */

        $Result = '';
        if (is_array($Values)) {
                foreach ($Values as $KeyName => $Value) {
                        $Result .= ConstructHiddenSubValues($KeyName, $Value);
                }
        }

        return $Result;
}

/**
*        Returns HTML/javascript code, which redirects to another URL with passing specified data (through specified method)
*
*        @param string        $ActionURL        destination URL
*
*        @param array        $Params        Parameters to be passed (through GET or POST)
*
*        @param string        $Method        Submit mode. Only two values are valid: 'get' and 'post'
*
*        @return mixed        Correspondent HTML/javascript code or false, if input data is wrong
*/
function RedirectCode($ActionURL, $Params = NULL, $Method = "get", $Title = 'Redirect') {
        if ((strcasecmp(trim($Method), "get") && strcasecmp(trim($Method), "post")) || (trim($ActionURL) == ""))
                return false;

        ob_start();

?>
<html>
        <head>
                <title><?= $Title ?></title>
        </head>
        <body>
                <form name="RedirectForm" action="<?= htmlspecialchars($ActionURL) ?>" method="<?= $Method ?>">

<?= ConstructHiddenValues($Params) ?>

                </form>
                <script type="text/javascript">
                        <!--
                        document.forms['RedirectForm'].submit();
                        -->
                </script>
        </body>
</html>
<?

        $Result = ob_get_contents();
        ob_end_clean();

        return $Result;
}

/**
*        Redirects browser to another URL, passing parameters through POST or GET
*        Actually just prints code, returned by RedirectCode (see RedirectCode)
*/
function Redirect($ActionURL, $Params = NULL, $Method = "get", $Title = 'Redirect') {
        $RedirectCodeValue = RedirectCode($ActionURL, $Params, $Method, $Title);
        if ($RedirectCodeValue !== false)
                echo $RedirectCodeValue;
}

function ErrorHandler($errno, $errstr, $errfile, $errline) {
    switch ($errno) {
    case FATAL:
            echo "<b>FATAL</b> [$errno] $errstr<br>\n";
        echo "  Fatal error in line ".$errline." of file ".$errfile;
        echo ", PHP ".PHP_VERSION." (".PHP_OS.")<br>\n";
        echo "Aborting...<br>\n";
        exit(1);
    break;
    case ERROR:
         echo "<b>ERROR</b> [$errno] $errstr<br>\n";
    break;
    case WARNING:
    //    echo "<b></b> [$errno] $errstr<br>\n";
    break;
    default:
    break;
    }
}

function isRWAccessible($sFileName) {
    clearstatcache();
    $perms = fileperms($sFileName);
    return ( $perms & 0x0004 && $perms & 0x0002 ) ? true : false;
}

/**
 * Send email function
 *
 * @param string $sRecipientEmail                - Email where email should be send
 * @param string $sMailSubject                        - subject of the message
 * @param string $sMailBody                                - Body of the message
 * @param integer $iRecipientID                        - ID of recipient profile
 * @param array $aPlus                                        - Array of additional information
 *
 *
 * @return boolean                                                 - trie if message was send
 *                                                                                 - false if not
 */
function sendMail( $sRecipientEmail, $sMailSubject, $sMailBody, $iRecipientID = 0, $aPlus = array(), $sEmailFlag = 'html' ) {
        global $site;

        if($iRecipientID)
                $aRecipientInfo = getProfileInfo( $iRecipientID );

    $sEmailNotify       = isset($GLOBALS['site']['email_notify']) ? $GLOBALS['site']['email_notify'] : getParam('site_email_notify');
    $sSiteTitle         = isset($GLOBALS['site']['title']) ? $GLOBALS['site']['title'] : getParam('site_title');
        $sMailHeader                = "From: =?UTF-8?B?" . base64_encode( $sSiteTitle ) . "?= <{$sEmailNotify}>";
        $sMailParameters        = "-f{$sEmailNotify}";

    if ($aPlus || $iRecipientID) {
            if(!is_array($aPlus))
            $aPlus = array();
            $oEmailTemplates = new BxDolEmailTemplates();
            $sMailSubject = $oEmailTemplates->parseContent($sMailSubject, $aPlus, $iRecipientID);
            $sMailBody = $oEmailTemplates->parseContent($sMailBody, $aPlus, $iRecipientID);
    }

        $sMailSubject = '=?UTF-8?B?' . base64_encode( $sMailSubject ) . '?=';

        $sMailHeader = "MIME-Version: 1.0\r\n" . $sMailHeader;

        if( 'html' == $sEmailFlag) {
                $sMailHeader = "Content-type: text/html; charset=UTF-8\r\n" . $sMailHeader;
                $iSendingResult = mail( $sRecipientEmail, $sMailSubject, $sMailBody, $sMailHeader, $sMailParameters );
        } else {
                $sMailHeader = "Content-type: text/plain; charset=UTF-8\r\n" . $sMailHeader;
        $sMailBody = html2txt($sMailBody);
                $iSendingResult = mail( $sRecipientEmail, $sMailSubject, html2txt($sMailBody), $sMailHeader, $sMailParameters );
        }

    //--- create system event
    bx_import('BxDolAlerts');
    $aAlertData = array(
        'email'     => $sRecipientEmail,
        'subject'   => $sMailSubject,
        'body'      => $sMailBody,
        'header'    => $sMailHeader,
        'params'    => $sMailParameters,
        'html'      => 'html' == $sEmailFlag ? true : false,
    );

    $oZ = new BxDolAlerts('profile', 'send_mail', $aRecipientInfo['ID'], '', $aAlertData);
    $oZ -> alert();

        return $iSendingResult;
}

/*
 * Getting Array with Templates Names
*/

function get_templates_array() {
        $path = BX_DIRECTORY_PATH_ROOT . 'templates/';
        $templ_choices = array();
        $handle = opendir( $path );

        while ( false !== ($sFileName = readdir($handle)) ) {
                if ( is_dir($path.$sFileName) && substr($sFileName, 0, 5) == 'tmpl_' ) {
                        $sTemplName = '';
                        @include( $path.$sFileName.'/scripts/BxTemplName.php' );
                        if( $sTemplName )
                                $templ_choices[substr($sFileName, 5)] = $sTemplName;
                }
        }
        closedir( $handle );
    return $templ_choices;
}

/*
 * The Function Show a Line with Templates Names
*/

function templates_select_txt() {
        $templ_choices = get_templates_array();
        $current_template = ( strlen( $_GET['skin'] ) ) ? $_GET['skin'] : $_COOKIE['skin'];

        foreach ($templ_choices as $tmpl_key => $tmpl_value) {
                if ($current_template == $tmpl_key) {
                        $ReturnResult .= $tmpl_value . ' | ';
                } else {
                        foreach ($_GET as $param_key => $param_value) {
                                $sGetTransfer .= ('skin' != $param_key) ? "&{$param_key}={$param_value}" : '';
                        }
                        $ReturnResult .= '<a href="' . bx_html_attribute($_SERVER['PHP_SELF']) . '?skin='. $tmpl_key . $sGetTransfer . '">' . $tmpl_value . '</a> | ';
                }
        }
        return $ReturnResult;
}

function extFileExists( $sFileSrc ) {
        return (file_exists( $sFileSrc ) && is_file( $sFileSrc )) ? true : false;
}

/*function extDirExists( $sDirSrc ) {
        if( file_exists( $sDirSrc ) && is_dir( $sDirSrc ) ) {
                $ret = true;
        } else {
                $ret = false;
        }

        return $ret;
}*/

function getVisitorIP() {
        $ip = "0.0.0.0";
        if( ( isset( $_SERVER['HTTP_X_FORWARDED_FOR'] ) ) && ( !empty( $_SERVER['HTTP_X_FORWARDED_FOR'] ) ) ) {
                $ip = $_SERVER['HTTP_X_FORWARDED_FOR'];
        } elseif( ( isset( $_SERVER['HTTP_CLIENT_IP'])) && (!empty($_SERVER['HTTP_CLIENT_IP'] ) ) ) {
                $ip = explode(".",$_SERVER['HTTP_CLIENT_IP']);
                $ip = $ip[3].".".$ip[2].".".$ip[1].".".$ip[0];
        } elseif((!isset( $_SERVER['HTTP_X_FORWARDED_FOR'])) || (empty($_SERVER['HTTP_X_FORWARDED_FOR']))) {
                if ((!isset( $_SERVER['HTTP_CLIENT_IP'])) && (empty($_SERVER['HTTP_CLIENT_IP']))) {
                        $ip = $_SERVER['REMOTE_ADDR'];
                }
        }
        return $ip;
}

function genFlag( $country ) {
        return '<img src="' . genFlagUrl($country) . '" />';
}

function genFlagUrl($country) {
        return $GLOBALS['site']['flags'] . strtolower($country) . '.gif';
}

// print debug information ( e.g. arrays )
function echoDbg( $what, $desc = '' ) {
        if ( $desc )
                echo "<b>$desc:</b> ";
        echo "<pre>";
                print_r( $what );
        echo "</pre>\n";
}

function echoDbgLog($mWhat, $sDesc = '', $sFileName = 'debug.log') {
    global $dir;

    $sCont =
        '--- ' . date('r') . ' (' . BX_DOL_START_TIME . ") ---\n" .
        $sDesc . "\n" .
        print_r($mWhat, true) . "\n\n\n";

    $rFile = fopen($dir['tmp'] . $sFileName, 'a');
    fwrite($rFile, $sCont);
    fclose($rFile);
}

function clear_xss($val) {

        if ($GLOBALS['logged']['admin'])
                return $val;

    // HTML Purifier plugin
    global $oHtmlPurifier;
    require_once( BX_DIRECTORY_PATH_PLUGINS . 'htmlpurifier/HTMLPurifier.standalone.php' );
    if (!isset($oHtmlPurifier)) {

        HTMLPurifier_Bootstrap::registerAutoload();

        $oConfig = HTMLPurifier_Config::createDefault();
        $oConfig->set('Filter.YouTube', true);
                $oConfig->set('HTML.DefinitionID', '1');

        $oConfig->set('Filter.Custom', array (new HTMLPurifier_Filter_Vimeo(), new HTMLPurifier_Filter_LocalMovie()));

                $oDef = $oConfig->getHTMLDefinition(true);
                $oDef->addAttribute('a', 'target', 'Enum#_blank,_self,_target,_top');

        $oHtmlPurifier = new HTMLPurifier($oConfig);
    }

    return $oHtmlPurifier->purify($val);
}

function _format_when ($iSec) {
$s = '';

if ($iSec>0) {
if ($iSec < 3600) {
$i = round($iSec/60);
$s .= (0 == $i || 1 == $i) ? _t('_x_minute_ago', '1') : _t('_x_minutes_ago', $i);
} else if ($iSec < 86400) {
$i = round($iSec/60/60);
$s .= (0 == $i || 1 == $i) ? _t('_x_hour_ago', '1') : _t('_x_hours_ago', $i);
} else {
$i = round($iSec/60/60/24);
$s .= (0 == $i || 1 == $i) ? _t('_x_day_ago', '1') : _t('_x_days_ago', $i);
}
} else {
if ($iSec > -3600) {
$i = round($iSec/60);
$s .= (0 == $i || 1 == $i) ? _t('_in_x_minute', '1') : _t('_in_x_minutes', -$i);
} else if ($iSec > -86400) {
$i = round($iSec/60/60);
$s .= (0 == $i || 1 == $i) ? _t('_in_x_hour', '1') : _t('_in_x_hours', -$i);
} elseif ($iSec < -86400) {
$i = round($iSec/60/60/24);
$s .= (0 == $i || 1 == $i) ? _t('_in_x_day', '1') : _t('_in_x_days', -$i);
}
}
return $s;
}

function defineTimeInterval($iTime) {
    $iTime = time() - (int)$iTime;
    $sCode = _format_when($iTime);
    return $sCode;
}

function execSqlFile($sFileName) {
    if (! $f = fopen($sFileName, "r"))
            return false;

        db_res( "SET NAMES 'utf8'" );

        $s_sql = "";
    while ( $s = fgets ( $f, 10240) ) {
                $s = trim( $s ); //Utf with BOM only

                if( !strlen( $s ) ) continue;
        if ( mb_substr( $s, 0, 1 ) == '#'  ) continue; //pass comments
        if ( mb_substr( $s, 0, 2 ) == '--' ) continue;

                $s_sql .= $s;

        if ( mb_substr( $s, -1 ) != ';' ) continue;

        db_res( $s_sql );
                $s_sql = "";
    }

    fclose($f);
        return true;
}

function replace_full_uris( $text ) {
        $text = preg_replace_callback( '/([\s\n\r]src\=")([^"]+)(")/', 'replace_full_uri', $text );
        return $text;
}

function replace_full_uri( $matches ) {
        if( substr( $matches[2], 0, 7 ) != 'http://' and substr( $matches[2], 0, 6 ) != 'ftp://' )
                $matches[2] = BX_DOL_URL_ROOT . $matches[2];

        return $matches[1] . $matches[2] . $matches[3];
}

//--------------------------------------- friendly permalinks --------------------------------------//
//------------------------------------------- main functions ---------------------------------------//
function uriGenerate ($s, $sTable, $sField, $iMaxLen = 255) {
  $s = uriFilter($s);

  if (uriCheckUniq($s, $sTable, $sField)) return $s;

  // try to add date

  if (get_mb_len($s) > 240)
     $s = get_mb_substr ($s, 0, 240);

  $s .= '-' . date('Y-m-d');

  if (uriCheckUniq($s, $sTable, $sField)) return $s;

  // try to add number

        for ($i = 0 ; $i < 999 ; ++$i) {
                if (uriCheckUniq($s . '-' . $i, $sTable, $sField)) {
       return ($s . '-' . $i);
    }
  }
   return rand(0, 999999999);
}

function uriFilter ($s) {

    if ($GLOBALS['oTemplConfig']->bAllowUnicodeInPreg)
        $s = get_mb_replace ('/[^\pL^\pN]+/u', '-', $s); // unicode characters
    else
        $s = get_mb_replace ('/([^\d^\w]+)/u', '-', $s); // latin characters only

    $s = get_mb_replace ('/([-^]+)/', '-', $s);
    $s = get_mb_replace ('/([-]+)$/', '', $s); // remove trailing dash
    if (!$s) $s = '-';
    return $s;
}

function uriCheckUniq ($s, $sTable, $sField) {
        return !db_arr("SELECT 1 FROM $sTable WHERE $sField = '$s' LIMIT 1");
}

function get_mb_replace ($sPattern, $sReplace, $s) {
    return preg_replace ($sPattern, $sReplace, $s);
}

function get_mb_len ($s) {
    return (function_exists('mb_strlen')) ? mb_strlen($s) : strlen($s);
}

function get_mb_substr ($s, $iStart, $iLen) {
    return (function_exists('mb_substr')) ? mb_substr ($s, $iStart, $iLen) : substr ($s, $iStart, $iLen);
}

function isIPLoggedBanned() {
        $iIPGlobalType = (int)getParam('ipListGlobalType');

        //1 - all allowed except listed, 2 - all blocked except listed, 0 - disabled
        switch ($iIPGlobalType) {
                case 1:
                        $sCurIP = getVisitorIP();
                        //$in_addr = inet_pton($sCurIP);
                        $sCurLongIP = ip2long($sCurIP);
                        $sCheckSQL = "SELECT * FROM `sys_ip_list` WHERE `Type`='deny' AND `LastDT` > UNIX_TIMESTAMP()";
                        $vIPRes = db_res($sCheckSQL);
                        if (db_affected_rows()>0) {
                                while ( $aCheckIP = mysql_fetch_assoc($vIPRes) ) {
                                        if ($aCheckIP['To']==0 && $aCheckIP['From']==$sCurLongIP) {
                                                return true;
                                        } elseif ($aCheckIP['To']>0 && $aCheckIP['From']<=$sCurLongIP && $aCheckIP['To']>=$sCurLongIP) {
                                                return true;
                                        }
                                }
                        }
                        break;
                case 2:
                        $sCurIP = getVisitorIP();
                        $sCurLongIP = ip2long($sCurIP);
                        $sCheckSQL = "SELECT * FROM `sys_ip_list` WHERE `Type`='allow' AND `LastDT` > UNIX_TIMESTAMP()";
                        $vIPRes = db_res($sCheckSQL);
                        if (db_affected_rows()>0) {
                                while ( $aCheckIP = mysql_fetch_assoc($vIPRes) ) {
                                        if ($aCheckIP['To']==0 && $aCheckIP['From']==$sCurLongIP) {
                                                return false;
                                        } elseif ($aCheckIP['To']>0 && $aCheckIP['From']<=$sCurLongIP && $aCheckIP['To']>=$sCurLongIP) {
                                                return false;
                                        }
                                }
                        }
                        return true;
                        break;
                case 0:
                default:
                        break;
        }
        return false;
}

function getmicrotime() {
        list($usec, $sec) = explode(" ", microtime());
        return ((float)$usec + (float)$sec);
}

/**
** @description : function will create cache file with all SQL queries ;
** @return                :
*/
function genSiteStatCache() {

        $sqlQuery = "SELECT `Name` as `name`,
                                                `Title` as `capt`,
                                                `UserQuery` as `query`,
                                                `UserLink` as `link`,
                                                `IconName` as `icon`,
                                                `AdminQuery` as `adm_query`,
                                                   `AdminLink` as `adm_link`
                                                FROM `sys_stat_site`
                        ORDER BY `StatOrder` ASC, `ID` ASC";

        $rData = db_res($sqlQuery);

        $sLine = "return array( \n";
        while ($aVal = mysql_fetch_assoc($rData)) {
                $sLine .= genSiteStatFile($aVal);
        }
        $sLine = rtrim($sLine, ",\n")."\n);";

    $aResult = eval($sLine);

    $oCache = $GLOBALS['MySQL']->getDbCacheObject();
        return $oCache->setData ($GLOBALS['MySQL']->genDbCacheKey('sys_stat_site'), $aResult);
}

/**
 * Function will cute the parameter from received string;
 * remove received parameter from 'GET' query ;
 *
 * @param        : $aExceptNames (string) - name of unnecessary parameter;
 * @return       : cleared string;
 */
function getClearedParam( $sExceptParam, $sString ) {
    return preg_replace( "/(&amp;|&){$sExceptParam}=([a-z0-9\_\-]{1,})/i",'', $sString);
}

/**
 * import class file, it detect class path by its prefix or module array
 *
 * @param $sClassName - full class name or class postfix in a case of module class
 * @param $aModule - module array or true to get module array from global variable
 */
function bx_import($sClassName, $aModule = array()) {
    if (class_exists($sClassName))
        return;

    if ($aModule) {
        $a = (true === $aModule) ? $GLOABLS['aModule'] : $aModule;
        if (class_exists($a['class_prefix'] . $sClassName))
            return;
        require_once (BX_DIRECTORY_PATH_MODULES . $a['path'] . 'classes/' . $a['class_prefix'] . $sClassName . '.php');
    }

    if (0 == strncmp($sClassName, 'BxDol', 5)) {
        require_once(BX_DIRECTORY_PATH_CLASSES . $sClassName . '.php');
        return;
    }
    if (0 == strncmp($sClassName, 'BxBase', 6)) {
        require_once(BX_DIRECTORY_PATH_BASE . 'scripts/' . $sClassName . '.php');
        return;
    }
    if (0 == strncmp($sClassName, 'BxTempl', 7) && !class_exists($sClassName)) {
            if(isset($GLOBALS['iAdminPage']) && (int)$GLOBALS['iAdminPage'] == 1)
                    require_once(BX_DIRECTORY_PATH_ROOT . "templates/tmpl_uni/scripts/" . $sClassName . '.php');
            else
                require_once(BX_DIRECTORY_PATH_ROOT . "templates/tmpl_{$GLOBALS['tmpl']}/scripts/" . $sClassName . '.php');
        return;
    }
}

/**
 * Gets an instance of class pathing necessary parameters if it's necessary.
 *
 * @param string $sClassName class name.
 * @param array $aParams an array of parameters to be pathed to the constructor of the class.
 * @param array $aModule an array with module description. Is used when the requested class is located in some module.
 * @return unknown
 */
function bx_instance($sClassName, $aParams = array(), $aModule = array()) {
    if(isset($GLOBALS['bxDolClasses'][$sClassName]))
        return $GLOBALS['bxDolClasses'][$sClassName];
    else {
        bx_import((empty($aModule) ? $sClassName : str_replace($aModule['class_prefix'], '', $sClassName)), $aModule);

        if(empty($aParams))
            $GLOBALS['bxDolClasses'][$sClassName] = new $sClassName();
        else {
            $sParams = "";
            foreach($aParams as $mixedKey => $mixedValue)
                $sParams .= "\$aParams[" . $mixedKey . "], ";
            $sParams = substr($sParams, 0, -2);

            $GLOBALS['bxDolClasses'][$sClassName] = eval("return new " . $sClassName . "(" . $sParams . ");");
        }

        return $GLOBALS['bxDolClasses'][$sClassName];
    }
}

/**
 * Escapes string/array ready to pass to js script with filtered symbols like ', " etc
 *
 * @param mixed $mixedInput - string/array which should be filtered
 * @return converted string / array
 */
function bx_js_string ($mixedInput) {
    $aUnits = array(
        "\"" => "&quot;",
        "'" => "&apos;",
        "\n" => " ",
        "\r" => "",
    );
    return str_replace(array_keys($aUnits), array_values($aUnits), $mixedInput);
}

/**
 * Return input string/array ready to pass to html attribute with filtered symbols like ', " etc
 *
 * @param mixed $mixedInput - string/array which should be filtered
 * @return converted string / array
 */
function bx_html_attribute ($mixedInput) {
    $aUnits = array(
        "\"" => "&quot;",
        "'" => "&apos;",
    );
    return str_replace(array_keys($aUnits), array_values($aUnits), $mixedInput);
}

/**
 * Escapes string/array ready to pass to php script with filtered symbols like ', " etc
 *
 * @param mixed $mixedInput - string/array which should be filtered
 * @return converted string / array
 */
function bx_php_string_apos ($mixedInput) {
    return str_replace("'", "\\'", $mixedInput);
}
function bx_php_string_quot ($mixedInput) {
    return str_replace('"', '\\"', $mixedInput);
}

/**
 * Gets file contents by URL.
 *
 * @param string $sFileUrl - file URL to be read.
 * @param array $aParams - an array of parameters to be pathed with URL.
 * @return string the file's contents.
 */
function bx_file_get_contents($sFileUrl, $aParams = array()) {
    $sParams = '?';
    foreach($aParams as $sKey => $sValue)
        $sParams .= $sKey . '=' . $sValue . '&';
    $sParams = substr($sParams, 0, -1);

    $sResult = '';
    if(function_exists('curl_init')) {
        $rConnect = curl_init();

        curl_setopt($rConnect, CURLOPT_URL, $sFileUrl . $sParams);
        curl_setopt($rConnect, CURLOPT_HEADER, 0);
        curl_setopt($rConnect, CURLOPT_RETURNTRANSFER, 1);
        curl_setopt($rConnect, CURLOPT_FOLLOWLOCATION, 1);

                $sAllCookies = '';
                foreach($_COOKIE as $sKey=>$sValue){
                        $sAllCookies .= $sKey."=".$sValue.";";
                }
        curl_setopt($rConnect, CURLOPT_COOKIE, $sAllCookies);

        $sResult = curl_exec($rConnect);
        curl_close($rConnect);
    }
    else
        $sResult = @file_get_contents($sFileUrl . $sParams);

    return $sResult;
}

/**
 * perform write log into 'tmp/log.txt' (for any debug development)
 *
 * @param $sNewLineText - New line debug text
  */
function writeLog($sNewLineText = 'test') {
        $sFileName = BX_DIRECTORY_PATH_ROOT . 'tmp/log.txt';

        if (is_writable($sFileName)) {
            if (! $vHandle = fopen($sFileName, 'a')) {
                 echo "Unable to open ({$sFileName})";
            }
            if (fwrite($vHandle, $sNewLineText . "\r\n") === FALSE) {
                echo "Unable write to ({$sFileName})";
            }
            fclose($vHandle);

        } else {
            echo "{$sFileName} is not writeable";
        }
}

function getLinkSet ($sLinkString, $sUrlPrefix, $sDivider = ';,', $bUriConvert = false) {
    $aSet = preg_split( '/['.$sDivider.']/', $sLinkString, 0, PREG_SPLIT_NO_EMPTY);

    foreach ($aSet as $sKey) {
        $sLink =  $sUrlPrefix . urlencode($bUriConvert ? title2uri($sKey) : $sKey);
        $sFinalSet .= '<a href="' . $sUrlPrefix . urlencode(title2uri($sKey)) . '">' . $sKey . '</a> ';
    }

    return trim($sFinalSet, ' ');
}

function getRelatedWords (&$aInfo) {
    $sString = implode(' ', $aInfo);
    $aRes = array_unique(explode(' ', $sString));
    $sString = implode(' ', $aRes);
    return addslashes($sString);
}

function getSiteInfo($sSourceUrl)
{
    $aResult = array();
    $sContent = bx_file_get_contents($sSourceUrl);

    if (strlen($sContent))
    {
        preg_match("/<title>(.*)<\/title>/", $sContent, $aMatch);
        $aResult['title'] = $aMatch[1];

        preg_match("/<meta.*name[='\" ]+description['\"].*content[='\" ]+(.*)['\"].*><\/meta>/", $sContent, $aMatch);
        $aResult['description'] = $aMatch[1];
    }

    return $aResult;
}

// simple comparator for strings etc
function simple_cmp($a, $b) {
    if ($a == $b) {
        return 0;
    }
    return ($a < $b) ? -1 : 1;
}

// calculation ini_get('upload_max_filesize') in bytes as example
function return_bytes($val) {
    $val = trim($val);
    $last = strtolower($val{strlen($val)-1});
    $val = (int)$val;
    switch($last) {
        // The 'G' modifier is available since PHP 5.1.0
        case 'k':
            $val *= 1024;
            break;
        case 'm':
            $val *= 1024 * 1024;
            break;
        case 'g':
            $val *= 1024 * 1024 * 1024;
            break;
    }
    return $val;
}

// Generate Random Password
function genRndPwd($iLength = 8, $bSpecialCharacters = true) {
        $sPassword = '';
        $sChars = "abcdefghijkmnpqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ23456789";

        if($bSpecialCharacters === true)
                $sChars .= "!?=/&+,.";

        srand((double)microtime()*1000000);
        for($i = 0; $i < $iLength; $i++) {
                $x = mt_rand(0, strlen($sChars) -1);
                $sPassword .= $sChars{$x};
        }

        return $sPassword;
}

// Generate Random Salt for Password encryption
function genRndSalt() {
    return genRndPwd(8, true);
}

// Encrypt User Password
function encryptUserPwd($sPwd, $sSalt) {
    return sha1(md5($sPwd) . $sSalt);
}

// Advanced stripslashes. Strips strings and arrays
function stripslashes_adv($s) {
    if (is_string($s))
        return stripslashes($s);
    elseif (is_array($s)) {
        foreach ($s as $k => $v) {
            $s[$k] = stripslashes($v);
        }
        return $s;
    } else
        return $s;
}

function bx_get ($sName) {
        if (isset($_GET[$sName]))
                return $_GET[$sName];
        elseif (isset($_POST[$sName]))
                return $_POST[$sName];
        else
                return false;
}