v2.2

Reviewed-on: #51

build.fs

@@ -33,7 +33,7 @@ let zipTheme (name : string) (_ : TargetParameter) =
     |> Zip.zipSpec $"{releasePath}/{name}-theme.zip"
 
 /// Frameworks supported by this build
-let frameworks = [ "net6.0"; "net7.0"; "net8.0" ]
+let frameworks = [ "net6.0"; "net8.0" ]
 
 /// Publish the project for the given runtime ID    
 let publishFor rid (_ : TargetParameter) =

src/Directory.Build.props

@@ -1,9 +1,9 @@
 <Project>
   <PropertyGroup>
-    <TargetFrameworks>net6.0;net7.0;net8.0</TargetFrameworks>
+    <TargetFrameworks>net6.0;net8.0</TargetFrameworks>
     <DebugType>embedded</DebugType>
-    <AssemblyVersion>2.1.0.0</AssemblyVersion>
-    <FileVersion>2.1.0.0</FileVersion>
-    <Version>2.1.0</Version>
+    <AssemblyVersion>2.2.0.0</AssemblyVersion>
+    <FileVersion>2.2.0.0</FileVersion>
+    <Version>2.2.0</Version>
   </PropertyGroup>
 </Project>

src/MyWebLog.Data/MyWebLog.Data.fsproj

@@ -5,17 +5,17 @@
 	</ItemGroup>
 
 	<ItemGroup>
-		<PackageReference Include="BitBadger.Documents.Postgres" Version="3.0.0-rc-2" />
-		<PackageReference Include="BitBadger.Documents.Sqlite" Version="3.0.0-rc-2" />
-		<PackageReference Include="Microsoft.Data.Sqlite" Version="8.0.3" />
+		<PackageReference Include="BitBadger.Documents.Postgres" Version="3.1.0" />
+		<PackageReference Include="BitBadger.Documents.Sqlite" Version="3.1.0" />
+		<PackageReference Include="Microsoft.Data.Sqlite" Version="8.0.6" />
 		<PackageReference Include="Microsoft.Extensions.Caching.Abstractions" Version="8.0.0" />
 		<PackageReference Include="Microsoft.Extensions.Configuration.Abstractions" Version="8.0.0" />
 		<PackageReference Include="Microsoft.FSharpLu.Json" Version="0.11.7" />
 		<PackageReference Include="NodaTime.Serialization.JsonNet" Version="3.1.0" />
-		<PackageReference Include="Npgsql.NodaTime" Version="8.0.2" />
+		<PackageReference Include="Npgsql.NodaTime" Version="8.0.3" />
 		<PackageReference Include="RethinkDb.Driver" Version="2.3.150" />
 		<PackageReference Include="RethinkDb.Driver.FSharp" Version="0.9.0-beta-07" />
-		<PackageReference Update="FSharp.Core" Version="8.0.200" />
+		<PackageReference Update="FSharp.Core" Version="8.0.300" />
 	</ItemGroup>
 
 	<ItemGroup>

src/MyWebLog.Data/PostgresData.fs

@@ -129,8 +129,10 @@ type PostgresData(log: ILogger<PostgresData>, ser: JsonSerializer) =
     }
     
     /// Set a specific database version
-    let setDbVersion version =
-        Custom.nonQuery $"DELETE FROM db_version; INSERT INTO db_version VALUES ('%s{version}')" []
+    let setDbVersion version = backgroundTask {
+        do! Custom.nonQuery $"DELETE FROM db_version; INSERT INTO db_version VALUES ('%s{version}')" []
+        return version
+    }
     
     /// Migrate from v2-rc2 to v2 (manual migration required)
     let migrateV2Rc2ToV2 () = backgroundTask {
@@ -140,11 +142,11 @@ type PostgresData(log: ILogger<PostgresData>, ser: JsonSerializer) =
         Utils.Migration.backupAndRestoreRequired log "v2-rc2" "v2" webLogs
     }
 
