windows-nt/Source/XPSP1/NT/base/fs/sis/groveler/service.cpp

655 lines
15 KiB
C++
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
/*++
Copyright (c) 1998 Microsoft Corporation
Module Name:
service.cpp
Abstract:
SIS Groveler support for running as a system service
Authors:
John Douceur, 1998
Environment:
User Mode
Revision History:
--*/
#include "all.hxx"
static _TCHAR *service_name = _T("Groveler");
static _TCHAR *service_path = _T("%SystemRoot%\\System32\\grovel.exe");
#if SERVICE
SERVICE_STATUS Service::status;
SERVICE_STATUS_HANDLE Service::status_handle = 0;
int Service::num_partitions = 0;
int Service::partition_indices[num_drive_letters];
unsigned int Service::max_response_time = 0;
volatile bool Service::pause_commanded = false;
volatile bool Service::grovel_paused = false;
volatile bool * Service::full_volume_scan_commanded;
volatile bool * Service::demarcate_foreground_batch;
volatile bool * Service::foreground_batch_in_progress;
volatile bool * Service::foreground_commanded;
volatile bool * Service::foreground_acknowledged;
volatile int Service::foreground_count = 0;
volatile bool Service::controller_suspended = false;
volatile bool Service::exhorter_suspended = true;
#endif // SERVICE
extern "C" __cdecl _tmain(int argc, _TCHAR **argv)
{
#if SERVICE
return Service::start();
#else // SERVICE
return _main(argc, argv);
#endif // SERVICE
}
#if SERVICE
int
Service::start()
{
#if DBG
HKEY path_key;
_TCHAR scm_path[1024];
//
// See if the TYPE is interactive, if so then create a visible console
//
_stprintf(scm_path,
_T("SYSTEM\\CurrentControlSet\\Services\\%s"), service_name);
long result =
RegOpenKeyEx(HKEY_LOCAL_MACHINE, scm_path, 0, KEY_READ, &path_key);
if (result == ERROR_SUCCESS)
{
ASSERT(path_key != 0);
DWORD service_type = 0;
DWORD type_size = sizeof(DWORD);
result = RegQueryValueEx(path_key, _T("Type"), 0, 0,
(BYTE *)&service_type, &type_size);
if (result == ERROR_SUCCESS)
{
ASSERT(type_size == sizeof(DWORD));
if (service_type & SERVICE_INTERACTIVE_PROCESS)
{
FreeConsole();
BOOL ok = AllocConsole();
if (ok)
{
//
// fixup "stdout" to the new console
//
HANDLE out_fs_handle = GetStdHandle(STD_OUTPUT_HANDLE);
if (out_fs_handle != INVALID_HANDLE_VALUE)
{
int out_crt_handle =
_open_osfhandle((LONG_PTR)out_fs_handle, _O_TEXT);
if (out_crt_handle != -1)
{
//*stdout = *(_tfdopen(out_crt_handle, _T("w"))); //Fixing PREFIX bug
FILE *myStdout = _tfdopen(out_crt_handle, _T("w"));
if (myStdout != 0)
{
*stdout = *myStdout;
setvbuf(stdout, NULL, _IONBF, 0);
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: _tfdopen() failed\n")));
}
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: _open_osfhandle() failed\n")));
}
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: GetStdHandle() failed\n")));
}
//
// fixup "stderr" to the new console
//
HANDLE err_fs_handle = GetStdHandle(STD_ERROR_HANDLE);
if (err_fs_handle != INVALID_HANDLE_VALUE)
{
int err_crt_handle =
_open_osfhandle((LONG_PTR)err_fs_handle, _O_TEXT);
if (err_crt_handle != -1)
{
//*stderr = *(_tfdopen(err_crt_handle, _T("w"))); //fixing PREFIX bug
FILE *myStderr = _tfdopen(err_crt_handle, _T("w"));
if (myStderr != 0)
{
*stderr = *myStderr;
setvbuf(stderr, NULL, _IONBF, 0);
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: _tfdopen() failed\n")));
}
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: _open_osfhandle() failed\n")));
}
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: GetStdHandle() failed\n")));
}
}
else
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: AllocConsole() failed with error %d\n"),
err));
}
}
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: RegQueryValueEx() failed with error %d\n"),
result));
}
ASSERT(path_key != 0);
RegCloseKey(path_key);
path_key = 0;
}
else
{
PRINT_DEBUG_MSG((_T("GROVELER: RegOpenKeyEx() failed with error %d\n"), result));
}
#endif
static SERVICE_TABLE_ENTRY dispatch_table[] =
{
{service_name, service_main},
{0, 0}
};
int ok = StartServiceCtrlDispatcher(dispatch_table);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: StartServiceCtrlDispatcher() failed with error %d\n"),
err));
}
return !ok;
}
void
Service::record_partition_indices()
{
//
// Get how many total partitions there are
//
num_partitions = sis_drives.partition_count();
//
// Allocate structures based on the number of partitions
//
full_volume_scan_commanded = new bool[num_partitions];
demarcate_foreground_batch = new bool[num_partitions];
foreground_batch_in_progress = new bool[num_partitions];
foreground_commanded = new bool[num_partitions];
foreground_acknowledged = new bool[num_partitions];
//
// Allocate those structures
//
for (int index = 0; index < num_partitions; index++)
{
full_volume_scan_commanded[index] = false;
demarcate_foreground_batch[index] = false;
foreground_batch_in_progress[index] = false;
foreground_commanded[index] = false;
foreground_acknowledged[index] = false;
}
//
// Initializes indexes for each "Drive Letter" partition
//
for (index = 0; index < num_drive_letters; index++)
{
partition_indices[index] = -1;
}
//
// This initilaizes an array that is indexed by drive letter
// that maps that drive letter to the internal order they are
// stored in.
//
int num_lettered_partitions = sis_drives.lettered_partition_count();
for (index = 0; index < num_lettered_partitions; index++)
{
_TCHAR drive_letter = sis_drives.partition_mount_name(index)[0];
int drive_letter_index = _totlower(drive_letter) - _T('a');
ASSERT(drive_letter_index >= 0);
ASSERT(drive_letter_index < num_drive_letters);
ASSERT(partition_indices[drive_letter_index] == -1);
partition_indices[drive_letter_index] = index;
}
}
void
Service::set_max_response_time(
unsigned int max_response_time)
{
ASSERT(max_response_time > 0);
Service::max_response_time = max_response_time;
}
void
Service::checkpoint()
{
status.dwCheckPoint++;
int ok = SetServiceStatus(status_handle, &status);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: SetServiceStatus() failed with error %d\n"), err));
eventlog.report_event(GROVMSG_SET_STATUS_FAILURE, 0);
}
}
void
Service::report_start()
{
ASSERT(status.dwCurrentState == SERVICE_START_PENDING);
status.dwCurrentState = SERVICE_RUNNING;
int ok = SetServiceStatus(status_handle, &status);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: SetServiceStatus() failed with error %d\n"), err));
eventlog.report_event(GROVMSG_SET_STATUS_FAILURE, 0);
}
}
bool
Service::groveling_paused()
{
return grovel_paused;
}
bool
Service::foreground_groveling()
{
ASSERT(foreground_count >= 0);
ASSERT(foreground_count <= num_partitions);
return foreground_count > 0;
}
void
Service::suspending_controller()
{
controller_suspended = true;
}
void
Service::suspending_exhorter()
{
exhorter_suspended = true;
}
bool
Service::partition_in_foreground(
int partition_index)
{
ASSERT(partition_index >= 0);
ASSERT(partition_index < num_partitions);
return foreground_batch_in_progress[partition_index]
&& foreground_acknowledged[partition_index];
}
void
Service::set_foreground_batch_in_progress(
int partition_index,
bool value)
{
ASSERT(partition_index >= 0);
ASSERT(partition_index < num_partitions);
ASSERT(foreground_count >= 0);
ASSERT(foreground_count <= num_partitions);
if (value)
{
if (!foreground_batch_in_progress[partition_index] &&
foreground_acknowledged[partition_index])
{
foreground_count++;
}
}
else
{
if (foreground_batch_in_progress[partition_index] &&
foreground_acknowledged[partition_index])
{
foreground_count--;
}
}
ASSERT(foreground_count >= 0);
ASSERT(foreground_count <= num_partitions);
foreground_batch_in_progress[partition_index] = value;
if (!grovel_paused)
{
if (foreground_count == 0 && controller_suspended)
{
controller_suspended = false;
CentralController::control_groveling((void *)controller);
}
if (foreground_count > 0 && exhorter_suspended)
{
exhorter_suspended = false;
CentralController::exhort_groveling((void *)controller);
}
}
}
void
Service::follow_command()
{
//
// If pause has been requested and we have not pause yet, do it
//
if (pause_commanded && !grovel_paused)
{
eventlog.report_event(GROVMSG_SERVICE_PAUSED, 0);
grovel_paused = true;
status.dwCurrentState = SERVICE_PAUSED;
int ok = SetServiceStatus(status_handle, &status);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: SetServiceStatus() failed with error %d\n"),
err));
eventlog.report_event(GROVMSG_SET_STATUS_FAILURE, 0);
}
}
//
// If stop pausing has been requested and we are paused, unpause
//
if (!pause_commanded && grovel_paused)
{
eventlog.report_event(GROVMSG_SERVICE_CONTINUED, 0);
grovel_paused = false;
status.dwCurrentState = SERVICE_RUNNING;
int ok = SetServiceStatus(status_handle, &status);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: SetServiceStatus() failed with error %d\n"),
err));
eventlog.report_event(GROVMSG_SET_STATUS_FAILURE, 0);
}
}
//
//
//
for (int index = 0; index < num_partitions; index++)
{
ASSERT(foreground_count >= 0);
ASSERT(foreground_count <= num_partitions);
if (foreground_commanded[index] &&
!foreground_acknowledged[index])
{
foreground_acknowledged[index] = true;
if (foreground_batch_in_progress[index])
{
foreground_count++;
}
}
if (!foreground_commanded[index] &&
foreground_acknowledged[index])
{
foreground_acknowledged[index] = false;
if (foreground_batch_in_progress[index])
{
foreground_count--;
}
}
if (full_volume_scan_commanded[index])
{
controller->command_full_volume_scan(index);
full_volume_scan_commanded[index] = false;
}
if (demarcate_foreground_batch[index])
{
controller->demarcate_foreground_batch(index);
demarcate_foreground_batch[index] = false;
}
}
ASSERT(foreground_count >= 0);
ASSERT(foreground_count <= num_partitions);
if (!grovel_paused)
{
if (foreground_count == 0 && controller_suspended)
{
controller_suspended = false;
CentralController::control_groveling((void *)controller);
}
if (foreground_count > 0 && exhorter_suspended)
{
exhorter_suspended = false;
CentralController::exhort_groveling((void *)controller);
}
}
}
void WINAPI
Service::control_handler(
DWORD opcode)
{
if (opcode == SERVICE_CONTROL_STOP || opcode == SERVICE_CONTROL_SHUTDOWN)
{
event_timer.halt();
status.dwCurrentState = SERVICE_STOP_PENDING;
status.dwWin32ExitCode = 0;
status.dwWaitHint = max_response_time;
}
else if (opcode == SERVICE_CONTROL_PAUSE)
{
pause_commanded = true;
status.dwCurrentState = SERVICE_PAUSE_PENDING;
status.dwWaitHint = max_response_time;
}
else if (opcode == SERVICE_CONTROL_CONTINUE)
{
pause_commanded = false;
status.dwCurrentState = SERVICE_CONTINUE_PENDING;
status.dwWaitHint = max_response_time;
}
else if ((opcode & SERVICE_CONTROL_COMMAND_MASK) ==
SERVICE_CONTROL_FOREGROUND)
{
int drive_letter_index = opcode & SERVICE_CONTROL_PARTITION_MASK;
if (drive_letter_index == SERVICE_CONTROL_ALL_PARTITIONS)
{
for (int index = 0; index < num_partitions; index++)
{
demarcate_foreground_batch[index] = true;
foreground_commanded[index] = true;
}
}
else if (drive_letter_index < num_drive_letters)
{
int partition_index = partition_indices[drive_letter_index];
if (partition_index >= 0)
{
demarcate_foreground_batch[partition_index] = true;
foreground_commanded[partition_index] = true;
}
}
}
else if ((opcode & SERVICE_CONTROL_COMMAND_MASK) ==
SERVICE_CONTROL_BACKGROUND)
{
int drive_letter_index = opcode & SERVICE_CONTROL_PARTITION_MASK;
if (drive_letter_index == SERVICE_CONTROL_ALL_PARTITIONS)
{
for (int index = 0; index < num_partitions; index++)
{
foreground_commanded[index] = false;
}
}
else if (drive_letter_index < num_drive_letters)
{
int partition_index = partition_indices[drive_letter_index];
if (partition_index >= 0)
{
foreground_commanded[partition_index] = false;
}
}
}
else if ((opcode & SERVICE_CONTROL_COMMAND_MASK) ==
SERVICE_CONTROL_VOLSCAN)
{
int drive_letter_index = opcode & SERVICE_CONTROL_PARTITION_MASK;
if (drive_letter_index == SERVICE_CONTROL_ALL_PARTITIONS)
{
for (int index = 0; index < num_partitions; index++)
{
full_volume_scan_commanded[index] = true;
}
}
else if (drive_letter_index < num_drive_letters)
{
int partition_index = partition_indices[drive_letter_index];
if (partition_index >= 0)
{
full_volume_scan_commanded[partition_index] = true;
}
}
}
else if (opcode != SERVICE_CONTROL_INTERROGATE)
{
PRINT_DEBUG_MSG((_T("GROVELER: Unrecognized SCM opcode: %lx\n"), opcode));
}
//
// Return our current status
//
int ok = SetServiceStatus(status_handle, &status);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: SetServiceStatus() failed with error %d\n"), err));
eventlog.report_event(GROVMSG_SET_STATUS_FAILURE, 0);
}
sync_event.set();
}
void WINAPI
Service::service_main(
DWORD argc,
LPTSTR *argv)
{
//
// Register the control handler
//
status_handle = RegisterServiceCtrlHandler(service_name, control_handler);
if (status_handle == 0)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: RegisterServiceCtrlHandler() failed with error %d\n"),
err));
eventlog.report_event(GROVMSG_SERVICE_NOSTART, 0);
return;
}
//
// Set Service status
//
status.dwServiceType = SERVICE_WIN32;
status.dwCurrentState = SERVICE_START_PENDING;
status.dwControlsAccepted = SERVICE_ACCEPT_STOP |
SERVICE_ACCEPT_PAUSE_CONTINUE | SERVICE_ACCEPT_SHUTDOWN;
status.dwWin32ExitCode = 0;
status.dwServiceSpecificExitCode = 0;
status.dwCheckPoint = 0;
status.dwWaitHint = 0;
int ok = SetServiceStatus(status_handle, &status);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: SetServiceStatus() failed with error %d\n"), err));
eventlog.report_event(GROVMSG_SET_STATUS_FAILURE, 0);
}
//
// Start the main program of the service
//
int exit_code = _main(argc, argv);
//
// When it returns, we are done
//
status.dwWin32ExitCode = exit_code;
status.dwCurrentState = SERVICE_STOPPED;
ok = SetServiceStatus(status_handle, &status);
if (!ok)
{
DWORD err = GetLastError();
PRINT_DEBUG_MSG((_T("GROVELER: SetServiceStatus() failed with error %d\n"), err));
eventlog.report_event(GROVMSG_SET_STATUS_FAILURE, 0);
}
}
#endif // SERVICE