bit-badger/myWebLog
1
0
Fork 0
Code Issues 4 Pull Requests Packages Projects Releases 11 Activity

Return client refresh from redir rule if htmx (#54)

Browse Source
This commit is contained in:
Daniel J. Summers 2025-07-05 18:32:46 -04:00
parent 1f7d415868
commit c19f92889e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/MyWebLog/Program.fs
View File

@ -26,6 +26,8 @@ type WebLogMiddleware(next: RequestDelegate, log: ILogger<WebLogMiddleware>) =
} }
open Giraffe.Htmx
/// Middleware to check redirects for the current web log /// Middleware to check redirects for the current web log
type RedirectRuleMiddleware(next: RequestDelegate, _log: ILogger<RedirectRuleMiddleware>) = type RedirectRuleMiddleware(next: RequestDelegate, _log: ILogger<RedirectRuleMiddleware>) =
@ -44,6 +46,8 @@ type RedirectRuleMiddleware(next: RequestDelegate, _log: ILogger<RedirectRuleMid
| WebLogCache.CachedRedirectRule.RegEx (regExFrom, patternTo) -> | WebLogCache.CachedRedirectRule.RegEx (regExFrom, patternTo) ->
if regExFrom.IsMatch path then Some (regExFrom.Replace(path, patternTo)) else None) if regExFrom.IsMatch path then Some (regExFrom.Replace(path, patternTo)) else None)
match matched with match matched with
| Some url when url.StartsWith "http" && ctx.Request.IsHtmx ->
do! ctx.Response.WriteAsync $"""<script>window.location.href = "{url}"</script>"""
| Some url -> ctx.Response.Redirect(url, permanent = true) | Some url -> ctx.Response.Redirect(url, permanent = true)
| None -> return! next.Invoke ctx | None -> return! next.Invoke ctx
} }