25 changed files with 576 additions and 314 deletions
--- a/.gitignore
+++ b/.gitignore
@ -5,5 +5,3 @@ src/**/obj
 src/**/appsettings.*.json
 src/.vs
 src/.idea
-
-.fake
--- a/src/Dockerfile
+++ b/src/Dockerfile
@ -1,26 +1,10 @@
-FROM mcr.microsoft.com/dotnet/sdk:8.0-alpine AS build
+FROM mcr.microsoft.com/dotnet/sdk:5.0 AS build
 WORKDIR /jjj
-COPY ./JobsJobsJobs.sln                                               ./
-COPY ./JobsJobsJobs/Directory.Build.props                             ./JobsJobsJobs/
-COPY ./JobsJobsJobs/Application/JobsJobsJobs.Application.fsproj       ./JobsJobsJobs/Application/
-COPY ./JobsJobsJobs/Citizens/JobsJobsJobs.Citizens.fsproj             ./JobsJobsJobs/Citizens/
-COPY ./JobsJobsJobs/Common/JobsJobsJobs.Common.fsproj                 ./JobsJobsJobs/Common/
-COPY ./JobsJobsJobs/Home/JobsJobsJobs.Home.fsproj                     ./JobsJobsJobs/Home/
-COPY ./JobsJobsJobs/Listings/JobsJobsJobs.Listings.fsproj             ./JobsJobsJobs/Listings/
-COPY ./JobsJobsJobs/Profiles/JobsJobsJobs.Profiles.fsproj             ./JobsJobsJobs/Profiles/
-COPY ./JobsJobsJobs/SuccessStories/JobsJobsJobs.SuccessStories.fsproj ./JobsJobsJobs/SuccessStories/
-RUN dotnet restore
-
 COPY . ./
-WORKDIR /jjj/JobsJobsJobs/Application
-RUN dotnet publish -c Release -r linux-x64
-RUN rm bin/Release/net8.0/linux-x64/publish/appsettings.*.json
+WORKDIR /jjj/JobsJobsJobs/Server
+RUN dotnet publish JobsJobsJobs.Server.csproj -c Release /p:PublishProfile=Properties/PublishProfiles/FolderProfile.xml

-FROM  mcr.microsoft.com/dotnet/aspnet:8.0-alpine as final
-WORKDIR /app
-RUN apk add --no-cache icu-libs
-ENV DOTNET_SYSTEM_GLOBALIZATION_INVARIANT=false
-COPY --from=build /jjj/JobsJobsJobs/Application/bin/Release/net8.0/linux-x64/publish/ ./
-
-EXPOSE 80
-CMD [ "dotnet", "/app/JobsJobsJobs.Application.dll" ]
+FROM mcr.microsoft.com/dotnet/aspnet:5.0
+WORKDIR /jjj
+COPY --from=build /jjj/JobsJobsJobs/Server/bin/Release/net5.0/linux-x64/publish/ ./
+ENTRYPOINT [ "/jjj/JobsJobsJobs.Server" ]
--- a/src/JobsJobsJobs/Application/App.fs
+++ b/src/JobsJobsJobs/Application/App.fs
@ -3,7 +3,6 @@ module JobsJobsJobs.App

 open System
 open System.Text
-open BitBadger.AspNetCore.CanonicalDomains
 open Giraffe
 open Giraffe.EndpointRouting
 open JobsJobsJobs.Common.Data
@ -31,7 +30,6 @@ type BufferedBodyMiddleware (next : RequestDelegate) =
 let main args =
    
    let builder = WebApplication.CreateBuilder args
-    let _       = builder.Configuration.AddEnvironmentVariables "JJJ_"
    let svc     = builder.Services

    let _ = svc.AddGiraffe ()
@ -59,9 +57,6 @@ let main args =
                opts.Cookie.HttpOnly    <- true
                opts.Cookie.IsEssential <- true)
    
-    let emailCfg = cfg.GetSection "Email"
-    if (emailCfg.GetChildren >> Seq.isEmpty >> not) () then ConfigurationBinder.Bind(emailCfg, Email.options)
-    
    let app = builder.Build ()

    // Unify the endpoints from all features
@ -75,7 +70,6 @@ let main args =
    ]

    let _ = app.UseForwardedHeaders ()
-    let _ = app.UseCanonicalDomains ()
    let _ = app.UseCookiePolicy (CookiePolicyOptions (MinimumSameSitePolicy = SameSiteMode.Strict))
    let _ = app.UseStaticFiles ()
    let _ = app.UseRouting ()
--- a/src/JobsJobsJobs/Application/JobsJobsJobs.Application.fsproj
+++ b/src/JobsJobsJobs/Application/JobsJobsJobs.Application.fsproj
@ -2,7 +2,7 @@

  <PropertyGroup>
    <OutputType>Exe</OutputType>
-    <PublishSingleFile>false</PublishSingleFile>
+    <PublishSingleFile>true</PublishSingleFile>
    <SelfContained>false</SelfContained>
    <WarnOn>3390;$(WarnOn)</WarnOn>
  </PropertyGroup>
@ -25,12 +25,4 @@
    <ProjectReference Include="..\SuccessStories\JobsJobsJobs.SuccessStories.fsproj" />
  </ItemGroup>

-  <ItemGroup>
-    <PackageReference Update="FSharp.Core" Version="8.0.300" />
-  </ItemGroup>
-
-  <ItemGroup>
-    <PackageReference Include="BitBadger.AspNetCore.CanonicalDomains" Version="1.0.0" />
-  </ItemGroup>
-
 </Project>
--- a/src/JobsJobsJobs/Application/appsettings.json
+++ b/src/JobsJobsJobs/Application/appsettings.json
@ -4,12 +4,5 @@
      "JobsJobsJobs.Api.Handlers.Citizen": "Information",
      "Microsoft.AspNetCore.StaticFiles": "Warning"
    }
-  },
-  "Kestrel": {
-    "EndPoints": {
-      "Http": {
-        "Url": "http://0.0.0.0:80"
-      }
-    }
  }
 }
--- a/src/JobsJobsJobs/Citizens/Data.fs
+++ b/src/JobsJobsJobs/Citizens/Data.fs
@ -1,6 +1,5 @@
 module JobsJobsJobs.Citizens.Data

-open BitBadger.Npgsql.FSharp.Documents
 open JobsJobsJobs.Common.Data
 open JobsJobsJobs.Domain
 open NodaTime
@ -12,36 +11,45 @@ let mutable private lastPurge = Instant.MinValue
 /// Lock access to the above
 let private locker = obj ()

-/// Delete a citizen by their ID
-let deleteById citizenId = backgroundTask {
+/// Delete a citizen by their ID using the given connection properties
+let private doDeleteById citizenId connProps = backgroundTask {
    let citId = CitizenId.toString citizenId
-    do! Custom.nonQuery
-            $"{Query.Delete.byContains Table.Success};
-              {Query.Delete.byContains Table.Listing};
-              {Query.Delete.byId       Table.Citizen}"
-            [ "@criteria", Query.jsonbDocParam {| citizenId = citId |}; "@id", Sql.string citId ]
+    let! _ =
+        connProps
+        |> Sql.query $"
+            DELETE FROM {Table.Success} WHERE data @> @criteria;
+            DELETE FROM {Table.Listing} WHERE data @> @criteria;
+            DELETE FROM {Table.Citizen} WHERE id    = @id"
+        |> Sql.parameters [ "@criteria", Sql.jsonb (mkDoc {| citizenId = citId |}); "@id", Sql.string citId ]
+        |> Sql.executeNonQueryAsync
+    ()
 }

+/// Delete a citizen by their ID
+let deleteById citizenId =
+    doDeleteById citizenId (dataSource ())
+
 /// Save a citizen
-let private saveCitizen (citizen : Citizen) =
-    save Table.Citizen (CitizenId.toString citizen.Id) citizen
+let private saveCitizen (citizen : Citizen) connProps =
+    saveDocument Table.Citizen (CitizenId.toString citizen.Id) connProps (mkDoc citizen) 

 /// Save security information for a citizen
-let saveSecurityInfo (security : SecurityInfo) =
-    save Table.SecurityInfo (CitizenId.toString security.Id) security
+let private saveSecurity (security : SecurityInfo) connProps =
+    saveDocument Table.SecurityInfo (CitizenId.toString security.Id) connProps (mkDoc security)

 /// Purge expired tokens
 let private purgeExpiredTokens now = backgroundTask {
+    let connProps = dataSource ()
    let! info =
-        Custom.list $"{Query.selectFromTable Table.SecurityInfo} WHERE data ->> 'tokenExpires' IS NOT NULL" []
-                    fromData<SecurityInfo>
+        Sql.query $"SELECT * FROM {Table.SecurityInfo} WHERE data ->> 'tokenExpires' IS NOT NULL" connProps
+        |> Sql.executeAsync toDocument<SecurityInfo>
    for expired in info |> List.filter (fun it -> it.TokenExpires.Value < now) do
        if expired.TokenUsage.Value = "confirm" then
            // Unconfirmed account; delete the entire thing
-            do! deleteById expired.Id
+            do! doDeleteById expired.Id connProps
        else
            // Some other use; just clear the token
-            do! saveSecurityInfo { expired with Token = None; TokenUsage = None; TokenExpires = None }
+            do! saveSecurity { expired with Token = None; TokenUsage = None; TokenExpires = None } connProps
 }

 /// Check for tokens to purge if it's been more than 10 minutes since we last checked
@ -54,39 +62,51 @@ let private checkForPurge skipCheck =
    })

 /// Find a citizen by their ID
