Differences From Artifact [848d0d5914]:
- File mtut.scm — part of check-in [ac0148ceaf] at 2019-01-25 13:21:05 on branch v1.65 — pgdb selective sync, copy last update time in tables as is and use the smallest of thoes as area update (user: pjhatwal, size: 80473) [annotate] [blame] [check-ins using]
To Artifact [87ecbf24f2]:
- File mtut.scm — part of check-in [60b0f467ff] at 2019-02-02 06:00:35 on branch v1.65-multi-db — Updated portlogger to check on the port availability (user: matt, size: 80548) [annotate] [blame] [check-ins using]
︙ | |||
490 491 492 493 494 495 496 497 498 499 500 501 502 503 | 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 | + + | (define-inline (decode data) (with-input-from-string data (lambda () (read)))) ;; moved to portlogger - TODO: remove from here and get from portlogger ;; (define (is-port-in-use port-num) (let* ((ret #f)) (let-values (((inp oup pid) (process "netstat" (list "-tulpn" )))) (let loop ((inl (read-line inp))) (if (not (eof-object? inl)) (begin |
︙ |