1
/* $Id: ncbi_local.c,v 1.15 2008/05/25 01:25:38 kazimird Exp $
1
/* $Id: ncbi_local.c,v 1.16 2011/04/01 16:19:31 kazimird Exp $
2
2
* ===========================================================================
4
4
* PUBLIC DOMAIN NOTICE
88
88
struct SLOCAL_Data* data = (struct SLOCAL_Data*) iter->data;
89
89
const TSERV_Type type = iter->type & ~fSERV_Firewall;
90
char key[sizeof(REG_CONN_LOCAL_SERVER) + 10];
90
91
int/*bool*/ ok = 0/*failed*/;
96
(char*) malloc(strlen(name) + sizeof(REG_CONN_LOCAL_SERVER) + 80))) {
96
strcpy(key, REG_CONN_LOCAL_SERVER "_");
101
97
for (n = 0; n <= 100; n++) {
106
102
free((void*) info);
109
sprintf(buf, "%s_" REG_CONN_LOCAL_SERVER "_%d", name, n);
110
if (!(c = getenv(buf)) && !(c = getenv(strupr(buf)))) {
111
char* b = buf + strlen(name);
114
CORE_REG_GET(buf, b, service, sizeof(service) - 1, 0);
115
len = strlen(service);
116
if (len > 1 && (service[0] == '"' || service[0] == '\'')
117
&& service[len - 1] == service[0] && (len -= 2) > 0) {
118
memmove(service, service + 1, len);
105
sprintf(key + sizeof(REG_CONN_LOCAL_SERVER), "%d", n);
106
if (!(svc = ConnNetInfo_GetValue(name, key, buf, sizeof(buf), 0)))
125
108
if (!(info = SERV_ReadInfoEx
126
(c, iter->ismask || iter->reverse_dns ? name : ""))) {
109
(svc, iter->ismask || iter->reverse_dns ? name : ""))) {
129
112
if (iter->external && info->locl)