Overview
| Comment: | enabled config override usinf -config switch for tlisten |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
d823b9ddaeb9c1f2dfe6e1e914337bd0 |
| User & Date: | pjhatwal on 2017-07-13 17:08:11 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-17
| ||
| 14:16 | Merged in v1.64 changes check-in: 1bf5c0bd20 user: mrwellan tags: v1.65 | |
|
2017-07-13
| ||
| 17:08 | enabled config override usinf -config switch for tlisten check-in: d823b9ddae user: pjhatwal tags: v1.65 | |
|
2017-07-09
| ||
| 18:00 | Merged in changes from v1.64 check-in: 5148b5915f user: matt tags: v1.65 | |
Changes
cgisetup/cgi-bin/models became a regular file with contents [39c07627cc].
cgisetup/cgi-bin/pages became a regular file with contents [e2b5ed002d].
Modified mtut.scm from [a989e9a88d] to [c9e48b5715].
| ︙ | |||
183 184 185 186 187 188 189 190 191 192 193 194 195 196 | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | + |
;; misc
("-debug" . #f) ;; for *verbosity* > 2
("-load" . #f) ;; load and exectute a scheme file
("-log" . #f)
("-msg" . M)
("-start-dir" . S)
("-set-vars" . v)
("-config" . r)
))
(define *switch-keys*
'(
("-h" . #f)
("-help" . #f)
("--help" . #f)
("-manual" . #f)
|
| ︙ | |||
508 509 510 511 512 513 514 515 516 517 518 519 520 521 | 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 | + |
given-toppath: start-dir
;; pathenvvar: "MT_RUN_AREA_HOME"
))
(mtconf (if mtconfdat (car mtconfdat) #f)))
;; we set some dynamic data in a section called "scratchdata"
(if mtconf
(begin
(configf:section-var-set! mtconf "scratchdat" "toppath" start-dir)))
;; (print "TOPPATH: " (configf:lookup mtconf "scratchdat" "toppath"))
mtconfdat))
;; NEED TIMESTAMP ON PKTS for efficient loading of packets into db.
|
| ︙ | |||
1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 | 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 | + |
(print "sending " msg " to " host-port)
(open-send-close-nn host-port msg timeout: 2)))
listeners))))
((tlisten)
(if (null? remargs)
(print "ERROR: useage for tlisten is \"mtutil tlisten portnum\"")
(let ((portnum (string->number (car remargs))))
(if (not portnum)
(print "ERROR: the portnumber parameter must be a number, you gave: " (car remargs))
(let* ((rep (start-nn-server portnum))
(mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat))
(script (configf:lookup mtconf "listener" "script")))
(print "Listening on port " portnum " for messages")
|
| ︙ |