2011-08-10 15:32:26 +00:00
|
|
|
@setlocal
|
|
|
|
|
|
|
|
@set node_name={{nodeid}}
|
|
|
|
|
2011-08-10 19:29:31 +00:00
|
|
|
@rem Get the abolute path to the parent directory,
|
|
|
|
@rem which is assumed to be the node root.
|
2011-08-10 15:32:26 +00:00
|
|
|
@for /F "delims=" %%I in ("%~dp0..") do @set node_root=%%~fI
|
|
|
|
|
|
|
|
@set releases_dir=%node_root%\releases
|
|
|
|
|
2011-08-10 19:29:31 +00:00
|
|
|
@rem Parse ERTS version and release version from start_erl.data
|
2011-08-10 15:32:26 +00:00
|
|
|
@for /F "tokens=1,2" %%I in (%releases_dir%\start_erl.data) do @(
|
|
|
|
@call :set_trim erts_version %%I
|
|
|
|
@call :set_trim release_version %%J
|
|
|
|
)
|
|
|
|
|
|
|
|
@set erts_bin=%node_root%\erts-%erts_version%\bin
|
|
|
|
|
|
|
|
@set service_name=%node_name%_%release_version%
|
|
|
|
|
|
|
|
@if "%1"=="install" @goto install
|
|
|
|
@if "%1"=="uninstall" @goto uninstall
|
|
|
|
@if "%1"=="start" @goto start
|
|
|
|
@if "%1"=="stop" @goto stop
|
|
|
|
@if "%1"=="restart" @call :stop && @goto start
|
2011-09-20 15:11:33 +00:00
|
|
|
@if "%1"=="console" @goto console
|
2011-08-10 19:29:31 +00:00
|
|
|
@rem TODO: attach, ping, restart and reboot
|
2011-08-10 15:32:26 +00:00
|
|
|
|
|
|
|
:usage
|
2011-09-20 15:41:38 +00:00
|
|
|
@echo Usage: %0 {install|uninstall|start|stop|restart|console}
|
2011-08-10 15:32:26 +00:00
|
|
|
@goto :EOF
|
|
|
|
|
|
|
|
:install
|
|
|
|
@%erts_bin%\erlsrv.exe add %service_name% -c "Erlang node %node_name% in %node_root%" -w %node_root% -m %node_root%\bin\start_erl.cmd -args " ++ %node_name% ++ %node_root%" -stopaction "init:stop()."
|
|
|
|
@goto :EOF
|
|
|
|
|
|
|
|
:uninstall
|
|
|
|
@%erts_bin%\erlsrv.exe remove %service_name%
|
|
|
|
@%erts_bin%\epmd.exe -kill
|
|
|
|
@goto :EOF
|
|
|
|
|
|
|
|
:start
|
|
|
|
@%erts_bin%\erlsrv.exe start %service_name%
|
|
|
|
@goto :EOF
|
|
|
|
|
|
|
|
:stop
|
|
|
|
@%erts_bin%\erlsrv.exe stop %service_name%
|
|
|
|
@goto :EOF
|
|
|
|
|
2011-09-20 15:11:33 +00:00
|
|
|
:console
|
|
|
|
@start %erts_bin%\werl.exe -boot %releases_dir%\%release_version%\%node_name%
|
|
|
|
@goto :EOF
|
|
|
|
|
2011-08-10 15:32:26 +00:00
|
|
|
:set_trim
|
|
|
|
@set %1=%2
|
|
|
|
@goto :EOF
|