Add base_url option

src/Configuration.jl

@@ -28,6 +28,7 @@ function __init__()
 end
 
 const ROOT_URL_DEFAULT = nothing
+const BASE_URL_DEFAULT = "/"
 const HOST_DEFAULT = "127.0.0.1"
 const PORT_DEFAULT = nothing
 const PORT_HINT_DEFAULT = 1234
@@ -74,6 +75,7 @@ The HTTP server options. See [`SecurityOptions`](@ref) for additional settings.
 """
 @option mutable struct ServerOptions
     root_url::Union{Nothing,String} = ROOT_URL_DEFAULT
+    base_url::String = BASE_URL_DEFAULT
     host::String = HOST_DEFAULT
     port::Union{Nothing,Integer} = PORT_DEFAULT
     port_hint::Integer = PORT_HINT_DEFAULT
@@ -218,6 +220,7 @@ end
 
 function from_flat_kwargs(;
         root_url::Union{Nothing,String} = ROOT_URL_DEFAULT,
+        base_url::String = BASE_URL_DEFAULT,
         host::String = HOST_DEFAULT,
         port::Union{Nothing,Integer} = PORT_DEFAULT,
         port_hint::Integer = PORT_HINT_DEFAULT,
@@ -252,6 +255,7 @@ function from_flat_kwargs(;
     )
     server = ServerOptions(;
         root_url,
+        base_url,
         host,
         port,
         port_hint,

src/webserver/Static.jl

@@ -115,6 +115,27 @@ function is_authenticated(session::ServerSession, request::HTTP.Request)
     # that ) || ( kind of looks like Krabs from spongebob
 end
 
+"""
+    scoped_router(base_url::String, base_router::HTTP.Router)::HTTP.Router
+
+Returns a new `HTTP.Router` which delegates all requests to `base_router` but with requests trimmed
+so that they seem like they arrived at `/**` instead of `/\$base_url/**`.
+"""
+function scoped_router(base_url, base_router)
+    @assert startswith(base_url, '/') && endswith(base_url, '/') "Invalid base_url \"$base_url\""
+
+    function handler(request)
+        request.target = request.target[length(base_url):end]
+        return base_router(request)
+    end
+
+    router = HTTP.Router(base_router._404, base_router._405)
+    HTTP.register!(router, base_url * "**", handler)
+    HTTP.register!(router, base_url, handler)
+
+    return router
+end
+
 function http_router_for(session::ServerSession)
     router = HTTP.Router()
     security = session.options.security
@@ -263,7 +284,7 @@ function http_router_for(session::ServerSession)
         )
     end
     HTTP.register!(router, "GET", "/sample/*", serve_sample)
-    HTTP.register!(router, "POST", "/sample/*", serve_sample)
+    HTTP.register!(router, "POST","/sample/*", serve_sample)
 
     notebook_from_uri(request) = let
         uri = HTTP.URI(request.target)        
@@ -348,5 +369,10 @@ function http_router_for(session::ServerSession)
     HTTP.register!(router, "GET", "/**", serve_asset)
     HTTP.register!(router, "GET", "/favicon.ico", create_serve_onefile(project_relative_path(frontend_directory(allow_bundled=false), "img", "favicon.ico")))
 
+    base_url = session.options.server.base_url
+    if base_url != "/"
+        return scoped_router(base_url, router)
+    end
+
     return router
 end

src/webserver/WebServer.jl

@@ -333,7 +333,8 @@ function pretty_address(session::ServerSession, hostIP, port)
             host_str
         end
         port_pretty = Int(port)
-        "http://$(host_pretty):$(port_pretty)/"
+        base_url = session.options.server.base_url
+        "http://$(host_pretty):$(port_pretty)$(base_url)"
     end
 
     url_params = Dict{String,String}()