diff options
| author | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2024-01-17 21:05:37 -0500 |
|---|---|---|
| committer | Christopher R. Nelson <christopher.nelson@languidnights.com> | 2024-01-21 09:59:03 -0500 |
| commit | a6721bdd6154e2bebd8ab07bf310c25629347a21 (patch) | |
| tree | 2b0dad144829f726396b08f09a5eaba3c9b18615 /scripts/rh-server.in | |
| parent | 2f84ed3f877d97d2327f526ccbe981a6fe3acade (diff) | |
Add shutdown command, and refactor server impl
zmq: refactor server to functions
add shutdown function (end recursion)
media: fix bug with missing directories
rh-client: support shutdown function
rh-server: update to use build variables
Diffstat (limited to 'scripts/rh-server.in')
| -rwxr-xr-x | scripts/rh-server.in | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/scripts/rh-server.in b/scripts/rh-server.in index 9749ec2..a9dd758 100755 --- a/scripts/rh-server.in +++ b/scripts/rh-server.in @@ -1,4 +1,5 @@ -#!/usr/bin/env guile +#!@GUILE@ \ +--no-auto-compile -e main -s !# (use-modules (srfi srfi-1) (config) @@ -38,7 +39,7 @@ (character #f)) (switch (name 'serve) - (synopsis "server the media heap") + (synopsis "serve the media heap") (default #f) (test boolean?) (character #t)) @@ -51,16 +52,17 @@ "/reading-heap/")) (eager? #t)))) (parser sexp-parser) - (copyright '(2023)) - (version "0.1") - (license agpl3+) - (author "Christopher R. Nelson"))) + (copyright @COPYRIGHT@) + (version @HVERSION@) + (license @LICENSE@) + (author @AUTHOR@))) (define (main cmd-line) (let ((options (getopt-config-auto cmd-line config))) (when (option-ref options 'write) (options-write options)) - (when (option-ref options 'serve) + (when (or (option-ref options 'serve) + (not (option-ref options 'write))) (let* ((media (filetree->media-list (option-ref options 'media-library))) (priorities (map media-priority media)) (heap (fold heap-insert 'E priorities media))) |