/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
 *
 * The contents of this file are subject to the Netscape Public License
 * Version 1.0 (the "NPL"); you may not use this file except in
 * compliance with the NPL.  You may obtain a copy of the NPL at
 * http://www.mozilla.org/NPL/
 *
 * Software distributed under the NPL is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
 * for the specific language governing rights and limitations under the
 * NPL.
 *
 * The Initial Developer of this code under the NPL is Netscape
 * Communications Corporation.  Portions created by Netscape are
 * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
 * Reserved.
 */

//
//  XPAPI.CPP
//  API implementation file for mapi16.dll and mapi32.dll
//  Written by: Rich Pizzarro (rhp@netscape.com)
//  November 1997
//
#include <windows.h>
#include <stdio.h>
#include <stdarg.h>
#include "xpapi.h"
#include "mapiutl.h"
#include "trace.h"

WORD LOAD_DS XP_CallProcess(LPCSTR pPath, LPCSTR pCmdLine)
{            
	WORD wReturn = 0;
#ifndef WIN16
	STARTUPINFO startupInfo;
	PROCESS_INFORMATION processInfo;

	memset(&startupInfo, 0, sizeof(startupInfo));
	startupInfo.cb = sizeof(startupInfo);
	if (wReturn = CreateProcess(pPath, (LPTSTR)pCmdLine, NULL, NULL, FALSE, CREATE_DEFAULT_ERROR_MODE | CREATE_NEW_PROCESS_GROUP, NULL, NULL, &startupInfo, &processInfo))
	{
		WaitForInputIdle(processInfo.hProcess, 120000);
	}
#else       
	// char szMsg[80];	
	char szExecute[512];
	lstrcpy(szExecute, pPath);
	lstrcat(szExecute, " ");
	lstrcat(szExecute, pCmdLine);
	wReturn = WinExec(szExecute,SW_SHOW);
	
	if (wReturn < 32) 
	{
	    wReturn = 0;
	}
#endif
	return wReturn;
}

HKEY LOAD_DS RegOpenParent(LPCSTR pSection, HKEY hRootKey, REGSAM access)
{
	HKEY hKey;
#ifndef WIN16
	if (RegOpenKeyEx(hRootKey, pSection, 0, access, &hKey) != ERROR_SUCCESS)
	{
		return(NULL);
	}        
#else
    if (RegOpenKey(hRootKey, pSection, &hKey) != ERROR_SUCCESS)
    {
    	return(NULL);
    }
#endif
	return(hKey);
}

HKEY LOAD_DS RegCreateParent(LPCSTR pSection, HKEY hMasterKey)
{
	HKEY hKey;
	if (RegCreateKey(hMasterKey, pSection, &hKey) != ERROR_SUCCESS)
	{
		return(NULL);
	}        
	return(hKey);
}

BOOL LOAD_DS GetConfigInfoStr(LPCSTR pSection, LPCSTR pKey, LPSTR pBuf, int lenBuf, HKEY hMasterKey)
{
	HKEY hKey;
	hKey = RegOpenParent(pSection, hMasterKey, KEY_QUERY_VALUE);
	if (!hKey)
	{
		return(FALSE);
	}

	DWORD len = (DWORD)lenBuf;
#ifndef WIN16
	BOOL retVal = (RegQueryValueEx(hKey, pKey, NULL, NULL, (LPBYTE)pBuf, &len) == ERROR_SUCCESS);
#else
	BOOL retVal = (RegQueryValue(hKey, pKey, pBuf, (long far*)&len) == ERROR_SUCCESS);
#endif
	RegCloseKey(hKey);
	return(retVal);
}

