Overview
Comment: | Synced mtargs with opensrc. Reduced noise in server output |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80 |
Files: | files | file ages | folders |
SHA1: |
7f6ea52b90671c5b2aa1bebf7c755e24 |
User & Date: | mrwellan on 2023-01-06 09:23:33 |
Other Links: | branch diff | manifest | tags |
Context
2023-01-11
| ||
05:52 | Merged fork check-in: 74f81f69c1 user: matt tags: v1.80 | |
2023-01-10
| ||
13:50 | Merged earlier change check-in: 143fb8134e user: mrwellan tags: v1.80 | |
2023-01-06
| ||
09:23 | Synced mtargs with opensrc. Reduced noise in server output check-in: 7f6ea52b90 user: mrwellan tags: v1.80 | |
2022-12-12
| ||
15:25 | Get .servinfo path in a function, create dir if needed. gate server start on high load check-in: 8adb8a0e7e user: mrwellan tags: v1.80, v1.8003 | |
Changes
Added mtargs/mtargs.egg version [deacd4afda].
|
Modified mtargs/mtargs.scm from [54d4e74749] to [4162ab4280].
︙ | |||
21 22 23 24 25 26 27 | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | - - - + + - - - - - - - - - - - - - - - - - - - | arg-hash get-arg get-arg-from usage get-args print-args any-defined? |
︙ | |||
92 93 94 95 96 97 98 | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | - + - | (if (null? tail) remtargs (loop (car tail)(cdr tail) remtargs))) (else (if (null? tail)(append remtargs (list arg)) ;; return the non-used args (loop (car tail)(cdr tail)(append remtargs (list arg)))))))) )) |
Modified server.scm from [80dd7784f0] to [df559aacc0].
︙ | |||
174 175 176 177 178 179 180 | 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | - + | (dbprep-found 0) (bad-dat (list #f #f #f #f #f))) (handle-exceptions exn (begin ;; WARNING: this is potentially dangerous to blanket ignore the errors (if (file-exists? logf) |
︙ | |||
415 416 417 418 419 420 421 | 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 | - + - + | (lambda (f) (let* ((hostport (pathname-strip-directory f)) (serverdat (server:logf-get-start-info f))) (match serverdat ((host port start server-id pid) (if (and host port start server-id pid) (hash-table-set! res hostport serverdat) |
︙ |