oc.lib.api.common — open-company/lib 0.17.34-alpha

allow-anonymous clj

(allow-anonymous ctx)

Allow unless there is a JWToken provided and it's invalid.

allow-authenticated clj

(allow-authenticated ctx)

Allow only if a valid JWToken is provided.

allow-id-token clj

(allow-id-token ctx)

Allow options request. Allow jwtoken. Allow id token. Allow anonymous.

anonymous-resource clj

(anonymous-resource passphrase)

authenticated? clj

(authenticated? ctx)

Return true if the request contains a valid JWToken

base-authenticated-resource clj

(base-authenticated-resource passphrase)

blank-response clj

(blank-response)

error-response clj

(error-response error status)

(error-response error status headers)

Helper to format a JSON ring response with an error.

forbidden clj

forbidden-response clj

(forbidden-response)

get-change-client-id clj

(get-change-client-id ctx)

get-client-id-from-context clj

(get-client-id-from-context ctx service-key)

get-interaction-client-id clj

(get-interaction-client-id ctx)

get-notify-client-id clj

(get-notify-client-id ctx)

get-token clj

(get-token req)

good-json clj

handle-exception clj

(handle-exception ctx)

handle-unauthorized clj

(handle-unauthorized ctx)

id-token-resource clj

(id-token-resource passphrase)

json-mime-type clj

json-response clj

(json-response body status)

(json-response body status headers :guard map?)

(json-response body status mime-type :guard string?)

(json-response body
               :guard
               (fn* [p1__42393#]
                    (or (map? p1__42393#) (sequential? p1__42393#)))
               status
               mime-type
               headers)

(json-response body
               :guard
               string?
               status
               :guard
               integer?
               mime-type
               :guard
               string?
               headers
               :guard
               map?)

Helper to format a generic JSON body ring response

jwt-resource clj

(jwt-resource passphrase)

known-content-type? clj

(known-content-type? ctx content-type)

location-response clj

(location-response location body media-type)

(location-response location body status media-type)

malformed clj

malformed-json? clj

(malformed-json? ctx)

(malformed-json? ctx allow-nil?)

Read in the body param from the request as a string, parse it into JSON, make sure all the keys are keywords, and then return it, mapped to :data as the 2nd value in a vector, with the first value indicating it's not malformed. Otherwise just indicate it's malformed.

missing-response clj

(missing-response)

(missing-response reason)

only-accept clj

(only-accept status media-types :guard sequential?)

(only-accept status media-types :guard string?)

open-company-anonymous-resource clj

(open-company-anonymous-resource passphrase)

open-company-authenticated-resource clj

(open-company-authenticated-resource passphrase)

open-company-id-token-resource clj

(open-company-id-token-resource passphrase)

open-company-resource clj

options-response clj

(options-response methods)

prod? clj

read-token clj

(read-token req passphrase)

Read supplied JWToken from the request headers.

If a valid token is supplied containing :super-user return :jwttoken and associated :user. If a valid id-token is supplied return a map containing :id-token and associated :user. If a valid token is supplied return a map containing :jwtoken and associated :user. If invalid token is supplied return a map containing :jwtoken and false. If no Authorization headers are supplied return nil.

refresh-token-response clj

(refresh-token-response)

refresh-token? clj

(refresh-token? ctx)

rep clj

(rep v)

Add ^:replace meta to the value to avoid Liberator deep merge/concat it's value.

text-mime-type clj

text-response clj

(text-response body status)

(text-response body status headers)

Helper to format a text ring response

unauthorized clj

unauthorized-response clj

(unauthorized-response)

unprocessable-entity-handler clj

(unprocessable-entity-handler {reason :reason status :status})

unprocessable-entity-response clj

(unprocessable-entity-response reason & [status])

UTF8 clj

wrap-500 clj

(wrap-500 handler)

Ring middleware to ensure that in the case of a 500 error response or an exception, we don't leak error details in the body of the response.