-let findById citizenId =
-    Find.byId Table.Citizen (CitizenId.toString citizenId)
+let findById citizenId = backgroundTask {
+    match! dataSource () |> getDocument<Citizen> Table.Citizen (CitizenId.toString citizenId) with
+    | Some c when not c.IsLegacy -> return Some c
+    | Some _
+    | None -> return None
+}

 /// Save a citizen
 let save citizen =
-    saveCitizen citizen
+    saveCitizen citizen (dataSource ())
    
 /// Register a citizen (saves citizen and security settings); returns false if the e-mail is already taken
-let register (citizen : Citizen) (security : SecurityInfo) = backgroundTask {
+let register citizen (security : SecurityInfo) = backgroundTask {
+    let  connProps = dataSource ()
+    use  conn      = Sql.createConnection connProps
+    use! txn       = conn.BeginTransactionAsync ()
    try
-        let! _ =
-            Configuration.dataSource ()
-            |> Sql.fromDataSource
-            |> Sql.executeTransactionAsync
-                [   Query.save Table.Citizen,      [ Query.docParameters (CitizenId.toString citizen.Id) citizen  ]
-                    Query.save Table.SecurityInfo, [ Query.docParameters (CitizenId.toString citizen.Id) security ]
-                ]
+        do! saveCitizen  citizen  connProps
+        do! saveSecurity security connProps
+        do! txn.CommitAsync ()
        return true
    with
    | :? Npgsql.PostgresException as ex when ex.SqlState = "23505" && ex.ConstraintName = "uk_citizen_email" ->
+        do! txn.RollbackAsync ()
        return false
 }

 /// Try to find the security information matching a confirmation token
-let private tryConfirmToken (token : string) =
-    Find.firstByContains<SecurityInfo> Table.SecurityInfo {| token = token; tokenUsage = "confirm" |}
+let private tryConfirmToken (token : string) connProps = backgroundTask {
+    let! tryInfo =
+        connProps
+        |> Sql.query $" SELECT * FROM {Table.SecurityInfo} WHERE data @> @criteria"
+        |> Sql.parameters [ "criteria", Sql.jsonb (mkDoc {| token = token; tokenUsage = "confirm" |}) ]
+        |> Sql.executeAsync toDocument<SecurityInfo>
+    return List.tryHead tryInfo
+}

 /// Confirm a citizen's account
 let confirmAccount token = backgroundTask {
    do! checkForPurge true
-    match! tryConfirmToken token with
+    let connProps = dataSource ()
+    match! tryConfirmToken token connProps with
    | Some info ->
-        do! saveSecurityInfo { info with AccountLocked = false; Token = None; TokenUsage = None; TokenExpires = None }
+        do! saveSecurity { info with AccountLocked = false; Token = None; TokenUsage = None; TokenExpires = None }
+                connProps
        return true
    | None -> return false
 }
@ -94,27 +114,34 @@ let confirmAccount token = backgroundTask {
 /// Deny a citizen's account (user-initiated; used if someone used their e-mail address without their consent)
 let denyAccount token = backgroundTask {
    do! checkForPurge true
-    match! tryConfirmToken token with
+    let connProps = dataSource ()
+    match! tryConfirmToken token connProps with
    | Some info ->
-        do! deleteById info.Id
+        do! doDeleteById info.Id connProps
        return true
    | None -> return false
 }
    
 /// Attempt a user log on
-let tryLogOn (email : string) password (pwVerify : Citizen -> string -> bool option)
-        (pwHash : Citizen -> string -> string) now = backgroundTask {
+let tryLogOn email password (pwVerify : Citizen -> string -> bool option) (pwHash : Citizen -> string -> string)
+        now = backgroundTask {
    do! checkForPurge false
-    match! Find.firstByContains<Citizen> Table.Citizen {| email = email |} with
+    let  connProps  = dataSource ()
+    let! tryCitizen =
+        connProps
+        |> Sql.query $"SELECT * FROM {Table.Citizen} WHERE data @> @criteria"
+        |> Sql.parameters [ "@criteria", Sql.jsonb (mkDoc {| email = email; isLegacy = false |}) ]
+        |> Sql.executeAsync toDocument<Citizen>
+    match List.tryHead tryCitizen with
    | Some citizen ->
        let citizenId = CitizenId.toString citizen.Id
-        let! tryInfo = Find.byId<SecurityInfo> Table.SecurityInfo citizenId
+        let! tryInfo = getDocument<SecurityInfo> Table.SecurityInfo citizenId connProps
        let! info = backgroundTask {
            match tryInfo with
            | Some it -> return it
            | None ->
                let it = { SecurityInfo.empty with Id = citizen.Id }
-                do! saveSecurityInfo it
+                do! saveSecurity it connProps
                return it
        }
        if info.AccountLocked then return Error "Log on unsuccessful (Account Locked)"
@ -122,29 +149,129 @@ let tryLogOn (email : string) password (pwVerify : Citizen -> string -> bool opt
            match pwVerify citizen password with
            | Some rehash ->
                let hash = if rehash then pwHash citizen password else citizen.PasswordHash
-                do! saveSecurityInfo { info with FailedLogOnAttempts = 0 }
-                do! saveCitizen { citizen with LastSeenOn = now; PasswordHash = hash }
+                do! saveSecurity { info with FailedLogOnAttempts = 0 } connProps
+                do! saveCitizen { citizen with LastSeenOn = now; PasswordHash = hash } connProps
                return Ok { citizen with LastSeenOn = now }
            | None ->
                let locked = info.FailedLogOnAttempts >= 4
                do! { info with FailedLogOnAttempts = info.FailedLogOnAttempts + 1; AccountLocked = locked }
-                    |> saveSecurityInfo
+                    |> saveSecurity <| connProps
                return Error $"""Log on unsuccessful{if locked then " - Account is now locked" else ""}"""
    | None -> return Error "Log on unsuccessful"
 }

 /// Try to retrieve a citizen and their security information by their e-mail address
-let tryByEmailWithSecurity email =
-    Custom.single
-        $"SELECT c.*, s.data AS sec_data
-            FROM {Table.Citizen} c
-                 INNER JOIN {Table.SecurityInfo} s ON s.id = c.id
-           WHERE c.data @> @criteria"
-        [ "@criteria", Query.jsonbDocParam {| email = email |} ]
-        (fun row -> (fromData<Citizen> row, fromDocument<SecurityInfo> "sec_data" row))
+let tryByEmailWithSecurity email = backgroundTask {
+    let toCitizenSecurityPair row = (toDocument<Citizen> row, toDocumentFrom<SecurityInfo> "sec_data" row)
+    let! results =
+        dataSource ()
+        |> Sql.query $"
+            SELECT c.*, s.data AS sec_data
+              FROM {Table.Citizen} c
+                   INNER JOIN {Table.SecurityInfo} s ON s.id = c.id
+             WHERE c.data @> @criteria"
+        |> Sql.parameters [ "@criteria", Sql.jsonb (mkDoc {| email = email |}) ]
+        |> Sql.executeAsync toCitizenSecurityPair
+    return List.tryHead results
+}
+
+/// Save an updated security information document
+let saveSecurityInfo security = backgroundTask {
+    do! saveSecurity security (dataSource ())
+}

 /// Try to retrieve security information by the given token
 let trySecurityByToken (token : string) = backgroundTask {
    do! checkForPurge false
-    return! Find.firstByContains<SecurityInfo> Table.SecurityInfo {| token = token |}
+    let! results =
+        dataSource ()
+        |> Sql.query $"SELECT * FROM {Table.SecurityInfo} WHERE data @> @criteria"
+        |> Sql.parameters [ "@criteria", Sql.jsonb (mkDoc {| token = token |}) ]
+        |> Sql.executeAsync toDocument<SecurityInfo>
+    return List.tryHead results
+}
+
+// ~~~ LEGACY MIGRATION ~~~ //
+
+/// Get all legacy citizens
+let legacy () = backgroundTask {
+    return!
+        dataSource ()
+        |> Sql.query $"""
+            SELECT *
+              FROM {Table.Citizen}
+             WHERE data @> '{{ "isLegacy": true }}'::jsonb
+             ORDER BY data ->> 'firstName'"""
+        |> Sql.executeAsync toDocument<Citizen>
+}
+
+/// Get all current citizens with verified accounts but without a profile
+let current () = backgroundTask {
+    return!
+        dataSource ()
+        |> Sql.query $"""
+            SELECT c.*
+              FROM {Table.Citizen} c
+                   INNER JOIN {Table.SecurityInfo} si ON si.id = c.id
+             WHERE c.data  @> '{{ "isLegacy": false }}'::jsonb
+               AND si.data @> '{{ "accountLocked": false }}'::jsonb
+               AND NOT EXISTS (SELECT 1 FROM {Table.Profile} p WHERE p.id = c.id)"""
+        |> Sql.executeAsync toDocument<Citizen>
+}
+
+let migrateLegacy currentId legacyId = backgroundTask {
+    let  oldId     = CitizenId.toString legacyId
+    let  connProps = dataSource ()
+    use  conn      = Sql.createConnection connProps
+    use! txn       = conn.BeginTransactionAsync ()
+    try
+        // Add legacy data to current user
+        let! profiles =
+            conn
+            |> Sql.existingConnection
+            |> Sql.query $"SELECT * FROM {Table.Profile} WHERE id = @oldId"
+            |> Sql.parameters [ "@oldId", Sql.string oldId ]
+            |> Sql.executeAsync toDocument<Profile>
+        match List.tryHead profiles with
+        | Some profile ->
+            do! saveDocument
+                    Table.Profile (CitizenId.toString currentId) (Sql.existingConnection conn)
+                    (mkDoc { profile with Id = currentId; IsLegacy = false })
+        | None -> ()
+        let  oldCriteria = mkDoc {| citizenId = oldId |}
+        let! listings    =
+            conn
+            |> Sql.existingConnection
+            |> Sql.query $"SELECT * FROM {Table.Listing} WHERE data @> @criteria"
+            |> Sql.parameters [ "@criteria", Sql.jsonb oldCriteria ]
+            |> Sql.executeAsync toDocument<Listing>
+        for listing in listings do
+            let newListing = { listing with Id = ListingId.create (); CitizenId = currentId; IsLegacy = false }
+            do! saveDocument
+                    Table.Listing (ListingId.toString newListing.Id) (Sql.existingConnection conn) (mkDoc newListing)
+        let! successes =
+            conn
+            |> Sql.existingConnection
+            |> Sql.query $"SELECT * FROM {Table.Success} WHERE data @> @criteria"
+            |> Sql.parameters [ "@criteria", Sql.string oldCriteria ]
+            |> Sql.executeAsync toDocument<Success>
+        for success in successes do
+            let newSuccess = { success with Id = SuccessId.create (); CitizenId = currentId }
+            do! saveDocument
+                    Table.Success (SuccessId.toString newSuccess.Id) (Sql.existingConnection conn) (mkDoc newSuccess)
+        // Delete legacy data
+        let! _ =
+            conn
+            |> Sql.existingConnection
+            |> Sql.query $"
+                DELETE FROM {Table.Success} WHERE data @> @criteria;
+                DELETE FROM {Table.Listing} WHERE data @> @criteria;
+                DELETE FROM {Table.Citizen} WHERE id    = @oldId"
+            |> Sql.parameters [ "@criteria", Sql.jsonb oldCriteria; "@oldId", Sql.string oldId ]
+            |> Sql.executeNonQueryAsync
+        do! txn.CommitAsync ()
+        return Ok ""
+    with :? Npgsql.PostgresException as ex ->
+        do! txn.RollbackAsync ()
+        return Error ex.MessageText
 }
--- a/src/JobsJobsJobs/Citizens/Domain.fs
+++ b/src/JobsJobsJobs/Citizens/Domain.fs
@ -151,3 +151,14 @@ type ResetPasswordForm =
        /// The new password for the account
        Password : string
    }
+
+// ~~~ LEGACY MIGRATION ~~ //
+
+[<CLIMutable; NoComparison; NoEquality>]
+type LegacyMigrationForm =
+    {   /// The ID of the current citizen
+        Id : string
+
+        /// The ID of the legacy citizen to be migrated
+        LegacyId : string
+    }
--- a/src/JobsJobsJobs/Citizens/Handlers.fs
+++ b/src/JobsJobsJobs/Citizens/Handlers.fs
@ -59,6 +59,13 @@ module private Auth =
            | PasswordVerificationResult.SuccessRehashNeeded -> Some true
            | _ -> None

+    /// Require an administrative user (used for legacy migration endpoints)
+    let requireAdmin : HttpHandler = requireUser >=> fun next ctx -> task {
+        let adminUser = (config ctx)["AdminUser"]
+        if adminUser = defaultArg (tryUser ctx) "" then return! next ctx
+        else return! Error.notAuthorized next ctx
+    }
+

 // GET: /citizen/account
 let account : HttpHandler = fun next ctx -> task {
@ -325,6 +332,25 @@ let saveAccount : HttpHandler = requireUser >=> validateCsrf >=> fun next ctx ->
 let soLong : HttpHandler = requireUser >=> fun next ctx ->
    Views.deletionOptions (csrf ctx) |> render "Account Deletion Options" next ctx

+// ~~~ LEGACY MIGRATION ~~~ //
+
+// GET: /citizen/legacy
+let legacy : HttpHandler = Auth.requireAdmin >=> fun next ctx -> task {
+    let! currentUsers = Data.current ()
+    let! legacyUsers  = Data.legacy ()
+    return! Views.legacy currentUsers legacyUsers (csrf ctx) |> render "Migrate Legacy Account" next ctx
+}
+
+// POST: /citizen/legacy/migrate
+let migrateLegacy : HttpHandler = Auth.requireAdmin >=> validateCsrf >=> fun next ctx -> task {
+    let! form      = ctx.BindFormAsync<LegacyMigrationForm> ()
+    let  currentId = CitizenId.ofString form.Id
+    let  legacyId  = CitizenId.ofString form.LegacyId
+    match! Data.migrateLegacy currentId legacyId with
+    | Ok _ -> do! addSuccess "Migration successful" ctx
+    | Error err -> do! addError err ctx
+    return! redirectToGet "/citizen/legacy" next ctx
+}

 open Giraffe.EndpointRouting

@ -343,6 +369,7 @@ let endpoints =
            route  "/register"          register
            routef "/reset-password/%s" resetPassword
            route  "/so-long"           soLong
+            route  "/legacy"            legacy
        ]
        POST [
            route "/delete"          delete
@ -351,5 +378,6 @@ let endpoints =
            route "/register"        doRegistration
            route "/reset-password"  doResetPassword
            route "/save-account"    saveAccount
+            route "/legacy/migrate"  migrateLegacy
        ]
    ]
--- a/src/JobsJobsJobs/Citizens/JobsJobsJobs.Citizens.fsproj
+++ b/src/JobsJobsJobs/Citizens/JobsJobsJobs.Citizens.fsproj
@ -16,8 +16,4 @@
    <ProjectReference Include="..\Profiles\JobsJobsJobs.Profiles.fsproj" />
  </ItemGroup>

-  <ItemGroup>
-    <PackageReference Update="FSharp.Core" Version="8.0.300" />
-  </ItemGroup>
-
 </Project>
--- a/src/JobsJobsJobs/Citizens/Views.fs
+++ b/src/JobsJobsJobs/Citizens/Views.fs
@ -360,7 +360,7 @@ let registered =
            txt "register again."
        ]
        p [] [
-            txt "If you encounter issues, feel free to reach out to @daniel@fedi.summershome.org for assistance."
+            txt "If you encounter issues, feel free to reach out to @danieljsummers on No Agenda Social for assistance."
        ]
    ]

