CTRACE(tfp, "TCP: Can't find my own internet node address for `%s'!!\n", name);
CTRACE((tfp, "TCP: Can't find my own internet node address for `%s'!!\n", name));
PRIVATE void get_host_details NOARGS{    char name[MAXHOSTNAMELEN+1];	/* The name of this host */#ifdef UCX    char *domain_name;			/* The name of this host domain */#endif /* UCX */#ifdef NEED_HOST_ADDRESS		/* no -- needs name server! */    struct hostent * phost;		/* Pointer to host -- See netdb.h */#endif /* NEED_HOST_ADDRESS */    int namelength = sizeof(name);    if (hostname)	return; 			/* Already done */    gethostname(name, namelength);	/* Without domain */    StrAllocCopy(hostname, name);#ifdef LY_FIND_LEAKS    atexit(free_HTTCP_hostname);#endif#ifdef UCX    /*    **	UCX doesn't give the complete domain name.    **	Get rest from UCX$BIND_DOM logical.    */    if (strchr(hostname,'.') == NULL) { 	  /* Not full address */	domain_name = getenv("UCX$BIND_DOMAIN");	if (domain_name != NULL) {	    StrAllocCat(hostname, ".");	    StrAllocCat(hostname, domain_name);	}     }#endif /* UCX */    CTRACE(tfp, "TCP: Local host name is %s\n", hostname);#ifndef DECNET	/* Decnet ain't got no damn name server 8#OO */#ifdef NEED_HOST_ADDRESS		/* no -- needs name server! */    phost = gethostbyname(name);	/* See netdb.h */    if (!OK_HOST(phost)) {	CTRACE(tfp, "TCP: Can't find my own internet node address for `%s'!!\n",		    name);	return;  /* Fail! */    }    StrAllocCopy(hostname, phost->h_name);    memcpy(&HTHostAddress, &phost->h_addr, phost->h_length);    CTRACE(tfp, "     Name server says that I am `%s' = %s\n",		hostname, HTInetString(&HTHostAddress));#endif /* NEED_HOST_ADDRESS */#endif /* !DECNET */}