First cut of user admin page (#19)

src/MyWebLog/Handlers/Routes.fs

@@ -149,6 +149,7 @@ let router : HttpHandler = choose [
                 route "/new" >=> Upload.showNew
             ])
             subRoute "/user" (choose [
+                route "s"        >=> User.all
                 route "/my-info" >=> User.myInfo
             ])
         ]

src/MyWebLog/Handlers/User.fs

@@ -5,6 +5,8 @@ open System
 open System.Security.Cryptography
 open System.Text
 
+// ~~ LOG ON / LOG OFF ~~
+
 /// Hash a password for a given user
 let hashedPassword (plainText : string) (email : string) (salt : Guid) =
     let allSalt = Array.concat [ salt.ToByteArray (); Encoding.UTF8.GetBytes email ] 
@@ -69,6 +71,24 @@ let logOff : HttpHandler = fun next ctx -> task {
     return! redirectToGet "" next ctx
 }
 
+// ~~ ADMINISTRATION ~~
+
+// GET /admin/users
+let all : HttpHandler = fun next ctx -> task {
+    let  data   = ctx.Data
+    let! tmpl   = TemplateCache.get "admin" "user-list-body" data 
+    let! users  = data.WebLogUser.FindByWebLog ctx.WebLog.Id
+    let  hash   = Hash.FromAnonymousObject {|
+        page_title = "User Administration"
+        csrf       = ctx.CsrfTokenSet
+        web_log    = ctx.WebLog
+        users      = users |> List.map (DisplayUser.fromUser ctx.WebLog) |> Array.ofList
+    |}
+    return!
+           addToHash "user_list" (tmpl.Render hash) hash
+        |> adminView "user-list" next ctx
+}
+
 /// Display the user "my info" page, with information possibly filled in
 let private showMyInfo (user : WebLogUser) (hash : Hash) : HttpHandler = fun next ctx ->
        addToHash "page_title"   "Edit Your Information" hash