Re: prob with PERL/Postgres

Kristopher Yates wrote:

>PERL SNIPPET:
>
># build arrays from file (OMITTED)
>
>use Pg;
>$dbhost='127.0.0.1';
>$dbname='mpact';
>#$connstr="dbname=$dbname";
>$connstr="host=$dbhost dbname=$dbname";
>$conn = Pg::connectdb($connstr);
>
>#more code related to date omitted
>
>    $result=$conn->exec($sql);
>    (PGRES_COMMAND_OK eq $result->resultStatus)
>    or  die $conn->errorMessage;
>
>WHY DO I GET PQsendQuery() -- There is no connection to the 
>backend.  I have tried leaving host blank, using IP 127.0.0.1 and 
>hostname localhost.  This script should work - the problem is 
>something with postgres but I dont know what.  Any ideas out 
>there?  Thanks,  Kris
>
>---------------------------(end of broadcast)---------------------------
>TIP 5: Have you checked our extensive FAQ?
>
>http://www.postgresql.org/users-lounge/docs/faq.html
>
>

have you checked your /etc/host file?
as well is your loopback on ?

what about your pg_hba.conf
it should probably have ,by default:
---pg_hba.conf----
# By default, allow anything over UNIX domain sockets and localhost.
local        all                                           trust
host         all         127.0.0.1     255.255.255.255     trust
---pg_hba.conf----
you can use stonger security consult the Pg docs on that!
its been a while since ive looked at them


here is how i connect::

#!/usr/bin/perl
use strict;
use warnings;
use Pg;
my $command="select * from write;";
my $conninfo = "dbname=write  user=www password=Apache1312 host=localhost";
my $conn = Pg::connectdb($conninfo);
if (Pg::PGRES_CONNECTION_OK == $conn->status){
my  $result = $conn->exec($command);
if (Pg::PGRES_TUPLES_OK == $result->resultStatus) {           while (my @row = $result->fetchrow) {
print join (" ",@row);       }   }
}