开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 生物技术 > 查看源码
config.c
资源名称：ncbi_cxx_win--Jul_08_2004.zip　[点击查看]
上传用户：yhdzpy8989
上传日期：2007-06-13
资源大小：13604k
文件大小：31k
源码类别：

生物技术

开发平台：

C/C++

config.c：源码内容
  1. /*
  2.  * ===========================================================================
  3.  * PRODUCTION $Log: config.c,v $
  4.  * PRODUCTION Revision 1000.0  2003/10/29 20:34:34  gouriano
  5.  * PRODUCTION PRODUCTION: IMPORTED [ORIGINAL] Dev-tree R1.5
  6.  * PRODUCTION
  7.  * ===========================================================================
  8.  */
  10. /* FreeTDS - Library of routines accessing Sybase and Microsoft databases
  11.  * Copyright (C) 1998-1999  Brian Bruns
  12.  *
  13.  * This library is free software; you can redistribute it and/or
  14.  * modify it under the terms of the GNU Library General Public
  15.  * License as published by the Free Software Foundation; either
  16.  * version 2 of the License, or (at your option) any later version.
  17.  *
  18.  * This library is distributed in the hope that it will be useful,
  19.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21.  * Library General Public License for more details.
  22.  *
  23.  * You should have received a copy of the GNU Library General Public
  24.  * License along with this library; if not, write to the
  25.  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26.  * Boston, MA 02111-1307, USA.
  27.  */
  29. #include <tds_config.h>
  30. #include <stdio.h>
  31. #include <stdlib.h>
  32. #include <stdarg.h>
  33. #include <time.h>
  34. #include <limits.h>
  35. #include <assert.h>
  36. #include <ctype.h>
  37. #ifdef __DGUX__
  38. #include <paths.h>
  39. #endif
  40. #ifdef __FreeBSD__
  41. #include <sys/time.h>
  42. #endif
  43. #ifdef WIN32
  44. #include <windows.h>
  45. #include <stdio.h>
  46. #define PATH_MAX 255
  47. #endif
  48. #ifndef WIN32
  49. #include <netdb.h>
  50. #include <sys/types.h>
  51. #include <netinet/in.h>
  52. #include <arpa/inet.h>
  53. #endif
  54. #include "tds.h"
  55. #include "tdsutil.h"
  56. #ifdef DMALLOC
  57. #include <dmalloc.h>
  58. #endif
  60. static char  software_version[]   = "$Id: config.c,v 1000.0 2003/10/29 20:34:34 gouriano Exp $";
  61. static void *no_unused_var_warn[] = {software_version,
  62.                                      no_unused_var_warn};
  65. static void tds_config_login(TDSCONFIGINFO *config, TDSLOGIN *login);
  66. static void tds_config_env_dsquery(TDSCONFIGINFO *config);
  67. static void tds_config_env_tdsdump(TDSCONFIGINFO *config);
  68. static void tds_config_env_tdsver(TDSCONFIGINFO *config);
  69. static void tds_config_env_tdsport(TDSCONFIGINFO *config);
  70. static void tds_config_env_tdshost(TDSCONFIGINFO *config);
  71. static int tds_read_conf_file(char *server, TDSCONFIGINFO *config);
  72. static int tds_read_conf_sections(FILE *in, char *server, TDSCONFIGINFO *config);
  73. static int tds_read_conf_section(FILE *in, char *section, TDSCONFIGINFO *config);
  74. static void tds_read_interfaces(char *server, TDSCONFIGINFO *config);
  75. static void tds_config_verstr(char *tdsver, TDSCONFIGINFO *config);
  76. static int tds_config_boolean(char *value);
  77. static void lookup_host(const char *servername, const char *portname, char *ip, char *port);
  78. static int parse_server_name_for_port( TDSCONFIGINFO *config, TDSLOGIN *login );
  80. extern int g_append_mode;
  82. static char interf_file[MAXPATH];
  84. /*
  85. ** tds_get_config() will fill the tds config structure based on configuration 
  86. ** information gathered in the following order:
  87. ** 1) Program specified in TDSLOGIN structure
  88. ** 2) The environment variables TDSVER, TDSDUMP, TDSPORT, TDSQUERY, TDSHOST
  89. ** 3) A config file with the following search order:
  90. **    a) a readable file specified by environment variable FREETDSCONF
  91. **    b) a readable file in ~/.freetds.conf
  92. **    c) a readable file in $prefix/etc/freetds.conf
  93. ** 3) ~/.interfaces if exists
  94. ** 4) $SYBASE/interfaces if exists
  95. ** 5) TDS_DEF_* default values
  96. **
  97. ** .tdsrc and freetds.conf have been added to make the package easier to 
  98. ** integration with various Linux and *BSD distributions.
  99. */ 
  100. TDSCONFIGINFO *tds_get_config(TDSSOCKET *tds, TDSLOGIN *login, TDSLOCINFO *locale)
  101. {
  102. TDSCONFIGINFO *config;
  103. char *s;
  104. char path[MAXPATH];
  105. pid_t pid;
  107. /* allocate a new structure with hard coded and build-time defaults */
  108. config = tds_alloc_config(locale);
  110.         s=getenv("TDSDUMPCONFIG");
  111.         if (s)
  112.         {
  113.             if ( !*s)
  114.             {
  115.                 pid = getpid();
  116.                 sprintf(path,"/tmp/tdsconfig.log.%d",pid);
  117.                 s = path;
  118.             }
  119.             tdsdump_open(s);
  120.         }
  122. tdsdump_log(TDS_DBG_INFO1, "%L Attempting to read conf files.n");
  123. if (! tds_read_conf_file(login->server_name, config)) {
  124. /* fallback to interfaces file */
  125. tdsdump_log(TDS_DBG_INFO1, "%L Failed in reading conf file.  Trying interface files.n");
  126. tds_read_interfaces(login->server_name, config);
  127. }
  129. if( parse_server_name_for_port( config, login ) ) {
  130. tdsdump_log(TDS_DBG_INFO1, "Parsed servername, now %s on %d.n", config->server_name, login->port);
  131. }
  133. /* Now check the environment variables */
  134. tds_config_env_tdsver(config);
  135. tds_config_env_tdsdump(config);
  136. tds_config_env_tdsport(config);
  137. tds_config_env_dsquery(config);
  138. tds_config_env_tdshost(config);
  140. /* And finally the login structure */
  141. tds_config_login(config, login);
  143.         if ( s && *s) tdsdump_close();
  144. return config;
  145. }        
  147. static int tds_try_conf_file(char *path, char *how, char *server, TDSCONFIGINFO *config)
  148. {
  149. int found = 0;
  150. FILE *in;
  152. if ((in = fopen (path, "r")) != NULL) {
  153. tdsdump_log(TDS_DBG_INFO1, 
  154. "%L Found conf file in %s %s. Reading section %s.n",interf_file,how, server);
  155. found = tds_read_conf_sections (in, server, config);
  156.                        if(found) tdsdump_log(TDS_DBG_INFO1, "%L ...Success.n");
  157. fclose (in);
  158. }
  159. return found;
  160. }
  162. static int tds_read_conf_file(char *server, TDSCONFIGINFO *config)
  163. {
  164. #ifndef NCBI_FTDS
  165. FILE *in;
  166. #endif
  167. char  *home, *path;
  168. int found = 0; 
  170. if (interf_file[0]!='') {
  171. found = tds_try_conf_file(interf_file,"set programmatically", server, config);
  172. }
  174. /* FREETDSCONF env var, pkleef@openlinksw.com 01/21/02 */
  175. if (!found) {
  176. path = getenv ("FREETDSCONF");
  177. if (path) {
  178. found = tds_try_conf_file(path, "(from $FREETDSCONF)", server, config);
  179. }
  180. }
  182. if (!found) {
  183. /* FIXME use getpwent for security */
  184. home = getenv("HOME");
  185. if (home!=NULL && home[0]!='') {
  186. /* FIXME check buffer */
  187. path = malloc(strlen(home) + 14 + 1); /* strlen("/.freetds.conf")=14 */
  188. sprintf(path,"%s/.freetds.conf",home);
  189. found = tds_try_conf_file(path, "(.freetds.conf)", server, config);
  190. free(path);
  191. }
  192. }
  194. if (!found) {
  195. found = tds_try_conf_file(FREETDS_SYSCONFFILE, "(default)", server, config);
  196. }
  198. return found;
  199. }
  200. static int tds_read_conf_sections(FILE *in, char *server, TDSCONFIGINFO *config)
  201. {
  202. char *section;
  203. int i, found = 0;
  205. tds_read_conf_section(in, "global", config);
  206. rewind(in);
  207. section = strdup(server);
  208. for (i=0;i<strlen(section);i++) section[i]=tolower(section[i]);
  209. found = tds_read_conf_section(in, section, config);
  210. free(section);
  212. return found;
  213. }
  214. static int tds_config_boolean(char *value) 
  215. {
  216. if (!strcmp(value, "yes") ||
  217. !strcmp(value, "on") ||
  218. !strcmp(value, "true") ||
  219. !strcmp(value, "1")) {
  220.                 tdsdump_log(TDS_DBG_INFO1, "%L %s is a 'yes/on/true'.n",value);
  221.                 return 1;
  222. } else {
  223.                 tdsdump_log(TDS_DBG_INFO1, "%L %s is a 'no/off/false'.n",value);
  224.                 return 0;
  225. }
  226. }
  228. static int tds_read_conf_section(FILE *in, char *section, TDSCONFIGINFO *config)
  229. {
  230. char line[256], option[256], value[256], *s;
  231. int i;
  232. char p;
  233. int insection = 0;
  234. char tmp[256];
  235. int found = 0;
  237.         tdsdump_log(TDS_DBG_INFO1, "%L Looking for section %s.n", section);
  238. while (fgets(line, 256, in)) {
  239. s = line;
  241. /* skip leading whitespace */
  242. while (*s && isspace(*s)) s++;
  244. /* skip it if it's a comment line */
  245. if (*s==';' || *s=='#') continue;
  247. /* read up to the = ignoring duplicate spaces */
  248. p = 0; i = 0;
  249. while (*s && *s!='=') {
  250. if (!isspace(*s) && isspace(p)) 
  251. option[i++]=' ';
  252. if (!isspace(*s)) 
  253. option[i++]=tolower(*s);
  254. p = *s;
  255. s++;
  256. }
  257. option[i]='';
  259. /* skip the = */
  260. if(*s) s++;
  262. /* skip leading whitespace */
  263. while (*s && isspace(*s)) s++;
  265. /* read up to a # ; or null ignoring duplicate spaces */
  266. p = 0; i = 0;
  267. while (*s && *s!=';' && *s!='#') {
  268. if (!isspace(*s) && isspace(p)) 
  269. value[i++]=' ';
  270. if (!isspace(*s)) 
  271. value[i++]=*s;
  272. p = *s;
  273. s++;
  274. }
  275. value[i]='';
  277. if (!strlen(option)) 
  278. continue;
  280. if (option[0]=='[') {
  281. s = &option[1];
  282. while (*s) {
  283.                                 if (*s==']') *s='';
  284.                                 *s = tolower(*s);
  285. s++;
  286. }
  287.                         tdsdump_log(TDS_DBG_INFO1, "%L ... Found section %s.n", &option[1]);
  289. if (!strcmp(section, &option[1])) {
  290. tdsdump_log(TDS_DBG_INFO1, "%L Got a match.n");
  291. insection=1;
  292. found=1;
  293. } else {
  294. insection=0;
  295. }
  296. } else if (insection) {
  297.                     /* fprintf(stderr,"option = '%s' value = '%s'n", option, value); */
  298.                         tdsdump_log(TDS_DBG_INFO1, "%L option = '%s' value = '%s'.n", option, value);
  299. if (!strcmp(option,TDS_STR_VERSION)) {
  300. tds_config_verstr(value, config);
  301. } else if (!strcmp(option,TDS_STR_BLKSZ)) {
  302. if (atoi(value)) 
  303. config->block_size = atoi(value);
  304. } else if (!strcmp(option,TDS_STR_SWAPDT)) {
  305. config->broken_dates = tds_config_boolean(value);
  306. } else if (!strcmp(option,TDS_STR_SWAPMNY)) {
  307. config->broken_money = tds_config_boolean(value);
  308. } else if (!strcmp(option,TDS_STR_TRYSVR)) {
  309. config->try_server_login = tds_config_boolean(value);
  310. } else if (!strcmp(option,TDS_STR_TRYDOM)) {
  311. config->try_domain_login = tds_config_boolean(value);
  312. } else if (!strcmp(option,TDS_STR_DOMAIN)) {
  313. if (config->default_domain) free(config->default_domain);
  314. config->default_domain = strdup(value);
  315. } else if (!strcmp(option,TDS_STR_XDOMAUTH)) {
  316. config->xdomain_auth = tds_config_boolean(value);
  317. } else if (!strcmp(option,TDS_STR_DUMPFILE)) {
  318. if (config->dump_file) free(config->dump_file);
  319. config->dump_file = strdup(value);
  320. } else if (!strcmp(option,TDS_STR_DEBUGLVL)) {
  321. if (atoi(value)) 
  322. config->debug_level = atoi(value);
  323. } else if (!strcmp(option,TDS_STR_TIMEOUT )) {
  324. if (atoi(value)) 
  325. config->timeout = atoi(value);
  326. } else if (!strcmp(option,TDS_STR_CONNTMOUT)) {
  327. if (atoi(value)) 
  328. config->connect_timeout = atoi(value);
  329. } else if (!strcmp(option,TDS_STR_HOST)) {
  330. tdsdump_log(TDS_DBG_INFO1, "%L Found host entry %s.n",value);
  331.     lookup_host(value, NULL, tmp, NULL);
  332. #ifdef NCBI_FTDS
  333. if (config->ip_addr[0]) free(config->ip_addr[0]);
  334. config->ip_addr[0] = strdup(tmp);
  335. tdsdump_log(TDS_DBG_INFO1, "%L IP addr is %s.n",config->ip_addr[0]);
  336. #else
  337. if (config->ip_addr) free(config->ip_addr);
  338. config->ip_addr = strdup(tmp);
  339. tdsdump_log(TDS_DBG_INFO1, "%L IP addr is %s.n",config->ip_addr);
  340. #endif
  341. } else if (!strcmp(option,TDS_STR_PORT)) {
  342. if (atoi(value)) 
  343. #ifdef NCBI_FTDS
  344. config->port[0] = atoi(value);
  345. #else
  346. config->port = atoi(value);
  347. #endif
  348. } else if (!strcmp(option,TDS_STR_EMUL_LE)) {
  349. config->emul_little_endian = tds_config_boolean(value);
  350. } else if (!strcmp(option,TDS_STR_TEXTSZ)) {
  351. if (atoi(value)) 
  352. config->text_size = atoi(value);
  353. } else if (!strcmp(option,TDS_STR_CHARSET)) {
  354. if (config->char_set) free(config->char_set);
  355. config->char_set = strdup(value);
  356. } else if (!strcmp(option,TDS_STR_CLCHARSET)) {
  357. if (config->client_charset) free(config->client_charset);
  358. config->client_charset = strdup(value);
  359. } else if (!strcmp(option,TDS_STR_LANGUAGE)) {
  360. if (config->language) free(config->language);
  361. config->language = strdup(value);
  362. } else if (!strcmp(option,TDS_STR_APPENDMODE)) {
  363. g_append_mode = tds_config_boolean(value);
  364. }
  365.                         else tdsdump_log(TDS_DBG_INFO1, "%L UNRECOGNIZED option '%s'...ignoring.n", option);
  366. }
  368. }
  369. return found;
  370. }
  371. #ifdef NCBI_FTDS
  372. static int get_server_info(char *server, int entry_num, char *ip_addr, char *ip_port,  
  373. char *tds_ver);
  374. #endif
  375. static void tds_read_interfaces(char *server, TDSCONFIGINFO *config)
  376. {
  377. char ip_addr[255], ip_port[255], tds_ver[255];
  379. /* read $SYBASE/interfaces */
  380. /* This needs to be cleaned up */
  381. #ifdef NCBI_FTDS
  382.     int entry_num;
  383. for(entry_num= 0; entry_num < NCBI_NUM_SERVERS; entry_num++) {
  384.     get_server_info(server, entry_num+1, ip_addr, ip_port, tds_ver);
  385. if (strlen(ip_addr) == 0) break;
  386. if (config->ip_addr[entry_num]) free(config->ip_addr[entry_num]);
  387. /* FIXME check result, use strdup */
  388. config->ip_addr[entry_num] = (char *) malloc(strlen(ip_addr)+1);
  389. strcpy(config->ip_addr[entry_num], ip_addr);
  390. if (atoi(ip_port)) {
  391.     config->port[entry_num] = atoi(ip_port);
  392. }
  393. if (strlen(tds_ver)) {
  394.     tds_config_verstr(tds_ver, config);
  395. /* if it doesn't match a known version do nothing with it */
  396. }
  397. }
  398. while(entry_num < NCBI_NUM_SERVERS) {
  399. if (config->ip_addr[entry_num]) free(config->ip_addr[entry_num]);
  400. config->ip_addr[entry_num++]= NULL;
  401. }
  403. #else
  404. get_server_info(server, ip_addr, ip_port, tds_ver);
  405. if (strlen(ip_addr)) {
  406. if (config->ip_addr) free(config->ip_addr);
  407. /* FIXME check result, use strdup */
  408. config->ip_addr = (char *) malloc(strlen(ip_addr)+1);
  409. strcpy(config->ip_addr, ip_addr);
  410. }
  411. if (atoi(ip_port)) {
  412. config->port = atoi(ip_port);
  413. }
  414. if (strlen(tds_ver)) {
  415. tds_config_verstr(tds_ver, config);
  416. /* if it doesn't match a known version do nothing with it */
  417. }
  418. #endif
  419. }
  420. static void tds_config_login(TDSCONFIGINFO *config, TDSLOGIN *login)
  421. {
  422. if (login->server_name && strlen(login->server_name)) {
  423. if (config->server_name) free(config->server_name);
  424. config->server_name = strdup(login->server_name);
  425. }
  426. if (login->major_version || login->minor_version) {
  427. config->major_version = login->major_version;
  428. config->minor_version = login->minor_version;
  429. }
  430.         if (login->language && strlen(login->language)) {
  431. if (config->language) free(config->language);
  432. config->language = strdup(login->language);
  433. }
  434.         if (login->char_set && strlen(login->char_set)) {
  435. if (config->char_set) free(config->char_set);
  436. config->char_set = strdup(login->char_set);
  437. }
  438.         if (login->host_name && strlen(login->host_name)) {
  439. if (config->host_name) free(config->host_name);
  440. config->host_name = strdup(login->host_name);
  441. /* DBSETLHOST and it's equivilants are commentary fields
  442. ** they don't affect config->ip_addr (the server) but they show
  443. ** up in an sp_who as the *clients* hostname.  (bsb, 11/10) 
  444. */
  445. /* should work with IP (mlilback, 11/7/01) */
  446. /*
  447. if (config->ip_addr) free(config->ip_addr);
  448. config->ip_addr = calloc(sizeof(char),18);
  449. lookup_host(config->host_name, NULL, config->ip_addr, NULL);
  450. */
  451. }
  452.         if (login->app_name && strlen(login->app_name)) {
  453. if (config->app_name) free(config->app_name);
  454. config->app_name = strdup(login->app_name);
  455. }
  456.         if (login->user_name && strlen(login->user_name)) {
  457. if (config->user_name) free(config->user_name);
  458. config->user_name = strdup(login->user_name);
  459. }
  460.         if (login->password && strlen(login->password)) {
  461. if (config->password) {
  462. /* for security reason clear memory */
  463. memset(config->password,0,strlen(config->password));
  464. free(config->password);
  465. }
  466. config->password = strdup(login->password);
  467. }
  468.         if (login->library && strlen(login->library)) {
  469. if (config->library) free(config->library);
  470. config->library = strdup(login->library);
  471. }
  472.         if (login->encrypted) {
  473. config->encrypted = 1;
  474. }
  475.         if (login->suppress_language) {
  476. config->suppress_language = 1;
  477. }
  478.         if (login->bulk_copy) {
  479. config->bulk_copy = 1;
  480. }
  481.         if (login->block_size) {
  482. config->block_size = login->block_size;
  483. }
  484. #ifdef NCBI_FTDS
  485. else if(config->major_version >= 7) {
  486.         config->block_size= 6*1024;
  487. }
  488. #endif
  489.         if (login->port) {
  490. #ifdef NCBI_FTDS
  491. config->port[0] = login->port;
  492. #else
  493. config->port = login->port;
  494. #endif
  495. }
  497. }
  499. static void tds_config_env_dsquery(TDSCONFIGINFO *config)
  500. {
  501. char *s;
  503. if ((s=getenv("TDSQUERY"))) {
  504. if (s && strlen(s)) {
  505. if (config->server_name) free(config->server_name);
  506. config->server_name = strdup(s);
  507. tdsdump_log(TDS_DBG_INFO1, "%L Setting 'server_name' to '%s' from $TDSQUERY.n",s);
  508. } 
  509. return;
  510. }
  511. if ((s=getenv("DSQUERY"))) {
  512. if (s && strlen(s)) {
  513. if (config->server_name) free(config->server_name);
  514. config->server_name = strdup(s);
  515. tdsdump_log(TDS_DBG_INFO1, "%L Setting 'server_name' to '%s' from $DSQUERY.n",s);
  516. } 
  517. }
  518. }
  519. static void tds_config_env_tdsdump(TDSCONFIGINFO *config)
  520. {
  521. char *s;
  522. char path[255];
  523. pid_t pid=0;
  525.         if ((s=getenv("TDSDUMP"))) {
  526.                 if (!strlen(s)) {
  527.                         pid = getpid();
  528.                         sprintf(path,"/tmp/freetds.log.%d",pid);
  529. if (config->dump_file) free(config->dump_file);
  530. config->dump_file = strdup(path);
  531.                 } else {
  532. if (config->dump_file) free(config->dump_file);
  533. config->dump_file = strdup(s);
  534.                 }
  535.                 tdsdump_log(TDS_DBG_INFO1, "%L Setting 'dump_file' to '%s' from $TDSDUMP.n",config->dump_file);
  536.         }
  537. }
  538. static void tds_config_env_tdsport(TDSCONFIGINFO *config)
  539. {
  540. char *s;
  542. if ((s=getenv("TDSPORT"))) {
  543. #ifdef NCBI_FTDS
  544.             config->port[0]=atoi(s);
  545. #else
  546.             config->port=atoi(s);
  547. #endif
  548.             tdsdump_log(TDS_DBG_INFO1, "%L Setting 'port' to %s from $TDSPORT.n",s);
  549. }
  550. return;
  551. }
  552. static void tds_config_env_tdsver(TDSCONFIGINFO *config)
  553. {
  554. char *tdsver;
  556. if ((tdsver=getenv("TDSVER"))) {
  557.             tds_config_verstr(tdsver, config);
  558.             tdsdump_log(TDS_DBG_INFO1, "%L Setting 'tdsver' to %s from $TDSVER.n",tdsver);
  560. }
  561. return;
  562. }
  563. /* TDSHOST env var, pkleef@openlinksw.com 01/21/02 */
  564. static void tds_config_env_tdshost(TDSCONFIGINFO *config)
  565. {
  566. char *tdshost;
  567. char tmp[256];
  569. if ((tdshost=getenv("TDSHOST"))) {
  570. lookup_host (tdshost, NULL, tmp, NULL);
  571. #ifdef NCBI_FTDS
  572. if (config->ip_addr[0])
  573. free (config->ip_addr[0]);
  574. config->ip_addr[0] = strdup (tmp);
  575. #else
  576. if (config->ip_addr)
  577. free (config->ip_addr);
  578. config->ip_addr = strdup (tmp);
  579. #endif
  580.                 tdsdump_log(TDS_DBG_INFO1, "%L Setting 'ip_addr' to %s (%s) from $TDSHOST.n",tmp, tdshost);
  582. }
  583. return;
  584. }
  586. static void tds_config_verstr(char *tdsver, TDSCONFIGINFO *config)
  587. {
  588. if (!strcmp(tdsver,"42") || !strcmp(tdsver,"4.2")) {
  589. config->major_version=4;
  590. config->minor_version=2;
  591. return;
  592. } else if (!strcmp(tdsver,"46") || !strcmp(tdsver,"4.6")) {
  593. config->major_version=4;
  594. config->minor_version=6;
  595. return;
  596. } else if (!strcmp(tdsver,"50") || !strcmp(tdsver,"5.0")) {
  597. config->major_version=5;
  598. config->minor_version=0;
  599. return;
  600. } else if (!strcmp(tdsver,"70") || !strcmp(tdsver,"7.0")) {
  601. config->major_version=7;
  602. config->minor_version=0;
  603. return;
  604. } else if (!strcmp(tdsver,"80") || !strcmp(tdsver,"8.0")) {
  605. config->major_version=8;
  606. config->minor_version=0;
  607. return;
  608. }
  609. }
  610. int set_interfaces_file_loc(char *interf)
  611. {
  612. if (strlen(interf)>=MAXPATH) return 0;
  614. strcpy(interf_file,interf);
  615. return 1; /* SUCCEED */
  616. }
  618. /* ============================== lookup_host() ==============================
  619.  *
  620.  * Def:  Given a servername and port name or number, lookup the
  621.  *       hostname and service.  The server ip will be stored in the
  622.  *       string 'servername' in dotted-decimal notation.  The service port
  623.  *       number will be stored in string form in the 'port' parameter.
  624.  *
  625.  *       If we can't determine both the IP address and port number then
  626.  *       'ip' and 'port' will be set to empty strings.
  627.  *
  628.  * Ret:  void
  629.  *
  630.  * ===========================================================================
  631.  */
  632. static void lookup_host(
  633.    const char  *servername,  /* (I) name of the server                  */
  634.    const char  *portname,    /* (I) name or number of the port          */
  635.    char        *ip,          /* (O) dotted-decimal ip address of server */
  636.    char        *port)        /* (O) port number of the service          */
  637. {
  638.    struct hostent   *host    = NULL;
  639.    struct servent   *service = NULL;
  640.    int               num     = 0;
  641.    unsigned int ip_addr=0;
  643.    /* Storage for reentrant getaddrby* calls */
  644.    struct hostent result;
  645.    char buffer[4096];
  646.    int h_errnop;
  648.    /* Storage for reentrant getservbyname */
  649.    struct servent serv_result;
  651.    /* Only call gethostbyname if servername is not an ip address. 
  652.       This call take a while and is useless for an ip address.
  653.       mlilback 3/2/02 */
  654.    ip_addr = inet_addr(servername);
  655.    if (ip_addr == INADDR_NONE)
  656.       host = tds_gethostbyname_r(servername, &result, buffer, sizeof(buffer), &h_errnop);
  658. #ifndef NOREVERSELOOKUPS
  659. /* froy@singleentry.com 12/21/2000 */
  660. if (host==NULL) {
  661. char addr [4];
  662. int a0, a1, a2, a3;
  663. sscanf (servername, "%d.%d.%d.%d", &a0, &a1, &a2, &a3);
  664. addr [0] = a0;
  665. addr [1] = a1;
  666. addr [2] = a2;
  667. addr [3] = a3;
  668. host    = tds_gethostbyaddr_r (addr, 4, AF_INET, &result, buffer, sizeof(buffer), &h_errnop);
  669. }
  670. /* end froy */ 
  671. #endif
  672.    if (!host) {
  673.       /* if servername is ip, copy to ip. */
  674.       if (INADDR_NONE != ip_addr)
  675.          strncpy(ip, servername, 17); 
  676.       else
  677.          ip[0]   = '';
  678.    } else {
  679.       struct in_addr *ptr = (struct in_addr *) host->h_addr;
  680.       strncpy(ip, inet_ntoa(*ptr), 17);
  681.    }
  682.    if (portname) {
  683. #ifdef NCBI_FTDS
  684.  char* tail;
  685.  num= (int)strtol(portname, &tail, 10);
  686.  if((num == 0) || (tail != NULL && *tail != '')) {
  687.    service = tds_getservbyname_r(portname, "tcp", &serv_result, buffer, sizeof(buffer));
  688.    if(service) 
  689.  num= ntohs(service->s_port);
  690.  }
  691. #else
  692.      service = tds_getservbyname_r(portname, "tcp", &serv_result, buffer, sizeof(buffer));
  693.       if (service==NULL) {
  694.          num = atoi(portname);
  695.       } else {
  696.          num = ntohs(service->s_port);
  697.       }
  698. #endif
  699.    }
  701.    if (num==0) {
  702. if (port) port[0] = '';
  703.    } else {
  704. sprintf(port, "%d", num);
  705.    }
  706. } /* lookup_host()  */
  708. static int hexdigit(char c)
  709. {
  710. if (c>='a' && c<='f') {
  711. return c - 'a' + 10;
  712. } else if (c>='A' && c<='F') {
  713. return c - 'A' + 10;
  714. } else if (c>='0' && c<='9') {
  715. return c - '0';
  716. } else {
  717. return 0; /* bad hex digit */
  718. }
  719. }
  720. static int hex2num(char *hex)
  721. {
  722. return hexdigit(hex[0])*16 + hexdigit(hex[1]);
  723. }
  724. /* ========================= search_interface_file() =========================
  725.  *
  726.  * Def:  Open and read the file 'file' searching for a logical server
  727.  *       by the name of 'host'.  If one is found then lookup
  728.  *       the IP address and port number and store them in 'ip_addr', and
  729.  *       'ip_port'.
  730.  *
  731.  * Ret:  void
  732.  *
  733.  * ===========================================================================
  734.  */
  735. static void search_interface_file(
  736.    const char *dir,     /* (I) Name of base directory for interface file */
  737.    const char *file,    /* (I) Name of the interface file                */
  738.    const char *host,    /* (I) Logical host to search for                */
  739. #ifdef NCBI_FTDS
  740.    int       entry_num, /* (I) entry number for host in interface file   */
  741. #endif
  742.    char       *ip_addr, /* (O) dotted-decimal IP address                 */
  743.    char       *ip_port, /* (O) Port number for database server           */
  744.    char       *tds_ver) /* (O) Protocol version to use when connecting   */
  745. {
  746. char  *pathname;
  747. char  line[255];
  748. char  tmp_ip[sizeof(line)];
  749. char  tmp_port[sizeof(line)];
  750. char  tmp_ver[sizeof(line)];
  751. FILE *in;
  752. char *field;
  753. int   found=0;
  754. char *lasts;
  756. ip_addr[0]  = '';
  757. ip_port[0]  = '';
  758. line[0]     = '';
  759. tmp_ip[0]   = '';
  760. tmp_port[0] = '';
  761. tmp_ver[0]  = '';
  763. tdsdump_log(TDS_DBG_INFO1, "%L Searching interfaces file %s/%s.n",dir,file);
  764. /* FIXME check result or use open fchdir fopen ... */
  765. pathname = (char *) malloc(strlen(dir) + strlen(file) + 10);
  766.    
  767. /*
  768. * create the full pathname to the interface file
  769. */
  770. /* FIXME file and dir can't be NULL, used before in strlen */
  771. if (file==NULL || file[0]=='') {
  772. pathname[0] = '';
  773. } else {
  774. if (dir==NULL || dir[0]=='') {
  775. pathname[0] = '';
  776. } else {
  777. strcpy(pathname, dir);
  778. strcat(pathname, "/");
  779. }
  780. strcat(pathname, file);
  781. }
  784. /*
  785. *  parse the interfaces file and find the server and port
  786. */
  787. if ((in = fopen(pathname,"r"))==NULL) {
  788.                 tdsdump_log(TDS_DBG_INFO1, "%L Couldn't open %s.n", pathname);
  789.                 free(pathname);
  790. return;
  791. }
  792. tdsdump_log(TDS_DBG_INFO1, "%L Interfaces file %s opened.n", pathname);
  794. while (fgets(line,sizeof(line)-1,in)) {
  795. if (line[0]=='#') continue; /* comment */
  797. if (!isspace(line[0])) {
  798. field = tds_strtok_r(line,"nt ", &lasts);
  799. if (!strcmp(field,host)) {
  800. found=1;
  801. tdsdump_log(TDS_DBG_INFO1, "%L Found matching entry for host %s.n,host");
  802. }
  803. else found=0;
  804. } else if (found && isspace(line[0])) {
  805. field = tds_strtok_r(line,"nt ", &lasts);
  806. if (field!=NULL && !strcmp(field,"query")) {
  807. #ifdef NCBI_FTDS
  808.   if(--entry_num > 0) continue;
  809. #endif
  810. field = tds_strtok_r(NULL,"nt ", &lasts); /* tcp or tli */
  811. if (!strcmp(field,"tli")) {
  812. tdsdump_log(TDS_DBG_INFO1, "%L TLI service.n");
  813. field = tds_strtok_r(NULL,"nt ", &lasts); /* tcp */
  814. field = tds_strtok_r(NULL,"nt ", &lasts); /* device */
  815. field = tds_strtok_r(NULL,"nt ", &lasts); /* host/port */
  816. if (strlen(field)>=18) {
  817. sprintf(tmp_port,"%d", hex2num(&field[6])*256 + 
  818. hex2num(&field[8]));
  819. sprintf(tmp_ip,"%d.%d.%d.%d", hex2num(&field[10]),
  820. hex2num(&field[12]), hex2num(&field[14]),
  821. hex2num(&field[16]));
  822.         tdsdump_log(TDS_DBG_INFO1, "%L tmp_port = %d.mtp_ip = %s.n", tmp_port, tmp_ip);
  823. }
  824. } else {
  825. field = tds_strtok_r(NULL,"nt ", &lasts); /* ether */
  826. strcpy(tmp_ver,field);
  827. field = tds_strtok_r(NULL,"nt ", &lasts); /* host */
  828. strcpy(tmp_ip,field);
  829. tdsdump_log(TDS_DBG_INFO1, "%L host field %s.n",tmp_ip);
  830. field = tds_strtok_r(NULL,"nt ", &lasts); /* port */
  831. strcpy(tmp_port,field);
  832. } /* else */
  833. #ifdef NCBI_FTDS
  834. break;
  835. #endif
  836. } /* if */
  837. } /* else if */
  838. } /* while */
  839. fclose(in);
  840. free(pathname);
  843.    /*
  844.     * Look up the host and service
  845.     */
  846. #ifdef NCBI_FTDS
  847.    if(*tmp_ip != '') 
  848. #endif
  849.    lookup_host(tmp_ip, tmp_port, ip_addr, ip_port);
  850.    tdsdump_log(TDS_DBG_INFO1, "%L Resolved IP as '%s'.n",ip_addr);
  851.    strcpy(tds_ver,tmp_ver);
  852. } /* search_interface_file()  */
  855. /* ============================ get_server_info() ============================
  856.  *
  857.  * Def:  Try to find the IP number and port for a (possibly) logical server
  858.  *       name.
  859.  *
  860.  * Note: It is the callers responsibility to supply large enough buffers
  861.  *       to hold the ip and port numbers.  ip_addr should be at least 17
  862.  *       bytes long and ip_port should be at least 6 bytes long.
  863.  *
  864.  * Note: This function uses only the interfaces file and is deprecated.
  865.  *
  866.  * Ret:  True if it found the server, false otherwise.
  867.  *
  868.  * ===========================================================================
  869.  */
  870. #ifdef NCBI_FTDS
  871. static
  872. #endif
  873. int get_server_info(
  874.    char *server,   /* (I) logical or physical server name      */
  875. #ifdef NCBI_FTDS
  876.    int entry_num,  /* (I) entry number in interface file */
  877. #endif
  878.    char *ip_addr,  /* (O) string representation of IP address  */
  879.    char *ip_port,  /* (O) string representation of port number */
  880.    char *tds_ver)  /* (O) string value specifying which protocol version */
  881. {
  882. ip_addr[0] = '';
  883. ip_port[0] = '';
  884. tds_ver[0] = '';
  886.         tdsdump_log(TDS_DBG_INFO1, "%L Looking for server....n");
  887. if (!server || strlen(server) == 0) {
  888. server = getenv("TDSQUERY");
  889. if(!server || strlen(server) == 0) {
  890. server = "SYBASE";
  891. }
  892.                 tdsdump_log(TDS_DBG_INFO1, "%L Setting server to %s from $TDSQUERY.n",server);
  894. }
  896. /*
  897. * Look for the server in the interf_file iff interf_file has been set.
  898. */
  899. if (ip_addr[0]=='' && interf_file[0]!='') {
  900.                 tdsdump_log(TDS_DBG_INFO1, "%L Looking for server in interf_file %s.n",interf_file);
  901. #ifdef NCBI_FTDS
  902.                 search_interface_file("", interf_file, server, entry_num, ip_addr,
  903. #else
  904.                 search_interface_file("", interf_file, server, ip_addr,
  905. #endif
  906.                 ip_port, tds_ver);
  907. }
  909. /*
  910. * if we haven't found the server yet then look for a $HOME/.interfaces file
  911. */
  912. if (ip_addr[0]=='') {
  913. /* FIXME use getpwent, see above */
  914. char  *home = getenv("HOME");
  915. if (home!=NULL && home[0]!='') {
  916.                         tdsdump_log(TDS_DBG_INFO1, "%L Looking for server in %s/.interfaces.n", home);
  917. #ifdef NCBI_FTDS
  918. search_interface_file(home, ".interfaces", server, entry_num, ip_addr,
  919. #else
  920. search_interface_file(home, ".interfaces", server, ip_addr,
  921. #endif
  922. ip_port, tds_ver);
  923. }
  924. }
  926. /*
  927. * if we haven't found the server yet then look in $SYBBASE/interfaces file
  928. */
  929. if (ip_addr[0]=='') {
  930. char  *sybase = getenv("SYBASE");
  931. if (sybase!=NULL && sybase[0]!='') {
  932.                         tdsdump_log(TDS_DBG_INFO1, "%L Looking for server in %s/interfaces.n", sybase);
  933. #ifdef NCBI_FTDS
  934. search_interface_file(sybase, "interfaces", server, entry_num, ip_addr,
  935. #else
  936. search_interface_file(sybase, "interfaces", server, ip_addr,
  937. #endif
  938. ip_port, tds_ver);
  939. } else {
  940.                         tdsdump_log(TDS_DBG_INFO1, "%L Looking for server in /etc/freetds/interfaces.n");
  941. search_interface_file("/etc/freetds", "interfaces", server,
  942. #ifdef NCBI_FTDS
  943.   entry_num,
  944. #endif
  945. ip_addr, ip_port, tds_ver);
  946. }
  947. }
  949.   /*
  950.   * If we still don't have the server and port then assume the user
  951.   * typed an actual server name.
  952.   */
  953. #ifdef NCBI_FTDS
  954.   if (ip_addr[0]=='' && entry_num < 2) {
  955. #else
  956.   if (ip_addr[0]=='') {
  957. #endif
  958.   char  *tmp_port;
  960. /*
  961. * Make a guess about the port number
  962. */
  964. #ifdef TDS50
  965. tmp_port = "4000";
  966. #else
  967. tmp_port = "1433";
  968. #endif
  969. /* FIX ME -- Need a symbolic constant for the environment variable */
  970. if (getenv("TDSPORT")!=NULL) {
  971. tmp_port = getenv("TDSPORT");
  972.                         tdsdump_log(TDS_DBG_INFO1, "%L Setting 'tmp_port' to %s from $TDSPORT.n",tmp_port);
  973. }
  974.                 else tdsdump_log(TDS_DBG_INFO1, "%L Setting 'tmp_port' to %s as a guess.n",tmp_port);
  977. /*
  978. * lookup the host and service
  979. */
  980. lookup_host(server, tmp_port, ip_addr, ip_port);
  982. }
  984. return ip_addr[0]!='' && ip_port[0]!='';
  985. } /* get_server_info()  */
  987. /**
  988.  * Check the server name to find port info first
  989.  * return 1 when found, else 0
  990.  * Warning: config-> & login-> are all modified when needed
  991.  */
  992. static int parse_server_name_for_port( TDSCONFIGINFO *config, TDSLOGIN *login )
  993. {
  994.     char *pSep, *pEnd;
  995.         
  996.     if( ! login->server_name )
  997.         return 0;/* FALSE */
  998.     
  999.     /* seek the ':' in login server_name */
  1000.     pEnd = login->server_name + strlen( login->server_name );
  1001.     for( pSep = login->server_name; pSep < pEnd; pSep ++ )
  1002.         if( *pSep == ':' ) break;
  1003.     
  1004.     if(( pSep < pEnd )&&( pSep != login->server_name ))/* yes, i found it! */
  1005.     {
  1006.         if( config->server_name ) free( config->server_name );
  1007.         config->server_name = strdup( login->server_name );
  1008.         
  1009.         /* modify config-> && login->server_name & ->port */
  1010. #ifdef NCBI_FTDS
  1011.         login->port = config->port[0] = atoi( pSep + 1 );
  1012. #else
  1013.         login->port = config->port = atoi( pSep + 1 );
  1014. #endif
  1015.         config->server_name[pSep - login->server_name] = 0;/* end the server_name before the ':' */
  1016.         *pSep = 0;
  1018.         /* config->ip_addr needed */
  1019.         {
  1020.             char tmp[256];
  1022.             lookup_host (config->server_name, NULL, tmp, NULL);
  1023. #ifdef NCBI_FTDS
  1024.             if (config->ip_addr[0])
  1025.                     free (config->ip_addr[0]);
  1026.             config->ip_addr[0] = strdup (tmp);
  1027. #else
  1028.             if (config->ip_addr)
  1029.                     free (config->ip_addr);
  1030.             config->ip_addr = strdup (tmp);
  1031. #endif
  1032.         }
  1034.         return 1;/* TRUE */
  1035.     }
  1036.     else
  1037.         return 0;/* FALSE */
  1038. }