Overview
| Comment: | typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-xor-report |
| Files: | files | file ages | folders |
| SHA1: |
d1f991a5b4abb3a6e657565193d50404 |
| User & Date: | bjbarcla on 2017-02-03 15:55:03 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-03
| ||
| 15:55 | merged xor report branch check-in: 4624119b74 user: bjbarcla tags: v1.63, v1.6306, 7a120e | |
| 15:55 | typo Closed-Leaf check-in: d1f991a5b4 user: bjbarcla tags: v1.63-xor-report | |
| 15:48 | caught up with v1.6306 check-in: 938f9d5e38 user: bjbarcla tags: v1.63-xor-report | |
Changes
Modified megatest.scm from [8ea0be9365] to [fcb342272b].
| ︙ | ︙ | |||
384 385 386 387 388 389 390 |
(exit 1))))
(if (or (args:get-arg "-log")(args:get-arg "-server")) ;; redirect the log always when a server
(let* ((tl (or (args:get-arg "-log")(launch:setup))) ;; run launch:setup if -server
(logf (or (args:get-arg "-log") ;; use -log unless we are a server, then craft a logfile name
(conc tl "/logs/server-" (current-process-id) "-" (get-host-name) ".log")))
| | | 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 |
(exit 1))))
(if (or (args:get-arg "-log")(args:get-arg "-server")) ;; redirect the log always when a server
(let* ((tl (or (args:get-arg "-log")(launch:setup))) ;; run launch:setup if -server
(logf (or (args:get-arg "-log") ;; use -log unless we are a server, then craft a logfile name
(conc tl "/logs/server-" (current-process-id) "-" (get-host-name) ".log")))
(oup (open-logfile logf)))
(if (not (args:get-arg "-log"))
(hash-table-set! args:arg-hash "-log" logf)) ;; fake out future queries of -log
(debug:print-info 0 *default-log-port* "Sending log output to " logf)
(set! *default-log-port* oup)))
(if (or (args:get-arg "-h")
(args:get-arg "-help")
|
| ︙ | ︙ |