+(comment 
+   Celestial, Copyright 2012 Ronen Narkis, narkisr.com
+   Licensed under the Apache License,
+   Version 2.0  (the "License") you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.)
+
 (ns celestial.hosts-api
   (:refer-clojure :exclude [type])
-  (:require [celestial.persistency :as p]) 
+  (:require 
+    [cemerick.friend :as friend]
+    [celestial.persistency :as p]) 
   (:use 
      [clojure.core.strint :only (<<)]
      [slingshot.slingshot :only  [throw+ try+]]


(defc [:machine :os] (keyword v))
 

(defroutes- hosts {:path "/host" :description "Operations on hosts"}


                                         :errorResponses (errors {:bad-req "System missing"})}
         (if-not (p/system-exists? id)
           (conflict {:msg "System does not exists, use POST /host/system to create it first"}) 
           (do
             (p/increase-use (curr-user) (p/get-system id))
             (success {:msg "system cloned" :id (p/clone-system id)}))))

  (PUT- "/host/system/:id" [^:int id & ^:system system] {:nickname "updateSystem" :summary "Update system" 
                                                         :errorResponses (errors {:conflict "System does not exist"}) }
