-
Notifications
You must be signed in to change notification settings - Fork 0
/
routes.clj
34 lines (33 loc) · 1.22 KB
/
routes.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
(ns cljobq-web.routes
(:require
[compojure.core :refer [routes GET POST]]
[compojure.coercions :refer [as-int]]
[cljobq-web.views.core :as views]
[cljobq-web.controllers.core :as c]
[ring.util.response :refer [redirect]]))
(def routes-handler
(routes
(GET "/"
[] (redirect "/all"))
(GET "/all"
[queue :as r] (c/jobs-controller :all r queue))
(GET "/queued"
[queue :as r] (c/jobs-controller :queued r queue))
(GET "/scheduled"
[queue :as r] (c/jobs-controller :scheduled r queue))
(GET "/failed"
[queue :as r] (c/failed-jobs-controller r queue))
(GET "/recurring"
[queue :as r] (c/recurring-jobs-controller r queue))
(GET "/job/:id"
[id :<< as-int :as r] (c/job-controller r id))
(GET "/failed/:id"
[id :<< as-int :as r] (c/failed-job-controller r id))
(POST "/failed/clear"
[queue :as r] (c/clear-failed-controller r queue))
(POST "/failed/:id/delete"
[id :<< as-int :as r] (c/delete-failed-controller r id))
(POST "/failed/:id/retry"
[id :<< as-int :as r] (c/retry-failed-controller r id))
(POST "/job/:id/run"
[id :<< as-int :as r] (c/run-job-controller r id))))