safebox/web-installer
7
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 30 Wiki Activity

txtPort
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
root
2024-08-08 10:37:42 +02:00
parent d6f8ac08b3
commit 2d5a8eb7a6
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
windows-installer.hta
View File

@@ -62,19 +62,20 @@ End Sub
Sub btnStart_OnClick Sub btnStart_OnClick
StartWSL 'If txtHost.value="" Then
' MsgBox "Please enter hostname",16,"ERROR"
' txtHost.focus
' Exit Sub
'End If
If txtHost.value="" Then
MsgBox "Please enter hostname",16,"ERROR"
txtHost.focus
Exit Sub
End If
If txtPort.value="" Then If txtPort.value="" Then
MsgBox "Please enter webserver port number",16,"ERROR" MsgBox "Please enter webserver port number",16,"ERROR"
txtPort.focus txtPort.focus
Exit Sub Exit Sub
End If End If
StartWSL
'MsgBox "TEST STARTED",64,"DONE" 'MsgBox "TEST STARTED",64,"DONE"
End Sub End Sub
@@ -133,7 +134,9 @@ Sub StartWSL()
ShowOutput(objExec) ShowOutput(objExec)
WSL = "wsl.exe --user root --exec docker run -d -v /var/run/docker.sock:/var/run/docker.sock --env WEBSERVER_PORT=8090 registry.format.hu/framework-scheduler" Dim WSL
WSL = "wsl.exe --user root --exec docker run -d -v /var/run/docker.sock:/var/run/docker.sock --env WEBSERVER_PORT=" & txtPort.value & " registry.format.hu/framework-scheduler"
MsgBox WSL
intReturn = objShell.Run(WSL, 0, True) intReturn = objShell.Run(WSL, 0, True)
If Err.Number <> 0 Then If Err.Number <> 0 Then