Trap browser errors
original commit: 142c06bf4a09ac8e9a7b4a65095e77ddf7d16059
This commit is contained in:
parent
bb3454e20e
commit
3530b2101e
|
@ -39,9 +39,20 @@
|
||||||
(wait-for-connection help-desk-port)
|
(wait-for-connection help-desk-port)
|
||||||
|
|
||||||
(when launch-browser?
|
(when launch-browser?
|
||||||
(help-desk-browser hd-cookie)
|
(with-handlers
|
||||||
; allow browser startup time
|
([void
|
||||||
(sleep 2))
|
(lambda _
|
||||||
|
(message-box
|
||||||
|
"Help Desk"
|
||||||
|
(format
|
||||||
|
(string-append
|
||||||
|
"Unable to start a browser. "
|
||||||
|
"Manually start a browser and use the URL "
|
||||||
|
"http://127.0.0.1:~a/servlets/home.ss.")
|
||||||
|
(hd-cookie->port hd-cookie))))])
|
||||||
|
(help-desk-browser hd-cookie)
|
||||||
|
; allow browser startup time
|
||||||
|
(sleep 2)))
|
||||||
|
|
||||||
(if quiet?
|
(if quiet?
|
||||||
(semaphore-wait (make-semaphore 0))
|
(semaphore-wait (make-semaphore 0))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user