-    /// Migrate from v2 to v2.1
-    let migrateV2ToV2point1 () = backgroundTask {
-        let migration = "v2 to v2.1"
+    /// Migrate from v2 to v2.1.1
+    let migrateV2ToV2point1point1 () = backgroundTask {
+        let migration = "v2 to v2.1.1"
         Utils.Migration.logStep log migration "Adding empty redirect rule set to all weblogs"
-        do! Custom.nonQuery $"""UPDATE {Table.WebLog} SET data = data + '{{ "RedirectRules": [] }}'::json""" []
+        do! Custom.nonQuery $"""UPDATE {Table.WebLog} SET data = data || '{{ "RedirectRules": [] }}'::jsonb""" []
 
         let tables =
             [ Table.Category; Table.Page; Table.Post; Table.PostComment; Table.TagMap; Table.Theme; Table.WebLog
@@ -153,36 +155,70 @@ type PostgresData(log: ILogger<PostgresData>, ser: JsonSerializer) =
         Utils.Migration.logStep log migration "Adding unique indexes on ID fields"
         do! Custom.nonQuery (tables |> List.map Query.Definition.ensureKey |> String.concat "; ") []
         
-        Utils.Migration.logStep log migration "Dropping old ID columns"
-        do! Custom.nonQuery (tables |> List.map (sprintf "ALTER TABLE %s DROP COLUMN id") |> String.concat "; ") []
-        
-        Utils.Migration.logStep log migration "Adjusting indexes"
-        let toDrop = [ "page_web_log_idx"; "post_web_log_idx" ]
-        do! Custom.nonQuery (toDrop |> List.map (sprintf "DROP INDEX %s") |> String.concat "; ") []
-        
-        let toRename =
-            [ "idx_category",          "idx_category_document"
-              "idx_tag_map",           "idx_tag_map_document"
-              "idx_web_log",           "idx_web_log_document"
-              "idx_web_log_user",      "idx_web_log_user_document"
-              "page_author_idx",       "idx_page_author"
-              "page_permalink_idx",    "idx_page_permalink"
-              "post_author_idx",       "idx_post_author"
-              "post_status_idx",       "idx_post_status"
-              "post_permalink_idx",    "idx_post_permalink"
-              "post_category_idx",     "idx_post_category"
-              "post_tag_idx",          "idx_post_tag"
-              "post_comment_post_idx", "idx_post_comment_post"
-              "upload_web_log_idx",    "idx_upload_web_log"
-              "upload_path_idx",       "idx_upload_path" ]
+        Utils.Migration.logStep log migration "Removing constraints"
+        let fkToDrop =
+            [ "page_revision", "page_revision_page_id_fkey"
+              "post_revision", "post_revision_post_id_fkey"
+              "theme_asset",   "theme_asset_theme_id_fkey"
+              "upload",        "upload_web_log_id_fkey"
+              "category",      "category_pkey"
+              "page",          "page_pkey"
+              "post",          "post_pkey"
+              "post_comment",  "post_comment_pkey"
+              "tag_map",       "tag_map_pkey"
+              "theme",         "theme_pkey"
+              "web_log",       "web_log_pkey"
+              "web_log_user",  "web_log_user_pkey" ]
         do! Custom.nonQuery
-                (toRename
-                 |> List.map (fun (oldName, newName) -> $"ALTER INDEX {oldName} RENAME TO {newName}")
+                (fkToDrop
+                 |> List.map (fun (tbl, fk) -> $"ALTER TABLE {tbl} DROP CONSTRAINT {fk}")
                  |> String.concat "; ")
                 []
         
-        Utils.Migration.logStep log migration "Setting database to version 2.1"
-        do! setDbVersion "v2.1"
+        Utils.Migration.logStep log migration "Dropping old indexes"
+        let toDrop =
+            [ "idx_category"; "page_author_idx"; "page_permalink_idx"; "page_web_log_idx"; "post_author_idx"
+              "post_category_idx"; "post_permalink_idx"; "post_status_idx"; "post_tag_idx"; "post_web_log_idx"
+              "post_comment_post_idx"; "idx_tag_map"; "idx_web_log"; "idx_web_log_user" ]
+        do! Custom.nonQuery (toDrop |> List.map (sprintf "DROP INDEX %s") |> String.concat "; ") []
+        
+        Utils.Migration.logStep log migration "Dropping old ID columns"
+        do! Custom.nonQuery (tables |> List.map (sprintf "ALTER TABLE %s DROP COLUMN id") |> String.concat "; ") []
+        
+        Utils.Migration.logStep log migration "Adding new indexes"
+        let newIdx =
+            [ yield! tables |> List.map Query.Definition.ensureKey
+              Query.Definition.ensureDocumentIndex Table.Category   Optimized
+              Query.Definition.ensureDocumentIndex Table.TagMap     Optimized
+              Query.Definition.ensureDocumentIndex Table.WebLog     Optimized
+              Query.Definition.ensureDocumentIndex Table.WebLogUser Optimized
+              Query.Definition.ensureIndexOn Table.Page "author" [ nameof Page.Empty.AuthorId ]
+              Query.Definition.ensureIndexOn
+                  Table.Page "permalink" [ nameof Page.Empty.WebLogId; nameof Page.Empty.Permalink ]
+              Query.Definition.ensureIndexOn Table.Post "author" [ nameof Post.Empty.AuthorId ]
+              Query.Definition.ensureIndexOn
+                  Table.Post "permalink" [ nameof Post.Empty.WebLogId; nameof Post.Empty.Permalink ]
+              Query.Definition.ensureIndexOn
+                  Table.Post
+                  "status"
+                  [ nameof Post.Empty.WebLogId; nameof Post.Empty.Status; nameof Post.Empty.UpdatedOn ]
+              $"CREATE INDEX idx_post_category ON {Table.Post} USING GIN ((data['{nameof Post.Empty.CategoryIds}']))"
+              $"CREATE INDEX idx_post_tag      ON {Table.Post} USING GIN ((data['{nameof Post.Empty.Tags}']))"
+              Query.Definition.ensureIndexOn Table.PostComment "post" [ nameof Comment.Empty.PostId ] ]
+        do! Custom.nonQuery (newIdx |> String.concat "; ") []
+        
+        Utils.Migration.logStep log migration "Setting database to version 2.1.1"
+        return! setDbVersion "v2.1.1"
+    }
+
+    /// Migrate from v2.1.1 to v2.2
+    let migrateV2point1point1ToV2point2 () = backgroundTask {
+        Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting e-mail to lowercase"
+        do! Custom.nonQuery
+                $"""UPDATE {Table.WebLogUser} SET data = data || ('{{"Email":"' || lower(data->>'Email') || '"}}')::jsonb"""
+                []
+        Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting database version to v2.2"
+        return! setDbVersion "v2.2"
     }
 
     /// Do required data migration between versions
@@ -190,16 +226,24 @@ type PostgresData(log: ILogger<PostgresData>, ser: JsonSerializer) =
         let mutable v = defaultArg version ""
 
         if v = "v2-rc2" then 
-            do! migrateV2Rc2ToV2 ()
-            v <- "v2"
+            let! webLogs =
+                Custom.list
+                    $"SELECT url_base, slug FROM {Table.WebLog}" []
+                    (fun row -> row.string "url_base", row.string "slug")
+            Utils.Migration.backupAndRestoreRequired log "v2-rc2" "v2" webLogs
         
         if v = "v2" then
-            do! migrateV2ToV2point1 ()
-            v <- "v2.1"
+            let! ver = migrateV2ToV2point1point1 ()
+            v <- ver
+        
+        if v = "v2.1.1" then
+            let! ver = migrateV2point1point1ToV2point2 ()
+            v <- ver
         
         if v <> Utils.Migration.currentDbVersion then
             log.LogWarning $"Unknown database version; assuming {Utils.Migration.currentDbVersion}"
-            do! setDbVersion Utils.Migration.currentDbVersion
+            let! _ = setDbVersion Utils.Migration.currentDbVersion
+            ()
     }
         
     interface IData with

src/MyWebLog.Data/RethinkDbData.fs

@@ -238,6 +238,24 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger<Rethi
         do! setDbVersion "v2.1"
     }
     
+    /// Migrate from v2.1 to v2.1.1
+    let migrateV2point1ToV2point1point1 () = backgroundTask {
+        Utils.Migration.logStep log "v2.1 to v2.1.1" "Setting database version; no migration required"
+        do! setDbVersion "v2.1.1"
+    }
+
+    /// Migrate from v2.1.1 to v2.2
+    let migrateV2point1point1ToV2point2 () = backgroundTask {
+        Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting e-mail to lowercase"
+        do! rethink {
+            withTable Table.WebLogUser
+            update (fun row -> {| Email = row[nameof WebLogUser.Empty.Email].Downcase() |})
+            write; withRetryOnce; ignoreResult conn
+        }
+        Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting database version to v2.2"
+        do! setDbVersion "v2.2"
+    }
+
     /// Migrate data between versions
     let migrate version = backgroundTask {
         let mutable v = defaultArg version ""
@@ -254,6 +272,14 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger<Rethi
             do! migrateV2ToV2point1 ()
             v <- "v2.1"
         
+        if v = "v2.1" then
+            do! migrateV2point1ToV2point1point1 ()
+            v <- "v2.1.1"
+        
+        if v = "v2.1.1" then
+            do! migrateV2point1point1ToV2point2 ()
+            v <- "v2.2"
+        
         if v <> Utils.Migration.currentDbVersion then
             log.LogWarning $"Unknown database version; assuming {Utils.Migration.currentDbVersion}"
             do! setDbVersion Utils.Migration.currentDbVersion

src/MyWebLog.Data/SQLiteData.fs

@@ -430,6 +430,20 @@ type SQLiteData(conn: SqliteConnection, log: ILogger<SQLiteData>, ser: JsonSeria
         Utils.Migration.backupAndRestoreRequired log "v2" "v2.1" webLogs
     }
 
+    /// Migrate from v2.1 to v2.1.1
+    let migrateV2point1ToV2point1point1 () = backgroundTask {
+        Utils.Migration.logStep log "v2.1 to v2.1.1" "Setting database version; no migration required"
+        do! setDbVersion "v2.1.1"
+    }
+    
+    /// Migrate from v2.1.1 to v2.2
+    let migrateV2point1point1ToV2point2 () = backgroundTask {
+        Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting e-mail to lowercase"
+        do! Custom.nonQuery $"UPDATE {Table.WebLogUser} SET data = json_set(data, '$.Email', lower(data->>'Email'))" []
+        Utils.Migration.logStep log "v2.1.1 to v2.2" "Setting database version to v2.2"
+        do! setDbVersion "v2.2"
+    }
+
     /// Migrate data among versions (up only)
     let migrate version = backgroundTask {
         let mutable v = defaultArg version ""
@@ -446,6 +460,14 @@ type SQLiteData(conn: SqliteConnection, log: ILogger<SQLiteData>, ser: JsonSeria
             do! migrateV2ToV2point1 ()
             v <- "v2.1"
         
+        if v = "v2.1" then
+            do! migrateV2point1ToV2point1point1 ()
+            v <- "v2.1.1"
+        
+        if v = "v2.1.1" then
+            do! migrateV2point1point1ToV2point2 ()
+            v <- "v2.2"
+        
         if v <> Utils.Migration.currentDbVersion then
             log.LogWarning $"Unknown database version; assuming {Utils.Migration.currentDbVersion}"
             do! setDbVersion Utils.Migration.currentDbVersion

src/MyWebLog.Data/Utils.fs

@@ -54,7 +54,7 @@ module Migration =
     open Microsoft.Extensions.Logging
 
     /// The current database version
-    let currentDbVersion = "v2.1"
+    let currentDbVersion = "v2.2"
 
     /// Log a migration step
     let logStep<'T> (log: ILogger<'T>) migration message =

src/MyWebLog.Domain/MyWebLog.Domain.fsproj

@@ -7,11 +7,11 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Markdig" Version="0.36.2" />
-    <PackageReference Include="Markdown.ColorCode" Version="2.2.1" />
+    <PackageReference Include="Markdig" Version="0.37.0" />
+    <PackageReference Include="Markdown.ColorCode" Version="2.2.2" />
     <PackageReference Include="Newtonsoft.Json" Version="13.0.3" />
     <PackageReference Include="NodaTime" Version="3.1.11" />
-    <PackageReference Update="FSharp.Core" Version="8.0.200" />
+    <PackageReference Update="FSharp.Core" Version="8.0.300" />
   </ItemGroup>
 
 </Project>

src/MyWebLog.Domain/ViewModels.fs

@@ -154,7 +154,9 @@ type DisplayTheme = {
     
     /// Create a display theme from a theme
     static member FromTheme inUseFunc (theme: Theme) =
-        let fileName = if string theme.Id = "default" then "default-theme.zip" else $"./themes/{theme.Id}-theme.zip"
+        let fileName =
+            if string theme.Id = "default" then "default-theme.zip"
+            else Path.Combine(".", "themes", $"{theme.Id}-theme.zip")
         { Id            = string theme.Id
           Name          = theme.Name
           Version       = theme.Version
@@ -937,7 +939,7 @@ type EditUserModel = {
     member this.UpdateUser (user: WebLogUser) =
         { user with
             AccessLevel   = AccessLevel.Parse this.AccessLevel
-            Email         = this.Email
+            Email         = this.Email.ToLowerInvariant()
             Url           = noneIfBlank this.Url
             FirstName     = this.FirstName
             LastName      = this.LastName

src/MyWebLog.Tests/Domain/ViewModelsTests.fs

@@ -118,16 +118,19 @@ let displayThemeTests = testList "DisplayTheme.FromTheme" [
         Expect.isFalse model.IsOnDisk "IsOnDisk should not have been set"
     }
     test "succeeds when a non-default theme is not in use and is on disk" {
-        let dir  = Directory.CreateDirectory "themes"
-        let file = File.Create "./themes/another-theme.zip"
+        let dir = Directory.CreateDirectory "themes"
         try
-            let model = DisplayTheme.FromTheme (fun _ -> false) { theme with Id = ThemeId "another" }
-            Expect.isFalse model.IsInUse "IsInUse should not have been set"
-            Expect.isTrue model.IsOnDisk "IsOnDisk should have been set"
+            let testFile = Path.Combine(".", "themes", "another-theme.zip")
+            let file     = File.Create testFile
+            try
+                let model = DisplayTheme.FromTheme (fun _ -> false) { theme with Id = ThemeId "another" }
+                Expect.isFalse model.IsInUse "IsInUse should not have been set"
+                Expect.isTrue model.IsOnDisk "IsOnDisk should have been set"
+            finally
+                file.Close()
+                file.Dispose()
+                File.Delete testFile
         finally
-           file.Close()
-           file.Dispose()
-           File.Delete "./themes/another-theme.zip"
            dir.Delete()
     }
     test "succeeds when the default theme is on disk" {

src/MyWebLog.Tests/MyWebLog.Tests.fsproj

@@ -28,7 +28,7 @@
   <ItemGroup>
     <PackageReference Include="Expecto" Version="10.2.1" />
     <PackageReference Include="ThrowawayDb.Postgres" Version="1.4.0" />
-    <PackageReference Update="FSharp.Core" Version="8.0.200" />
+    <PackageReference Update="FSharp.Core" Version="8.0.300" />
   </ItemGroup>
 
   <ItemGroup>

src/MyWebLog/Handlers/Admin.fs

@@ -399,8 +399,11 @@ module Theme =
                     let! _ = loadFromZip themeId stream data
                     do! ThemeAssetCache.refreshTheme themeId data
                     TemplateCache.invalidateTheme themeId
+                    // Ensure the themes directory exists
+                    let themeDir = Path.Combine(".", "themes")
+                    if not (Directory.Exists themeDir) then Directory.CreateDirectory themeDir |> ignore
                     // Save the .zip file
-                    use file = new FileStream($"./themes/{themeId}-theme.zip", FileMode.Create)
+                    use file = new FileStream(Path.Combine(".", "themes", $"{themeId}-theme.zip"), FileMode.Create)
                     do! themeFile.CopyToAsync file
                     do! addMessage ctx
                             { UserMessage.Success with
@@ -435,7 +438,7 @@ module Theme =
         | _ ->
             match! data.Theme.Delete (ThemeId themeId) with
             | true ->
-                let zippedTheme = $"./themes/{themeId}-theme.zip"
+                let zippedTheme = Path.Combine(".", "themes", $"{themeId}-theme.zip")
                 if File.Exists zippedTheme then File.Delete zippedTheme
                 do! addMessage ctx { UserMessage.Success with Message = $"Theme ID {themeId} deleted successfully" }
                 return! all next ctx

src/MyWebLog/Handlers/User.fs

@@ -46,7 +46,7 @@ open Microsoft.AspNetCore.Authentication.Cookies
 let doLogOn : HttpHandler = fun next ctx -> task {
     let! model   = ctx.BindFormAsync<LogOnModel>()
     let  data    = ctx.Data
-    let! tryUser = data.WebLogUser.FindByEmail model.EmailAddress ctx.WebLog.Id
+    let! tryUser = data.WebLogUser.FindByEmail (model.EmailAddress.ToLowerInvariant()) ctx.WebLog.Id
     match! verifyPassword tryUser model.Password ctx with 
     | Ok _ ->
         let user = tryUser.Value

src/MyWebLog/Maintenance.fs

@@ -20,33 +20,31 @@ let private doCreateWebLog (args: string[]) (sp: IServiceProvider) = task {
             | true, ianaId -> ianaId
             | false, _ -> raise <| TimeZoneNotFoundException $"Cannot find IANA timezone for {local}"
     
-    // Create the web log
-    let webLogId   = WebLogId.Create()
-    let userId     = WebLogUserId.Create()
-    let homePageId = PageId.Create()
-    let slug       = Handlers.Upload.makeSlug args[2]
-    
     // If this is the first web log being created, the user will be an installation admin; otherwise, they will be an
     // admin just over their web log
     let! webLogs     = data.WebLog.All()
     let  accessLevel = if List.isEmpty webLogs then Administrator else WebLogAdmin
-        
-    do! data.WebLog.Add
-            { WebLog.Empty with
-                Id          = webLogId
-                Name        = args[2]
-                Slug        = slug
-                UrlBase     = args[1]
-                DefaultPage = string homePageId
-                TimeZone    = timeZone }
+    
+    let homePageId = PageId.Create()
+    
+    // Create the web log
+    let webLog =
+        { WebLog.Empty with
+            Id          = WebLogId.Create()
+            Name        = args[2]
+            Slug        = Handlers.Upload.makeSlug args[2]
+            UrlBase     = args[1].ToLowerInvariant()
+            DefaultPage = string homePageId
+            TimeZone    = timeZone }
+    do! data.WebLog.Add webLog
     
     // Create the admin user
     let now  = Noda.now ()
     let user =
         { WebLogUser.Empty with
-            Id            = userId
-            WebLogId      = webLogId
-            Email         = args[3]
+            Id            = WebLogUserId.Create()
+            WebLogId      = webLog.Id
+            Email         = args[3].ToLowerInvariant()
             FirstName     = "Admin"
             LastName      = "User"
             PreferredName = "Admin"
@@ -58,8 +56,8 @@ let private doCreateWebLog (args: string[]) (sp: IServiceProvider) = task {
     do! data.Page.Add
             { Page.Empty with
                 Id          = homePageId
-                WebLogId    = webLogId
-                AuthorId    = userId
+                WebLogId    = webLog.Id
+                AuthorId    = user.Id
                 Title       = "Welcome to myWebLog!"
                 Permalink   = Permalink "welcome-to-myweblog.html"
                 PublishedOn = now
@@ -70,11 +68,11 @@ let private doCreateWebLog (args: string[]) (sp: IServiceProvider) = task {
                         Text = Html "<p>This is your default home page.</p>" }
                 ] }
 
-    printfn $"Successfully initialized database for {args[2]} with URL base {args[1]}"
+    printfn $"Successfully initialized database for {webLog.Name} with URL base {webLog.UrlBase}"
     match accessLevel with
-    | Administrator -> printfn $"  ({args[3]} is an installation administrator)"
+    | Administrator -> printfn $"  ({user.Email} is an installation administrator)"
     | WebLogAdmin ->
-        printfn $"  ({args[3]} is a web log administrator;"
+        printfn $"  ({user.Email} is a web log administrator;"
         printfn """   use "upgrade-user" to promote to installation administrator)"""
     | _ -> ()
 }
@@ -422,8 +420,9 @@ module Backup =
     /// Generate a backup archive
     let generateBackup (args: string[]) (sp: IServiceProvider) = task {
         if args.Length > 1 && args.Length < 5 then
+            let url  = args[1].ToLowerInvariant()
             let data = sp.GetRequiredService<IData>()
-            match! data.WebLog.FindByHost args[1] with
+            match! data.WebLog.FindByHost url with
             | Some webLog ->
                 let fileName =
                     if args.Length = 2 || (args.Length = 3 && args[2] = "pretty") then
@@ -434,7 +433,7 @@ module Backup =
                         $"{args[2]}.json"
                 let prettyOutput = (args.Length = 3 && args[2] = "pretty") || (args.Length = 4 && args[3] = "pretty")
                 do! createBackup webLog fileName prettyOutput data
-            | None -> eprintfn $"Error: no web log found for {args[1]}"
+            | None -> eprintfn $"Error: no web log found for {url}"
         else
             eprintfn """Usage: myWebLog backup [url-base] [*backup-file-name] [**"pretty"]"""
             eprintfn """          * optional - default is [web-log-slug].json"""
@@ -445,7 +444,7 @@ module Backup =
     let restoreFromBackup (args: string[]) (sp: IServiceProvider) = task {
         if args.Length = 2 || args.Length = 3 then
             let data       = sp.GetRequiredService<IData>()
-            let newUrlBase = if args.Length = 3 then Some args[2] else None
+            let newUrlBase = if args.Length = 3 then Some (args[2].ToLowerInvariant()) else None
             do! restoreBackup args[1] newUrlBase (args[0] <> "do-restore") true data
         else
             eprintfn "Usage: myWebLog restore [backup-file-name] [*url-base]"
@@ -472,7 +471,7 @@ let private doUserUpgrade urlBase email (data: IData) = task {
 /// Upgrade a WebLogAdmin user to an Administrator user if the command-line arguments are good
 let upgradeUser (args: string[]) (sp: IServiceProvider) = task {
     match args.Length with
-    | 3 -> do! doUserUpgrade args[1] args[2] (sp.GetRequiredService<IData>())
+    | 3 -> do! doUserUpgrade (args[1].ToLowerInvariant()) (args[2].ToLowerInvariant()) (sp.GetRequiredService<IData>())
     | _ -> eprintfn "Usage: myWebLog upgrade-user [web-log-url-base] [email-address]"
 }
 
@@ -491,6 +490,8 @@ let doSetPassword urlBase email password (data: IData) = task {
 /// Set a user's password if the command-line arguments are good
 let setPassword (args: string[]) (sp: IServiceProvider) = task {
     match args.Length with
-    | 4 -> do! doSetPassword args[1] args[2] args[3] (sp.GetRequiredService<IData>())
+    | 4 ->
+        do! doSetPassword
+                (args[1].ToLowerInvariant()) (args[2].ToLowerInvariant()) args[3] (sp.GetRequiredService<IData>())
     | _ -> eprintfn "Usage: myWebLog set-password [web-log-url-base] [email-address] [password]"
 }

src/MyWebLog/MyWebLog.fsproj

@@ -31,13 +31,13 @@
   <ItemGroup>
     <PackageReference Include="BitBadger.AspNetCore.CanonicalDomains" Version="1.0.0" />
     <PackageReference Include="DotLiquid" Version="2.2.692" />
-    <PackageReference Include="Giraffe" Version="6.3.0" />
-    <PackageReference Include="Giraffe.Htmx" Version="1.9.11" />
-    <PackageReference Include="Giraffe.ViewEngine.Htmx" Version="1.9.11" />
+    <PackageReference Include="Giraffe" Version="6.4.0" />
+    <PackageReference Include="Giraffe.Htmx" Version="2.0.0" />
+    <PackageReference Include="Giraffe.ViewEngine.Htmx" Version="2.0.0" />
     <PackageReference Include="NeoSmart.Caching.Sqlite.AspNetCore" Version="8.0.0" />
     <PackageReference Include="RethinkDB.DistributedCache" Version="1.0.0-rc1" />
     <PackageReference Include="System.ServiceModel.Syndication" Version="8.0.0" />
-    <PackageReference Update="FSharp.Core" Version="8.0.200" />
+    <PackageReference Update="FSharp.Core" Version="8.0.300" />
   </ItemGroup>
 
   <ItemGroup>

src/MyWebLog/Program.fs

@@ -218,8 +218,9 @@ let main args =
         // Load admin and default themes, and all themes in the /themes directory
         do! Maintenance.loadTheme [| ""; "./admin-theme.zip"   |] app.Services
         do! Maintenance.loadTheme [| ""; "./default-theme.zip" |] app.Services
-        if Directory.Exists "./themes" then
-            for themeFile in Directory.EnumerateFiles("./themes", "*-theme.zip") do
+        let themePath = Path.Combine(".", "themes")
+        if Directory.Exists themePath then
+            for themeFile in Directory.EnumerateFiles(themePath, "*-theme.zip") do
                 do! Maintenance.loadTheme [| ""; themeFile |] app.Services
             
         let _ = app.UseForwardedHeaders()

src/MyWebLog/appsettings.json

@@ -1,5 +1,5 @@
 {
-  "Generator": "myWebLog 2.1",
+  "Generator": "myWebLog 2.2",
   "Logging": {
     "LogLevel": {
       "MyWebLog.Handlers": "Information"

src/admin-theme/version.txt

@@ -1,2 +1,2 @@
 myWebLog Admin
-2.1.0
+2.2

src/default-theme/version.txt

@@ -1,2 +1,2 @@
 myWebLog Default Theme
-2.1.0
+2.2