Overview
| Comment: | Fixed missing begin |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 | v1.6427 |
| Files: | files | file ages | folders |
| SHA1: |
ec2dd2547ca98c6ff05a982bc8b670b3 |
| User & Date: | mrwellan on 2017-07-26 17:31:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-26
| ||
| 17:59 | Kill right-click menu check-in: bfd3170ff1 user: ritikaag tags: v1.64 | |
| 17:31 | Fixed missing begin check-in: ec2dd2547c user: mrwellan tags: v1.64, v1.6427 | |
| 16:34 | Fixed wrong settings control for server load gate. Fixed logic error on detecting defunct server starts check-in: 6bffff1168 user: mrwellan tags: v1.64, v1.6427 | |
Changes
Modified http-transport.scm from [3650524f6a] to [151d15c33c].
| ︙ | ︙ | |||
520 521 522 523 524 525 526 |
(not server-starting))
(begin
(cleanup-proc "NOT starting server, there is either a recently started server or a server in process of starting")
(exit)))
;; lets not even bother to start if there are already three or more server files ready to go
(let* ((num-alive (server:get-num-alive (server:get-list *toppath*))))
(if (> num-alive 3)
| > | | | 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 |
(not server-starting))
(begin
(cleanup-proc "NOT starting server, there is either a recently started server or a server in process of starting")
(exit)))
;; lets not even bother to start if there are already three or more server files ready to go
(let* ((num-alive (server:get-num-alive (server:get-list *toppath*))))
(if (> num-alive 3)
(begin
(cleanup-proc (conc "ERROR: Aborting server start because there are already " num-alive " possible servers either running or starting up"))
(exit))))
(let* ((th2 (make-thread (lambda ()
(debug:print-info 0 *default-log-port* "Server run thread started")
(http-transport:run
(if (args:get-arg "-server")
(args:get-arg "-server")
"-")
)) "Server run"))
|
| ︙ | ︙ |