@ -393,3 +393,54 @@ let resetPassword (m : ResetPasswordForm) isHtmx csrf =
            jsOnLoad $"jjj.citizen.validatePasswords('{nameof m.Password}', 'ConfirmPassword', true)" isHtmx
        ]
    ]
+
+// ~~~ LEGACY MIGRATION ~~~ //
+
+let legacy (current : Citizen list) (legacy : Citizen list) csrf =
+    form [ _class "container"; _hxPost "/citizen/legacy/migrate" ] [
+        antiForgery csrf
+        let canProcess = not (List.isEmpty current)
+        div [ _class "row" ] [
+            if canProcess then
+                div [ _class "col-12 col-lg-6 col-xxl-4" ] [
+                    div [ _class "form-floating" ] [
+                        select [ _id "current"; _name "Id"; _class "form-control" ] [
+                            option [ _value "" ] [ txt "&ndash; Select &ndash;" ]
+                            yield!
+                                current
+                                |> List.sortBy Citizen.name
+                                |> List.map (fun it ->
+                                    option [ _value (CitizenId.toString it.Id) ] [
+                                        str (Citizen.name it); txt " ("; str it.Email; txt ")"
+                                    ])
+                        ]
+                        label [ _for "current" ] [ txt "Current User" ]
+                    ]
+                ]
+            else p [] [ txt "There are no current accounts to which legacy accounts can be migrated" ]
+            div [ _class "col-12 col-lg-6 offset-xxl-2"] [
+                table [ _class "table table-sm table-hover" ] [
+                    thead [] [
+                        tr [] [
+                            th [ _scope "col" ] [ txt "Select" ]
+                            th [ _scope "col" ] [ txt "NAS Profile" ]
+                        ]
+                    ]
+                    legacy |> List.map (fun it ->
+                        let theId = CitizenId.toString it.Id
+                        tr [] [
+                            td [] [
+                                if canProcess then
+                                    input [ _type "radio"; _id $"legacy_{theId}"; _name "LegacyId"; _value theId ]
+                                else txt "&nbsp;"
+                            ]
+                            td [] [ label [ _for $"legacy_{theId}" ] [ str it.Email ] ]
+                        ])
+                    |> tbody []
+                ]
+            ]
+        ]
+        submitButton "content-save-outline" "Migrate Account"
+    ]
+    |> List.singleton
+    |> pageWithTitle "Migrate Legacy Account"
--- a/src/JobsJobsJobs/Common/Cache.fs
+++ b/src/JobsJobsJobs/Common/Cache.fs
@ -35,6 +35,12 @@ module private CacheHelpers =
    /// Get the current instant
    let getNow () = SystemClock.Instance.GetCurrentInstant ()
    
