Overview
| Comment: | updated call to execute listner script to process run as system call was bloacking the rest of the process |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
aa94695956a625174f6d85c2f566a81c |
| User & Date: | pjhatwal on 2018-05-21 16:01:21 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-05-21
| ||
| 16:38 | change method of launching logpro with explicit sh -c "logpro ..." to avoid unfortunate $SHELL interactions; add support for env var $LOGPRO_EXE to override logpro in $PATH if necessary to aid future debug check-in: 5cda9f7346 user: bjbarcla tags: v1.65 | |
| 16:01 | updated call to execute listner script to process run as system call was bloacking the rest of the process check-in: aa94695956 user: pjhatwal tags: v1.65 | |
| 15:41 | bump max homehost load from 1.2 to 2.0 to keep server from squeching requests too early check-in: 03d9a6fefa user: bjbarcla tags: v1.65 | |
Changes
Modified mtut.scm from [b905e19be8] to [dc1f744eed].
| ︙ | ︙ | |||
1443 1444 1445 1446 1447 1448 1449 |
(system (conc "kill " pid))))
(begin
(debug:print 0 *default-log-port* ctime " received " instr )
;(nn-send rep "ok")
(if (not (equal? instr "ping"))
(begin
(debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
| | > > | 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 |
(system (conc "kill " pid))))
(begin
(debug:print 0 *default-log-port* ctime " received " instr )
;(nn-send rep "ok")
(if (not (equal? instr "ping"))
(begin
(debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
;(system (conc script " '" instr "'"))
(process-run script (list (conc "'" instr "'")))
(debug:print 0 *default-log-port* ctime " done" ))))))
(loop (nn-recv rep))))
(print "ERROR: Port " portnum " already in use. Try another port")))))))
((gather) ;; gather all area db's into /tmp/$USER_megatest/alldbs
(let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat))
(areas (get-area-names mtconf)))
(print "areas: " areas)))
|
| ︙ | ︙ |