17 lines
499 B
Clojure
17 lines
499 B
Clojure
|
#!/usr/bin/env bb
|
||
|
|
|
||
|
|
(defn stash [file-name]
|
||
|
|
(with-open [os (java.util.zip.GZIPOutputStream. (io/output-stream (str "/tmp/" file-name ".zip")))]
|
||
|
|
(.write os (.getBytes (slurp *in*)))
|
||
|
|
(.finish os))
|
||
|
|
'ok)
|
||
|
|
|
||
|
|
(defn unstash [file-name]
|
||
|
|
(print (slurp (java.util.zip.GZIPInputStream. (io/input-stream (str "/tmp/" file-name ".zip"))))))
|
||
|
|
|
||
|
|
(let [[action stash-name] *command-line-args*]
|
||
|
|
(case action
|
||
|
|
"put" (stash stash-name)
|
||
|
|
"get" (unstash stash-name)
|
||
|
|
(println "Invalid op:" action)))
|