dan/liminix
1
0
Fork 5
Code

conditional fetch in json-to-fstree

Browse Source
This commit is contained in:
Daniel Barlow 2024-09-05 10:39:59 +01:00
parent bcf5ab24e8
commit 6a5fed83dd
1 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pkgs/json-to-fstree/json-to-fstree.fnl
View File

@ -4,19 +4,25 @@
(local { : utime } (require :lualinux))
(fn download [url dest]
(match (http.fetch url)
(nil code str)
(assert nil (.. "error " code ": " str))
(let [state (.. dest "/state")
previously (ll.lstat state 12)]
(match (http.fetch url "i" previously)
(nil 10 _) ; not modified
(print (.. url " not modified, already up to date"))
(body { : last-modified })
(let [service (svc.open dest)
lock (.. dest "/.lock")
state (.. dest "/state")]
(with-open [fout (io.open lock :w)] (fout:write ""))
(service:output "." (json.decode body))
(with-open [fout (io.open state :w)] (fout:write "ok"))
(os.remove lock)
(utime dest last-modified))))
(nil code str)
(assert nil (.. "error " code ": " str))
(body { : last-modified })
(let [service (svc.open dest)
lock (.. dest "/.lock")]
(with-open [fout (io.open lock :w)] (fout:write ""))
(service:output "." (json.decode body))
(with-open [fout (io.open state :w)] (fout:write "ok"))
(utime state last-modified)
(os.remove lock))
)))
(fn run [] (download (. arg 1) (. arg 2)))