use db_min ;

sub db_open_ro {
	
	my ($sys) = @_ ;
	
	if ($db_ignore_open_close) { return ; }

	my ($db,$dbhost,$dbuser,$dbpass) = &ops_db_credentials($sys) ;

	my $connstr = "DBI:mysql:database=$db;host=$dbhost;" ;

	$dbh = DBI->connect($connstr,$dbuser,$dbpass) or die $DBI::errstr;

	&common_debug("db_open_ro:$connstr") ;

} #----------------------------------------------------------------------------------------------------------------------

sub db_open_upd {
	
	my ($sys) = @_ ;
	
	if ($db_ignore_open_close) { return ; }
		
	my ($db,$dbhost,$dbuser,$dbpass) = &ops_db_credentials($sys) ;

	my $connstr = "DBI:mysql:database=$db;host=$dbhost;" ;

	$dbh = DBI->connect($connstr,$dbuser,$dbpass, { RaiseError => 1, AutoCommit => 1 } ) or die "Unable to connect, $DBI::errstr";
	$dbh->{LongReadLen} = 1000 ;

	&common_debug("db_open_upd:$connstr") ;

} #----------------------------------------------------------------------------------------------------------------------

sub db_close_conn {
	
	if ($db_ignore_open_close) { return ; }

	$dbh->disconnect();

	&common_debug('db_close_conn:$dbh->disconnect();') ;

} #------------------------------------------------------------------------------------------

sub db_switch_conn {
	
	my ($sys) = @_ ;
	
	$db_ignore_open_close = 0 ;
	&db_close_conn ;	
	&db_open_upd($sys) ;
	$db_ignore_open_close = 1 ;

} #------------------------------------------------------------------------------------------

sub ops_db_credentials {
	
	my ($sys) = @_ ;

	my $db      = "itv_admin_db";
	my $dbhost  = "localhost";
	my $dbuser  = "itv_admin_user";
	my $dbpass  = '!Ja16Q7P0X3SVTWr';
	
	if ($env eq 'DEV') {
		$db       = 'dev_aisa' ;
		$dbhost   = 'localhost' ;
		$dbuser   = 'dev_aisa_user' ;
		$dbpass   = 'L0rdJ35u5R31gN51vQow*!' ;
	}
	
	if ($sys eq 'sss') {
		$db      = "sss_admin_db";
		$dbhost  = "localhost";
		$dbuser  = "sss_admin_user";
		$dbpass  = 'bVrC2kyGJ8ZO0oVe!';
		
		if ($env eq 'DEV') {
			$db       = 'dev_sss' ;
			$dbhost   = 'localhost' ;
			$dbuser   = 'dev_sss_user' ;
			$dbpass   = 'L0rdJ35u5R31gN51vQow*!' ;
		}
	}

	return ($db,$dbhost,$dbuser,$dbpass) ;

} #----------------------------------------------------------------------------------------------------------------------

sub db_uniq {

	my %seen;
	grep !$seen{$_}++, @_;
    
} #------------------------------------------------------------------------------------------

1;