113 lines
7.9 KiB
VB.net
113 lines
7.9 KiB
VB.net
Imports System.IO
|
|
Imports System.Net.Http
|
|
Imports System.Reflection
|
|
Imports System.Web.Http
|
|
Imports System.Web.Http.Description
|
|
Imports System.Web.Routing
|
|
Imports Microsoft.Extensions.Options
|
|
Imports Swashbuckle.Application
|
|
Imports NSwag.AspNet.Owin
|
|
|
|
|
|
|
|
'<Assembly: PreApplicationStartMethod(GetType(SwaggerConfig), "Register")>
|
|
|
|
|
|
Public Class SwaggerConfig
|
|
|
|
Private Shared descr As String = "VERAG API"
|
|
|
|
|
|
Public Shared Sub Register2(ByVal config As HttpConfiguration)
|
|
Dim thisAssembly = GetType(SwaggerConfig).Assembly
|
|
|
|
Dim baseDirectory = AppDomain.CurrentDomain.BaseDirectory
|
|
baseDirectory &= "\bin\"
|
|
Dim commentsFileName = Assembly.GetExecutingAssembly().GetName().Name + ".XML"
|
|
Dim commentsFile = Path.Combine(baseDirectory, commentsFileName)
|
|
|
|
GlobalConfiguration.Configuration.EnableSwagger(Function(c) As SwaggerDocsConfig
|
|
|
|
|
|
c.PrettyPrint()
|
|
c.MultipleApiVersions(Function(apiDesc, targetApiVersion) ResolveVersionSupportByRouteConstraint(apiDesc, targetApiVersion), Function(vc) As VersionInfoBuilder
|
|
|
|
vc.Version("1", descr & " V1").Description("A sample API for testing ").TermsOfService("Some Terms").Contact(Function(cont) As ContactBuilder
|
|
cont.Name("VERAG AG")
|
|
cont.Url("http://test.at")
|
|
cont.Email("Mail.test")
|
|
End Function).License(Function(lic)
|
|
lic.Name("Lizenz")
|
|
lic.Url("http://test.at")
|
|
End Function)
|
|
|
|
|
|
vc.Version("2", descr & " V2")
|
|
vc.Version("3", descr & " V3")
|
|
Return vc
|
|
End Function)
|
|
|
|
|
|
c.BasicAuth("basic").Description("Basic HTTP Authentication")
|
|
|
|
c.IncludeXmlComments(commentsFile)
|
|
|
|
|
|
'c.RootUrl(Function(req) req.GetRouteData)
|
|
|
|
'c.OperationFilter(Of AddAuthorizationHeaderParameterOperationFilter)()
|
|
|
|
'c.OperationFilter(Of BasicAuthenticationAttribute)()
|
|
|
|
|
|
Return c
|
|
End Function).EnableSwaggerUi(Function(c) As SwaggerUiConfig
|
|
c.DocumentTitle(descr)
|
|
|
|
c.EnableDiscoveryUrlSelector()
|
|
c.DocExpansion(DocExpansion.List)
|
|
|
|
c.CustomAsset("index", thisAssembly, "VERAG_REST_SERVER.my_index.html")
|
|
|
|
Return c
|
|
End Function)
|
|
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Public Shared Function ResolveVersionSupportByRouteConstraint(ByVal apiDesc As ApiDescription, ByVal targetApiVersion As String) As Boolean
|
|
Return apiDesc.ID.Contains($"/{targetApiVersion}/")
|
|
'Return apiDesc.ActionDescriptor.ControllerDescriptor.ControllerType.FullName.Contains($"{targetApiVersion}")
|
|
|
|
End Function
|
|
|
|
Public Shared Sub Register(ByVal config As HttpConfiguration)
|
|
|
|
RouteTable.Routes.MapOwinPath("swagger", Function(app) As Owin.IAppBuilder
|
|
|
|
|
|
|
|
app.UseSwaggerUi(GetType(WebApiApplication).Assembly, Function(settings) As SwaggerUiSettings(Of NSwag.Generation.WebApi.WebApiOpenApiDocumentGeneratorSettings)
|
|
settings.MiddlewareBasePath = "/swagger"
|
|
settings.GeneratorSettings.DefaultUrlTemplate = "api/{controller}/{id}"
|
|
settings.DocumentTitle = descr
|
|
settings.DocExpansion = "list"
|
|
settings.DefaultModelsExpandDepth = -1
|
|
Return settings
|
|
End Function)
|
|
|
|
|
|
|
|
Return app
|
|
End Function)
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|