#!/usr/bin/guile
!#

(import (sph) (sph storage dg three filesystem-layer))
(define mount-path "/mnt/sph-cms")

(let (string-append (getcwd) "/storage")
  (if (and (file-exists? storage-path) (file-exists? (string-append storage-path "/metadata")))
    (dg-filesystem-start mount-path storage-path (tail (program-arguments)))))