fsharp-giraffe-server.CustomHandlers.mustache Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of openapi-generator Show documentation
There is a newer version: 7.9.0
namespace {{packageName}}

open System
open System.Net.Http
open System.Security.Claims
open System.Threading
open Microsoft.AspNetCore
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Hosting
open Microsoft.AspNetCore.Http
open Microsoft.AspNetCore.Http.Features
open Microsoft.AspNetCore.Authentication
open Microsoft.AspNetCore.Authentication.Cookies
open Microsoft.Extensions.Configuration
open Microsoft.Extensions.Logging
open Microsoft.Extensions.DependencyInjection
open FSharp.Control.Tasks.V2.ContextInsensitive
open Giraffe
open Giraffe.GiraffeViewEngine
open Microsoft.AspNetCore.Authentication.OAuth
open System.Threading.Tasks
open AspNet.Security.ApiKey.Providers.Events

module CustomHandlers = 

  let cookieAuth (o : CookieAuthenticationOptions) =
    do
        o.Cookie.HttpOnly     <- true
        o.Cookie.SecurePolicy <- CookieSecurePolicy.SameAsRequest
        o.SlidingExpiration   <- true
        o.ExpireTimeSpan      <- TimeSpan.FromDays 7.0

  
  let onCreatingTicket name (ctx:OAuthCreatingTicketContext) = 
    task {
        // implement post-authentication logic for oAuth handlers here
       ()
    } :> Task

  let validateApiKey key = 
    raise (NotImplementedException("API key validation must be implemented"))

  let setApiKeyEvents name (events:ApiKeyEvents) = 
    events.OnApiKeyValidated <- (fun ctx -> 
        task {
          // implement your validation/authentication logic for api key handlers here
          if validateApiKey ctx.ApiKey then  
          // to interact properly with Giraffe's handlers, you will need to manually set the identity 
          // let claims = ...
          // let identity = ClaimsIdentity(claims, ApiKeyDefaults.AuthenticationScheme)
          // ctx.HttpContext.User <- ClaimsPrincipal([|identity|])
            ctx.Success()
        } :> Task
    )
    events

  let setOAuthOptions name (options:OAuthOptions) scopes (settings:IConfiguration) = 
    options.ClientId <- settings.[name + "ClientId"]
    options.ClientSecret <- settings.[name + "ClientSecret"]
    for scope in scopes do
      options.Scope.Add scope

    options.Events.OnCreatingTicket <- Func(onCreatingTicket name)
    match name with
    | "Google" ->
      ()  
    | "GitHub" ->
      ()
    | _ -> 
      ()
  
  let logout = signOut CookieAuthenticationDefaults.AuthenticationScheme >=> redirectTo false "/"

  let loginView =
    html [] [
        head [] [
            title [] [ str "Welcome" ]
        ]
        body [] [
            h1 [] [ str "Welcome" ]
            {{#authMethods}}
            a [_href "/login-with-{{name}}"] [ str "Login with {{name}}" ]
            {{/authMethods}}
        ]
    ]
  
  let redirectToLogin : HttpHandler = 
    htmlView loginView    
  
  let handlers : HttpHandler list = [
    // insert your handlers here
    GET >=> 
      choose [
        route "/login" >=> redirectToLogin
        {{#authMethods}}
        route "/login-with-{{name}}" >=> challenge "{{name}}"
        {{/authMethods}}
        route "/logout" >=> logout
      ]
  ]

  let configureWebHost (builder: IWebHostBuilder)  =
      // builder
      //  .UseContentRoot("content")
      //  .UseWebRoot("static")
      builder

  let configureApp (app : IApplicationBuilder) =
    app

  let configureServices (services:IServiceCollection) (authBuilder:AuthenticationBuilder) = 
    ()