        (catch Exception e nil))))
 
 (def hive-image-data-bucket
-  (env :hivewing-hive-images-bucket-name))
+  (or (env :hivewing-hive-images-bucket-name) "hivewing-images-bucket-undefined"))
 
 (defn ensure-hive-image-bucket
   "Ensures the S3 bucket for images exists"

  [& body] `( ~@body (hive-image-recompile-gitolite)))

(def gitolite-root
  (.getPath (io/file (env :hivewing-gitolite-root))))

(def gitolite-repositories-root
  (.getPath (io/file (env :hivewing-gitolite-repositories-root))))

(def gitolite-key-root
  "The place where we'll drop public key files"

  (sqs/send-message config/sqs-aws-credentials (hive-images-sqs-queue) (prn-str {:worker-update worker-uuid})))

(def gitolite-shell-command
  (.getPath (io/file (or (env :hivewing-gitolite-shell-command) "/home/git/bin/gitolite"))))

(defn hive-image-recompile-gitolite
  "Run the commands to recompile gitolite"
