Change to handle postgresql database - kind o

[Brian johnson]

If I know what I'm doing, (and I don't) change the dbconect subroutine to:

sub dbconnect {
  my $dbh;
if ($HEADERS{'dsn'} =~ /mysql/) {
    # Mysql connect
    $dbh = DBI->connect(
    $HEADERS{'dsn'}.';host='.$HEADERS{'dbhost'}.';port='.$HEADERS{'dbport'},
    $HEADERS{'dbuser'},
    $HEADERS{'dbpasswd'}
    ) or die "401 Can't connect to database $dbh->errstr";
  } else {
    # PgSQL connect
    $dbh = DBI->connect(
    $HEADERS{'dsn'}.';host='.$HEADERS{'dbhost'}.';port='.$HEADERS{'dbport'}.','.$HEADERS{'dbuser'}.',"'.$HEADERS{'dbpasswd'}.'"' );
  }
  return $dbh;
} # dbconnect

but then I get the error
Can't call method "prepare" on an undefined value at /usr/share/coldsync-2.2.5/conduits/phpgwpalm/datebook-phpgroupware line 82.