sub setup_imscp_database_connection {

	debug((caller(0))[3].': Starting...');

	use iMSCP::Crypt;
	use iMSCP::Dialog;

	my $pass = $main::imscpConfig{'DATABASE_PASSWORD'};
	my $crypt = iMSCP::Crypt->new();

	if(!check_sql_connection(
			$main::imscpConfig{'DATABASE_TYPE'},
			'',
			$main::imscpConfig{'DATABASE_HOST'} || '',
			$main::imscpConfig{'DATABASE_PORT'} || '',
			$main::imscpConfig{'DATABASE_USER'} || '',
			$main::imscpConfig{'DATABASE_PASSWORD'} ? $crypt->decrypt_db_password($main::imscpConfig{'DATABASE_PASSWORD'}) : ''
		)
	){
	}elsif($main::imscpConfigOld{'DATABASE_TYPE'} && !check_sql_connection(
			$main::imscpConfigOld{'DATABASE_TYPE'},
			'',
			$main::imscpConfigOld{'DATABASE_HOST'} || '',
			$main::imscpConfigOld{'DATABASE_PORT'} || '',
			$main::imscpConfigOld{'DATABASE_USER'} || '',
			$main::imscpConfigOld{'DATABASE_PASSWORD'} ? $crypt->decrypt_db_password($main::imscpConfigOld{'DATABASE_PASSWORD'}) : ''
		)
	){
		$main::imscpConfig{'DATABASE_TYPE'}		= $main::imscpConfigOld{'DATABASE_TYPE'};
		$main::imscpConfig{'DATABASE_HOST'}		= $main::imscpConfigOld{'DATABASE_HOST'};
		$main::imscpConfig{'DATABASE_PORT'}		= $main::imscpConfigOld{'DATABASE_PORT'};
		$main::imscpConfig{'DATABASE_USER'}		= $main::imscpConfigOld{'DATABASE_USER'};
		$main::imscpConfig{'DATABASE_NAME'}		= $main::imscpConfigOld{'DATABASE_NAME'};
		$main::imscpConfig{'DATABASE_PASSWORD'}	= $main::imscpConfigOld{'DATABASE_PASSWORD'};
	} else {
		my (
			$dbType,
			$dbHost,
			$dbPort,
			$dbUser,
			$dbPass
		) = (
			'mysql',
			$main::imscpConfig{'DATABASE_HOST'},
			$main::imscpConfig{'DATABASE_PORT'},
			$main::imscpConfig{'DATABASE_USER'}
		);

		use Data::Validate::Domain qw/is_domain/;
		my %options = $main::imscpConfig{'DEBUG'} ? (domain_private_tld => qr /^(?:bogus|test)$/) : ();

		while (check_sql_connection($dbType, '', $dbHost, $dbPort, $dbUser, $dbPass)){
			my $msg = '';
			do{
				$dbHost = iMSCP::Dialog->new()->inputbox( "Please enter database host name (default localhost) $msg", $dbHost);
				$msg = "\n\n$dbHost is not a valid hostname!"
			} while (! (Data::Validate::Domain->new(%options)->is_domain($dbHost)) && $dbHost ne 'localhost');

			$dbPort = iMSCP::Dialog->new()->inputbox('Please enter database port name (default null or 3306)', $dbPort);
			$dbUser =  iMSCP::Dialog->new()->inputbox('Please enter database user name (default root)', $dbUser);
			$dbPass =  iMSCP::Dialog->new()->inputbox('Please enter database password', $dbPass);
		}

		use Net::LibIDN qw/idn_to_ascii idn_to_unicode/;

		if ($main::imscpConfig{'DATABASE_TYPE'} ne $dbType) {$main::imscpConfig{'DATABASE_TYPE'} = $dbType};
		if ($main::imscpConfig{'DATABASE_HOST'} ne idn_to_ascii($dbHost, 'utf-8')) {$main::imscpConfig{'DATABASE_HOST'} = idn_to_ascii($dbHost, 'utf-8');}
		if ($main::imscpConfig{'DATABASE_PORT'} ne $dbPort) {$main::imscpConfig{'DATABASE_PORT'} = $dbPort;}
		if ($main::imscpConfig{'DATABASE_USER'} ne $dbUser) {$main::imscpConfig{'DATABASE_USER'} = $dbUser;}
		if ($main::imscpConfig{'DATABASE_PASSWORD'} ne $crypt->encrypt_db_password($dbPass)) {$main::imscpConfig{'DATABASE_PASSWORD'} = $crypt->encrypt_db_password($dbPass);}

	}
	debug((caller(0))[3].': Ending...');
	0;
}