Форум PHP-MyAdmin.RU — Ищу ошибку в скрипте и немогу найти

Re: Ищу ошибку в скрипте и немогу найти

2008-04-01T11:43:46Z

pellets-wood сказал:

Согласен. Но в ней ошибок нет.

Значит нет. Сожалею, но у меня нет желания с этим разбираться.

Движок сайта самописанный.

Re: Ищу ошибку в скрипте и немогу найти

2008-04-01T07:54:11Z

$tpl_f = HW_MOD_TPL."setup.htm";

Согласен. Но в ней ошибок нет.

Вот часть системы, в которой я подозреваю ошибку

pellets-wood.narod.ru/test.rar

P.S. Мне нравится движок Вашего сайта, где его можно потестить!

Re: Ищу ошибку в скрипте и немогу найти

2008-03-29T21:47:11Z

pellets-wood
80 строка первого файла. Очевидно, здесь формируется имя файла.

$tpl_f = HW_MOD_TPL."setup.htm";

Re: Ищу ошибку в скрипте и немогу найти

2008-03-29T19:44:22Z

Hanut,

содержимое файла lib.inc.php
мне ничего не подсказало
[code]

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 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 DoNotCache( )
{
header( "Expires: Mon, 26 Jul 1997 05:00:00 GMT" );
header( "Last-Modified: ".gmdate( "D, d M Y H:i:s" )." GMT" );
header( "Cache-Control: no-store, no-cache, must-revalidate" );
header( "Cache-Control: post-check=0,pre-check=0", false );
header( "Cache-Control: max-age=0", false );
header( "Pragma: no-cache" );
}

function JSRedirect( $url )
{
echo "";
}

function GetNavigation( $href, $max_rows, $max_cols, $numrows, $off, $ex_p = "" )
{
if ( $numrows <= $max_rows )
{
return "";
}
if ( is_array( $ex_p ) )
{
$a_v = $ex_p;
$ex_p = "";
foreach ( $a_v as $k => $v )
{
if ( $v != "" && !is_array( $v ) )
{
$ex_p .= "&{$k}=".urlencode( $v );
}
}
unset( $a_v );
}
$a_nav = explode( "|", hwlng( "page_nav" ) );
$var_off = "off";
if ( strpos( $off, "=" ) )
{
list( $var_off, $off ) = explode( "=", $off );
}
if ( $ex_p && strpos( $ex_p, "&".$var_off."=" ) !== false )
{
$ex_p = preg_replace( "/&".$var_off."=\\d*/", "", $ex_p );
}
$off = abs( ( integer )$off );
$pg = intval( $off / $max_cols );
if ( substr( $href, -1 ) == "&" )
{
$f_ch = "";
}
else if ( strpos( $href, "?" ) )
{
$f_ch = "&";
}
else
{
$f_ch = "?";
}
if ( $ex_p )
{
$ex_p = $f_ch.substr( $ex_p, 1 )."&".$var_off."=";
}
else
{
$ex_p = $f_ch.$var_off."=";
}
$nav = "";
if ( $pg != 0 )
{
$nav .= "".sprintf( $a_nav[0], $max_cols )." ";
}
if ( 0 < $off )
{
$nav .= "".$a_nav[1]." ";
}
$i = 1;
for ( ; $i <= $max_cols; ++$i )
{
$cur_i = $i + $pg * $max_cols;
if ( $numrows <= ( $cur_i - 1 ) * $max_rows )
{
break;
}
if ( $cur_i != $off + 1 )
{
$nav .= "".$cur_i." ";
}
else
{
$nav .= $cur_i." ";
}
}
if ( $off + 1 < ceil( $numrows / $max_rows ) )
{
$nav .= "".$a_nav[2]." ";
}
if ( $max_rows * $max_cols * ( $pg + 1 ) < $numrows )
{
$nav .= "".sprintf( $a_nav[3], $max_cols )." ";
}
return "".$nav."";
}

