windows-nt/Source/XPSP1/NT/admin/pchealth/helpctr/service/common/module.cpp
2020-09-26 16:20:57 +08:00

676 lines
17 KiB
C++

/******************************************************************************
Copyright (c) 2000 Microsoft Corporation
Module Name:
module.cpp
Abstract:
This file contains the implementation of the CServiceModule class, which is
used to handling service-related routines.
Revision History:
Davide Massarenti (Dmassare) 03/14/2000
created
******************************************************************************/
#include "stdafx.h"
/////////////////////////////////////////////////////////////////////////////
DWORD dwTimeOut = 16*1000; // time for EXE to be idle before shutting down
const DWORD dwPause = 1000; // time to wait for threads to finish up
CServiceModule _Module;
MPC::NTEvent g_NTEvents;
MPC::FileLog g_ApplicationLog( /*fCacheHandle*/false, /*fUseUnicode*/false );
/////////////////////////////////////////////////////////////////////////////
#ifdef DEBUG
#define DEBUG_REGKEY HC_REGISTRY_HELPSVC L"\\Debug"
#define DEBUG_BREAKONSTART L"BREAKONSTART"
#define DEBUG_TIMEOUT L"TIMEOUT"
void CServiceModule::ReadDebugSettings()
{
__HCP_FUNC_ENTRY( "CServiceModule::ReadDebugSettings" );
HRESULT hr;
MPC::RegKey rkBase;
bool fFound;
__MPC_EXIT_IF_METHOD_FAILS(hr, rkBase.SetRoot( HKEY_LOCAL_MACHINE ));
__MPC_EXIT_IF_METHOD_FAILS(hr, rkBase.Attach ( DEBUG_REGKEY ));
__MPC_EXIT_IF_METHOD_FAILS(hr, rkBase.Exists ( fFound ));
if(fFound)
{
CComVariant vValue;
__MPC_EXIT_IF_METHOD_FAILS(hr, rkBase.get_Value( vValue, fFound, DEBUG_BREAKONSTART ));
if(fFound && vValue.vt == VT_I4)
{
if(vValue.lVal == 1) DebugBreak();
if(vValue.lVal == 2) while(vValue.lVal) ::Sleep( 100 );
}
__MPC_EXIT_IF_METHOD_FAILS(hr, rkBase.get_Value( vValue, fFound, DEBUG_TIMEOUT ));
if(fFound && vValue.vt == VT_I4)
{
dwTimeOut = 1000 * vValue.lVal;
}
}
__HCP_FUNC_CLEANUP;
}
#endif
/////////////////////////////////////////////////////////////////////////////
static const WCHAR s_SvcHost[] = L"Software\\Microsoft\\Windows NT\\CurrentVersion\\Svchost";
static const WCHAR s_Key [] = L"System\\CurrentControlSet\\Services\\%s";
static const WCHAR s_Key2 [] = L"\\Parameters";
static const WCHAR s_Name [] = L"ServiceDll";
static const WCHAR s_Value[] = L"%WINDIR%\\PCHealth\\HelpCtr\\Binaries\\pchsvc.dll";
static HRESULT ServiceHost_Install( LPCWSTR szName, LPCWSTR szGroup )
{
__HCP_FUNC_ENTRY( "ServiceHost_Install" );
HRESULT hr;
{
WCHAR rgRegPath[_MAX_PATH]; swprintf( rgRegPath, s_Key, szName ); wcscat( rgRegPath, s_Key2 );
__MPC_EXIT_IF_METHOD_FAILS(hr, MPC::RegKey_Value_Write( s_Value, rgRegPath, s_Name, HKEY_LOCAL_MACHINE, true ));
}
{
MPC::RegKey rk;
MPC::WStringList lstValue;
bool fFound;
bool fGot = false;
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.SetRoot( HKEY_LOCAL_MACHINE, KEY_ALL_ACCESS ));
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.Attach ( s_SvcHost ));
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.Create ( ));
if(SUCCEEDED(rk.Read( lstValue, fFound, szGroup )))
{
for(MPC::WStringIterConst it = lstValue.begin(); it != lstValue.end(); it++)
{
if(!MPC::StrICmp( *it, szName ))
{
fGot = true;
break;
}
}
}
if(fGot == false)
{
lstValue.push_back( szName );
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.Write( lstValue, szGroup ));
}
}
hr = S_OK;
__HCP_FUNC_CLEANUP;
__HCP_FUNC_EXIT(hr);
}
static HRESULT ServiceHost_Uninstall( LPCWSTR szName, LPCWSTR szGroup )
{
__HCP_FUNC_ENTRY( "ServiceHost_Uninstall" );
HRESULT hr;
{
WCHAR rgRegPath[_MAX_PATH]; swprintf( rgRegPath, s_Key, szName );
MPC::RegKey rk;
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.SetRoot( HKEY_LOCAL_MACHINE, KEY_ALL_ACCESS ));
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.Attach ( rgRegPath ));
(void)rk.Delete( /*fDeep*/true );
}
{
MPC::RegKey rk;
MPC::WStringList lstValue;
bool fFound;
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.SetRoot( HKEY_LOCAL_MACHINE, KEY_ALL_ACCESS ));
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.Attach ( s_SvcHost ));
if(SUCCEEDED(rk.Read( lstValue, fFound, szGroup )))
{
MPC::WStringIterConst it = lstValue.begin();
bool fGot = false;
while(it != lstValue.end())
{
MPC::WStringIterConst it2 = it++;
if(!MPC::StrICmp( *it2, szName ))
{
lstValue.erase( it2 );
fGot = true;
}
}
if(fGot)
{
__MPC_EXIT_IF_METHOD_FAILS(hr, rk.Write( lstValue, szGroup ));
}
}
}
hr = S_OK;
__HCP_FUNC_CLEANUP;
__HCP_FUNC_EXIT(hr);
}
/////////////////////////////////////////////////////////////////////////////
CServiceModule::CServiceModule()
{
m_hEventShutdown = NULL; // HANDLE m_hEventShutdown;
m_dwThreadID = 0; // DWORD m_dwThreadID;
m_hMonitor = NULL; // HANDLE m_hMonitor;
m_bActivity = FALSE; // BOOL m_bActivity;
//
m_szServiceName = NULL; // LPCWSTR m_szServiceName;
m_iDisplayName = 0; // UINT m_iDisplayName;
m_iDescription = 0; // UINT m_iDescription;
m_hServiceStatus = NULL; // SERVICE_STATUS_HANDLE m_hServiceStatus;
// SERVICE_STATUS m_status;
m_bService = FALSE; // BOOL m_bService;
::ZeroMemory( &m_status, sizeof( m_status ) );
}
CServiceModule::~CServiceModule()
{
if(m_hEventShutdown) ::CloseHandle( m_hEventShutdown );
if(m_hMonitor ) ::CloseHandle( m_hMonitor );
}
/////////////////////////////////////////////////////////////////////////////
LONG CServiceModule::Lock()
{
LONG lCount = CComModule::Lock();
return lCount;
}
LONG CServiceModule::Unlock()
{
LONG lCount = CComModule::Unlock();
if(lCount == 0)
{
m_bActivity = TRUE;
if(m_hEventShutdown) ::SetEvent( m_hEventShutdown ); // tell monitor that we transitioned to zero
}
return lCount;
}
void CServiceModule::MonitorShutdown()
{
while(1)
{
DWORD dwWait;
m_bActivity = FALSE;
dwWait = ::WaitForSingleObject( m_hEventShutdown, dwTimeOut );
if(dwWait == WAIT_OBJECT_0) continue; // We are alive...
//
// If no activity let's really bail.
//
if(m_bActivity == FALSE && m_nLockCnt <= 0)
{
::CoSuspendClassObjects();
if(m_bActivity == FALSE && m_nLockCnt <= 0) break;
}
}
ForceShutdown();
}
void CServiceModule::ForceShutdown()
{
//
// Tell process to exit.
//
::PostThreadMessage( m_dwThreadID, WM_QUIT, 0, 0 );
}
BOOL CServiceModule::StartMonitor()
{
DWORD dwThreadID;
m_hMonitor = ::CreateThread( NULL, 0, _Monitor, this, 0, &dwThreadID );
if(m_hMonitor == NULL) return FALSE;
return TRUE;
}
/////////////////////////////////////////////////////////////////////////////
HRESULT CServiceModule::RegisterServer( BOOL bRegTypeLib, BOOL bService, LPCWSTR szSvcHostGroup )
{
HRESULT hr;
// Remove any previous service since it may point to the incorrect file
Uninstall( szSvcHostGroup );
if(bService)
{
// Create service
Install( szSvcHostGroup );
}
// Add object entries
if(FAILED(hr = CComModule::RegisterServer( TRUE ))) return hr;
if(FAILED(hr = _Module.UpdateRegistryFromResource( IDR_HELPSVC , TRUE ))) return hr;
if(FAILED(hr = _Module.UpdateRegistryFromResource( IDR_HCUPDATE, TRUE ))) return hr;
#ifndef NOJETBLUECOM
if(FAILED(hr = _Module.UpdateRegistryFromResource( IDR_PCHDBSESSION, TRUE ))) return hr;
#endif
return S_OK;
}
HRESULT CServiceModule::UnregisterServer( LPCWSTR szSvcHostGroup )
{
HRESULT hr;
// Remove service
Uninstall( szSvcHostGroup );
// Remove object entries
if(FAILED(hr = CComModule::UnregisterServer( TRUE ))) return hr;
if(FAILED(hr = _Module.UpdateRegistryFromResource( IDR_HELPSVC , FALSE ))) return hr;
if(FAILED(hr = _Module.UpdateRegistryFromResource( IDR_HCUPDATE, FALSE ))) return hr;
#ifndef NOJETBLUECOM
if(FAILED(hr = _Module.UpdateRegistryFromResource( IDR_PCHDBSESSION, FALSE ))) return hr;
#endif
return S_OK;
}
void CServiceModule::Init( _ATL_OBJMAP_ENTRY* p, HINSTANCE h, LPCWSTR szServiceName, UINT iDisplayName, UINT iDescription, const GUID* plibid )
{
CComModule::Init( p, h, plibid );
{
MPC::wstring strLogFile( HC_ROOT_HELPSVC_LOGS L"\\" ); MPC::SubstituteEnvVariables( strLogFile );
strLogFile += szServiceName;
strLogFile += L".log";
g_ApplicationLog.SetLocation( strLogFile.c_str() );
}
m_szServiceName = szServiceName;
m_iDisplayName = iDisplayName;
m_iDescription = iDescription;
// set up the initial service status
m_hServiceStatus = NULL;
m_status.dwServiceType = SERVICE_WIN32_OWN_PROCESS;
m_status.dwCurrentState = SERVICE_STOPPED;
m_status.dwControlsAccepted = SERVICE_ACCEPT_STOP;
m_status.dwWin32ExitCode = 0;
m_status.dwServiceSpecificExitCode = 0;
m_status.dwCheckPoint = 0;
m_status.dwWaitHint = 0;
}
BOOL CServiceModule::IsInstalled()
{
BOOL bResult = FALSE;
SC_HANDLE hSCM = ::OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS );
if((hSCM = ::OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS )))
{
SC_HANDLE hService;
if((hService = ::OpenServiceW( hSCM, m_szServiceName, SERVICE_QUERY_CONFIG )))
{
bResult = TRUE;
::CloseServiceHandle( hService );
}
::CloseServiceHandle( hSCM );
}
return bResult;
}
BOOL CServiceModule::Install( LPCWSTR szSvcHostGroup )
{
BOOL bResult = FALSE;
SC_HANDLE hSCM;
if((hSCM = ::OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS )))
{
MPC::wstring strDisplayName;
MPC::wstring strDescription;
WCHAR szFilePath[_MAX_PATH];
SC_HANDLE hService;
DWORD dwStartType;
if(szSvcHostGroup)
{
dwStartType = SERVICE_WIN32_SHARE_PROCESS;
swprintf( szFilePath, L"%%SystemRoot%%\\System32\\svchost.exe -k %s", szSvcHostGroup );
}
else
{
dwStartType = SERVICE_WIN32_OWN_PROCESS;
::GetModuleFileNameW( NULL, szFilePath, _MAX_PATH );
}
if(FAILED( MPC::LocalizeString( m_iDisplayName, strDisplayName )))
{
strDisplayName = m_szServiceName;
}
(void)MPC::LocalizeString( m_iDescription, strDescription );
hService = ::OpenServiceW( hSCM, m_szServiceName, SERVICE_QUERY_CONFIG );
if(hService == NULL)
{
hService = ::CreateServiceW( hSCM ,
m_szServiceName ,
strDisplayName.c_str(),
SERVICE_ALL_ACCESS ,
dwStartType ,
SERVICE_AUTO_START ,
SERVICE_ERROR_NORMAL ,
szFilePath ,
NULL ,
NULL ,
L"RPCSS\0" ,
NULL ,
NULL );
}
if(hService)
{
if(strDescription.size())
{
SERVICE_DESCRIPTIONW desc; ::ZeroMemory( &desc , sizeof(desc ) );
SERVICE_FAILURE_ACTIONSW recovery; ::ZeroMemory( &recovery, sizeof(recovery) );
SC_ACTION actions[] =
{
{ SC_ACTION_RESTART, 100 },
{ SC_ACTION_RESTART, 100 },
{ SC_ACTION_NONE , 100 },
};
desc.lpDescription = (LPWSTR)strDescription.c_str();
recovery.dwResetPeriod = 24 * 60 * 60; // 1 day
recovery.cActions = ARRAYSIZE(actions);
recovery.lpsaActions = actions;
::ChangeServiceConfig2W( hService, SERVICE_CONFIG_DESCRIPTION , &desc );
::ChangeServiceConfig2W( hService, SERVICE_CONFIG_FAILURE_ACTIONS, &recovery );
}
if(szSvcHostGroup)
{
if(SUCCEEDED(ServiceHost_Install( m_szServiceName, szSvcHostGroup )))
{
bResult = TRUE;
}
}
else
{
bResult = TRUE;
}
::CloseServiceHandle( hService );
}
if(bResult == FALSE)
{
(void)g_NTEvents.LogEvent( EVENTLOG_ERROR_TYPE, HELPSVC_ERR_CANNOTCREATESERVICE, NULL );
}
::CloseServiceHandle( hSCM );
}
else
{
(void)g_NTEvents.LogEvent( EVENTLOG_ERROR_TYPE, HELPSVC_ERR_CANNOTOPENSCM, NULL );
}
return bResult;
}
BOOL CServiceModule::Uninstall( LPCWSTR szSvcHostGroup )
{
BOOL bResult = FALSE;
SC_HANDLE hSCM;
if((hSCM = ::OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS )))
{
SC_HANDLE hService;
if((hService = ::OpenServiceW( hSCM, m_szServiceName, SERVICE_STOP | DELETE )))
{
SERVICE_STATUS status;
::ControlService( hService, SERVICE_CONTROL_STOP, &status );
bResult = ::DeleteService( hService );
if(bResult)
{
::Sleep( 2000 ); // Let the service stop down...
if(szSvcHostGroup)
{
if(FAILED(ServiceHost_Uninstall( m_szServiceName, szSvcHostGroup )))
{
bResult = FALSE;
}
}
}
if(bResult == FALSE)
{
(void)g_NTEvents.LogEvent( EVENTLOG_ERROR_TYPE, HELPSVC_ERR_CANNOTDELETESERVICE, NULL );
}
::CloseServiceHandle( hService );
}
::CloseServiceHandle( hSCM );
}
else
{
(void)g_NTEvents.LogEvent( EVENTLOG_ERROR_TYPE, HELPSVC_ERR_CANNOTOPENSCM, NULL );
}
return bResult;
}
//////////////////////////////////////////////////////////////////////////////////////////////
// Service startup and registration
BOOL CServiceModule::Start( BOOL bService )
{
SERVICE_TABLE_ENTRYW st[] =
{
{ (LPWSTR)m_szServiceName, _ServiceMain },
{ NULL , NULL }
};
m_hEventShutdown = ::CreateEvent( NULL, FALSE, FALSE, NULL );
if(m_hEventShutdown == NULL) return FALSE;
if((m_bService = bService) && !::StartServiceCtrlDispatcherW( st ))
{
DWORD dwRes = ::GetLastError();
m_bService = FALSE;
}
if(m_bService == FALSE)
{
if(StartMonitor() == FALSE) return FALSE;
if(FAILED(Run())) return FALSE;
}
return TRUE;
}
void CServiceModule::ServiceMain( DWORD dwArgc, LPWSTR lpszArgv[] )
{
// Register the control request handler
m_status.dwCurrentState = SERVICE_START_PENDING;
if((m_hServiceStatus = ::RegisterServiceCtrlHandlerW( m_szServiceName, _Handler )))
{
SetServiceStatus( SERVICE_START_PENDING );
m_status.dwWin32ExitCode = S_OK;
m_status.dwCheckPoint = 0;
m_status.dwWaitHint = 0;
// When the Run function returns, the service has stopped.
Run();
SetServiceStatus( SERVICE_STOPPED );
}
else
{
(void)g_NTEvents.LogEvent( EVENTLOG_ERROR_TYPE, HELPSVC_ERR_REGISTERHANDLER, NULL );
}
}
void CServiceModule::Handler( DWORD dwOpcode )
{
switch(dwOpcode)
{
case SERVICE_CONTROL_STOP:
SetServiceStatus( SERVICE_STOP_PENDING );
ForceShutdown();
break;
case SERVICE_CONTROL_PAUSE:
break;
case SERVICE_CONTROL_CONTINUE:
break;
case SERVICE_CONTROL_INTERROGATE:
break;
case SERVICE_CONTROL_SHUTDOWN:
break;
default:
(void)g_NTEvents.LogEvent( EVENTLOG_ERROR_TYPE, HELPSVC_ERR_BADSVCREQUEST, NULL );
}
}
HRESULT CServiceModule::Run()
{
__HCP_FUNC_ENTRY( "CServiceModule::Run" );
HRESULT hr;
MSG msg;
m_dwThreadID = ::GetCurrentThreadId();
__MPC_EXIT_IF_METHOD_FAILS(hr, ::CoInitializeEx( NULL, COINIT_MULTITHREADED )); // We need to be a multi-threaded application.
__MPC_EXIT_IF_METHOD_FAILS(hr, RegisterClassObjects( CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER | CLSCTX_REMOTE_SERVER, REGCLS_MULTIPLEUSE ));
if(m_bService)
{
SetServiceStatus( SERVICE_RUNNING );
}
while(::GetMessage( &msg, 0, 0, 0 ))
{
::DispatchMessage( &msg );
}
hr = S_OK;
__HCP_FUNC_CLEANUP;
_Module.RevokeClassObjects();
::Sleep( dwPause ); //wait for any threads to finish
__HCP_FUNC_EXIT(hr);
}
void CServiceModule::SetServiceStatus( DWORD dwState )
{
m_status.dwCurrentState = dwState;
::SetServiceStatus( m_hServiceStatus, &m_status );
}
////////////////////////////////////////////////////////////////////////////////
void WINAPI CServiceModule::_ServiceMain( DWORD dwArgc, LPWSTR* lpszArgv )
{
_Module.ServiceMain( dwArgc, lpszArgv );
}
void WINAPI CServiceModule::_Handler( DWORD dwOpcode )
{
_Module.Handler( dwOpcode );
}
DWORD WINAPI CServiceModule::_Monitor( void* pv )
{
((CServiceModule*)pv)->MonitorShutdown();
return 0;
}