вывод записей БД с помощью pl скрипта чрез DBI.

Доброго времени суток!
прошу вашей помощи.
есть pl скрипт, который должен срабатывать в браузере по нажатию на ссылку.вот его содержимое:

#!/usr/bin/perl
use DBI;
$dbn = "bd4kholod";
$user = "kholod";
$table = "tab1";
$dbhost = "146.120.21.103";
$dbport = "5432";
$options = "-e";
$dbtty = "ansi";
print "Content-type: text/html\n\n";
print "";
print "";
print "

  • соединение с базой...\r\n
  • ";
    print "

    В базе данных $dbn в таблице $table было найдено $result записи(ей).

    \n";
    print "

    Они и представлены Вашему вниманию:

    \n";
    print "
    \n";
    $conn = DBI->connect("DBI:Pg:dbname=$dbn; host=$dbhost; port=$dbport","$user","мой пароль") or die "Error connection.";
    $req = "SELECT * FROM $table;";
    $result = $conn->do($req);
    $strin = $conn->prepare($req);
    @cont = $strin->execute;
    while ($i<$result)
    {@row = $strin->fetchrow_array;
    print "
    $row[0] $row[1] \n";
    $i++;
    }
    print "

    \n";
    @cont = $strin->finish;
    $rc = $conn->disconnect;
    print "";
    print "";

    бд, таблица, записи существуют.если запустить данный скрипт в терминале то он выводит следующее :
    # ./te2.pl
    Content-type: text/html

  • соединение с базой...
  • В базе данных bd4kholod в таблице tab1 было найдено записи(ей).

    Они и представлены Вашему вниманию:

    1 kholod
    2 notkholod

    если запустить данный скрипт по нажатию ссылки, то браузер выводит следующее:

    соединение с базой...
    В базе данных bd4kholod в таблице tab1 было найдено записи(ей).
    Они и представлены Вашему вниманию

    в логе сайта -следующая информация:

    [Thu Mar 20 13:51:25 2014] [error] [client 192.168.1.1] DBI connect('dbname=bd4kholod; host=146.120.21.103; port=5432','kholod',...) failed: could not connect to server: Permission denied, referer: http://www.inrama.ru/ [Thu Mar 20 13:51:25 2014] [error] [client 192.168.1.1] \tIs the server running on host "146.120.21.103" and accepting, referer: http://www.inrama.ru/
    [Thu Mar 20 13:51:25 2014] [error] [client 192.168.1.1] \tTCP/IP connections on port 5432? at /var/www/vhosts/inrama.ru/perl/te2.pl line 17, referer: http://www.inrama.ru/
    [Thu Mar 20 13:51:25 2014] [error] [client 192.168.1.1] Error connection. at /var/www/vhosts/inrama.ru/perl/te2.pl line 17., referer: http://www.inrama.ru/

    Опции просмотра комментариев

    Выберите предпочитаемый вами способ показа комментариев и нажмите "Сохранить настройки" для активации изменений.

    проблема была в selinux

    проблема была в selinux

    О, как! Спасибо, что

    О, как!
    Спасибо, что написали. Возможно кто-то ещё на эти же грабли наступит!

    Опции просмотра комментариев

    Выберите предпочитаемый вами способ показа комментариев и нажмите "Сохранить настройки" для активации изменений.

    Back to top

    (С) Виктор Вислобоков, 2008-2023