package csDB;

use Exporter ();
@ISA = qw(Exporter);
@EXPORT = qw(QueryDB $dbh);

use lib 'f:/projects/site/bin/config/';

use strict;
use DBI;

use csConfig;
use csLogs::Error;

our $dbh;

#==========================================================================================================
# Database Connection

BEGIN {
    $dbh = DBI->connect(csDBAuth()) or
    csDie( class=>csErrorClass('SERVER_DATABASE'),severity=>csErrorScale('CRITICAL'),
           message=>'Could not connect to database server',
           debug=>$DBI::errstr
         );
}

END {
    $dbh->disconnect();
}
#==========================================================================================================
sub QueryDB
{
  $dbh->{RaiseError}=0;
  $dbh->{PrintError}=0;
  my $qstring = $_[0];

  my $dbquery= $dbh->prepare("$qstring") or
    csDie( class=>csErrorClass('CODE_DATABASE'),severity=>csErrorScale('SEVERE'),
         message=>'Database Query Preparation Error',
         debug=>$DBI::errstr
       );

  $dbquery->execute or
    csDie( class=>csErrorClass('CODE_DATABASE'),severity=>csErrorScale('SEVERE'),
         message=>'Database Query Execution Error',
         debug=>$DBI::errstr
       );

  $dbh->{RaiseError}=1;
  $dbh->{PrintError}=1;
  return ($dbquery);
}

#==========================================================================================================
other handy functions
.
.
.