slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

imp:web: cleanups; use --allow on Sandstorm (#834)

Browse Source
This commit is contained in:
Simon Michael 2023-10-23 09:57:29 +01:00
parent 95d33f20f6
commit 795dbd97f8
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.sandstorm/launcher.sh
View File

@ -29,4 +29,4 @@ set -euo pipefail
mkdir -p /var/lib/hledger mkdir -p /var/lib/hledger
touch /var/lib/hledger/Ledger touch /var/lib/hledger/Ledger
cd /var cd /var
hledger-web --capabilities-header=X-Sandstorm-Permissions --serve --base-url='' -f /var/lib/hledger/Ledger --port 8000 hledger-web --allow=sandstorm --serve --base-url='' -f /var/lib/hledger/Ledger --port 8000

10
hledger-web/Hledger/Web/WebOptions.hs
View File

@ -45,6 +45,11 @@ webflags =
["serve-api"] ["serve-api"]
(setboolopt "serve-api") (setboolopt "serve-api")
"like --serve, but serve only the JSON web API, without the server-side web UI" "like --serve, but serve only the JSON web API, without the server-side web UI"
, flagReq
["allow"]
(\s opts -> Right $ setopt "allow" s opts)
"view|add|edit"
"set the user's access level for changing data (default: `add`). It also accepts `sandstorm` for use on that platform (reads permissions from the `X-Sandstorm-Permissions` request header)."
, flagReq , flagReq
["cors"] ["cors"]
(\s opts -> Right $ setopt "cors" s opts) (\s opts -> Right $ setopt "cors" s opts)
@ -75,11 +80,6 @@ webflags =
(\s opts -> Right $ setopt "file-url" s opts) (\s opts -> Right $ setopt "file-url" s opts)
"FILEURL" "FILEURL"
"set the static files url (default: BASEURL/static)" "set the static files url (default: BASEURL/static)"
, flagReq
["allow"]
(\s opts -> Right $ setopt "allow" s opts)
"view|add|edit"
"set the user's access level for changing data (default: `add`). (There is also `sandstorm`, used when running on Sandstorm.)"
, flagNone , flagNone
["test"] ["test"]
(setboolopt "test") (setboolopt "test")

3
hledger-web/hledger-web.m4.md
View File

@ -96,7 +96,8 @@ serve them from another server for efficiency, you would set the url with this.
`--allow=view|add|edit` `--allow=view|add|edit`
: set the user's access level for changing data (default: `add`). : set the user's access level for changing data (default: `add`).
(There is also `sandstorm`, used when running on the Sandstorm app platform.) It also accepts `sandstorm` for use on that platform (reads
permissions from the `X-Sandstorm-Permissions` request header).
`--test` `--test`
: run hledger-web's tests and exit. hspec test runner args may follow a --, eg: hledger-web --test -- --help : run hledger-web's tests and exit. hspec test runner args may follow a --, eg: hledger-web --test -- --help