#!/usr/bin/perl use vars qw($database $db_user $db_passwd); # The databases containing LedgerSMB our $database = ("ledgersmb"); # The user to connect with. This must be a superuser so that set session auth # works as expected our $db_user = "postgres"; # The password for the db user: our $db_passwd = "mypasswd"; 1;