function ShowCategoryPath( $cid, $link_file = "", $tbl_cat = TBL_CAT )
{
global $db;
global $HW_LANG;
if ( $link_file )
{
$href = "";
$href_end = "";
}
$cid = ( integer )$cid;
$sql = hwgetcatsql( "c.pid,c.name", "", $tbl_cat );
while ( $cid )
{
$v = $db->one_assoc( $sql." AND c.id=\"".$cid."\"" );
if ( !$v )
{
return "";
}
if ( $href )
{
$name = str_replace( "##cid##", $cid, $href );
$name = str_replace( "##pcid##", $v['pid'], $name );
}
else
{
$name = "";
}
$name .= $v['name'].$href_end;
$path = $path ? $name." > ".$path : $name;
$cid = $v['pid'];
}
return $path;
}

function PrintParseTime( )
{
global $db;
if ( DEBUG_LEVEL < 1 && !$db->DEBUG || defined( "NO_DEBUG_INFO" ) && NO_DEBUG_INFO )
{
return;
}
include_once( SITE_PATH."inc/debug.inc.php" );
echo hwgetdebuginfo( );
}

function CheckLoggedIn( )
{
if ( !isuser( ) )
{
header( "Location: index.php?page=login&ref_url=".urlencode( $_SERVER['REQUEST_URI'] ) );
exit( );
}
}

function hwSessionGetVar( $s, $scope = "USER" )
{
return isset( $_SESSION[$scope][$s] ) ? $_SESSION[$scope][$s] : "";
}

function hwSessionSetVar( $s, $v = "", $scope = "USER" )
{
if ( is_array( $s ) )
{
foreach ( $s as $k => $v )
{
$_SESSION[$scope][$k] = $v;
}
}
else
{
$_SESSION[$scope][$s] = $v;
}
}

function hwSessionDelVar( $s, $scope = "USER" )
{
unset( $Var_0[$s] );
}

function hwSessionCleanup( )
{
$_SESSION = array( );
session_destroy( );
}

function hwFieldSetGetAll( )
{
global $db;
static $a_v = NULL;
if ( !isset( $a_v ) )
{
$a_v = $db->one_col_array( "SELECT id FROM ".TBL_FS." WHERE id NOT LIKE \"".FS_CH1."%\" ORDER BY id" );
}
return $a_v;
}

function hwModVer( $v )
{
return 12 <= $v && $v <= 13;
}

function hwModTable( $mod, $tbl )
{
return TBL_PREFIX.strtolower( $mod )."_".$tbl;
}

function hwModGetState( $mod )
{
$a_v = hwmodgetarray( );
return $a_v[$mod]['state'];
}

";
if ( 2 <= DEBUG_LEVEL )
{
highlight_string( $cell );
}
else
{
echo "To get more information set DEBUG_LEVEL value to 2 or higher in application.php";
}
exit( );
}
$cell = ob_get_contents( );
ob_end_clean( );
if ( $res !== false )
{
$buf = $cell;
}
unset( $cell );
}
if ( EN_SE_URLS && EN_SE_ADV )
{
if ( !function_exists( "ProcessSearchFriendlyURLs" ) )
{
include( SITE_PATH."inc/search_friendly.php" );
}
processsearchfriendlyurls( $buf );
}
}

function hwIsExecutable( $f )
{
if ( function_exists( "is_executable" ) )
{
return is_executable( $f );
}
return is_readable( $f );
}

