Browse Source

added publish error output

master
Vincent Truchseß 11 months ago
parent
commit
ce67eb93b0
1 changed files with 4 additions and 2 deletions
  1. +4
    -2
      src/saljut/sbot.clj

+ 4
- 2
src/saljut/sbot.clj View File

@@ -19,8 +19,10 @@
"Publishes a SSB-message of type \"webroot\" referring to domain and
containing manifest."
(if manifest
(apply sh/sh "ssb-server" "publish" "--type" "webroot" "--domain" domain
(ut/to-command-vec manifest))))
(let [ret (apply sh/sh "ssb-server" "publish" "--type" "webroot" "--domain" domain
(ut/to-command-vec manifest))]
(if-not (zero? (:exit ret))
(print (:err ret))))))

(defn upload-dir [dir]
"Upoads the content of dir as a series of SSB-blobs. Returns a manifest-map


Loading…
Cancel
Save