chomp $sys_news_group ;
$sys_dbhost = qx!$fgcpath/forge_get_config database_host!;
chomp $sys_dbhost ;
+$sys_dbport = qx!$fgcpath/forge_get_config database_port!;
+chomp $sys_dbport ;
$sys_dbname = qx!$fgcpath/forge_get_config database_name!;
chomp $sys_dbname ;
$sys_dbuser = qx!$fgcpath/forge_get_config database_user!;
# Database Connect Functions
##############################
sub db_connect ( ) {
- $dbh ||= DBI->connect("DBI:Pg:dbname=$sys_dbname","$sys_dbuser","$sys_dbpasswd") ;
+ my $str = "DBI:Pg:dbname=$sys_dbname" ;
+ if ($sys_dbhost ne '') {
+ $str .= ";host=$sys_dbhost" ;
+ }
+ if ($sys_dbport ne '') {
+ $str .= ";port=$sys_dbport" ;
+ }
+ $dbh ||= DBI->connect($str,"$sys_dbuser","$sys_dbpasswd") ;
if (! $dbh) {
die "Error while connecting to database: $!" ;
}