+    /// Get the first result of the given query
+    let tryHead<'T> (query : Task<'T list>) = backgroundTask {
+        let! results = query
+        return List.tryHead results
+    }
+    
    /// Create a parameter for a non-standard type
    let typedParam<'T> name (it : 'T) =
        $"@%s{name}", Sql.parameter (NpgsqlParameter ($"@{name}", it))
@ -50,7 +56,6 @@ module private CacheHelpers =


 open System.Threading
-open BitBadger.Npgsql.FSharp.Documents
 open JobsJobsJobs.Common.Data
 open Microsoft.Extensions.Caching.Distributed

@ -64,38 +69,46 @@ type DistributedCache () =
    
    do
        task {
+            let dataSource = dataSource ()
            let! exists =
-                Custom.scalar
-                    $"SELECT EXISTS
+                dataSource
+                |> Sql.query $"
+                    SELECT EXISTS
                        (SELECT 1 FROM pg_tables WHERE schemaname = 'jjj' AND tablename = 'session')
                      AS does_exist"
-                    [] (fun row -> row.bool "does_exist")
+                |> Sql.executeRowAsync (fun row -> row.bool "does_exist")
            if not exists then
-                do! Custom.nonQuery
+                let! _ =
+                    dataSource
+                    |> Sql.query
                        "CREATE TABLE jjj.session (
                            id                  TEXT        NOT NULL PRIMARY KEY,
                            payload             BYTEA       NOT NULL,
                            expire_at           TIMESTAMPTZ NOT NULL,
                            sliding_expiration  INTERVAL,
                            absolute_expiration TIMESTAMPTZ);
-                        CREATE INDEX idx_session_expiration ON jjj.session (expire_at)" []
+                        CREATE INDEX idx_session_expiration ON jjj.session (expire_at)"
+                    |> Sql.executeNonQueryAsync
+                ()
        } |> sync
    
    // ~~~ SUPPORT FUNCTIONS ~~~
    
    /// Get an entry, updating it for sliding expiration
    let getEntry key = backgroundTask {
+        let dataSource = dataSource ()
        let idParam = "@id", Sql.string key
        let! tryEntry =
-            Custom.single
-                "SELECT * FROM jjj.session WHERE id = @id" [ idParam ]
-                (fun row ->
-                    {   Id                 = row.string                     "id"
-                        Payload            = row.bytea                      "payload"
-                        ExpireAt           = row.fieldValue<Instant>        "expire_at"
-                        SlidingExpiration  = row.fieldValueOrNone<Duration> "sliding_expiration"
-                        AbsoluteExpiration = row.fieldValueOrNone<Instant>  "absolute_expiration"
-                    })
+            dataSource
+            |> Sql.query "SELECT * FROM jjj.session WHERE id = @id"
+            |> Sql.parameters [ idParam ]
+            |> Sql.executeAsync (fun row ->
+                {   Id                 = row.string                     "id"
+                    Payload            = row.bytea                      "payload"
+                    ExpireAt           = row.fieldValue<Instant>        "expire_at"
+                    SlidingExpiration  = row.fieldValueOrNone<Duration> "sliding_expiration"
+                    AbsoluteExpiration = row.fieldValueOrNone<Instant>  "absolute_expiration"   })
+            |> tryHead
        match tryEntry with
        | Some entry ->
            let now      = getNow ()
@ -108,9 +121,12 @@ type DistributedCache () =
                    true, { entry with ExpireAt = absExp }
                else true, { entry with ExpireAt = now.Plus slideExp }
            if needsRefresh then
-                do! Custom.nonQuery
-                        "UPDATE jjj.session SET expire_at = @expireAt WHERE id = @id"
-                        [ expireParam item.ExpireAt; idParam ]
+                let! _ =
+                    dataSource
+                    |> Sql.query "UPDATE jjj.session SET expire_at = @expireAt WHERE id = @id"
+                    |> Sql.parameters [ expireParam item.ExpireAt; idParam ]
+                    |> Sql.executeNonQueryAsync
+                ()
            return if item.ExpireAt > now then Some entry else None
        | None -> return None
    }
@ -122,13 +138,23 @@ type DistributedCache () =
    let purge () = backgroundTask {
        let now = getNow ()
        if lastPurge.Plus (Duration.FromMinutes 30L) < now then
-            do! Custom.nonQuery "DELETE FROM jjj.session WHERE expire_at < @expireAt" [ expireParam now ]
+            let! _ =
+                dataSource ()
+                |> Sql.query "DELETE FROM jjj.session WHERE expire_at < @expireAt"
+                |> Sql.parameters [ expireParam now ]
+                |> Sql.executeNonQueryAsync
            lastPurge <- now
    }
    
    /// Remove a cache entry
-    let removeEntry key =
-        Custom.nonQuery "DELETE FROM jjj.session WHERE id = @id" [ "@id", Sql.string key ]
+    let removeEntry key = backgroundTask {
+        let! _ =
+            dataSource ()
+            |> Sql.query "DELETE FROM jjj.session WHERE id = @id"
+            |> Sql.parameters [ "@id", Sql.string key ]
+            |> Sql.executeNonQueryAsync
+        ()
+    }
    
    /// Save an entry
    let saveEntry (opts : DistributedCacheEntryOptions) key payload = backgroundTask {
@ -147,7 +173,9 @@ type DistributedCache () =
                // Default to 1 hour sliding expiration
                let slide = Duration.FromHours 1
                now.Plus slide, Some slide, None
-        do! Custom.nonQuery
+        let! _ =
+            dataSource ()
+            |> Sql.query
                "INSERT INTO jjj.session (
                    id, payload, expire_at, sliding_expiration, absolute_expiration
                ) VALUES (
@ -157,11 +185,14 @@ type DistributedCache () =
                    expire_at           = EXCLUDED.expire_at,
                    sliding_expiration  = EXCLUDED.sliding_expiration,
                    absolute_expiration = EXCLUDED.absolute_expiration"
+            |> Sql.parameters
                [   "@id",      Sql.string key
                    "@payload", Sql.bytea payload
                    expireParam expireAt
                    optParam "slideExp" slideExp
                    optParam "absExp"   absExp ]
+            |> Sql.executeNonQueryAsync
+        ()
    }
        
    // ~~~ IMPLEMENTATION FUNCTIONS ~~~
--- a/src/JobsJobsJobs/Common/Data.fs
+++ b/src/JobsJobsJobs/Common/Data.fs
@ -29,63 +29,80 @@ module Table =
    let Success = "jjj.success"


-open BitBadger.Npgsql.FSharp.Documents
 open Npgsql.FSharp

 /// Connection management for the document store
 [<AutoOpen>]
 module DataConnection =
    
-    open System.Text.Json
-    open BitBadger.Npgsql.Documents
-    open JobsJobsJobs
    open Microsoft.Extensions.Configuration
    open Npgsql
    