function hwMenuGetOpts( $a_v, $cur )
{
$s = "";
foreach ( $a_v as $v )
{
$s .= "

function hwExecMaintenance( )
{
global $db;
$db->query( "DELETE FROM ".TBL_IP." WHERE bdate < DATE_SUB(".SQL_NOW.",INTERVAL 1 DAY)" );
$db->query( "OPTIMIZE TABLE ".TBL_IP );
$db->query( "DELETE FROM ".TBL_REG_CONFIRM." WHERE regdate < DATE_SUB(".SQL_NOW.",INTERVAL 3 DAY)" );
$db->query( "DELETE FROM ".TBL_SESSION." WHERE expires < ".HW_TIME );
$db->query( "OPTIMIZE TABLE ".TBL_SESSION );
}

function Multi_Lang_Redirect( $sql )
{
global $db;
global $HW_LANG;
$_lang = $db->one_data( $sql );
if ( !$_lang )
{
$_lang = "en";
}
if ( $_lang != $HW_LANG && !isset( $_GET['lang'] ) && ctype_print( $_SERVER['REQUEST_URI'] ) )
{
$ch_amt = $db->one_data( "SELECT CO

Re: Ищу ошибку в скрипте и немогу найти

2008-03-27T20:45:31Z

pellets-wood
Смотрите выше формирование переменной $f и преобразования производимые в функции hwlnggetpath().

Re: Ищу ошибку в скрипте и немогу найти

2008-03-27T20:34:17Z

Искомая строка

 return file_get_contents( hwlnggetpath( $f ) );

Что с ней делать?
Задаю в поиске "file_get_contents" получаю файлы в которых встречается

Re: Ищу ошибку в скрипте и немогу найти

2008-03-27T17:19:46Z

pellets-wood сказал:

lib.inc.php on line 93

Смотрите здесь как формируется имя файла.

Re: Ищу ошибку в скрипте и немогу найти

2008-03-27T14:24:41Z

Закомментировал! Вроде бы система модуль нашла, но
ролучаю сообщене
Warning: file_get_contents(Y:/home/localhost/www/mysite/tpl/admin/u_setup.htm) [function.file-get-contents]: failed to open stream: No such file or directory in Y:\home\localhost\www\mysite\inc\lib.inc.php on line 93

В папке tpl/admin/ есть такие файлы в которых есть ~setup.php , но нет u_setup.htm

Похоже, что скрипту сказано искать неправильное имя файла

Re: Ищу ошибку в скрипте и немогу найти

2008-03-26T22:05:57Z

// Попробуйте закомментировать эту.
$mod = ( boolean )$mod;

Я предлагаю посмотреть на работу функции hwmodgetarray( ) и возвращаемый ею массив, а именно, наличие массива с индексом, который приходит с переменной $mod.

Re: Ищу ошибку в скрипте и немогу найти

2008-03-26T21:39:25Z

Hanut,
Вы предлагаете убрать строки:

if ( !$mod || !$a_mods[$mod] )
{
    exit( "Module not found" );

Re: Ищу ошибку в скрипте и немогу найти

2008-03-25T22:38:39Z

// Здесь в $mod вкладывается булево значение
$mod = ( boolean )$mod;

// Здесь переменная $mod стала ключом массива $a_mods, из чего выходит $a_mods[true]
//Ошибка: ключ массива может быть только целым числом или строкой.
if ( !$mod || !$a_mods[$mod] )

Ищу ошибку в скрипте и немогу найти

2008-03-25T20:31:23Z

Код скрипта следующий:

GetModOptions( HW_MOD );
        if ( is_array( $a_v ) )
        {
            foreach ( array_keys( $a_v ) as $k )
            {
                if ( !isset( $A_CFG[$k] ) )
                {
                    unset( $a_v[$k] );
                }
            }
            if ( $a_v )
            {
                $A_CFG = array_merge( $A_CFG, $a_v );
            }
            unset( $a_v );
        }
    }
    if ( $_POST['go'] )
    {
        if ( $A_CFG )
        {
            foreach ( array_keys( $A_CFG ) as $k )
            {
                if ( !isset( $_POST[$k] ) && substr( $k, 0, 3 ) != "EN_" )
                {
                    continue;
                }
                $A_CFG[$k] = $_POST[$k];
            }
        }
        $func = HW_MOD."_SetupValidate";
        if ( function_exists( $func ) )
        {
            $err_msg = $func( );
        }
        if ( !$err_msg )
        {
            $func = HW_MOD."_SetupOnSave";
            if ( function_exists( $func ) )
            {
                $func( $A_CFG );
            }
            $O_HW->SetModOptions( HW_MOD, $A_CFG );
            $MOD_CFG = $O_HW->GetModOptions( HW_MOD );
            $err_msg = hwlng( "updated_ok" );
        }
    }
    $z = array( );
    if ( $A_CFG )
    {
        foreach ( $A_CFG as $k => $v )
        {
            if ( substr( $k, 0, 3 ) == "EN_" )
            {
                $z[$k] = $v ? "checked" : "";
            }
            else
            {
                $z[$k] = $v;
            }
        }
    }
    $func = HW_MOD."_SetupPrepare";
    if ( function_exists( $func ) )
    {
        $func( $z );
    }
    if ( !$tpl_f )
    {
        $tpl_f = HW_MOD_TPL."setup.htm";
    }
    return evaladvtpl( $tpl_f, $z );
}

function hwGetModuleDescr( $mod )
{
    global $db;
    list( $state, $descr ) = $db->one_row( "SELECT state,descr FROM ".TBL_MODULES." WHERE dir=".$db->esc( $mod )." AND admin_capable=\"1\"" );
    if ( $state != "A" && $state != "I" )
    {
        showadmheader( );
        echo "Module is not available";
        showadmfooter( );
        exit( );
    }
    return $descr;
}

define( "HTTP_HOST", $_SERVER['HTTP_HOST'] );
define( "ADMIN_AREA", 1 );
require( "../inc/application.php" );
if ( basename( __FILE__ ) != "modules.php" )
{
    exit( "Access Denied" );
}
$mod = $_POST['mod'] ? $_POST['mod'] : $_GET['mod'];
$mod = ( boolean )$mod;
$a_mods = hwmodgetarray( );
if ( !$mod || !$a_mods[$mod] )
{
    exit( "Module not found" );
}
checkloggedinadm( );
$HW_MOD = $mod;
$HW_MOD_DIR = MOD_DIR.$HW_MOD."/";
$HW_MOD_URL = "modules.php?mod=".$HW_MOD;
define( "HW_MOD", $mod );
define( "HW_MOD_DIR", MOD_DIR.HW_MOD."/" );
define( "HW_MOD_URL", "modules.php?mod=".HW_MOD );
define( "HW_MOD_TPL", HW_MOD_DIR."tpl/admin/" );
$MOD_CFG = $O_HW->GetModOptions( HW_MOD );
$mod_descr = hwgetmoduledescr( HW_MOD );
if ( !hwhasvalidkey( HW_MOD ) )
{
    exit( "Module is not licensed for this domain : ".HW_MOD );
}
include( HW_MOD_DIR."hw_admin.php" );
hwmodloadlng( HW_MOD );
$HW_WRAP = 1;
if ( $pg == "setup" || $_GET['pg'] == "setup" )
{
    $buf = showmodsetuppage( );
}
else
{
    $func = HW_MOD."_main";
    if ( !function_exists( $func ) )
    {
        exit( );
    }
    ob_start( );
    $ret_buf = $func( );
    $buf = ob_get_contents( );
    ob_end_clean( );
    if ( empty( $buf ) )
    {
        $buf = $ret_buf;
    }
    unset( $ret_buf );
}
if ( $HW_WRAP )
{
    $buf = showadmheader( 0 ).$buf.showadmfooter( 0 );
}
hwprocesstags( $buf );
echo $buf;
printparsetime( );
?>

Запускаю в системе - получаю ответ

Module not found

Очевидно, шибка в отрезке

define( "HTTP_HOST", $_SERVER['HTTP_HOST'] );
define( "ADMIN_AREA", 1 );
require( "../inc/application.php" );
if ( basename( __FILE__ ) != "modules.php" )
{
    exit( "Access Denied" );
}
$mod = $_POST['mod'] ? $_POST['mod'] : $_GET['mod'];
$mod = ( boolean )$mod;
$a_mods = hwmodgetarray( );
if ( !$mod || !$a_mods[$mod] )
{
    exit( "Module not found" );
}

а особенно в

$mod = $_POST['mod'] ? $_POST['mod'] : $_GET['mod'];
$mod = ( boolean )$mod;
$a_mods = hwmodgetarray( );

Прошу помочь. Подозрение общее на ошибку в цикле, либо пропущена запятая или скобка!