Проблема с PERL скриптом

[megasah]

Добрый день.

При переносе сайта со старого сервера (Red Hat 7.3, MySql 3.23) на новый (Red Hat EL 5, MySql 5)
возникла следующая проблема - перестали работать скрипты вида

Код: Выделить всё

sub UserInit
{
        # Проверка, залогинен ли пользовтель.
        &GetCookies('userlogin','userpassword');

        if ($Cookies{'userlogin'} ne "" and $Cookies{'userpassword'} ne "")
        {
                my $qqq=
                main::db("select id, status from users where login=".main::dquote($Cookies{'userlogin'})." and password=".main::dquote($Cookies{'userpassword'}).";");
                my @id=$qqq->FetchCol(0);
                my @status=$qqq->FetchCol(1);

                if ($id[0])
                {
                        # Есть такая партия!
                        $UserAuthorize=$status[0];
                        $UsersId=$id[0];
                } else {
                        # Удивительно, но похоже юзера стерли.
                }
        }

}

значения $UserAuthorize и $UsersId не выводятся и не формируются.

Может необходимо поставить какой-либо дополнительный модуль?

Буду признателен любой помощи по данному вопросу.
Заранее благодарен.

[megasah]

вот такая ошибочка вылезла вместо значения $UserAuthorize

Код: Выделить всё

DBD::mysql::st fetchrow_arrayref failed: fetch() without execute() at /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/Mysql/Statement.pm line 35.

Есть мысли, как починить?

Заранее спасибо.

[NickLion]

Слишком мало информации. (Но проблема с базой, видимо - т.к. в ошибке сказано, что попытались сделать выборку данных без выполнения запроса). Проверьте есть ли подключение к БД, есть ли таблица... Что там скрывается за main:: db я не знаю. Но тоже проверьте, посмотрите.

[megasah]

Слишком мало информации. (Но проблема с базой, видимо - т.к. в ошибке сказано, что попытались сделать выборку данных без выполнения запроса). Проверьте есть ли подключение к БД, есть ли таблица... Что там скрывается за main:: db я не знаю. Но тоже проверьте, посмотрите.

Спасибо за ответ, но проблема уже решена переустановкой модуля DBD::Mysql более старой версии (2.9008).