Daniel J. Summers
039d09aed5
- Simplify redirectToGet usage - Move a few functions to HttpContext extension properties - Modify bare response to allow content not from a template - Fix uploaded date/time handling
22 lines
800 B
Forth
22 lines
800 B
Forth
/// Handlers for error conditions
|
|
module MyWebLog.Handlers.Error
|
|
|
|
open System.Net
|
|
open Giraffe
|
|
open MyWebLog
|
|
|
|
/// Handle unauthorized actions, redirecting to log on for GETs, otherwise returning a 401 Not Authorized response
|
|
let notAuthorized : HttpHandler =
|
|
handleContext (fun ctx ->
|
|
if ctx.Request.Method = "GET" then
|
|
let returnUrl = WebUtility.UrlEncode ctx.Request.Path
|
|
redirectTo false (WebLog.relativeUrl ctx.WebLog (Permalink $"user/log-on?returnUrl={returnUrl}"))
|
|
earlyReturn ctx
|
|
else
|
|
setStatusCode 401 earlyReturn ctx)
|
|
|
|
|
|
/// Handle 404s from the API, sending known URL paths to the Vue app so that they can be handled there
|
|
let notFound : HttpHandler = fun _ ->
|
|
(setStatusCode 404 >=> text "Not found") earlyReturn
|