WIP on upload admin (#2)

src/MyWebLog/DotLiquidBespoke.fs

@@ -226,11 +226,11 @@ let register () =
         typeof<CustomFeed>; typeof<Episode>; typeof<Episode option>; typeof<MetaItem>; typeof<Page>; typeof<RssOptions>
         typeof<TagMap>;     typeof<WebLog>
         // View models
-        typeof<DashboardModel>;        typeof<DisplayCategory>;     typeof<DisplayCustomFeed>; typeof<DisplayPage>
-        typeof<EditCategoryModel>;     typeof<EditCustomFeedModel>; typeof<EditPageModel>;     typeof<EditPostModel>
-        typeof<EditRssModel>;          typeof<EditTagMapModel>;     typeof<EditUserModel>;     typeof<LogOnModel>
-        typeof<ManagePermalinksModel>; typeof<PostDisplay>;         typeof<PostListItem>;      typeof<SettingsModel>
-        typeof<UserMessage>
+        typeof<DashboardModel>; typeof<DisplayCategory>;       typeof<DisplayCustomFeed>;   typeof<DisplayPage>
+        typeof<DisplayUpload>;  typeof<EditCategoryModel>;     typeof<EditCustomFeedModel>; typeof<EditPageModel>
+        typeof<EditPostModel>;  typeof<EditRssModel>;          typeof<EditTagMapModel>;     typeof<EditUserModel>
+        typeof<LogOnModel>;     typeof<ManagePermalinksModel>; typeof<PostDisplay>;         typeof<PostListItem>
+        typeof<SettingsModel>;  typeof<UserMessage>
         // Framework types
         typeof<AntiforgeryTokenSet>; typeof<int option>;    typeof<KeyValuePair>; typeof<MetaItem list>
         typeof<string list>;         typeof<string option>; typeof<TagMap list>

src/MyWebLog/Handlers/Routes.fs

@@ -143,6 +143,9 @@ let router : HttpHandler = choose [
                 ])
             ])
             route    "/theme/update" >=> Admin.themeUpdatePage
+            subRoute "/upload" (choose [
+                route "s" >=> Upload.list
+            ])
             route    "/user/edit"    >=> User.edit
         ]
         POST >=> validateCsrf >=> choose [

src/MyWebLog/Handlers/Upload.fs

@@ -59,3 +59,52 @@ let serve (urlParts : string seq) : HttpHandler = fun next ctx -> task {
     else
         return! Error.notFound next ctx
 }
+
+// ADMIN
+
+open System.IO
+open DotLiquid
+open MyWebLog.ViewModels
+
+// GET /admin/uploads
+let list : HttpHandler = fun next ctx -> task {
+    let webLog = ctx.WebLog
+    let! dbUploads = ctx.Data.Upload.findByWebLog webLog.id
+    let diskUploads =
+        let path = Path.Combine ("wwwroot", "upload", webLog.slug)
+        printfn $"Files in %s{path}"
+        try
+            Directory.EnumerateFiles (path, "*", SearchOption.AllDirectories)
+            |> Seq.map (fun file ->
+                let name = Path.GetFileName file
+                let create =
+                    match File.GetCreationTime (Path.Combine (path, file)) with
+                    | dt when dt > DateTime.UnixEpoch -> Some dt
+                    | _ -> None
+                { DisplayUpload.id = ""
+                  name             = name
+                  path             = file.Substring(8).Replace (name, "")
+                  updatedOn        = create
+                  source           = UploadDestination.toString Disk
+                })
+            |> List.ofSeq
+        with
+        | :? DirectoryNotFoundException -> [] // This is fine
+        | ex ->
+            warn "Upload" ctx $"Encountered {ex.GetType().Name} listing uploads for {path}:\n{ex.Message}"
+            []
+    printfn "done"
+    let allFiles =
+        dbUploads
+        |> List.map (DisplayUpload.fromUpload Database)
+        |> List.append diskUploads
+        |> List.sortByDescending (fun file -> file.updatedOn, file.path)
+
+    return!
+        Hash.FromAnonymousObject {|
+            csrf       = csrfToken ctx
+            page_title = "Uploaded Files"
+            files      = allFiles
+        |}
+        |> viewForTheme "admin" "upload-list" next ctx
+    }

src/MyWebLog/Maintenance.fs

@@ -292,7 +292,7 @@ module Backup =
         let! posts = data.Post.findFullByWebLog webLog.id
         
         printfn "- Exporting uploads..."
-        let! uploads = data.Upload.findByWebLog webLog.id
+        let! uploads = data.Upload.findByWebLogWithData webLog.id
         
         printfn "- Writing archive..."
         let  archive    = {