1:  Imports Microsoft.AspNetCore.Builder

   2:  Imports Microsoft.AspNetCore.Hosting

   3:  Imports Microsoft.Extensions.Configuration

   4:  Imports Microsoft.Extensions.DependencyInjection

   5:  Imports BackendAPI.Services

   6:  Imports Microsoft.OpenApi.Models

   7:  Imports Microsoft.Extensions.Hosting

   8:  Imports Microsoft.EntityFrameworkCore

   9:  Imports Microsoft.AspNetCore.HttpOverrides

  10:  Imports Microsoft.Extensions.Logging

  11:  Imports BackendAPI.Model

  12:  Imports Microsoft.AspNetCore.Http.Connections

  13:  Imports BackendAPI.Notification

  14:   

  15:  Public Class Startup

  16:      Public Shared Property Environment As IWebHostEnvironment

  17:      Public Shared Property LoggerFactory As ILoggerFactory

  18:      Public ReadOnly Property Configuration As IConfiguration

  19:   

  20:      Public Sub New(ByVal StartupConfig As IConfiguration, ByVal StartupEnv As IWebHostEnvironment)

  21:          Configuration = StartupConfig

  22:          Environment = StartupEnv

  23:      End Sub

  24:   

  25:      'add services to the DI container

  26:      Public Sub ConfigureServices(ByVal Services As IServiceCollection)

  27:          Services.AddCors

  28:          Services.AddControllers(Sub(x) x.RespectBrowserAcceptHeader = True).AddControllersAsServices

  29:          Services.AddHttpContextAccessor()

  30:   

  31:          Services.AddMvcCore(Sub(x) x.EnableEndpointRouting = False).

  32:              AddFormatterMappings

  33:   

  34:          Services.AddSwaggerGen(Sub(x)

  35:                                     x.SwaggerDoc("V2", New OpenApiInfo With {.Title = "Backend API", .Version = "V2"})

  36:                                 End Sub)

  37:   

  38:          Dim AES As New AesCryptor

  39:   

  40:          Services.AddDbContext(Of ApplicationDbContext)(Function(ByVal options As DbContextOptionsBuilder)

  41:                                                             Return options.UseMySql(AES.DecryptSqlConnection(Configuration.GetConnectionString("DefaultConnection"), "XXXXXXXXXXXXXX"),

  42:                                                              ServerVersion.Parse("10.5.9-MariaDB-1:10.5.9+maria~xenial"), 'SHOW VARIABLES LIKE "%version%";

  43:                                                              Sub(ByVal mySqlOption As Microsoft.EntityFrameworkCore.Infrastructure.MySqlDbContextOptionsBuilder)

  44:                                                                  mySqlOption.CommandTimeout(10)

  45:                                                                  mySqlOption.EnableRetryOnFailure(10)

  46:                                                              End Sub)

  47:                                                         End Function, ServiceLifetime.Transient, ServiceLifetime.Transient)

  48:   

  49:          ' configure strongly typed settings object

  50:          Services.Configure(Of Jwt.JwtSettings)(Configuration.GetSection("JwtSetting"))

  51:   

  52:          'configure DI for application services

  53:          Services.AddScoped(Of IUserService, UserService)

  54:          Services.AddSingleton(Of IAesCryptor, AesCryptor)

  55:          Services.AddSingleton(Of INotificationCacheService, NotificationCacheService)

  56:   

  57:          'SignalR

  58:          Services.AddSignalR().

  59:                  AddHubOptions(Of NotificationHub)(Sub(options)

  60:                                                        options.EnableDetailedErrors = True

  61:                                                    End Sub)

  62:   

  63:          Dim I As Integer = 0

  64:          Services.OrderBy(Function(Z) Z.Lifetime.ToString).ThenBy(Function(Z) Z.ServiceType.ToString).Distinct.ToList.ForEach(Sub(X)

  65:                                                                                                                                   I = I + 1

  66:                                                                                                                                   System.Diagnostics.Debug.WriteLine($"{I}. {X.Lifetime} : {X.ServiceType}")

  67:                                                                                                                               End Sub)

  68:          'Scoped    : one instance per web request

  69:          'Transient : each time the service is requested, a new instance is created

  70:      End Sub

  71:      'configure the HTTP request pipeline

  72:      Public Sub Configure(ByVal App As IApplicationBuilder, ByVal Env As IWebHostEnvironment, RequestLoggerFactory As ILoggerFactory)

  73:   

  74:          LoggerFactory = RequestLoggerFactory

  75:   

  76:          App.UseForwardedHeaders(New ForwardedHeadersOptions With {

  77:          .ForwardedHeaders = ForwardedHeaders.XForwardedFor Or ForwardedHeaders.XForwardedProto

  78:          })

  79:   

  80:          If Env.IsDevelopment() Then App.UseDeveloperExceptionPage()

  81:   

  82:          App.UseSwagger

  83:          App.UseSwaggerUI(Sub(x)

  84:                               x.SwaggerEndpoint("/swagger/V2/swagger.json", "Backend API V2") ' Notice the lack of / making it relative

  85:                               'x.RoutePrefix = "CS" 'This Is the reverse proxy address

  86:                           End Sub)

  87:          App.UseRouting

  88:   

  89:          'global cors policy

  90:          App.UseCors(Function(x)

  91:                          Return x.

  92:                          AllowAnyOrigin.

  93:                          AllowAnyMethod.

  94:                          AllowAnyHeader

  95:                      End Function)

  96:   

  97:          'custom jwt auth middleware

  98:          App.UseMiddleware(Of Jwt.JwtMiddleware)

  99:   

 100:          App.UseEndpoints(Function(x) x.MapControllers)

 101:   

 102:          'SignalR

 103:          App.UseEndpoints(Sub(endpoints)

 104:                               endpoints.MapHub(Of NotificationHub)("/NotificationHub", Sub(opt)

 105:                                                                                            opt.Transports =

 106:                                                                                          HttpTransportType.WebSockets Or

 107:                                                                                          HttpTransportType.LongPolling

 108:                                                                                        End Sub)

 109:                           End Sub)

 110:   

 111:      End Sub

 112:  End Class