use DBI;

use CGI::Carp "fatalsToBrowser";          # Output errors to browser
use CGI qw(:standard);                    # Saves loads of work
$CGI::POST_MAX=1024 * 150;                # limit post data
$CGI::DISABLE_UPLOADS = 1;                # Disable uploads
use ehr_config;

($dbname_ss, $dbname_ba, $dbip, $dbuser, $dbpass, $dbtype) = initDbase;
($cgidir, $imgdir, $template_dir, $table_color, $writedir)= initDirBase;

$dbh          = DBI->connect("dbi:$dbtype:nehnu:$dbip", "$dbuser", "$dbpass");
$dbh_base_app = DBI->connect("dbi:$dbtype:$dbname_ba:$dbip", "$dbuser", "$dbpass");