BOOL LOAD_DS GetConfigInfoNum(LPCSTR pSection, LPCSTR pKey, DWORD* pVal, HKEY hMasterKey)
{
	HKEY hKey;
	hKey = RegOpenParent(pSection, hMasterKey, KEY_QUERY_VALUE);
	if (!hKey)
	{
		return(FALSE);
	}

	DWORD len = sizeof(DWORD);
#ifndef WIN16
	BOOL retVal = (RegQueryValueEx(hKey, pKey, NULL, NULL, (LPBYTE)pVal, &len) == ERROR_SUCCESS);
#else
	BOOL retVal = (RegQueryValue(hKey, pKey, (char far*)pVal, (long far*)&len) == ERROR_SUCCESS);
#endif
	RegCloseKey(hKey);
	return(retVal);
}

BOOL LOAD_DS SetConfigInfoStr(LPCSTR pSection, LPCSTR pKey, LPSTR pStr, HKEY hMasterKey)
{
	HKEY hKey;
	hKey = RegCreateParent(pSection, hMasterKey);
	if (!hKey)
	{
		return(FALSE);
	}
#ifndef WIN16
	BOOL retVal = (RegSetValueEx(hKey, pKey, 0, REG_SZ, (LPBYTE)pStr, lstrlen(pStr) + 1) == ERROR_SUCCESS);
#else
	BOOL retVal = (RegSetValue(hKey, pKey, REG_SZ, pStr, lstrlen(pStr) + 1) == ERROR_SUCCESS);
#endif
	RegCloseKey(hKey);
	return(retVal);
}


BOOL LOAD_DS XP_GetInstallDirectory(LPCSTR pcurVersionSection, LPCSTR pInstallDirKey, LPSTR path, UINT nSize, HKEY hKey)
{   
#ifdef WIN32   
	if (!GetConfigInfoStr(pcurVersionSection, pInstallDirKey, path, nSize, hKey))
	{  
		return FALSE;
	}
	else
	{
		return TRUE;
	}       
#else
	if ( 0 < GetPrivateProfileString(pcurVersionSection, pInstallDirKey,"ERROR", path, nSize, szNetscapeINI))
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
#endif
}


BOOL LOAD_DS XP_GetVersionInfoString(LPCSTR pNavigatorSection, LPCSTR pCurrentVersionKey, LPSTR pcurVersionStr, UINT nSize, HKEY hKey)
{ 
#ifdef WIN32
	if (!GetConfigInfoStr(pNavigatorSection, pCurrentVersionKey, pcurVersionStr, nSize, HKEY_LOCAL_MACHINE))
	{
		return FALSE;
	}               
	else
	{
		return TRUE;
	}
#else 
	if ( 0 < GetPrivateProfileString(pNavigatorSection, pCurrentVersionKey,"ERROR", pcurVersionStr, nSize, szNetscapeINI))
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
#endif

}   

