htinet.c

www工具包. 这是W3C官方支持的www支撑库. 其中提供通用目的的客户端的WebAPI: complete HTTP/1.1 (with caching, pipelining, PUT, POS

/*								       HTInet.c
**	GENERIC INTERNET UTILITIES
**
**	(c) COPYRIGHT MIT 1995.
**	Please first read the full copyright statement in the file COPYRIGH.
**	@(#) $Id: HTInet.c,v 2.28 2000/01/06 10:48:50 kahan Exp $
**
**	This code is in common between client and server sides.
**
**	16 Mar 96  HFN	Spawned off from HTTCP.c
*/

/* Library include files */
#include "wwwsys.h"
#include "WWWUtil.h"
#include "HTParse.h"
#include "HTAlert.h"
#include "HTError.h"
#include "HTNetMan.h"
#include "HTDNS.h"
#include "HTInet.h"					 /* Implemented here */

#ifndef DEFAULT_NEWS_HOST
#define DEFAULT_NEWS_HOST	"news"
#endif

#ifndef SERVER_FILE
#define SERVER_FILE		"/usr/local/lib/rn/server"
#endif

/* ------------------------------------------------------------------------- */

/*
**	Returns the string equivalent to the errno passed in the argument.
**	We can't use errno directly as we have both errno and socerrno. The
**	result is a dynamic string that must be freed by the caller.
*/
PUBLIC char * HTErrnoString (int errornumber)
{
    char * msg = NULL;
#ifdef _WINSOCKAPI_
    if ((msg = (char *) HT_MALLOC(64)) == NULL)
	HT_OUTOFMEM("HTErrnoString");
    *msg = '\0';
    sprintf(msg, "WinSock reported error=%ld", WSAGetLastError());
#else
#ifdef HAVE_STRERROR
    StrAllocCopy(msg, strerror(errornumber));
#else
#ifdef HAVE_SYS_ERRLIST
#ifdef HAVE_SYS_NERR
    if (errno < sys_nerr)
	StrAllocCopy(msg, sys_errlist[errno]);
    else 
        StrAllocCopy(msg, "Unknown error");
#else
    StrAllocCopy(msg, sys_errlist[errno]);
#endif /* HAVE_SYS_NERR */
#else
#ifdef VMS
    if ((msg = (char *) HT_MALLOC(64)) == NULL)
	HT_OUTOFMEM("HTErrnoString");
    *msg = '\0';
    sprintf(msg, "Unix errno=%ld dec, VMS error=%lx hex", errornumber,
	    vaxc$errno);
#else
    StrAllocCopy(msg, "Error number not translated!");
#endif /* _WINSOCKAPI_ */
#endif /* VMS */
#endif /* HAVE_SYS_ERRLIST */
#endif /* HAVE_STRERROR */
    return msg;
}


/*	Debug error message
*/
PUBLIC int HTInetStatus (int errnum, char * where)
{
#ifdef VMS
    HTTRACE(CORE_TRACE, "System Error Unix = %ld dec\n" _ errno);
    HTTRACE(CORE_TRACE, "System Error VMS  = %lx hex\n" _ vaxc$errno);
    return (-vaxc$errno);
#else
#ifdef _WINSOCKAPI_
    HTTRACE(CORE_TRACE, "System Error Unix = %ld dec\n" _ errno);
    HTTRACE(CORE_TRACE, "System Error WinSock error=%lx hex\n" _ 
			    WSAGetLastError());
    return (-errnum);
#else
#ifdef HTDEBUG
    if (CORE_TRACE) {
	char * errmsg = HTErrnoString(errnum);
	HTTRACE(CORE_TRACE, "System Error %d after call to %s() failed\n............ %s\n" _
		errno _ where _ errmsg);
	HT_FREE(errmsg);
    }
#endif /* HTDEBUG */
    return (-errnum);
#endif /* _WINSOCKAPI_ */
#endif /* VMS */
}


/*	Parse a cardinal value				       parse_cardinal()
**	----------------------
**
** On entry,
**	*pp	    points to first character to be interpreted, terminated by
**		    non 0:9 character.
**	*pstatus    points to status already valid
**	maxvalue    gives the largest allowable value.
**
** On exit,
**	*pp	    points to first unread character
**	*pstatus    points to status updated iff bad
*/

PUBLIC unsigned int HTCardinal (int *		pstatus,
				char **		pp,
				unsigned int	max_value)
{
    unsigned int n=0;
    if ( (**pp<'0') || (**pp>'9')) {	    /* Null string is error */
	*pstatus = -3;  /* No number where one expeceted */
	return 0;
    }
    while ((**pp>='0') && (**pp<='9')) n = n*10 + *((*pp)++) - '0';

    if (n>max_value) {
	*pstatus = -4;  /* Cardinal outside range */
	return 0;
    }

    return n;
}

/* ------------------------------------------------------------------------- */
/*	       		        SIGNAL HANDLING 			     */
/* ------------------------------------------------------------------------- */

#ifdef WWWLIB_SIG
/*								    HTSetSignal
**  This function sets up signal handlers. This might not be necessary to
**  call if the application has its own handlers.
*/
#include <signal.h>

PUBLIC void HTSetSignal (void)
{
    /* On some systems (SYSV) it is necessary to catch the SIGPIPE signal
    ** when attemting to connect to a remote host where you normally should
    ** get `connection refused' back
    */
    if (signal(SIGPIPE, SIG_IGN) == SIG_ERR) {
	HTTRACE(CORE_TRACE, "HTSignal.... Can't catch SIGPIPE\n");
    } else {
	HTTRACE(CORE_TRACE, "HTSignal.... Ignoring SIGPIPE\n");
    }
}
#else /* WWWLIB_SIG */

PUBLIC void HTSetSignal (void) { }

#endif /* WWWLIB_SIG */

/* ------------------------------------------------------------------------- */
/*	       		     HOST NAME FUNCTIONS 			     */
/* ------------------------------------------------------------------------- */

/*	Produce a string for an Internet address
**	----------------------------------------
**
** On exit,
**	returns	a pointer to a static string which must be copied if
**		it is to be kept.
*/
PUBLIC const char * HTInetString (SockA * sin)
{
#ifndef DECNET  /* Function only used below for a trace message */
#if 0
    /* This dumps core on some Sun systems :-(. The problem is now, that 
       the current implememtation only works for IP-addresses and not in
       other address spaces. */
    return inet_ntoa(sin->sin_addr);
#endif
    static char string[16];
    sprintf(string, "%d.%d.%d.%d",
	    (int)*((unsigned char *)(&sin->sin_addr)+0),
	    (int)*((unsigned char *)(&sin->sin_addr)+1),
	    (int)*((unsigned char *)(&sin->sin_addr)+2),
	    (int)*((unsigned char *)(&sin->sin_addr)+3));
    return string;
#else
    return "";
#endif /* Decnet */
}

/*	Parse a network node address and port
**	-------------------------------------
** 	It is assumed that any portnumber and numeric host address
**	is given in decimal notation. Separation character is '.'
**	Any port number gets chopped off
**      Returns:
**	       	>0	Number of homes
**		 0	Wait for persistent socket
**		-1	Error
*/
PUBLIC int HTParseInet (HTHost * host, char * hostname, HTRequest * request)
{
    int status = 1;
    SockA *sin = &host->sock_addr;

#ifdef DECNET
    /* read Decnet node name. @@ Should know about DECnet addresses, but it's
       probably worth waiting until the Phase transition from IV to V. */

    sin->sdn_nam.n_len = min(DN_MAXNAML, strlen(hostname));  /* <=6 in phase 4 */
    strncpy (sin->sdn_nam.n_name, hostname, sin->sdn_nam.n_len + 1);

    HTTRACE(CORE_TRACE, "DECnet: Parsed address as object number %d on host %.6s...\n" _ 
		sin->sdn_objnum _ hostname);
#else /* Internet */
    {
	char *strptr = hostname;
	while (*strptr) {
	    if (*strptr == ':') {
		*strptr = '\0';	   /* Don't want port number in numeric host */
		break;
	    }
	    if (!isdigit((int) *strptr) && *strptr != '.')
		break;
	    strptr++;
	}
	if (!*strptr) {
#ifdef GUSI
	    sin->sin_addr = inet_addr(hostname); 		 /* See netinet/in.h */
#else
	    sin->sin_addr.s_addr = inet_addr(hostname);	  /* See arpa/inet.h */
#endif
	} else {
	    char * port = strchr(hostname, ':');			/* Chop port */
	    if (port) *port = '\0';
	    status = HTGetHostByName(host, hostname, request);
	}
#ifdef HTDEBUG
	if (status > 0)
	    HTTRACE(CORE_TRACE, "ParseInet... as port %d on %s with %d homes\n" _
		    (int) ntohs(sin->sin_port) _ HTInetString(sin) _ status);
#endif /* HTDEBUG */
    }
#endif /* Internet vs. Decnet */
    return status;
}


#if 0
/*								HTGetDomainName
**	Returns the current domain name without the local host name.
**	The response is pointing to a static area that might be changed
**	using HTSetHostName().
**
**	Returns NULL on error, "" if domain name is not found
*/
PRIVATE char * HTGetDomainName (void)
{
    char * host = HTGetHostName();
    char * domain;
    if (host && *host) {
	if ((domain = strchr(host, '.')) != NULL)
	    return ++domain;
	else
	    return "";
    } else
	return NULL;
}
#endif

/*								HTGetHostName
**	Returns the name of this host. It uses the following algoritm:
**
**	1) gethostname()
**	2) if the hostname doesn't contain any '.' try to read
**	   /etc/resolv.conf. If there is no domain line in this file then
**	3) Try getdomainname and do as the man pages say for resolv.conf (sun)
**	   If there is no domain line in this file, then it is derived
**	   from the domain name set by the domainname(1) command, usually
**	   by removing the first component. For example, if the domain-
**	   name is set to ``foo.podunk.edu'' then the default domain name
**	   used will be ``pudunk.edu''.
**
**	This is the same procedure as used by res_init() and sendmail.
**
**	Return: hostname on success else NULL
*/
PUBLIC char * HTGetHostName (void)
{
    char * hostname = NULL;
    int fqdn = 0;				     /* 0=no, 1=host, 2=fqdn */
    char name[MAXHOSTNAMELEN+1];
    *(name+MAXHOSTNAMELEN) = '\0';

#if defined(HAVE_SYSINFO) && defined(SI_HOSTNAME)
    if (!fqdn && sysinfo(SI_HOSTNAME, name, MAXHOSTNAMELEN) > 0) {
	char * dot = strchr(name, '.');
	HTTRACE(CORE_TRACE, "HostName.... sysinfo says `%s\'\n" _ name);
	StrAllocCopy(hostname, name);
	fqdn = dot ? 2 : 1;
    }
#endif /* HAVE_SYSINFO */

#ifdef HAVE_GETHOSTNAME
    if (!fqdn && gethostname(name, MAXHOSTNAMELEN) == 0) {
	char * dot = strchr(name, '.');
	HTTRACE(CORE_TRACE, "HostName.... gethostname says `%s\'\n" _ name);
	StrAllocCopy(hostname, name);
	fqdn = dot ? 2 : 1;
    }
#endif /* HAVE_GETHOSTNAME */

#ifdef RESOLV_CONF
    /* Now try the resolver config file */
    {
	FILE *fp;
	if (fqdn==1 && (fp = fopen(RESOLV_CONF, "r")) != NULL) {
	    char buffer[80];
	    *(buffer+79) = '\0';
	    while (fgets(buffer, 79, fp)) {
		if (!strncasecomp(buffer, "domain", 6) ||
		    !strncasecomp(buffer, "search", 6)) {
		    char *domainstr = buffer+6;
		    char *end;
		    while (*domainstr == ' ' || *domainstr == '\t')
			domainstr++;
		    end = domainstr;
		    while (*end && !isspace((int) *end))
			end++;
		    *end = '\0';
		    if (*domainstr) {
			StrAllocCat(hostname, ".");
			StrAllocCat(hostname, domainstr);
			fqdn = 2;
			break;