+    /// The data source for the document store
+    let mutable private theDataSource : NpgsqlDataSource option = None
+    
+    /// Get the data source as the start of a SQL statement
+    let dataSource () =
+        match theDataSource with
+        | Some ds -> Sql.fromDataSource ds
+        | None -> invalidOp "DataConnection.setUp() must be called before accessing the database"
+    
    /// Create tables
    let private createTables () = backgroundTask {
-        do! Custom.nonQuery "CREATE SCHEMA IF NOT EXISTS jjj" []
-        do! Definition.ensureTable Table.Citizen
-        do! Definition.ensureTable Table.Continent
-        do! Definition.ensureTable Table.Listing
-        do! Definition.ensureTable Table.Success
-        // Tables that use more than the default document configuration, key indexes, and text search index
-        do! Custom.nonQuery
-                $"CREATE TABLE IF NOT EXISTS {Table.Profile}
-                    (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL, text_search TSVECTOR NOT NULL,
-                  CONSTRAINT fk_profile_citizen FOREIGN KEY (id) REFERENCES {Table.Citizen} (id) ON DELETE CASCADE);
-                CREATE TABLE IF NOT EXISTS {Table.SecurityInfo} (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL,
-                  CONSTRAINT fk_security_info_citizen
-                    FOREIGN KEY (id) REFERENCES {Table.Citizen} (id) ON DELETE CASCADE);
-                CREATE UNIQUE INDEX IF NOT EXISTS uk_citizen_email      ON {Table.Citizen} ((data -> 'email'));
-                CREATE        INDEX IF NOT EXISTS idx_listing_citizen   ON {Table.Listing} ((data -> 'citizenId'));
-                CREATE        INDEX IF NOT EXISTS idx_listing_continent ON {Table.Listing} ((data -> 'continentId'));
-                CREATE        INDEX IF NOT EXISTS idx_profile_continent ON {Table.Profile} ((data -> 'continentId'));
-                CREATE        INDEX IF NOT EXISTS idx_success_citizen   ON {Table.Success} ((data -> 'citizenId'));
-                CREATE INDEX IF NOT EXISTS idx_profile_search ON {Table.Profile} USING GIN(text_search)"
-                []
+        let sql = [
+            "CREATE SCHEMA IF NOT EXISTS jjj"
+            // Tables
+            $"CREATE TABLE IF NOT EXISTS {Table.Citizen}      (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL)"
+            $"CREATE TABLE IF NOT EXISTS {Table.Continent}    (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL)"
+            $"CREATE TABLE IF NOT EXISTS {Table.Listing}      (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL)"
+            $"CREATE TABLE IF NOT EXISTS {Table.Profile}      (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL,
+                                                               text_search TSVECTOR NOT NULL,
+                CONSTRAINT fk_profile_citizen       FOREIGN KEY (id) REFERENCES {Table.Citizen} (id) ON DELETE CASCADE)"
+            $"CREATE TABLE IF NOT EXISTS {Table.SecurityInfo} (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL,
+                CONSTRAINT fk_security_info_citizen FOREIGN KEY (id) REFERENCES {Table.Citizen} (id) ON DELETE CASCADE)"
+            $"CREATE TABLE IF NOT EXISTS {Table.Success}      (id TEXT NOT NULL PRIMARY KEY, data JSONB NOT NULL)"
+            // Key indexes
+            $"CREATE UNIQUE INDEX IF NOT EXISTS uk_citizen_email      ON {Table.Citizen} ((data -> 'email'))"
+            $"CREATE        INDEX IF NOT EXISTS idx_listing_citizen   ON {Table.Listing} ((data -> 'citizenId'))"
+            $"CREATE        INDEX IF NOT EXISTS idx_listing_continent ON {Table.Listing} ((data -> 'continentId'))"
+            $"CREATE        INDEX IF NOT EXISTS idx_profile_continent ON {Table.Profile} ((data -> 'continentId'))"
+            $"CREATE        INDEX IF NOT EXISTS idx_success_citizen   ON {Table.Success} ((data -> 'citizenId'))"
+            // Profile text search index
+            $"CREATE INDEX IF NOT EXISTS idx_profile_search ON {Table.Profile} USING GIN(text_search)"
+        ]
+        let! _ =
+            dataSource ()
+            |> Sql.executeTransactionAsync (sql |> List.map (fun sql -> sql, [ [] ]))
+        ()
    }

-    /// Create functions and triggers required to keep the search index current
-    let private createTriggers () = backgroundTask {
+    /// Create functions and triggers required to 
+    let createTriggers () = backgroundTask {
        let! functions =
-            Custom.list
+            dataSource ()
+            |> Sql.query
                "SELECT p.proname
                   FROM pg_catalog.pg_proc p
                        LEFT JOIN pg_catalog.pg_namespace n ON n.oid = p.pronamespace
                  WHERE n.nspname = 'jjj'"
-                [] (fun row -> row.string "proname")
+            |> Sql.executeAsync (fun row -> row.string "proname")
        if not (functions |> List.contains "indexable_array_string") then
-            do! Custom.nonQuery
-                    """CREATE FUNCTION jjj.indexable_array_string(target jsonb, path jsonpath) RETURNS text AS $$
+            let! _ =
+                dataSource ()
+                |> Sql.query """
+                    CREATE FUNCTION jjj.indexable_array_string(target jsonb, path jsonpath) RETURNS text AS $$
                        BEGIN
                            RETURN REPLACE(REPLACE(REPLACE(REPLACE(jsonb_path_query_array(target, path)::text,
                                    '["', ''), '", "', ' '), '"]', ''), '[]', '');
                        END;
-                    $$ LANGUAGE plpgsql;""" []
+                    $$ LANGUAGE plpgsql;"""
+                |> Sql.executeNonQueryAsync
+            ()
        if not (functions |> List.contains "set_text_search") then
-            do! Custom.nonQuery
-                    $"CREATE FUNCTION jjj.set_text_search() RETURNS trigger AS $$
+            let! _ =
+                dataSource ()
+                |> Sql.query $"
+                    CREATE FUNCTION jjj.set_text_search() RETURNS trigger AS $$
                        BEGIN
                            NEW.text_search := to_tsvector('english',
                                   COALESCE(NEW.data ->> 'region',     '') || ' '
@ -99,33 +116,73 @@ module DataConnection =
                        END;
                    $$ LANGUAGE plpgsql;
                    CREATE TRIGGER set_text_search BEFORE INSERT OR UPDATE ON {Table.Profile}
-                        FOR EACH ROW EXECUTE FUNCTION jjj.set_text_search();" []
+                        FOR EACH ROW EXECUTE FUNCTION jjj.set_text_search();"
+                |> Sql.executeNonQueryAsync
+            ()
    }
    
    /// Set up the data connection from the given configuration
    let setUp (cfg : IConfiguration) = backgroundTask {
        let builder = NpgsqlDataSourceBuilder (cfg.GetConnectionString "PostgreSQL")
        let _ = builder.UseNodaTime ()
-        Configuration.useDataSource (builder.Build ())
-        Configuration.useSerializer
-            { new IDocumentSerializer with
-                member _.Serialize<'T>   (it : 'T)     = JsonSerializer.Serialize       (it, Json.options)
-                member _.Deserialize<'T> (it : string) = JsonSerializer.Deserialize<'T> (it, Json.options)
-            }
+        theDataSource <- Some (builder.Build ())
        do! createTables ()
        do! createTriggers ()
    }


+open System.Text.Json
+open System.Threading.Tasks
+open JobsJobsJobs
+
+/// Map the data field to the requested document type
+let toDocumentFrom<'T> fieldName (row : RowReader) =
+    JsonSerializer.Deserialize<'T> (row.string fieldName, Json.options)
+
+/// Map the data field to the requested document type
+let toDocument<'T> (row : RowReader) = toDocumentFrom<'T> "data" row
+
+/// Get a document
+let getDocument<'T> table docId sqlProps : Task<'T option> = backgroundTask {
+    let! doc =
+        Sql.query $"SELECT * FROM %s{table} where id = @id" sqlProps
+        |> Sql.parameters [ "@id", Sql.string docId ]
+        |> Sql.executeAsync toDocument
+    return List.tryHead doc
+}
+
+/// Serialize a document to JSON
+let mkDoc<'T> (doc : 'T) =
+    JsonSerializer.Serialize<'T> (doc, Json.options)
+    
+/// Save a document
+let saveDocument table docId sqlProps doc = backgroundTask {
+    let! _ =
+        Sql.query
+            $"INSERT INTO %s{table} (id, data) VALUES (@id, @data)
+                ON CONFLICT (id) DO UPDATE SET data = EXCLUDED.data"
+            sqlProps
+        |> Sql.parameters
+            [   "@id",   Sql.string docId
+                "@data", Sql.jsonb  doc ]
+        |> Sql.executeNonQueryAsync
+    ()
+}
+
 /// Create a match-anywhere clause for a LIKE or ILIKE clause
 let like value =
    Sql.string $"%%%s{value}%%"

