     (response {:message "Succefully stopped the shuppet scheduler"})
     (do
       (let [interval (if interval (Integer/parseInt interval) default-interval)]
-         (at-at/every (* interval 60 1000) #(apps-apply env) shuppet-pool)
-        (response {:message (str "Succesfully started the shuppet scheduler. The scheduler will run in every " interval " minutes.") })))))
+         (at-at/every (* interval 60 1000) #(configure-apps env) shuppet-pool :desc (rfc2616-time))
+         (response {:message (str "Succesfully started the shuppet scheduler. The scheduler will run in every " interval " minutes.") })))))
+
+(defn- get-schedule
+  [env]
+  (if-let [job (first (at-at/scheduled-jobs shuppet-pool))]
+    (response {:created (:desc job)
+               :interval (str (/ (:ms-period job) (* 60 1000)) " minutes")})
+    (response {:message "No jobs are currently scheduled"} 404)))
 
 (def ^:private resources
   {:GET

  (core/clean-config env name)
  (response {:message (str "Succesfully cleaned the configuration for application " name)}))

(defn- apps-apply
  [env]
  (core/apply-config env)
  (core/update-configs env))

(defn- apply-apps-config
  [env]
  (apps-apply env)
  (response  {:message (str "Started applying the configuration for all applications in environment " env "."
                            "Please check the campfire room '" cf-error-room  "' for any error cases.")}))


       [env]
       (list-apps env))

  (GET "/:env/apps/apply"
       [env]
       (apply-apps-config env))

  (GET "/:env/schedule"
        [env]
        (get-schedule env))

  (POST "/:env/schedule"
        [env action interval]
        (schedule env action interval))

  (GET "/:env/apps/:name"
       [env name]
