/** BEGIN COPYRIGHT BLOCK
 * Copyright 2001 Sun Microsystems, Inc.
 * Portions copyright 1999, 2001-2003 Netscape Communications Corporation.
 * All rights reserved.
 * END COPYRIGHT BLOCK **/
#include <windows.h>
#include "nt/ntos.h"

/*---------------------------------------------------------------------------*\
 *
 * Function:  GetServerDefaultHostName
 *
 *  Purpose:  This function gets the default host name
 *
 *    Input:
 *
 *  Returns:
 *
 * Comments:
\*---------------------------------------------------------------------------*/
DWORD NS_WINAPI
TCPIP_GetDefaultHostName( LPTSTR lpszFullHostName, LPTSTR lpszHostName, LPTSTR lpszDomainName )
{
    char * szKey;
    char * szName;
    DWORD dwValueType;
    DWORD dwIpHostSize = 256;
    char szIpHost[256];
    DWORD dwIpDomainSize = 256;
    char szIpDomain[256];
	BOOL bWinNT;

	/* get operating system */
    switch ( INFO_GetOperatingSystem() ) {
    case OS_WIN95: bWinNT = FALSE; break;
    case OS_WINNT: bWinNT = TRUE; break;
    default: return TCPIP_UNSUPPORTED_OS;
    }


#if 0
    int lastError;
    WSADATA WSAData;
    if ( WSAStartup( 0x0101, &WSAData ) != 0 ) {
        lastError = WSAGetLastError();
        m_pMainWnd->MessageBox ( "TCP/IP must be installed.\nUse the Network Icon in Control Panel" );
		return FALSE;
    }
    lastError = gethostname ( szIpHost, sizeof(szIpHost) );
#endif

	/* get list of all keys under Netscape */
	if ( bWinNT )
		szKey = "SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters";
	else
		szKey = "SYSTEM\\CurrentControlSet\\Services\\Vxd\\MSTCP";

	if( !REG_CheckIfKeyExists( HKEY_LOCAL_MACHINE, szKey ) ) {
		return TCPIP_NO_TCPIP;
	}

	/* get host name for computer. May have to get DHCP host name if empty */
	szName = "Hostname";
	if( !REG_GetRegistryParameter( HKEY_LOCAL_MACHINE, szKey, szName, &dwValueType, (LPBYTE)szIpHost, &dwIpHostSize ) ) {
		szIpHost[0] = '\0';
	}

	/* get domain name for computer. May have to get DHCP host name if empty */
	szName = "Domain";
	if( !REG_GetRegistryParameter( HKEY_LOCAL_MACHINE, szKey, szName, &dwValueType, (LPBYTE)szIpDomain, &dwIpDomainSize ) ) {
		dwIpDomainSize = 0;
	}
	if ( dwIpDomainSize == 0 ) {
		szName = "DhcpDomain";
		if( !REG_GetRegistryParameter( HKEY_LOCAL_MACHINE, szKey, szName,  &dwValueType, (LPBYTE)szIpDomain, &dwIpDomainSize ) ) {
		    dwIpDomainSize = 0;
		}
	}

    if ( lpszHostName )
        strcpy ( lpszHostName, szIpHost );

    strcpy ( lpszFullHostName, szIpHost ); 
    if ( lpszDomainName ) {
    	if ( dwIpDomainSize == 0 )
    	    *lpszDomainName = '\0';
        else {   	     
            strcpy ( lpszDomainName, szIpDomain );
            strcat ( lpszFullHostName, "." );
            strcat ( lpszFullHostName, lpszDomainName );
        }
    }

    return TCPIP_NO_ERROR;
}
/*---------------------------------------------------------------------------*\
 *
 * Function:  TCPIP_VerifyHostName
 *
 *  Purpose:  This function validates the host name
 *
 *    Input:
 *
 *  Returns:
 *
 * Comments:
\*---------------------------------------------------------------------------*/
DWORD NS_WINAPI
TCPIP_VerifyHostName( LPCTSTR lpszHostName )
{
    struct hostent *ent;
    WSADATA wsd;
    int lastError;

    if(WSAStartup(MAKEWORD(1, 1), &wsd) != 0)
        return TCPIP_NO_WINSOCK_DLL;

    ent = gethostbyname ( lpszHostName );
    lastError = WSAGetLastError();
    WSACleanup();

    if ( ent == NULL ) {
        switch ( lastError ) {
        case WSANOTINITIALISED:     //	A successful WSAStartup must occur before using this function.
            break;            
        case WSAENETDOWN:           //	The Windows Sockets implementation has detected that the network subsystem has failed.
            return TCPIP_NETWORK_DOWN;
        case WSAHOST_NOT_FOUND:     //	Authoritative Answer Host not found.
            return TCPIP_HOST_NOT_FOUND;
        case WSATRY_AGAIN:          //	Non-Authoritative Host not found, or SERVERFAIL.
            return TCPIP_HOST_SERVER_DOWN;
        case WSANO_RECOVERY:        //	Nonrecoverable errors: FORMERR, REFUSED, NOTIMP.
            return TCPIP_NETWORK_ERROR;
        case WSANO_DATA:            //	Valid name, no data record of requested type.
            return TCPIP_HOST_VALID_NAME;
        case WSAEINPROGRESS:        //	A blocking Windows Sockets operation is in progress.
            return TCPIP_NETWORK_ERROR;
        case WSAEINTR:              //	The (blocking) call was canceled using 
            return TCPIP_NETWORK_ERROR;
        default:
            return TCPIP_NETWORK_ERROR;
        }
    }
    return TCPIP_NO_ERROR;
}