static void
tds_config_env_tdsport(TDSLOGIN * login)
{
char *s;
if ((s = getenv("TDSPORT"))) {
login->port = tds_lookup_port(s);
tds_dstr_empty(&login->instance_name);
tdsdump_log(TDS_DBG_INFO1, "Setting 'port' to %s from $TDSPORT.\n", s);
}
return;
}
/**
* Try to find the IP number and port for a (possibly) logical server name.
*
* @note This function uses only the interfaces file and is deprecated.
*/
static int
tds_read_interfaces(const char *server, TDSLOGIN * login)
{
int found = 0;
/* read $SYBASE/interfaces */
if (!server || !server[0]) {
server = getenv("TDSQUERY");
if (!server || !server[0])
server = "SYBASE";
tdsdump_log(TDS_DBG_INFO1, "Setting server to %s from $TDSQUERY.\n", server);
}
tdsdump_log(TDS_DBG_INFO1, "Looking for server %s....\n", server);
/*
* Look for the server in the interf_file iff interf_file has been set.
*/
if (interf_file) {
tdsdump_log(TDS_DBG_INFO1, "Looking for server in file %s.\n", interf_file);
found = search_interface_file(login, "", interf_file, server);
}
/*
* if we haven't found the server yet then look for a $HOME/.interfaces file
*/
if (!found) {
char *path = tds_get_home_file(".interfaces");
if (path) {
tdsdump_log(TDS_DBG_INFO1, "Looking for server in %s.\n", path);
found = search_interface_file(login, "", path, server);
free(path);
}
}
/*
* if we haven't found the server yet then look in $SYBBASE/interfaces file
*/
if (!found) {
const char *sybase = getenv("SYBASE");
#ifdef __VMS
/* We've got to be in unix syntax for later slash-joined concatenation. */
#include <unixlib.h>
const char *unixspec = decc$translate_vms(sybase);
if ( (int)unixspec != 0 && (int)unixspec != -1 ) sybase = unixspec;
#endif
if (!sybase || !sybase[0])
sybase = interfaces_path;
tdsdump_log(TDS_DBG_INFO1, "Looking for server in %s/interfaces.\n", sybase);
found = search_interface_file(login, sybase, "interfaces", server);
}
/*
* If we still don't have the server and port then assume the user
* typed an actual server host name.
*/
if (!found) {
int ip_port;
const char *env_port;
/*
* Make a guess about the port number
*/
if (login->port == 0) {
/*
* Not set in the [global] section of the
* configure file, take a guess.
*/
ip_port = TDS_DEF_PORT;
} else {
/*
* Preserve setting from the [global] section
* of the configure file.
*/
ip_port = login->port;
}
if ((env_port = getenv("TDSPORT")) != NULL) {
ip_port = tds_lookup_port(env_port);
tdsdump_log(TDS_DBG_INFO1, "Setting 'ip_port' to %s from $TDSPORT.\n", env_port);
} else
tdsdump_log(TDS_DBG_INFO1, "Setting 'ip_port' to %d as a guess.\n", ip_port);
/*
* look up the host
*/
if (TDS_SUCCEED(tds_lookup_host_set(server, &login->ip_addrs)))
if (!tds_dstr_copy(&login->server_host_name, server))
return 0;
if (ip_port)
login->port = ip_port;
}
return found;
}
/**
* Try to find the IP number and port for a (possibly) logical server name.
*
* @note This function uses only the interfaces file and is deprecated.
*
* ===========================================================================
*/
static void
tds_read_interfaces(const char *server, TDSCONNECTINFO * connect_info)
{
int founded = 0;
/* read $SYBASE/interfaces */
if (!server || strlen(server) == 0) {
server = getenv("TDSQUERY");
if (!server || strlen(server) == 0) {
server = "SYBASE";
}
tdsdump_log(TDS_DBG_INFO1, "%L Setting server to %s from $TDSQUERY.\n", server);
}
tdsdump_log(TDS_DBG_INFO1, "%L Looking for server %s....\n", server);
/*
* Look for the server in the interf_file iff interf_file has been set.
*/
if (interf_file) {
tdsdump_log(TDS_DBG_INFO1, "%L Looking for server in file %s.\n", interf_file);
founded = search_interface_file(connect_info, "", interf_file, server);
}
/*
* if we haven't found the server yet then look for a $HOME/.interfaces file
*/
if (!founded) {
char *path = tds_get_home_file(".interfaces");
if (path) {
tdsdump_log(TDS_DBG_INFO1, "%L Looking for server in %s.\n", path);
founded = search_interface_file(connect_info, "", path, server);
free(path);
}
}
/*
* if we haven't found the server yet then look in $SYBBASE/interfaces file
*/
if (!founded) {
const char *sybase = getenv("SYBASE");
if (!sybase || !sybase[0])
sybase = "/etc/freetds";
tdsdump_log(TDS_DBG_INFO1, "%L Looking for server in %s/interfaces.\n", sybase);
founded = search_interface_file(connect_info, sybase, "interfaces", server);
}
/*
* If we still don't have the server and port then assume the user
* typed an actual server name.
*/
if (!founded) {
char ip_addr[255];
int ip_port;
const char *env_port;
/*
* Make a guess about the port number
*/
#ifdef TDS50
ip_port = 4000;
#else
ip_port = 1433;
#endif
if ((env_port = getenv("TDSPORT")) != NULL) {
ip_port = tds_lookup_port(env_port);
tdsdump_log(TDS_DBG_INFO1, "%L Setting 'ip_port' to %s from $TDSPORT.\n", env_port);
} else
tdsdump_log(TDS_DBG_INFO1, "%L Setting 'ip_port' to %d as a guess.\n", ip_port);
/*
* lookup the host
*/
tds_lookup_host(server, ip_addr);
if (ip_addr[0])
tds_dstr_copy(&connect_info->ip_addr, ip_addr);
if (ip_port)
connect_info->port = ip_port;
}
}
/**
* Open and read the file 'file' searching for a logical server
* by the name of 'host'. If one is found then lookup
* the IP address and port number and store them in 'login'
*
* \param dir name of base directory for interface file
* \param file name of the interface file
* \param host logical host to search for
* \return 0 if not fount 1 if found
*/
static int
search_interface_file(TDSLOGIN * login, const char *dir, const char *file, const char *host)
{
char *pathname;
char line[255];
char tmp_ip[sizeof(line)];
char tmp_port[sizeof(line)];
char tmp_ver[sizeof(line)];
FILE *in;
char *field;
int found = 0;
int server_found = 0;
char *lasts;
line[0] = '\0';
tmp_ip[0] = '\0';
tmp_port[0] = '\0';
tmp_ver[0] = '\0';
tdsdump_log(TDS_DBG_INFO1, "Searching interfaces file %s/%s.\n", dir, file);
pathname = (char *) malloc(strlen(dir) + strlen(file) + 10);
if (!pathname)
return 0;
/*
* create the full pathname to the interface file
*/
if (file[0] == '\0') {
pathname[0] = '\0';
} else {
if (dir[0] == '\0') {
pathname[0] = '\0';
} else {
strcpy(pathname, dir);
strcat(pathname, TDS_SDIR_SEPARATOR);
}
strcat(pathname, file);
}
/*
* parse the interfaces file and find the server and port
*/
if ((in = fopen(pathname, "r")) == NULL) {
tdsdump_log(TDS_DBG_INFO1, "Couldn't open %s.\n", pathname);
free(pathname);
return 0;
}
tdsdump_log(TDS_DBG_INFO1, "Interfaces file %s opened.\n", pathname);
while (fgets(line, sizeof(line) - 1, in)) {
if (line[0] == '#')
continue; /* comment */
if (!TDS_ISSPACE(line[0])) {
field = strtok_r(line, "\n\t ", &lasts);
if (!strcmp(field, host)) {
found = 1;
tdsdump_log(TDS_DBG_INFO1, "Found matching entry for host %s.\n", host);
} else
found = 0;
} else if (found && TDS_ISSPACE(line[0])) {
field = strtok_r(line, "\n\t ", &lasts);
if (field != NULL && !strcmp(field, "query")) {
field = strtok_r(NULL, "\n\t ", &lasts); /* tcp or tli */
if (!strcmp(field, "tli")) {
tdsdump_log(TDS_DBG_INFO1, "TLI service.\n");
field = strtok_r(NULL, "\n\t ", &lasts); /* tcp */
field = strtok_r(NULL, "\n\t ", &lasts); /* device */
field = strtok_r(NULL, "\n\t ", &lasts); /* host/port */
if (strlen(field) >= 18) {
sprintf(tmp_port, "%d", hex2num(&field[6]) * 256 + hex2num(&field[8]));
sprintf(tmp_ip, "%d.%d.%d.%d", hex2num(&field[10]),
hex2num(&field[12]), hex2num(&field[14]), hex2num(&field[16]));
tdsdump_log(TDS_DBG_INFO1, "tmp_port = %s. tmp_ip = %s.\n", tmp_port, tmp_ip);
}
} else {
field = strtok_r(NULL, "\n\t ", &lasts); /* ether */
strcpy(tmp_ver, field);
field = strtok_r(NULL, "\n\t ", &lasts); /* host */
strcpy(tmp_ip, field);
tdsdump_log(TDS_DBG_INFO1, "host field %s.\n", tmp_ip);
field = strtok_r(NULL, "\n\t ", &lasts); /* port */
strcpy(tmp_port, field);
} /* else */
server_found = 1;
} /* if */
} /* else if */
} /* while */
fclose(in);
free(pathname);
/*
* Look up the host and service
*/
if (server_found) {
if (TDS_SUCCEED(tds_lookup_host_set(tmp_ip, &login->ip_addrs))) {
struct addrinfo *addrs;
if (!tds_dstr_copy(&login->server_host_name, tmp_ip))
return 0;
for (addrs = login->ip_addrs; addrs != NULL; addrs = addrs->ai_next) {
tdsdump_log(TDS_DBG_INFO1, "Resolved IP as '%s'.\n",
tds_addrinfo2str(login->ip_addrs, line, sizeof(line)));
}
} else {
tdsdump_log(TDS_DBG_WARN, "Name resolution failed for IP '%s'.\n", tmp_ip);
}
if (tmp_port[0])
login->port = tds_lookup_port(tmp_port);
if (tmp_ver[0])
tds_config_verstr(tmp_ver, login);
}
return server_found;
} /* search_interface_file() */
/* ========================= search_interface_file() =========================
*
* Def: Open and read the file 'file' searching for a logical server
* by the name of 'host'. If one is found then lookup
* the IP address and port number and store them in 'ip_addr', and
* 'ip_port'.
*
* Ret: void
*
* ===========================================================================
*/
static int
search_interface_file(TDSCONNECTINFO * connect_info, const char *dir, /* (I) Name of base directory for interface file */
const char *file, /* (I) Name of the interface file */
const char *host /* (I) Logical host to search for */
)
{
char *pathname;
char line[255];
char tmp_ip[sizeof(line)];
char tmp_port[sizeof(line)];
char tmp_ver[sizeof(line)];
FILE *in;
char *field;
int found = 0;
int server_found = 0;
char *lasts;
line[0] = '\0';
tmp_ip[0] = '\0';
tmp_port[0] = '\0';
tmp_ver[0] = '\0';
tdsdump_log(TDS_DBG_INFO1, "%L Searching interfaces file %s/%s.\n", dir, file);
pathname = (char *) malloc(strlen(dir) + strlen(file) + 10);
if (!pathname)
return 0;
/*
* * create the full pathname to the interface file
*/
if (file[0] == '\0') {
pathname[0] = '\0';
} else {
if (dir[0] == '\0') {
pathname[0] = '\0';
} else {
strcpy(pathname, dir);
strcat(pathname, "/");
}
strcat(pathname, file);
}
/*
* * parse the interfaces file and find the server and port
*/
if ((in = fopen(pathname, "r")) == NULL) {
tdsdump_log(TDS_DBG_INFO1, "%L Couldn't open %s.\n", pathname);
free(pathname);
return 0;
}
tdsdump_log(TDS_DBG_INFO1, "%L Interfaces file %s opened.\n", pathname);
while (fgets(line, sizeof(line) - 1, in)) {
if (line[0] == '#')
continue; /* comment */
if (!TDS_ISSPACE(line[0])) {
field = strtok_r(line, "\n\t ", &lasts);
if (!strcmp(field, host)) {
found = 1;
tdsdump_log(TDS_DBG_INFO1, "%L Found matching entry for host %s.\n", host);
} else
found = 0;
} else if (found && TDS_ISSPACE(line[0])) {
field = strtok_r(line, "\n\t ", &lasts);
if (field != NULL && !strcmp(field, "query")) {
field = strtok_r(NULL, "\n\t ", &lasts); /* tcp or tli */
if (!strcmp(field, "tli")) {
tdsdump_log(TDS_DBG_INFO1, "%L TLI service.\n");
field = strtok_r(NULL, "\n\t ", &lasts); /* tcp */
field = strtok_r(NULL, "\n\t ", &lasts); /* device */
field = strtok_r(NULL, "\n\t ", &lasts); /* host/port */
if (strlen(field) >= 18) {
sprintf(tmp_port, "%d", hex2num(&field[6]) * 256 + hex2num(&field[8]));
sprintf(tmp_ip, "%d.%d.%d.%d", hex2num(&field[10]),
hex2num(&field[12]), hex2num(&field[14]), hex2num(&field[16]));
tdsdump_log(TDS_DBG_INFO1, "%L tmp_port = %d.mtp_ip = %s.\n", tmp_port, tmp_ip);
}
} else {
field = strtok_r(NULL, "\n\t ", &lasts); /* ether */
strcpy(tmp_ver, field);
field = strtok_r(NULL, "\n\t ", &lasts); /* host */
strcpy(tmp_ip, field);
tdsdump_log(TDS_DBG_INFO1, "%L host field %s.\n", tmp_ip);
field = strtok_r(NULL, "\n\t ", &lasts); /* port */
strcpy(tmp_port, field);
} /* else */
server_found = 1;
} /* if */
} /* else if */
} /* while */
fclose(in);
free(pathname);
/*
* Look up the host and service
*/
if (server_found) {
tds_lookup_host(tmp_ip, line);
tdsdump_log(TDS_DBG_INFO1, "%L Resolved IP as '%s'.\n", line);
tds_dstr_copy(&connect_info->ip_addr, line);
if (tmp_port[0])
connect_info->port = tds_lookup_port(tmp_port);
if (tmp_ver[0])
tds_config_verstr(tmp_ver, connect_info);
}
return server_found;
} /* search_interface_file() */
