B4J Question Creating B4J server and static web pages site - how to

Sub Process_Globals
    Public srvr As Server
    Public sql As SQL
End Sub

Sub AppStart (Args() As String)
    Log("Initializing SQL..")
    
    srvr.Initialize("")
    srvr.Port = 80
    
    'Enable HTTPS on 443 using your keystore:
    ConfigureSSL(443)
    
    'srvr.StaticFilesFolder = File.Combine(File.DirApp,"/assets")
    'Log("StaticFilesFolder: " & File.Combine(File.DirApp,"www"))
    'Optional: redirect http -> https
    srvr.AddFilter("/*", "HttpsFilter", False)
    
    'Your virtual-host style router:
    srvr.AddHandler("/*", "HostRouter", False)
    
    srvr.Start
    
    Log($"Listening on http:${srvr.Port} and https:${srvr.SslPort}"$)
    
    StartMessageLoop
End Sub

Sub sql_Ready (Success As Boolean)
    If Success = False Then
        Log("DB connect failed: " & LastException.Message)
        Return
    End If

    Log("DB connected!")

    Insert_ActivityLog
End Sub

Sub Insert_ActivityLog
    Dim q As String = _
            $"INSERT INTO [dbo].[ActivityLog]
               ([AndroidID],[Module],[LocCode],[Role],[Event],[Result],[Timestamp])
             OUTPUT INSERTED.[LogID]
             VALUES (?,?,?,?,?,?,?)"$

    Dim args As List = Array As Object( _
            "test-android-id-123", _
            "MarkTestServer", _
            "NZ-WLG", _
            "Admin", _
            "Hello World From Mark Test Server", _
            "OK", _
            DateTime.Now _
        )

    Dim rs As ResultSet = sql.ExecQuery2(q, args)
    If rs.NextRow Then
        Log("Inserted LogID: " & rs.GetInt("LogID"))
    End If
    rs.Close
End Sub


Private Sub ConfigureSSL(SslPort As Int)
    Dim ssl As SslConfiguration
    ssl.Initialize
    ssl.SetKeyStorePath("/ssl", "jetty.keystore")
    ssl.KeyStorePassword = "*********"
    ssl.KeyManagerPassword = "**********"
    srvr.SetSslConfiguration(ssl, SslPort)
End Sub

Public Sub Handle(req As ServletRequest, resp As ServletResponse)
    Dim host As String = req.GetHeader("host").ToLowerCase
    Log("HOST: " & host)

    'Host header can include ":443" - strip it.
    If host.Contains(":") Then host = host.SubString2(0, host.IndexOf(":"))
    
    'This will be for marktest.anywheremediacompany.com
    If (host = "proudbaystudio.com" Or host = "134.199.193.167") Then
        If(req.Method = "GET") Then 'ALL GET REQUESTS
            Log("GET METHOD")
            Log("DIRAPP " & File.DirApp)
            Select Case req.RequestURI
                Case "/" 'Home Page
                    resp.ContentType = "text/html; charset=utf-8"
                    resp.Status = 200
                    resp.Write(File.ReadString(File.DirApp, "index.html"))
                    Return
'                Case "/about-us"
'                    resp.ContentType = "text/html; charset=utf-8"
'                    resp.Status = 200
'                    resp.Write(File.ReadString(File.DirApp, "aboutus.html"))
'                    Return
            End Select
        
        Else If(req.Method = "POST") Then'ALL POST REQUESTS
            Log("POST METHOD")
            Select Case req.RequestURI
                'api endpoints
                Case "/api/device_check_in"
                    Dim in As InputStream = req.InputStream
                    Dim dataB() As Byte
                    dataB = Bit.InputStreamToBytes(in)
                    Dim body As String = BytesToString(dataB, 0, dataB.Length, "UTF8")
                    
                    ' Parse the JSON string
                    Dim check_in_data As JSONParser
                    check_in_data.Initialize(body)
                    Dim receivedMap As Map = check_in_data.NextObject
                    
                    Dim device_id As Int = receivedMap.get("device_id")
                    Dim device_type As String = receivedMap.get("device_type")
                    Dim customer_token_key As String = receivedMap.get("customer_token_key")
                    
                    
                    If(customer_token_key = "customer1_dfgsdfgsdfglsdkfhsfghjfdghdfgh") Then
                        
                    Else if (customer_token_key = "customer2_fgsdfghkdfghdfghdfghdfgh") Then
                            
                    End If
                    
                    'submit to database and return 200 OK http packet
                    Log("DEVICE INFO: " & device_id & " " & device_type)
                    
                    resp.Status = 200
                    resp.ContentType = "text/plain; charset=utf-8"
                    resp.Write("OK")
                    Return
            End Select
            
        End If
        
    End If

    resp.Status = 404
    resp.ContentType = "text/plain; charset=utf-8"
    resp.Write("Not Found - " & host)
