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

pellets-wood · 2008-03-25 23:31:23

pellets-wood
Редкий гость
Неактивен

Зарегистрирован: 2008-03-25
Сообщений: 15

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

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

<?php
function ShowModSetupPage( $tpl_f = "" )
{
    global $O_HW;
    global $err_msg;
    global $MOD_CFG;
    $A_CFG = array( );
    include( SITE_PATH."modules/".HW_MOD."/hw_info.php" );
    if ( $A_CFG )
    {
        $a_v = $O_HW->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( );

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

Hanut · 2008-03-26 01:38:39

Hanut
Модератор
Неактивен

Откуда: Рига, Латвия
Зарегистрирован: 2006-07-02
Сообщений: 9,732

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

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

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

pellets-wood · 2008-03-27 00:39:25

pellets-wood
Редкий гость
Неактивен

Зарегистрирован: 2008-03-25
Сообщений: 15

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

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

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

?

Hanut · 2008-03-27 01:05:57

Hanut
Модератор
Неактивен

Откуда: Рига, Латвия
Зарегистрирован: 2006-07-02
Сообщений: 9,732

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

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

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

pellets-wood · 2008-03-27 17:24:41

pellets-wood
Редкий гость
Неактивен

Зарегистрирован: 2008-03-25
Сообщений: 15

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

Закомментировал! Вроде бы система модуль нашла, но
ролучаю сообщене
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

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

Hanut · 2008-03-27 20:19:46

Hanut
Модератор
Неактивен

Откуда: Рига, Латвия
Зарегистрирован: 2006-07-02
Сообщений: 9,732

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

pellets-wood сказал:

lib.inc.php on line 93

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

pellets-wood · 2008-03-27 23:34:17

pellets-wood
Редкий гость
Неактивен

Зарегистрирован: 2008-03-25
Сообщений: 15

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

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

 return file_get_contents( hwlnggetpath( $f ) );

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

Hanut · 2008-03-27 23:45:31

Hanut
Модератор
Неактивен

Откуда: Рига, Латвия
Зарегистрирован: 2006-07-02
Сообщений: 9,732

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

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

pellets-wood · 2008-03-29 22:44:22

pellets-wood
Редкий гость
Неактивен

Зарегистрирован: 2008-03-25
Сообщений: 15

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

Hanut,

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

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 "<html><script>document.location=\"".$url."\";</script></html>";
}

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'];
}

function hwToTwoDigits( $v )
{
return ( $v < 10 ? "0" : "" ).$v;
}

function hwGetUserHostIP( $ext_info = false )
{
$ip = $_SERVER['REMOTE_ADDR'];
if ( $ext_info && $_SERVER['HTTP_X_FORWARDED_FOR'] )
{
$ip .= " (".strip_tags( $_SERVER['HTTP_X_FORWARDED_FOR'] ).")";
}
return $ip;
}

function hwCURL( $a_opt )
{
if ( !is_array( $a_opt ) )
{
exit( "Array required for hwCURL()" );
}
include_once( SITE_PATH."inc/curl.inc.php" );
return hwrealcurl( $a_opt );
}

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 .= "<OPTION ".( $v == $cur ? "SELECTED " : "" )."VALUE=\"{$v}\">{$v}";
}
return $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

Hanut · 2008-03-30 00:47:11

Hanut
Модератор
Неактивен

Откуда: Рига, Латвия
Зарегистрирован: 2006-07-02
Сообщений: 9,732

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

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

$tpl_f = HW_MOD_TPL."setup.htm";

pellets-wood · 2008-04-01 10:54:11

pellets-wood
Редкий гость
Неактивен

Зарегистрирован: 2008-03-25
Сообщений: 15

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

$tpl_f = HW_MOD_TPL."setup.htm";

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

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

pellets-wood.narod.ru/test.rar

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

Hanut · 2008-04-01 14:43:46

Hanut
Модератор
Неактивен

Откуда: Рига, Латвия
Зарегистрирован: 2006-07-02
Сообщений: 9,732

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

pellets-wood сказал:

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

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

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

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

Сообщения 12

1 Тема от pellets-wood 2008-03-25 23:31:23

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

2 Ответ от Hanut 2008-03-26 01:38:39

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

3 Ответ от pellets-wood 2008-03-27 00:39:25

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

4 Ответ от Hanut 2008-03-27 01:05:57

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

5 Ответ от pellets-wood 2008-03-27 17:24:41

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

6 Ответ от Hanut 2008-03-27 20:19:46

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

7 Ответ от pellets-wood 2008-03-27 23:34:17

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

8 Ответ от Hanut 2008-03-27 23:45:31

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

9 Ответ от pellets-wood 2008-03-29 22:44:22

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

10 Ответ от Hanut 2008-03-30 00:47:11

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

11 Ответ от pellets-wood 2008-04-01 10:54:11 (изменено: pellets-wood, 2008-04-01 10:55:25)

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

12 Ответ от Hanut 2008-04-01 14:43:46

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

Сообщения 12