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