DWORD LOAD_DS XP_GetInstallLocation(LPSTR pPath, UINT nSize)
{           
char curVersionStr[256]; 
char curVersionSection[256];

  if (!pPath) 
  {
    TRACE("PATH ARG IS NULL\n");
    return  MAPI_E_LOGON_FAILURE;
  }
  
#ifdef WIN32
  if (!XP_GetVersionInfoString(szNavigatorSection, szCurrentVersionKey, curVersionStr, 
    sizeof(curVersionStr), HKEY_LOCAL_MACHINE))
  {
    TRACE("FAILED TO GET XP_GetVersionInfoString() to WORK\n");
    return (MAPI_E_LOGON_FAILURE);
  }
  
  wsprintf(curVersionSection, szNavigatorCurVersionSection, curVersionStr);
		
  if (!XP_GetInstallDirectory(curVersionSection, szInstallDirKey, pPath, 
    nSize, HKEY_LOCAL_MACHINE))
  {
    TRACE("FAILED TO GET XP_GetInstallDirectory() to WORK\n");
    return (MAPI_E_ACCESS_DENIED);
    
  }
  
  lstrcat(pPath, "\\");
  lstrcat(pPath, "Program\\netscape.exe");
  
  return SUCCESS_SUCCESS;
#else
  if (32 == Is_16_OR_32_BIT_CommunitorRunning())
  {   
    if (!GetConfigInfoStr("snews\\shell\\open", "command", curVersionStr, sizeof(curVersionStr), HKEY_CLASSES_ROOT))
    {
      TRACE("FAILED TO DO GetConfigInfoStr() to WORK\n");
      return (MAPI_E_ACCESS_DENIED);
    }
    else
    {	
      char *pFind = strstr(curVersionStr,"-h");
      
      if (pFind)
      {
        *pFind=0;
        lstrcpy(pPath,curVersionStr);
      }
      else
      {
        TRACE("FINDING -h FAILED TO WORK\n");
        return (MAPI_E_ACCESS_DENIED);
      }
    }
    
    return SUCCESS_SUCCESS;
  }
  else //setup up to start navstart since we are a sixteen bit DLL.
  {
    if (!XP_GetVersionInfoString(szNavigatorSection, szCurrentVersionKey, curVersionStr, sizeof(curVersionStr), HKEY_LOCAL_MACHINE))
    {
      TRACE("VERSION INFO STRING FAILED\n");
      return (MAPI_E_LOGON_FAILURE);
    }
    
    wsprintf(curVersionSection, szNavigatorCurVersionSection, curVersionStr);
    
    if (!XP_GetInstallDirectory(curVersionSection, szInstallDirKey, pPath,nSize, HKEY_LOCAL_MACHINE))
    {
      TRACE("GETINSTALLDIRECTORY FAILED\n");
      return (MAPI_E_ACCESS_DENIED);		
    }
    
    lstrcat(pPath, "\\");
    lstrcat(pPath, "NAVSTART.EXE");
    return SUCCESS_SUCCESS;	
  }
#endif
}

int LOAD_DS Is_16_OR_32_BIT_CommunitorRunning()
{
  if (FindWindow("AfxFrameOrView", NULL) && !FindWindow("aHiddenFrameClass", NULL))
		return(16);
	else if (FindWindow("aHiddenFrameClass", NULL))
		return(32);
	else 
		return 0;
}

BOOL LOAD_DS 
XP_CopyFile(LPCSTR lpExistingFile, LPCSTR lpNewFile, BOOL bFailifExist)
{                                                  
#ifdef WIN32
	return	CopyFile(lpExistingFile, lpNewFile, bFailifExist);
#else 
	HFILE hReadFrom;
	if ( ((hReadFrom = _lopen(lpExistingFile, OF_SHARE_DENY_WRITE)) != HFILE_ERROR) && !bFailifExist)
	{       
		//HFILE hWriteTo;         
		FILE *hWriteTo;
		if ( (hWriteTo = fopen(lpNewFile, "wb")) != NULL)
		{
			int cbRead;
			int nCount =0;          
			int fileNo = _fileno(hWriteTo);
			PBYTE pbBuf;			
			// Allocate a buffer for file I/O.			
			pbBuf = (PBYTE) LocalAlloc(LMEM_FIXED, 2048);			
			// Copy the input file to the temporary file.			
			do 
			{
				cbRead = _lread(hReadFrom, pbBuf, 2048);
				if ( nCount = fwrite(pbBuf, sizeof(char), cbRead, hWriteTo) > -1)
				{
					LocalFree((HLOCAL) pbBuf);			
					_lclose(hReadFrom);
					fclose(hWriteTo);
					//XP_RemoveFile(lpNewFile);
					_unlink(lpNewFile);
					return 0;
				}
					
			}
			while (cbRead != 0);			
			// Free the buffer and close the files.			
			LocalFree((HLOCAL) pbBuf);			
			_lclose(hReadFrom);
			fclose(hWriteTo);
			return _fileno(hWriteTo);
		}        
		else
			return 0; //Failed to open the destination file
	}
	else
		return  0; //Fail if exist was turned on
#endif
}