PostgreSQL connection in CGI-PERL Script

[ramvinay]

Hi,

I am trying to develop user interface in CGI-PERL using CGI.pm module with DBI.pm module.

while a form value is submitted to cgi program it is showing follwoing error
"Couldn't connect to db1:5432/tcp: IO::Socket::INET: Permission denied at /usr/lib/perl5/site_perl/5.8.8/DBD/PgPP.pm line 124"

Code is below

#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI qw/param/;
CGI->nosticky();
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;
use DBI;
 
my $dbh=DBI->connect("DBI:PgPP:dbname=vidb05;host=db1;port=5432","vidb","",{AutoCommit=>0}) or die $DBI::errstr;
 

can you please suggest me the actual problem with this code.

Thanks,
Ram Vinay Pandey

[debasisdas]

Please check here for the connection strings.