скрипт после своей работы выдает "The page cannot be displayed"

[NeoNox]

стоит в начале #!/usr/bin/perl?
заголовки выводит?

[KhasDenis]

#! /usr/bin/perl   стоит.
Как выводятся заголовки ?

[NeoNox]

use CGI qw(:standard);
print header();

[lodevar]

#! /usr/bin/perl
.  ^

[KhasDenis]

у меня пробела нет, опечатка ....
В том скрипте который я разбираю(см начало топика) заголовки не выводятся. Но там куча инклюдов... наверно стоит поискать конструкцию которую ты указал

[NeoNox]

Если ты его броузером запускаеш то заголовки обязательны.
если нет то пробуй perl -cw tvoy_script.cgi

[KhasDenis]

скрипты рабочие, так мне сказали те от кого они мне в наследство достались
поставил на одном хосте, по запросу
http://www.myhost.com/perl/arp3/arp3.pl?a0=log
появляется логин пейдж, а уже потом, после ввода пароля
HTTP 500 - Internal server error
в логах при этом
[Mon Sep 29 04:52:36 2003] null: DBD::mysql::st execute failed: MySQL server has gone away at /home/virtual/site81/fst/var/www/perl/arp3/arp3-data.pl line 51.

на локальных же двух машинах не добьюсь даже первой страницы

Software error:
Undefined subroutine &main::db_select_row called at /var/www/cgi-bin/arp3/arp3.pl line 78.

если бы была ошибка в скрипте - она была бы везде .... вроде так.

[NeoNox]

Вроде не так...
Что в /var/www/cgi-bin/arp3/arp3.pl строка 78?

[KhasDenis]

$g_settings = &db_select_row("SELECT * FROM $db_table_SETTINGS WHERE id=1");

[NeoNox]

а db_select_row где находится?

[KhasDenis]

эта функция в файле arp3-data.pl описана
---------------------------- arp3-data.pl -----------------------------------------
use DBI;

$global_dbh = DBI->connect("DBI:$_db_type:$db_name:$db_host", $db_login, $db_password, {RaiseError => 1, AutoCommit => 1 }) or die "Unable to connect to db";

sub db_connect {
    my $result = $global_dbh;
    return $result;
} # sub db_connect

sub db_execute {  
    my $sql = shift;
    my $dbh = &db_connect;
    my $sth = $dbh->prepare($sql) or die "Can\'t prepare $sql: $dbh->errstr\\n";
    $sth->execute or die "Can\'t execute $sql";
    return $sth;
} # sub db_execute

sub db_select_row {
    my $sql = shift;
    my $dbh = &db_connect;
    my $sth = $dbh->prepare($sql) or die "Can\'t prepare $sql: $dbh->errstr\\n";
    $sth->execute or die "Can\'t execute $sql";
    my $result = $sth->fetchrow_hashref;
    $sth->finish;
    return $result;
} # sub db_select_row

[NeoNox]

напиши перед 78 строкой
require \'./arp3-data.pl\';

[KhasDenis]

написал ...

вот ответ браузера

Undefined subroutine &main::ReadInput called at /var/www/cgi-bin/arp3/arp3.pl line 84.

[KhasDenis]

не правильно файлы инклюдятся значит...
перл непонимает их конструкцию ?

[KhasDenis]

все таки если вас не затруднит поясните почему с локальных серверов даже не открывается форма .... почему разные ошибки