static int
tds_read_conf_sections(FILE * in, const char *server, TDSCONNECTINFO * connect_info)
{
tds_read_conf_section(in, "global", tds_parse_conf_section, connect_info);
rewind(in);
return tds_read_conf_section(in, server, tds_parse_conf_section, connect_info);
}
static int
tds_read_conf_sections(FILE * in, const char *server, TDSLOGIN * login)
{
DSTR default_instance;
int default_port;
int found;
tds_read_conf_section(in, "global", tds_parse_conf_section, login);
if (!server[0])
return 0;
rewind(in);
tds_dstr_init(&default_instance);
tds_dstr_dup(&default_instance, &login->instance_name);
default_port = login->port;
found = tds_read_conf_section(in, server, tds_parse_conf_section, login);
/*
* If both instance and port are specified and neither one came from the default, it's an error
* TODO: If port/instance is specified in the non-default, it has priority over the default setting.
* TODO: test this.
*/
if (!tds_dstr_isempty(&login->instance_name) && login->port &&
!(!tds_dstr_isempty(&default_instance) || default_port)) {
tdsdump_log(TDS_DBG_ERROR, "error: cannot specify both port %d and instance %s.\n",
login->port, tds_dstr_cstr(&login->instance_name));
/* tdserror(tds_get_ctx(tds), tds, TDSEPORTINSTANCE, 0); */
}
tds_dstr_free(&default_instance);
return found;
}
/**
* Get locale information.
* @return allocated structure with all information or NULL if error
*/
TDSLOCALE *
tds_get_locale(void)
{
TDSLOCALE *locale;
char *s;
FILE *in;
/* allocate a new structure with hard coded and build-time defaults */
locale = tds_alloc_locale();
if (!locale)
return NULL;
tdsdump_log(TDS_DBG_INFO1, "Attempting to read locales.conf file\n");
in = fopen(FREETDS_LOCALECONFFILE, "r");
if (in) {
tds_read_conf_section(in, "default", tds_parse_locale, locale);
#if HAVE_LOCALE_H
s = setlocale(LC_ALL, NULL);
#else
s = getenv("LANG");
#endif
if (s && s[0]) {
int found;
char buf[128];
const char *strip = "@._";
/* do not change environment !!! */
tds_strlcpy(buf, s, sizeof(buf));
/* search full name */
rewind(in);
found = tds_read_conf_section(in, buf, tds_parse_locale, locale);
/*
* Here we try to strip some part of language in order to
* catch similar language
* LANG is composed by
* language[_sublanguage][.charset][@modified]
* ie it_IT@euro or it_IT.UTF-8 so we strip in order
* modifier, charset and sublanguage
* ie it_IT@euro -> it_IT -> it
*/
for (;!found && *strip; ++strip) {
s = strrchr(buf, *strip);
if (!s)
continue;
*s = 0;
rewind(in);
found = tds_read_conf_section(in, buf, tds_parse_locale, locale);
}
}
fclose(in);
}
return locale;
}
/**
* Get locale information.
* @return allocated structure with all information or NULL if error
*/
TDSLOCALE *
tds_get_locale(void)
{
TDSLOCALE *locale;
char *s;
FILE *in;
/* allocate a new structure with hard coded and build-time defaults */
locale = tds_alloc_locale();
if (!locale)
return NULL;
tdsdump_log(TDS_DBG_INFO1, "%L Attempting to read locales.conf file\n");
in = fopen(FREETDS_LOCALECONFFILE, "r");
if (in) {
tds_read_conf_section(in, "default", tds_parse_locale, locale);
s = getenv("LANG");
if (s && s[0]) {
rewind(in);
tds_read_conf_section(in, s, tds_parse_locale, locale);
}
fclose(in);
}
return locale;
}
int
pool_read_conf_file(char *poolname, TDS_POOL * pool)
{
FILE *in;
int found = 0;
in = fopen(FREETDS_POOLCONFFILE, "r");
if (in) {
fprintf(stderr, "Found conf file in %s reading sections\n", FREETDS_POOLCONFFILE);
tds_read_conf_section(in, "global", pool_parse, pool);
rewind(in);
found = tds_read_conf_section(in, poolname, pool_parse, pool);
fclose(in);
}
return found;
}
int INSTAPI
#else
static int
#endif
SQLGetPrivateProfileString(LPCSTR pszSection, LPCSTR pszEntry, LPCSTR pszDefault, LPSTR pRetBuffer, int nRetBuffer,
LPCSTR pszFileName)
{
FILE *hFile;
ProfileParam param;
tdsdump_log(TDS_DBG_FUNC, "SQLGetPrivateProfileString(%p, %p, %p, %p, %d, %p)\n",
pszSection, pszEntry, pszDefault, pRetBuffer, nRetBuffer, pszFileName);
if (!pszSection) {
/* spec says return list of all section names - but we will just return nothing */
tdsdump_log(TDS_DBG_WARN, "WARNING: Functionality for NULL pszSection not implemented.\n");
return 0;
}
if (!pszEntry) {
/* spec says return list of all key names in section - but we will just return nothing */
tdsdump_log(TDS_DBG_WARN, "WARNING: Functionality for NULL pszEntry not implemented.\n");
return 0;
}
if (nRetBuffer < 1)
tdsdump_log(TDS_DBG_WARN, "WARNING: No space to return a value because nRetBuffer < 1.\n");
if (pszFileName && *pszFileName == '/')
hFile = fopen(pszFileName, "r");
else
hFile = tdoGetIniFileName();
if (hFile == NULL) {
tdsdump_log(TDS_DBG_ERROR, "ERROR: Could not open configuration file\n");
return 0;
}
param.entry = pszEntry;
param.buffer = pRetBuffer;
param.buffer_len = nRetBuffer;
param.ret_val = 0;
param.found = 0;
pRetBuffer[0] = 0;
tds_read_conf_section(hFile, pszSection, tdoParseProfile, ¶m);
if (pszDefault && !param.found) {
tds_strlcpy(pRetBuffer, pszDefault, nRetBuffer);
param.ret_val = (int)strlen(pRetBuffer);
}
fclose(hFile);
return param.ret_val;
}
static int
SQLGetPrivateProfileString(LPCSTR pszSection, LPCSTR pszEntry, LPCSTR pszDefault, LPSTR pRetBuffer, int nRetBuffer,
LPCSTR pszFileName)
{
FILE *hFile;
ProfileParam param;
if (!pszSection) {
/* spec says return list of all section names - but we will just return nothing */
fprintf(stderr, "[FreeTDS][ODBC][%s][%d] WARNING: Functionality for NULL pszSection not implemented.\n", __FILE__,
__LINE__);
return 0;
}
if (!pszEntry) {
/* spec says return list of all key names in section - but we will just return nothing */
fprintf(stderr, "[FreeTDS][ODBC][%s][%d] WARNING: Functionality for NULL pszEntry not implemented.\n", __FILE__,
__LINE__);
return 0;
}
if (nRetBuffer < 1)
fprintf(stderr, "[FreeTDS][ODBC][%s][%d] WARNING: No space to return a value because nRetBuffer < 1.\n", __FILE__,
__LINE__);
if (pszFileName && *pszFileName == '/')
hFile = fopen(pszFileName, "r");
else
hFile = tdoGetIniFileName();
if (hFile == NULL) {
fprintf(stderr, "[FreeTDS][ODBC][%s][%d] ERROR: Could not open configuration file\n", __FILE__, __LINE__);
return 0;
}
param.entry = pszEntry;
param.buffer = pRetBuffer;
param.buffer_len = nRetBuffer;
param.ret_val = 0;
param.found = 0;
pRetBuffer[0] = 0;
tds_read_conf_section(hFile, pszSection, tdoParseProfile, ¶m);
if (pszDefault && !param.found) {
strncpy(pRetBuffer, pszDefault, nRetBuffer);
pRetBuffer[nRetBuffer - 1] = '\0';
param.ret_val = strlen(pRetBuffer);
}
fclose(hFile);
return param.ret_val;
}