Daniel J. Summers
7b325dc19e
* Use PostgreSQL JSON-based data implementation * Fix back link on RSS settings page (#34) * Show theme upload messages (#28) * Fix admin page list paging (#35) * Add db migrations for all stores * Support both .NET 6 and 7
69 lines
2.7 KiB
Forth
69 lines
2.7 KiB
Forth
namespace MyWebLog.Data.Postgres
|
|
|
|
open BitBadger.Npgsql.FSharp.Documents
|
|
open Microsoft.Extensions.Logging
|
|
open MyWebLog
|
|
open MyWebLog.Data
|
|
|
|
/// PostgreSQL myWebLog web log data implementation
|
|
type PostgresWebLogData (log : ILogger) =
|
|
|
|
/// Add a web log
|
|
let add (webLog : WebLog) =
|
|
log.LogTrace "WebLog.add"
|
|
insert Table.WebLog (WebLogId.toString webLog.Id) webLog
|
|
|
|
/// Retrieve all web logs
|
|
let all () =
|
|
log.LogTrace "WebLog.all"
|
|
Find.all<WebLog> Table.WebLog
|
|
|
|
/// Delete a web log by its ID
|
|
let delete webLogId =
|
|
log.LogTrace "WebLog.delete"
|
|
Custom.nonQuery
|
|
$"""DELETE FROM {Table.PostComment}
|
|
WHERE data ->> '{nameof Comment.empty.PostId}' IN
|
|
(SELECT id FROM {Table.Post} WHERE {Query.whereDataContains "@criteria"});
|
|
{Query.Delete.byContains Table.Post};
|
|
{Query.Delete.byContains Table.Page};
|
|
{Query.Delete.byContains Table.Category};
|
|
{Query.Delete.byContains Table.TagMap};
|
|
{Query.Delete.byContains Table.WebLogUser};
|
|
DELETE FROM {Table.Upload} WHERE web_log_id = @webLogId;
|
|
DELETE FROM {Table.WebLog} WHERE id = @webLogId"""
|
|
[ webLogIdParam webLogId; webLogContains webLogId ]
|
|
|
|
/// Find a web log by its host (URL base)
|
|
let findByHost (url : string) =
|
|
log.LogTrace "WebLog.findByHost"
|
|
Custom.single (selectWithCriteria Table.WebLog) [ "@criteria", Query.jsonbDocParam {| UrlBase = url |} ]
|
|
fromData<WebLog>
|
|
|
|
/// Find a web log by its ID
|
|
let findById webLogId =
|
|
log.LogTrace "WebLog.findById"
|
|
Find.byId<WebLog> Table.WebLog (WebLogId.toString webLogId)
|
|
|
|
/// Update settings for a web log
|
|
let updateSettings (webLog : WebLog) =
|
|
log.LogTrace "WebLog.updateSettings"
|
|
Update.full Table.WebLog (WebLogId.toString webLog.Id) webLog
|
|
|
|
/// Update RSS options for a web log
|
|
let updateRssOptions (webLog : WebLog) = backgroundTask {
|
|
log.LogTrace "WebLog.updateRssOptions"
|
|
match! findById webLog.Id with
|
|
| Some _ -> do! Update.partialById Table.WebLog (WebLogId.toString webLog.Id) {| Rss = webLog.Rss |}
|
|
| None -> ()
|
|
}
|
|
|
|
interface IWebLogData with
|
|
member _.Add webLog = add webLog
|
|
member _.All () = all ()
|
|
member _.Delete webLogId = delete webLogId
|
|
member _.FindByHost url = findByHost url
|
|
member _.FindById webLogId = findById webLogId
|
|
member _.UpdateSettings webLog = updateSettings webLog
|
|
member _.UpdateRssOptions webLog = updateRssOptions webLog
|