diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 607569c7db..0eb98d953d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,14 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-05-15 20:02 UTC+0200 José Luis Capel (jlcapel at hotmail . com) + + contrib/hbwin/win_srv.c + + contrib/hbwin/tests/testsrv.prg + * contrib/hbwin/hbwin.ch + * contrib/hbwin/Makefile + + Basical support for running a harbour application as a windows server. + See tests/testsrv.prg. + 2010-05-15 20:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/hbwin/olecore.c ! added protection against possible buffer overflow when more then diff --git a/harbour/contrib/hbwin/Makefile b/harbour/contrib/hbwin/Makefile index 6ebe730f06..5760d24a74 100644 --- a/harbour/contrib/hbwin/Makefile +++ b/harbour/contrib/hbwin/Makefile @@ -41,6 +41,7 @@ C_SOURCES := \ win_prn3.c \ win_regc.c \ win_shell.c \ + win_srv.c \ PRG_SOURCES := \ legacy.prg \ diff --git a/harbour/contrib/hbwin/hbwin.ch b/harbour/contrib/hbwin/hbwin.ch index 24e1d99ac6..a0cf347945 100644 --- a/harbour/contrib/hbwin/hbwin.ch +++ b/harbour/contrib/hbwin/hbwin.ch @@ -645,6 +645,18 @@ #define WIN_EVENTLOG_AUDIT_SUCCESS 0x0008 #define WIN_EVENTLOG_AUDIT_FAILURE 0x0010 + +/* Windows Service defines */ +#define SERVICE_NO_CHANGE 0xffffffff +#define SERVICE_STOPPED 1 +#define SERVICE_START_PENDING 2 +#define SERVICE_STOP_PENDING 3 +#define SERVICE_RUNNING 4 +#define SERVICE_CONTINUE_PENDING 5 +#define SERVICE_PAUSE_PENDING 6 +#define SERVICE_PAUSED 7 + + /* ------------------------------- */ /* Deprecated constants and macros */ /* ------------------------------- */ diff --git a/harbour/contrib/hbwin/tests/testsrv.prg b/harbour/contrib/hbwin/tests/testsrv.prg new file mode 100644 index 0000000000..a6b737556b --- /dev/null +++ b/harbour/contrib/hbwin/tests/testsrv.prg @@ -0,0 +1,112 @@ +/* + * Chr(36) + "Id" + Chr(36) + */ + +/* + * Harbour Project source code: + * Windows Service + * + * Copyright 2010 José Luis Capel - + * www - http://www.harbour-project.org + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this software; see the file COPYING. If not, write to + * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). + * + * As a special exception, the Harbour Project gives permission for + * additional uses of the text contained in its release of Harbour. + * + * The exception is that, if you link the Harbour libraries with other + * files to produce an executable, this does not by itself cause the + * resulting executable to be covered by the GNU General Public License. + * Your use of that executable is in no way restricted on account of + * linking the Harbour library code into it. + * + * This exception does not however invalidate any other reasons why + * the executable file might be covered by the GNU General Public License. + * + * This exception applies only to the code released by the Harbour + * Project under the name Harbour. If you copy code from other + * Harbour Project or Free Software Foundation releases into a copy of + * Harbour, as the General Public License permits, the exception does + * not apply to the code that you add in this way. To avoid misleading + * anyone as to the status of such modified files, you must delete + * this exception notice from them. + * + * If you write modifications of your own for Harbour, it is your choice + * whether to permit this exception to apply to your modifications. + * If you do not wish that, delete this exception notice. + * + */ + + +#include "hbtrace.ch" +#include "hbwin.ch" + + +/* Uncomment this piece of code to install this service (should be called via consola) */ + +PROCEDURE Main + + IF WIN_SERVICEInstall("HarbourService","Win32 Harbour Service") + Alert("Service has been successfully installed") + ELSE + Alert("Error installing service :" + STR( GETLASTERROR() )) + ENDIf + RETURN + + +/* Uncomment this piece of code to de-install this service (should be called via consola) + +PROCEDURE Main + + IF WIN_SERVICEDelete("HarbourService") + Alert("Service has been deleted") + ELSE + Alert("Error deleting service :" + STR( hb_SrvGetLastError()) ) + ENDIf + RETURN +*/ + +/* Uncomment this piece of code to be called by SCM (not via console) + +PROCEDURE Main + + IF !WIN_SERVICESTART("HarbourService","SRVMAIN") + HB_TRACE(HB_TR_INFO, "Service has worked Ok") + ELSE + HB_TRACE(HB_TR_ERROR, "Service has had som problems : "+ STR( hb_SrvGetLastError()) + ENDIf + + RETURN +*/ + +/* +FUNCTION SrvMain() + + LOCAL n + + n := 1 + DO WHILE WIN_SERVICEGETSTATUS() == SERVICE_RUNNING + HB_TRACE(HB_TR_INFO, "Work in progress " + STR(n)) + n := n + 1 + Inkey(0.1) + ENDDO + + + WIN_SERVICESETEXITCODE( 0 ) + WIN_SERVICESTOP() + + RETURN NIL +*/ diff --git a/harbour/contrib/hbwin/win_srv.c b/harbour/contrib/hbwin/win_srv.c new file mode 100644 index 0000000000..27c8fa28b6 --- /dev/null +++ b/harbour/contrib/hbwin/win_srv.c @@ -0,0 +1,288 @@ +/* + * Chr(36) + "Id" + Chr(36) + */ + +/* + * Harbour Project source code: + * Windows Service + * + * Copyright 2010 José Luis Capel - + * www - http://www.harbour-project.org + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this software; see the file COPYING. If not, write to + * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). + * + * As a special exception, the Harbour Project gives permission for + * additional uses of the text contained in its release of Harbour. + * + * The exception is that, if you link the Harbour libraries with other + * files to produce an executable, this does not by itself cause the + * resulting executable to be covered by the GNU General Public License. + * Your use of that executable is in no way restricted on account of + * linking the Harbour library code into it. + * + * This exception does not however invalidate any other reasons why + * the executable file might be covered by the GNU General Public License. + * + * This exception applies only to the code released by the Harbour + * Project under the name Harbour. If you copy code from other + * Harbour Project or Free Software Foundation releases into a copy of + * Harbour, as the General Public License permits, the exception does + * not apply to the code that you add in this way. To avoid misleading + * anyone as to the status of such modified files, you must delete + * this exception notice from them. + * + * If you write modifications of your own for Harbour, it is your choice + * whether to permit this exception to apply to your modifications. + * If you do not wish that, delete this exception notice. + * + */ + +#include +#include "hbapi.h" +#include "hbvm.h" +#include "hbwinuni.h" +#include "hbwapi.h" + +#if ! defined( HB_OS_WIN_CE ) + + +static SERVICE_STATUS ServiceStatus; +static SERVICE_STATUS_HANDLE hStatus; +static char *sPrgFunction; +static char *sSrvName; + +void hbwin_ControlHandler(DWORD request); +void hbwin_SrvFunction(int argc, char** argv); + + +HB_FUNC( WIN_SERVICEGETSTATUS ) +{ + hb_retnl( ServiceStatus.dwCurrentState ); +} + + +HB_FUNC( WIN_SERVICESETSTATUS ) /* dwStatus */ +{ + ServiceStatus.dwCurrentState = (DWORD) hb_parnl(1); + hb_retl( SetServiceStatus( hStatus, &ServiceStatus ) ); +} + +HB_FUNC( WIN_SERVICESETEXITCODE ) /* dwExitCode */ +{ + ServiceStatus.dwWin32ExitCode = (DWORD) hb_parnl(1); + hb_retl( SetServiceStatus( hStatus, &ServiceStatus ) ); +} + +HB_FUNC( WIN_SERVICESTOP ) +{ + ServiceStatus.dwCurrentState = SERVICE_STOPPED; + SetServiceStatus( hStatus, &ServiceStatus ); +} + + +HB_FUNC( WIN_SERVICEINSTALL ) /* sServiceName, sServiceNameDisplayed */ +{ + SC_HANDLE schSCM; + SC_HANDLE schSrv; + TCHAR szPath[MAX_PATH]; + LPCTSTR lpServiceName,lpDisplayName; + void * hServiceName; + void * hDisplayName; + + + if( !GetModuleFileName( NULL, szPath, MAX_PATH ) ) + { + hbwapi_SetLastError( GetLastError() ) ; + hb_retl( HB_FALSE ); /* Check GetLastError */ + return; + } + + + schSCM = OpenSCManager(NULL, NULL,SC_MANAGER_ALL_ACCESS); + if( schSCM == NULL ) + { + hbwapi_SetLastError( GetLastError() ) ; + hb_retl( HB_FALSE ); /* Check GetLastError */ + return; + } + + + lpServiceName = HB_PARSTR( 1, &hServiceName, NULL ); + lpDisplayName = HB_PARSTR( 2, &hDisplayName, NULL ); + + schSrv = CreateService( schSCM, /* SCM database */ + lpServiceName, /* name of service */ + lpDisplayName, /* service name to display */ + SERVICE_ALL_ACCESS, /* desired access */ + SERVICE_WIN32_OWN_PROCESS, /* service type */ + SERVICE_DEMAND_START, /* start type */ + SERVICE_ERROR_NORMAL, /* error control type */ + szPath, /* path to service's binary */ + NULL, /* no load ordering group */ + NULL, /* no tag identifier */ + NULL, /* no dependencies */ + NULL, /* LocalSystem account */ + NULL ); /* no password */ + + hb_strfree( hServiceName ); + hb_strfree( hDisplayName ); + + if( schSrv == NULL ) + { + CloseServiceHandle( schSCM ); + hbwapi_SetLastError( GetLastError() ) ; + hb_retl( HB_FALSE ); /* Check GetLastError */ + return; + } + + CloseServiceHandle( schSrv ); + CloseServiceHandle( schSCM ); + hb_retl( HB_TRUE ); +} + + +HB_FUNC( WIN_SERVICEDELETE ) /* sServiceName */ +{ + SC_HANDLE schSCM; + SC_HANDLE schSrv; + void * hschSCM; + + schSCM = OpenSCManager( NULL, NULL,SC_MANAGER_ALL_ACCESS ); + if( schSCM == NULL ) + { + hbwapi_SetLastError( GetLastError() ) ; + hb_retl( HB_FALSE ); /* Check GetLastError */ + return; + } + + schSrv = OpenService( schSCM, HB_PARSTR( 1, &hschSCM, NULL ), SERVICE_ALL_ACCESS ); + if( schSrv== NULL ) + { + CloseServiceHandle( schSCM ); + hbwapi_SetLastError( GetLastError() ) ; + hb_retl( HB_FALSE ); /* Check GetLastError */ + return; + } + + /* + TODO: check if service is up and then stop it + */ + + hb_strfree( hschSCM ); + hb_retl( DeleteService( schSrv ) ); + CloseServiceHandle( schSrv ); + CloseServiceHandle( schSCM ); +} + + + +HB_FUNC( WIN_SERVICESTART ) /* sServiceName, sPrgFunction */ +{ + SERVICE_TABLE_ENTRY ServiceTable[2]; + LPTSTR lpServiceName, lpPrgFunction; + void * hServiceName; + void * hPrgFunction; + + lpServiceName = (LPTSTR) HB_PARSTR( 1, &hServiceName, NULL ); + lpPrgFunction = (LPTSTR) HB_PARSTR( 2, &hPrgFunction, NULL ); + + + ServiceTable[0].lpServiceName = lpServiceName; + ServiceTable[0].lpServiceProc = (LPSERVICE_MAIN_FUNCTION)hbwin_SrvFunction; + + ServiceTable[1].lpServiceName = NULL; + ServiceTable[1].lpServiceProc = NULL; + + sPrgFunction = lpPrgFunction; + sSrvName = lpServiceName; + + hb_strfree( hServiceName ); + hb_strfree( hPrgFunction ); + + hb_retl( StartServiceCtrlDispatcher( ServiceTable ) ); + +} + + +/* Control handler function */ +void hbwin_ControlHandler( DWORD request ) +{ + switch( request ) + { + case SERVICE_CONTROL_STOP: + ServiceStatus.dwWin32ExitCode = 0; + ServiceStatus.dwCurrentState = SERVICE_STOPPED; + return; + + case SERVICE_CONTROL_SHUTDOWN: + ServiceStatus.dwWin32ExitCode = 0; + ServiceStatus.dwCurrentState = SERVICE_STOPPED; + return; + + default: + break; + } + + /* Report current status */ + SetServiceStatus( hStatus, &ServiceStatus ); +} + + +void hbwin_SrvFunction( int argc, char** argv ) +{ + HB_SYMBOL_UNUSED( argc ); + HB_SYMBOL_UNUSED( argv ); + + ServiceStatus.dwServiceType = SERVICE_WIN32; + ServiceStatus.dwCurrentState = SERVICE_START_PENDING; + ServiceStatus.dwControlsAccepted = SERVICE_ACCEPT_STOP | SERVICE_ACCEPT_SHUTDOWN; + ServiceStatus.dwWin32ExitCode = 0; + ServiceStatus.dwServiceSpecificExitCode = 0; + ServiceStatus.dwCheckPoint = 0; + ServiceStatus.dwWaitHint = 0; + + hStatus = RegisterServiceCtrlHandler( sSrvName, (LPHANDLER_FUNCTION) hbwin_ControlHandler ); + + if( hStatus == (SERVICE_STATUS_HANDLE) 0 ) + { + HB_TRACE( HB_TR_DEBUG, ( "Error registering service\n" ) ); + return; + } + + /* We report the running status to SCM. */ + ServiceStatus.dwCurrentState = SERVICE_RUNNING; + SetServiceStatus( hStatus, &ServiceStatus ); + + + PHB_DYNS pDynSym; + pDynSym = hb_dynsymFindName( sPrgFunction ); + if( pDynSym ) + { + if( hb_vmRequestReenter() ) + { + hb_vmPushSymbol( hb_dynsymSymbol( pDynSym ) ); + hb_vmPushNil(); + hb_vmDo(0); + hb_vmRequestRestore(); + } + } + + return; + +} + + +#endif