# 
# Database connection for scarab 
#
my $scarab_db_server = "scarab.example.com";
my $scarab_database  = "scarab_db";
my $scarab_user      = "scarab";
my $scarab_password  = "password";

sub db_connect 
{
    my ($database,$user,$password) = @_;

    my $h = DBI->connect("DBI:mysql:database=$database;hostname=$scarab_db_server", $user, $password);
    if (!$h) 
    {
        db_err("Unable to connect to $database", $DBI::errstr);
        return 0;
    } 
    else 
    {
        return $h;
    }   
}

sub connect 
{
	my $drh = DBI->install_driver("mysql");
	$dbh = &db_connect($scarab_database, $scarab_user, $scarab_password);
}

&connect;

1;