End Sub

# /etc/nginx/conf.d/reverse-proxy.conf
# Assumes you’re terminating TLS at nginx and proxying to:
#   - React app at http://react-app:8000
#   - B4J server at http://b4j-server:9999

# Optional (nice to have for websocket upgrade handling)
map $http_upgrade $connection_upgrade {
  default upgrade;
  ''      close;
}

# ---------------------------
# DOMAIN 1 (React) - HTTPS
# ---------------------------
server {
  listen 443 ssl http2;
  server_name domain1.com www.domain1.com;

  ssl_certificate     /etc/letsencrypt/live/domain1.com/fullchain.pem;
  ssl_certificate_key /etc/letsencrypt/live/domain1.com/privkey.pem;

  # (optional but common)
  # include /etc/letsencrypt/options-ssl-nginx.conf;
  # ssl_dhparam /etc/letsencrypt/ssl-dhparams.pem;

  location / {
    proxy_pass http://react-app:8000;
    proxy_set_header Host              $host;
    proxy_set_header X-Real-IP         $remote_addr;
    proxy_set_header X-Forwarded-For   $proxy_add_x_forwarded_for;
    proxy_set_header X-Forwarded-Proto $scheme;

    # If your React dev server / SSR uses websockets, keep these:
    proxy_http_version 1.1;
    proxy_set_header Upgrade    $http_upgrade;
    proxy_set_header Connection $connection_upgrade;
  }
}

# HTTP -> HTTPS for domain1
server {
  listen 80;
  server_name domain1.com www.domain1.com;

  location /.well-known/acme-challenge/ {
    root /var/www/certbot;
  }

  return 301 https://$host$request_uri;
}

# ---------------------------
# DOMAIN 2 (B4J) - HTTPS
# ---------------------------
server {
  listen 443 ssl http2;
  server_name domain2.com www.domain2.com;

  ssl_certificate     /etc/letsencrypt/live/domain2.com/fullchain.pem;
  ssl_certificate_key /etc/letsencrypt/live/domain2.com/privkey.pem;

  location / {
    proxy_pass http://b4j-server:9999;
    proxy_set_header Host              $host;
    proxy_set_header X-Real-IP         $remote_addr;
    proxy_set_header X-Forwarded-For   $proxy_add_x_forwarded_for;
    proxy_set_header X-Forwarded-Proto $scheme;

    # If your B4J app uses websockets / SSE, keep these:
    proxy_http_version 1.1;
    proxy_set_header Upgrade    $http_upgrade;
    proxy_set_header Connection $connection_upgrade;
  }
}

# HTTP -> HTTPS for domain2
server {
  listen 80;
  server_name domain2.com www.domain2.com;

  location /.well-known/acme-challenge/ {
    root /var/www/certbot;
  }

  return 301 https://$host$request_uri;
}

srvr.StaticFilesFolder = File.Combine(File.DirApp,"/")

srvr.StaticFilesFolder = File.Combine(File.DirApp,"/www")

resp.Write(File.ReadString(File.DirApp, "www/index.html"))

<link rel="stylesheet" type="text/css" href="assets/css/base.css">

Select Case req.RequestURI
                Case "/" 'Index Page
                    resp.ContentType = "text/html; charset=utf-8"
                    resp.Status = 200
                    resp.Write(File.ReadString(File.DirApp, "www/index.html"))
                    Return
                Case "/eula.html"
                    resp.ContentType = "text/html; charset=utf-8"
                    resp.Status = 200
                    resp.Write(File.ReadString(File.DirApp, "www/eula.html"))
                    Return
                Case "/privacy.html"
                    resp.ContentType = "text/html; charset=utf-8"
                    resp.Status = 200
                    resp.Write(File.ReadString(File.DirApp, "www/privacy.html"))
                    Return
                Case "/labelforge.html"
                    resp.ContentType = "text/html; charset=utf-8"
                    resp.Status = 200
                    resp.Write(File.ReadString(File.DirApp, "www/labelforge.html"))
                    Return
                Case "/labelscan.html"
                    resp.ContentType = "text/html; charset=utf-8"
                    resp.Status = 200
                    resp.Write(File.ReadString(File.DirApp, "www/labelscan.html"))
                    Return
            End Select