+/// The JSON access operator ->> makes values text; this makes a parameter that will compare the properly
+let jsonBool value =
+    Sql.string (if value then "true" else "false")
+
 /// Get the SQL for a search WHERE clause
 let searchSql criteria =
    let sql = criteria |> List.map fst |> String.concat " AND "
    if sql = "" then "" else $"AND {sql}"

+
 /// Continent data access functions
 [<RequireQualifiedAccess>]
 module Continents =
@ -134,8 +191,10 @@ module Continents =

    /// Retrieve all continents
    let all () =
-        Custom.list $"{Query.selectFromTable Table.Continent} ORDER BY data ->> 'name'" [] fromData<Continent>
+        dataSource ()
+        |> Sql.query $"SELECT * FROM {Table.Continent} ORDER BY data ->> 'name'"
+        |> Sql.executeAsync toDocument<Continent>
    
    /// Retrieve a continent by its ID
    let findById continentId =
-        Find.byId<Continent> Table.Continent (ContinentId.toString continentId)
+        dataSource () |> getDocument<Continent> Table.Continent (ContinentId.toString continentId)
--- a/src/JobsJobsJobs/Common/Domain.fs
+++ b/src/JobsJobsJobs/Common/Domain.fs
@ -146,7 +146,7 @@ type OtherContact =
    {   /// The type of contact
        ContactType : ContactType
        
-        /// The name of the contact (Email, Mastodon, LinkedIn, etc.) 
+        /// The name of the contact (Email, No Agenda Social, LinkedIn, etc.) 
        Name : string option
        
        /// The value for the contact (e-mail address, user name, URL, etc.)
@ -249,6 +249,9 @@ type Citizen =
        
        /// The other contacts for this user
        OtherContacts : OtherContact list
+        
+        /// Whether this is a legacy citizen
+        IsLegacy : bool
    }

 /// Support functions for citizens
@ -265,6 +268,7 @@ module Citizen =
        PasswordHash  = ""
        DisplayName   = None
        OtherContacts = []
+        IsLegacy      = false
    }
    
    /// Get the name of the citizen (either their preferred display name or first/last names)
@ -330,6 +334,9 @@ type Listing =
        
        /// Was this job filled as part of its appearance on Jobs, Jobs, Jobs?
        WasFilledHere : bool option
+        
+        /// Whether this is a legacy listing
+        IsLegacy : bool
    }

 /// Support functions for job listings
@ -349,6 +356,7 @@ module Listing =
        Text          = Text ""
        NeededBy      = None
        WasFilledHere = None
+        IsLegacy      = false
    }


@ -426,6 +434,9 @@ type Profile =
        
        /// When the citizen last updated their profile
        LastUpdatedOn : Instant
+        
+        /// Whether this is a legacy profile
+        IsLegacy : bool
    }

 /// Support functions for Profiles
@ -445,6 +456,7 @@ module Profile =
        Experience          = None
        Visibility          = Private
        LastUpdatedOn       = Instant.MinValue
+        IsLegacy            = false
    }


--- a/src/JobsJobsJobs/Common/Email.fs
+++ b/src/JobsJobsJobs/Common/Email.fs
@ -3,41 +3,17 @@ module JobsJobsJobs.Email
 open System.Net
 open JobsJobsJobs.Domain
 open MailKit.Net.Smtp
+open MailKit.Security
 open MimeKit

-/// Options to use when sending e-mail
-type EmailOptions() =
-    /// The hostname of the SMTP server
-    member val SmtpHost : string = "localhost" with get, set
-
-    /// The port over which SMTP communication should occur
-    member val Port : int = 25 with get, set
-
-    /// Whether to use SSL when communicating with the SMTP server
-    member val UseSsl : bool = false with get, set
-
-    /// The authentication to use with the SMTP server
-    member val Authentication : string = "" with get, set
-
-    /// The e-mail address from which messages should be sent
-    member val FromAddress : string = "nobody@noagendacareers.com" with get, set
-
-    /// The name from which messages should be sent
-    member val FromName : string = "Jobs, Jobs, Jobs" with get, set
-
-
-/// The options for the SMTP server
-let mutable options = EmailOptions ()
-
 /// Private functions for sending e-mail
 [<AutoOpen>]
 module private Helpers =
    
    /// Create an SMTP client
