ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
   
 
 
Опции темы Поиск в этой теме Опции просмотра

Потерялось значение функции
  #1  
Старый 28.05.2008, 21:56
serg-php
Участник форума
Регистрация: 28.01.2008
Сообщений: 247
С нами: 9623364

Репутация: 28
По умолчанию Потерялось значение функции

Народ! Прошу помощи!
Есть файл:

PHP код:
<?php
/*********************/
/*                   */
/*  Version : 5.1.0  */
/*  Author  : RM     */
/*  Comment : 071223 */
/*                   */
/*********************/

function CheckLoggedInAdm( )
{
    include_once( 
SITE_PATH."inc/admin.inc.php" );
    if ( !
isadmin( ) )
    {
        
header( "Location: index.php?page=login&ref_url=".urlencode( $_SERVER['REQUEST_URI'] ) );
        exit( );
    }
}

function 
IsBanned( $id, $UNBAN_MIN, $type = "" )
{
    global 
$db;
    if ( !
$id || !$UNBAN_MIN )
    {
        return 
0;
    }
    
$esc_ip = $db->esc( $_SERVER['REMOTE_ADDR'] );
    
$ts = $db->one_data( "SELECT UNIX_TIMESTAMP(bdate) FROM ".TBL_IP." WHERE ip=INET_ATON(".$esc_ip.") AND link_id='{$id}' AND type='{$type}'" );
    if ( !
$ts )
    {
        
$db->query( "INSERT IGNORE INTO ".TBL_IP." (ip,link_id,bdate,type) VALUES (INET_ATON(".$esc_ip."),'{$id}',".SQL_NOW.",'{$type}')" );
    }
    else
    {
        if ( 
HW_TIME - $UNBAN_MIN * 60 < $ts )
        {
            return 
1;
        }
        
$db->query( "UPDATE ".TBL_IP." SET bdate=".SQL_NOW." WHERE ip=INET_ATON(".$esc_ip.") AND link_id='{$id}' AND type='{$type}'"." AND bdate<DATE_SUB(".SQL_NOW.", INTERVAL {$UNBAN_MIN} MINUTE)" );
        if ( 
$db->affected_rows( ) < 1 )
        {
            return 
1;
        }
    }
    return 
0;
}

function 
get_daughter_cats( $catid, $tbl = TBL_CAT )
{
    global 
$db;
    static 
$A_RES = NULL;
    if ( 
is_array( $catid ) )
    {
        
$cnt = count( $catid );
        
$i = 0;
        for ( ;    
$i < $cnt;    ++$i    )
        {
            if ( !
ctype_digit( ( boolean )$catid[$i] ) )
            {
                unset( 
$catid[$i] );
            }
        }
        
$catid = implode( ",", $catid );
    }
    else if ( !
ctype_digit( ( boolean )$catid ) )
    {
        
$catid = preg_replace( "/[^\\d,]/", "", $catid );
    }
    if ( !isset( 
$A_RES[$tbl][$catid] ) )
    {
        
$id_arr_tmp = explode( ",", $catid );
        
$id_arr = array( );
        while ( 
0 < count( $id_arr_tmp ) )
        {
            
$id_arr = array_merge( $id_arr, $id_arr_tmp );
            
$id_arr_tmp = $db->one_col_array( "SELECT id FROM ".$tbl." WHERE pid IN(\"".implode( "\",\"", $id_arr_tmp )."\")" );
        }
        
$A_RES[$tbl][$catid] = $id_arr;
    }
    return 
"\"".implode( "\",\"", $A_RES[$tbl][$catid] )."\"";
}

function 
EvalBuffer( $buf, $vars = "", $show = 0 )
{
    
$buf = HawkTpl::evalbuffer( $buf, $vars );
    if ( 
$show )
    {
        echo 
$buf;
        return 
"";
    }
    else
    {
        return 
$buf;
    }
}

function 
EvalAdvTpl( $tf, $vars = "", $show = 0 )
{
    return 
evalbuffer( hwreadtpl( $tf ), $vars, $show );
}

function 
hwReadTpl( $f )
{
    return 
file_get_contents( hwlnggetpath( $f ) );
}

function 
hwLngGetPath( $f, $lang = "" )
{
    if ( !
$lang )
    {
        
$lang = $HW_LANG;
    }
    if ( 
$lang == "en" )
    {
        return 
$f;
    }
    
$ext = substr( ( $_s = strrchr( $f, "." ) ) !== false ? $_s : "", 1 );
    if ( 
$ext == "txt" && basename( $f ) != "config_sel.txt" )
    {
        return 
$f;
    }
    
$f_new = hwlngcalcpath( $f, $lang );
    if ( 
$f_new != $f && file_exists( $f_new ) )
    {
        
$f = $f_new;
    }
    return 
$f;
}
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Полезные ключи реестра. Scofild Windows 6 23.04.2008 16:17
Многопоточность в Unix KEZ С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 11 10.08.2005 18:29



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.