subroutine restartFlashCONNECT
************************************************************************
* restartFlashCONNECT: restart the specified server pool
************************************************************************
* [00] 15Jan01 jdr Initial creation
include wbp w3Include
* The only tricky part of this is that this process dies and doesn't
* return to the calling program.
pool = ""
call w3GetVal(pool, "ServerPool.Name")
* So satisfy the FlashSTUDIO interface requirement
err = w3_OK
call w3mvDInit("", "")
call w3mvDInput(err, 0, "")
* now get to work
CRT "Restarting: ":pool
if pool # "" then
execute "z restartPool ":pool
end
return