-    let createClient () = backgroundTask {
+    let smtpClient () = backgroundTask {
        let client = new SmtpClient ()
-        do! client.ConnectAsync (options.SmtpHost, options.Port, options.UseSsl)
-        do! client.AuthenticateAsync (options.FromAddress, options.Authentication)
+        do! client.ConnectAsync ("localhost", 25, SecureSocketOptions.None)
        return client
    }

@ -49,18 +25,12 @@ module private Helpers =
        msg.Subject <- subject
        msg

-    /// Send a message
-    let sendMessage msg = backgroundTask {
-        use! client = createClient ()
-        let! result = client.SendAsync msg
-        do! client.DisconnectAsync true
-        return result
-    }

 /// Send an account confirmation e-mail
 let sendAccountConfirmation citizen security = backgroundTask {
-    let token = WebUtility.UrlEncode security.Token.Value
-    use msg   = createMessage citizen "Account Confirmation Request"
+    let  token  = WebUtility.UrlEncode security.Token.Value
+    use! client = smtpClient ()
+    use  msg    = createMessage citizen "Account Confirmation Request"
    
    let text =
        [   $"ITM, {Citizen.name citizen}!"
@ -87,13 +57,14 @@ let sendAccountConfirmation citizen security = backgroundTask {
    use msgText = new TextPart (Text = text)
    msg.Body <- msgText
    
-    return! sendMessage msg
+    return! client.SendAsync msg
 }

 /// Send a password reset link
 let sendPasswordReset citizen security = backgroundTask {
-    let token = WebUtility.UrlEncode security.Token.Value
-    use msg   = createMessage citizen "Reset Password for Jobs, Jobs, Jobs"
+    let  token  = WebUtility.UrlEncode security.Token.Value
+    use! client = smtpClient ()
+    use  msg    = createMessage citizen "Reset Password for Jobs, Jobs, Jobs"
    
    let text =
        [   $"ITM, {Citizen.name citizen}!"
@ -119,5 +90,5 @@ let sendPasswordReset citizen security = backgroundTask {
    use msgText = new TextPart (Text = text)
    msg.Body <- msgText
    
-    return! sendMessage msg
+    return! client.SendAsync msg
 }
--- a/src/JobsJobsJobs/Common/JobsJobsJobs.Common.fsproj
+++ b/src/JobsJobsJobs/Common/JobsJobsJobs.Common.fsproj
@ -15,19 +15,17 @@
  </ItemGroup>

  <ItemGroup>
-    <PackageReference Include="BitBadger.Npgsql.FSharp.Documents" Version="1.0.0-beta3" />
-    <PackageReference Include="FSharp.SystemTextJson" Version="1.3.13" />
-    <PackageReference Include="Giraffe" Version="6.4.0" />
-    <PackageReference Include="Giraffe.Htmx" Version="2.0.0" />
+    <PackageReference Include="FSharp.SystemTextJson" Version="1.0.7" />
+    <PackageReference Include="Giraffe" Version="6.0.0" />
+    <PackageReference Include="Giraffe.Htmx" Version="1.8.5" />
    <PackageReference Include="Giraffe.ViewEngine" Version="1.4.0" />
-    <PackageReference Include="Giraffe.ViewEngine.Htmx" Version="2.0.0" />
-    <PackageReference Include="MailKit" Version="4.6.0" />
-    <PackageReference Include="Markdig" Version="0.37.0" />
-    <PackageReference Include="NodaTime.Serialization.JsonNet" Version="3.1.0" />
-    <PackageReference Include="NodaTime.Serialization.SystemTextJson" Version="1.2.0" />
-    <PackageReference Include="Npgsql.FSharp" Version="5.7.0" />
-    <PackageReference Include="Npgsql.NodaTime" Version="8.0.3" />
-    <PackageReference Update="FSharp.Core" Version="8.0.300" />
+    <PackageReference Include="Giraffe.ViewEngine.Htmx" Version="1.8.5" />
+    <PackageReference Include="MailKit" Version="3.3.0" />
+    <PackageReference Include="Markdig" Version="0.30.4" />
+    <PackageReference Include="NodaTime.Serialization.JsonNet" Version="3.0.0" />
+    <PackageReference Include="NodaTime.Serialization.SystemTextJson" Version="1.0.0" />
+    <PackageReference Include="Npgsql.FSharp" Version="5.6.0" />
+    <PackageReference Include="Npgsql.NodaTime" Version="7.0.1" />
  </ItemGroup>

 </Project>
--- a/src/JobsJobsJobs/Directory.Build.props
+++ b/src/JobsJobsJobs/Directory.Build.props
@ -1,10 +1,10 @@
 <Project>
  <PropertyGroup>
-    <TargetFramework>net8.0</TargetFramework>
+    <TargetFramework>net7.0</TargetFramework>
    <Nullable>enable</Nullable>
    <DebugType>embedded</DebugType>
    <GenerateDocumentationFile>false</GenerateDocumentationFile>
-    <AssemblyVersion>3.2.0.0</AssemblyVersion>
-    <FileVersion>3.2.0.0</FileVersion>
+    <AssemblyVersion>3.0.1.0</AssemblyVersion>
+    <FileVersion>3.0.1.0</FileVersion>
  </PropertyGroup>
 </Project>
--- a/src/JobsJobsJobs/Home/JobsJobsJobs.Home.fsproj
+++ b/src/JobsJobsJobs/Home/JobsJobsJobs.Home.fsproj
@ -13,8 +13,4 @@
    <ProjectReference Include="..\Common\JobsJobsJobs.Common.fsproj" />
  </ItemGroup>

-  <ItemGroup>
-    <PackageReference Update="FSharp.Core" Version="8.0.300" />
-  </ItemGroup>
-
 </Project>
--- a/src/JobsJobsJobs/Home/Views.fs
+++ b/src/JobsJobsJobs/Home/Views.fs
@ -984,9 +984,12 @@ module Help =
            h4 [ mainHeading ] [ txt "Help / Suggestions" ]
            p [] [
                txt "This is open-source software "
-                a [ _href "https://git.bitbadger.solutions/bit-badger/jobs-jobs-jobs"; _target "_blank"
-                    _rel "noopener" ] [ txt "developed in Git" ]
-                txt "; feel free to ping @daniel@fedi.summershome.org if you run into any issues."
+                a [ _href "https://github.com/bit-badger/jobs-jobs-jobs"; _target "_blank"; _rel "noopener" ] [
+                    txt "developed on Github"
+                ]; txt "; feel free to "
+                a [ _href "https://github.com/bit-badger/jobs-jobs-jobs/issues"; _target "_blank"; _rel "noopener" ] [
+                    txt "create an issue there"
+                ]; txt ", or look up @danieljsummers on No Agenda Social."
            ]
        ]

--- a/src/JobsJobsJobs/Listings/Data.fs
+++ b/src/JobsJobsJobs/Listings/Data.fs
@ -1,6 +1,5 @@
 module JobsJobsJobs.Listings.Data

-open BitBadger.Npgsql.FSharp.Documents
 open JobsJobsJobs.Common.Data
 open JobsJobsJobs.Domain
 open JobsJobsJobs.Listings.Domain
@ -15,46 +14,57 @@ let viewSql =

 /// Map a result for a listing view
 let private toListingForView row =
-    {   Listing       = fromData<Listing> row
+    {   Listing       = toDocument<Listing> row
        ContinentName = row.string "continent_name"
-        Citizen       = fromDocument<Citizen> "cit_data" row
+        Citizen       = toDocumentFrom<Citizen> "cit_data" row
    }

 /// Find all job listings posted by the given citizen
 let findByCitizen citizenId =
-    Custom.list<ListingForView>
-        $"{viewSql} WHERE l.data @> @criteria"
-        [ "@criteria", Query.jsonbDocParam {| citizenId = CitizenId.toString citizenId |} ]
-        toListingForView
+    dataSource ()
+    |> Sql.query $"{viewSql} WHERE l.data @> @criteria"
+    |> Sql.parameters
+        [ "@criteria", Sql.jsonb (mkDoc {| citizenId = CitizenId.toString citizenId; isLegacy = false |}) ]
+    |> Sql.executeAsync toListingForView

 /// Find a listing by its ID
-let findById listingId =
-    Find.byId<Listing> Table.Listing (ListingId.toString listingId)
+let findById listingId = backgroundTask {
+    match! dataSource () |> getDocument<Listing> Table.Listing (ListingId.toString listingId) with
+    | Some listing when not listing.IsLegacy -> return Some listing
+    | Some _
+    | None -> return None
+}

 /// Find a listing by its ID for viewing (includes continent information)
-let findByIdForView listingId =
-    Custom.single<ListingForView>
-        $"{viewSql} WHERE l.id = @id" [ "@id", Sql.string (ListingId.toString listingId) ] toListingForView
+let findByIdForView listingId = backgroundTask {
+    let! tryListing =
+        dataSource ()
+        |> Sql.query $"""{viewSql} WHERE l.id = @id AND l.data @> '{{ "isLegacy": false }}'::jsonb"""
+        |> Sql.parameters [ "@id", Sql.string (ListingId.toString listingId) ]
+        |> Sql.executeAsync toListingForView
+    return List.tryHead tryListing
+}

 /// Save a listing
 let save (listing : Listing) =
-    save Table.Listing (ListingId.toString listing.Id) listing
+    dataSource () |> saveDocument Table.Listing (ListingId.toString listing.Id) <| mkDoc listing

 /// Search job listings
 let search (search : ListingSearchForm) =
    let searches = [
        if search.ContinentId <> "" then
-            "l.data @> @continent", [ "@continent", Query.jsonbDocParam {| continentId = search.ContinentId |} ]
+            "l.data @> @continent", [ "@continent", Sql.jsonb (mkDoc {| continentId = search.ContinentId |}) ]
        if search.Region <> "" then
            "l.data ->> 'region' ILIKE @region", [ "@region", like search.Region ]
        if search.RemoteWork <> "" then
-            "l.data @> @remote", [ "@remote", Query.jsonbDocParam {| isRemote = search.RemoteWork = "yes" |} ]
+            "l.data @> @remote", [ "@remote", Sql.jsonb (mkDoc {| isRemote = search.RemoteWork = "yes" |}) ]
        if search.Text <> "" then
            "l.data ->> 'text' ILIKE @text", [ "@text", like search.Text ]
    ]
-    Custom.list<ListingForView>
-        $"""{viewSql}
-              WHERE l.data @> '{{ "isExpired": false }}'::jsonb
-                {searchSql searches}"""
-        (searches |> List.collect snd)
-        toListingForView
+    dataSource ()
+    |> Sql.query $"""
+        {viewSql}
+         WHERE l.data @> '{{ "isExpired": false, "isLegacy": false }}'::jsonb
+           {searchSql searches}"""
+    |> Sql.parameters (searches |> List.collect snd)
+    |> Sql.executeAsync toListingForView
--- a/src/JobsJobsJobs/Listings/Handlers.fs
+++ b/src/JobsJobsJobs/Listings/Handlers.fs
@ -96,6 +96,7 @@ let save : HttpHandler = requireUser >=> validateCsrf >=> fun next ctx -> task {
                        CreatedOn     = now
                        IsExpired     = false
                        WasFilledHere = None
+                        IsLegacy      = false
                    }
        | _ -> return! Data.findById (ListingId.ofString form.Id)
    }
--- a/src/JobsJobsJobs/Listings/JobsJobsJobs.Listings.fsproj
+++ b/src/JobsJobsJobs/Listings/JobsJobsJobs.Listings.fsproj
@ -16,8 +16,4 @@
    <ProjectReference Include="..\SuccessStories\JobsJobsJobs.SuccessStories.fsproj" />
  </ItemGroup>

-  <ItemGroup>
-    <PackageReference Update="FSharp.Core" Version="8.0.300" />
-  </ItemGroup>
-
 </Project>
--- a/src/JobsJobsJobs/Profiles/Data.fs
+++ b/src/JobsJobsJobs/Profiles/Data.fs
@ -1,6 +1,5 @@
 module JobsJobsJobs.Profiles.Data

-open BitBadger.Npgsql.FSharp.Documents
 open JobsJobsJobs.Common.Data
 open JobsJobsJobs.Domain
 open JobsJobsJobs.Profiles.Domain
@ -8,63 +7,83 @@ open Npgsql.FSharp

 /// Count the current profiles
 let count () =
-    Count.all Table.Profile
+    dataSource ()
+    |> Sql.query
+        $"""SELECT COUNT(id) AS the_count FROM {Table.Profile} WHERE data @> '{{ "isLegacy": false }}'::jsonb"""
+    |> Sql.executeRowAsync (fun row -> row.int64 "the_count")

 /// Delete a profile by its ID
-let deleteById citizenId =
-    Delete.byId Table.Profile (CitizenId.toString citizenId)
+let deleteById citizenId = backgroundTask {
+    let! _ =
+        dataSource ()
+        |> Sql.query $"DELETE FROM {Table.Profile} WHERE id = @id"
+        |> Sql.parameters [ "@id", Sql.string (CitizenId.toString citizenId) ]
+        |> Sql.executeNonQueryAsync
+    ()
+}

 /// Find a profile by citizen ID
-let findById citizenId =
-    Find.byId<Profile> Table.Profile (CitizenId.toString citizenId)
+let findById citizenId = backgroundTask {
+    match! dataSource () |> getDocument<Profile> Table.Profile (CitizenId.toString citizenId) with
+    | Some profile when not profile.IsLegacy -> return Some profile
+    | Some _
+    | None -> return None
+}

 /// Convert a data row to a profile for viewing
 let private toProfileForView row =
-    {   Profile   = fromData<Profile> row
-        Citizen   = fromDocument<Citizen>   "cit_data"  row
-        Continent = fromDocument<Continent> "cont_data" row
+    {   Profile   = toDocument<Profile> row
+        Citizen   = toDocumentFrom<Citizen>   "cit_data"  row
+        Continent = toDocumentFrom<Continent> "cont_data" row
    }

 /// Find a profile by citizen ID for viewing (includes citizen and continent information)
-let findByIdForView citizenId =
-    Custom.single<ProfileForView>
-        $"SELECT p.*, c.data AS cit_data, o.data AS cont_data
-            FROM {Table.Profile} p
-                 INNER JOIN {Table.Citizen}   c ON c.id = p.id
-                 INNER JOIN {Table.Continent} o ON o.id = p.data ->> 'continentId'
-           WHERE p.id = @id"
-        [ "@id", Sql.string (CitizenId.toString citizenId) ]
-        toProfileForView
+let findByIdForView citizenId = backgroundTask {
+    let! tryCitizen =
+        dataSource ()
+        |> Sql.query $"""
+            SELECT p.*, c.data AS cit_data, o.data AS cont_data
+              FROM {Table.Profile} p
+                   INNER JOIN {Table.Citizen}   c ON c.id = p.id
+                   INNER JOIN {Table.Continent} o ON o.id = p.data ->> 'continentId'
+             WHERE p.id    = @id
+               AND p.data @> '{{ "isLegacy": false }}'::jsonb"""
+        |> Sql.parameters [ "@id", Sql.string (CitizenId.toString citizenId) ]
+        |> Sql.executeAsync toProfileForView
+    return List.tryHead tryCitizen
+}

 /// Save a profile
 let save (profile : Profile) =
-    save Table.Profile (CitizenId.toString profile.Id) profile
+    dataSource () |> saveDocument Table.Profile (CitizenId.toString profile.Id) <| mkDoc profile

 /// Search profiles
 let search (search : ProfileSearchForm) isPublic = backgroundTask {
    let searches = [
        if search.ContinentId <> "" then
-            "p.data @> @continent", [ "@continent", Query.jsonbDocParam {| continentId = search.ContinentId |} ]
+            "p.data @> @continent", [ "@continent", Sql.jsonb (mkDoc {| continentId = search.ContinentId |}) ]
        if search.RemoteWork <> "" then
-            "p.data @> @remote", [ "@remote", Query.jsonbDocParam {| isRemote = search.RemoteWork = "yes" |} ]
+            "p.data @> @remote", [ "@remote", Sql.jsonb (mkDoc {| isRemote = search.RemoteWork = "yes" |}) ]
        if search.Text <> "" then
            "p.text_search @@ plainto_tsquery(@text_search)", [ "@text_search", Sql.string search.Text ]
    ]
    let vizSql =
        if isPublic then
            sprintf "(p.data @> '%s'::jsonb OR p.data @> '%s'::jsonb)"
-                (Configuration.serializer().Serialize {| visibility = ProfileVisibility.toString Public |})
-                (Configuration.serializer().Serialize {| visibility = ProfileVisibility.toString Anonymous |})
+                (mkDoc {| visibility = ProfileVisibility.toString Public |})
+                (mkDoc {| visibility = ProfileVisibility.toString Anonymous |})
        else sprintf "p.data ->> 'visibility' <> '%s'" (ProfileVisibility.toString Hidden)
    let! results =
-        Custom.list<ProfileForView>
-            $" SELECT p.*, c.data AS cit_data, o.data AS cont_data
-                 FROM {Table.Profile} p
-                      INNER JOIN {Table.Citizen}   c ON c.id = p.id
-                      INNER JOIN {Table.Continent} o ON o.id = p.data ->> 'continentId'
-                WHERE {vizSql}
-                  {searchSql searches}"
-            (searches |> List.collect snd)
-            toProfileForView
+        dataSource ()
+        |> Sql.query $"""
+            SELECT p.*, c.data AS cit_data, o.data AS cont_data
+              FROM {Table.Profile} p
+                   INNER JOIN {Table.Citizen}   c ON c.id = p.id
+                   INNER JOIN {Table.Continent} o ON o.id = p.data ->> 'continentId'
+             WHERE p.data @> '{{ "isLegacy": false }}'::jsonb
+               AND {vizSql}
+               {searchSql searches}"""
+        |> Sql.parameters (searches |> List.collect snd)
+        |> Sql.executeAsync toProfileForView
    return results |> List.sortBy (fun pfv -> (Citizen.name pfv.Citizen).ToLowerInvariant ())
 }
--- a/src/JobsJobsJobs/Profiles/JobsJobsJobs.Profiles.fsproj
+++ b/src/JobsJobsJobs/Profiles/JobsJobsJobs.Profiles.fsproj
@ -15,8 +15,4 @@
    <ProjectReference Include="..\Common\JobsJobsJobs.Common.fsproj" />
  </ItemGroup>

-  <ItemGroup>
-    <PackageReference Update="FSharp.Core" Version="8.0.300" />
-  </ItemGroup>
-
 </Project>
--- a/src/JobsJobsJobs/SuccessStories/Data.fs
+++ b/src/JobsJobsJobs/SuccessStories/Data.fs
@ -1,33 +1,33 @@
 module JobsJobsJobs.SuccessStories.Data

-open BitBadger.Npgsql.FSharp.Documents
 open JobsJobsJobs.Common.Data
 open JobsJobsJobs.Domain
 open JobsJobsJobs.SuccessStories.Domain
+open Npgsql.FSharp

 // Retrieve all success stories  
 let all () =
-    Custom.list<StoryEntry>
-        $" SELECT s.*, c.data AS cit_data
-             FROM {Table.Success} s
-                  INNER JOIN {Table.Citizen} c ON c.id = s.data ->> 'citizenId'
-            ORDER BY s.data ->> 'recordedOn' DESC"
-        []
-        (fun row ->
-            let success = fromData<Success> row
-            let citizen = fromDocument<Citizen> "cit_data" row
-            {   Id          = success.Id
-                CitizenId   = success.CitizenId
-                CitizenName = Citizen.name citizen
-                RecordedOn  = success.RecordedOn
-                FromHere    = success.IsFromHere
-                HasStory    = Option.isSome success.Story
-            })
+    dataSource ()
+    |> Sql.query $"
+        SELECT s.*, c.data AS cit_data
+          FROM {Table.Success} s
+               INNER JOIN {Table.Citizen} c ON c.id = s.data ->> 'citizenId'
+         ORDER BY s.data ->> 'recordedOn' DESC"
+    |> Sql.executeAsync (fun row ->
+        let success = toDocument<Success> row
+        let citizen = toDocumentFrom<Citizen> "cit_data" row
+        {   Id          = success.Id
+            CitizenId   = success.CitizenId
+            CitizenName = Citizen.name citizen
+            RecordedOn  = success.RecordedOn
+            FromHere    = success.IsFromHere
+            HasStory    = Option.isSome success.Story
+        })

 /// Find a success story by its ID
 let findById successId =
-    Find.byId<Success> Table.Success (SuccessId.toString successId)
+    dataSource () |> getDocument<Success> Table.Success (SuccessId.toString successId)

 /// Save a success story
 let save (success : Success) =
-    save Table.Success (SuccessId.toString success.Id) success
+    (dataSource (), mkDoc success) ||> saveDocument Table.Success (SuccessId.toString success.Id)
--- a/src/JobsJobsJobs/SuccessStories/JobsJobsJobs.SuccessStories.fsproj
+++ b/src/JobsJobsJobs/SuccessStories/JobsJobsJobs.SuccessStories.fsproj
@ -17,8 +17,4 @@
    <ProjectReference Include="..\Profiles\JobsJobsJobs.Profiles.fsproj" />
  </ItemGroup>

-  <ItemGroup>
-    <PackageReference Update="FSharp.Core" Version="8.0.300" />
-  </ItemGroup>
-
 </Project>