From 3ef4499a9031397e399c9708363e43c5b414c718 Mon Sep 17 00:00:00 2001
From: "Daniel J. Summers" <daniel@bitbadger.solutions>
Date: Fri, 28 Jul 2023 22:07:13 -0400
Subject: [PATCH] Add redirect index page (#39)

- Bump version to 2.1
---
 src/MyWebLog.Data/RethinkDbData.fs   |  2 +-
 src/MyWebLog/Handlers/Admin.fs       | 25 +++++++++---
 src/MyWebLog/Handlers/Routes.fs      |  3 ++
 src/MyWebLog/appsettings.json        |  1 +
 src/admin-theme/redirect-list.liquid | 58 ++++++++++++++++++++++++++++
 src/admin-theme/settings.liquid      |  3 +-
 src/admin-theme/version.txt          |  2 +-
 7 files changed, 85 insertions(+), 9 deletions(-)
 create mode 100644 src/admin-theme/redirect-list.liquid

diff --git a/src/MyWebLog.Data/RethinkDbData.fs b/src/MyWebLog.Data/RethinkDbData.fs
index 7c318a9..ccf4ef2 100644
--- a/src/MyWebLog.Data/RethinkDbData.fs
+++ b/src/MyWebLog.Data/RethinkDbData.fs
@@ -226,7 +226,7 @@ type RethinkDbData (conn : Net.IConnection, config : DataConfig, log : ILogger<R
         Utils.logMigrationStep log "v2 to v2.1" "Adding empty redirect rule set to all weblogs"
         do! rethink {
             withTable Table.WebLog
-            update [ nameof WebLog.empty.RedirectRules, [] ]
+            update [ nameof WebLog.empty.RedirectRules, [] :> obj ]
             write; withRetryOnce; ignoreResult conn
         }
         
diff --git a/src/MyWebLog/Handlers/Admin.fs b/src/MyWebLog/Handlers/Admin.fs
index 30ebac4..1808676 100644
--- a/src/MyWebLog/Handlers/Admin.fs
+++ b/src/MyWebLog/Handlers/Admin.fs
@@ -7,7 +7,7 @@ open MyWebLog
 open MyWebLog.ViewModels
 open NodaTime
 
-/// ~~ DASHBOARDS ~~
+/// ~~~ DASHBOARDS ~~~
 module Dashboard =
     
     // GET /admin/dashboard
@@ -75,7 +75,7 @@ module Dashboard =
 let toAdminDashboard : HttpHandler = redirectToGet "admin/administration"
 
 
-/// ~~ CACHES ~~
+/// ~~~ CACHES ~~~
 module Cache =
     
     // POST /admin/cache/web-log/{id}/refresh
@@ -126,7 +126,7 @@ module Cache =
     }
 
 
-/// ~~ CATEGORIES ~~
+/// ~~~ CATEGORIES ~~~
 module Category =
     
     open MyWebLog.Data
@@ -214,7 +214,20 @@ module Category =
     }
 
 
-/// ~~ TAG MAPPINGS ~~
+/// ~~~ REDIRECT RULES ~~~
+module RedirectRules =
+
+    // GET /admin/redirect-rules
+    let all : HttpHandler = requireAccess WebLogAdmin >=> fun next ctx -> task {
+        return!
+            hashForPage "Redirect Rules"
+            |> withAntiCsrf ctx
+            |> addToHash "redirections" ctx.WebLog.RedirectRules
+            |> adminView "redirect-list" next ctx
+    }
+
+
+/// ~~~ TAG MAPPINGS ~~~
 module TagMapping =
     
     open Microsoft.AspNetCore.Http
@@ -278,7 +291,7 @@ module TagMapping =
     }
 
 
-/// ~~ THEMES ~~
+/// ~~~ THEMES ~~~
 module Theme =
     
     open System
@@ -440,7 +453,7 @@ module Theme =
     }
 
 
-/// ~~ WEB LOG SETTINGS ~~
+/// ~~~ WEB LOG SETTINGS ~~~
 module WebLog =
     
     open System.Collections.Generic
diff --git a/src/MyWebLog/Handlers/Routes.fs b/src/MyWebLog/Handlers/Routes.fs
index e664a9d..0c82308 100644
--- a/src/MyWebLog/Handlers/Routes.fs
+++ b/src/MyWebLog/Handlers/Routes.fs
@@ -130,6 +130,9 @@ let router : HttpHandler = choose [
                 routef "/%s/revision/%s/preview"     Post.previewRevision
                 routef "/%s/revisions"               Post.editRevisions
             ])
+            subRoute "/redirect-rules" (choose [
+                route "" >=> Admin.RedirectRules.all
+            ])
             subRoute "/settings" (choose [
                 route  ""             >=> Admin.WebLog.settings
                 routef "/rss/%s/edit"     Feed.editCustomFeed
diff --git a/src/MyWebLog/appsettings.json b/src/MyWebLog/appsettings.json
index e89af6d..5956ea7 100644
--- a/src/MyWebLog/appsettings.json
+++ b/src/MyWebLog/appsettings.json
@@ -1,5 +1,6 @@
 {
   "Generator": "myWebLog 2.0",
+  "Generator": "myWebLog 2.1",
   "Logging": {
     "LogLevel": {
       "MyWebLog.Handlers": "Information"
diff --git a/src/admin-theme/redirect-list.liquid b/src/admin-theme/redirect-list.liquid
new file mode 100644
index 0000000..88ff325
--- /dev/null
+++ b/src/admin-theme/redirect-list.liquid
@@ -0,0 +1,58 @@
+<h2 class="my-3">Redirect Rules</h2>
+<article>
+  <a href="{{ "admin/settings" | relative_link }}">&laquo; Back to Settings</a>
+  <div class="container">
+    <div class="row">
+      <div class="col">
+        {%- assign redir_count = redirections | size -%}
+        {% if redir_count > 0 -%}
+          <div class="container">
+            <div class="row mwl-table-heading">
+              <div class="col">From</div>
+              <div class="col">To</div>
+              <div class="col">RegEx?</div>
+            </div>
+          </div>
+          <form method="post" class="container">
+            <input type="hidden" name="{{ csrf.form_field_name }}" value="{{ csrf.request_token }}">
+            <div class="row mwl-table-detail" id="redir_new"></div>
+              {% for redir in redirections -%}
+                {%- assign map_id = mapping_ids | value: map.tag -%}
+                <div class="row mwl-table-detail" id="redir_{{ forloop.index0 }}">
+                  <div class="col no-wrap">
+                    {{ redir.from }}<br>
+                    <small>
+                      {%- assign redir_url = "admin/settings/redirect-rules/" | append: forloop.index0 -%}
+                      <a href="{{ redir_url | relative_link }}" hx-target="#tag_{{ forloop.index0 }}"
+                        hx-swap="innerHTML show:#redir_{{ forloop.index0 }}:top">
+                        Edit
+                      </a>
+                      {% unless forloop.first %}
+                        <span class="text-muted"> &bull; </span>
+                        {%- assign move_up = redir_url | append: "/up" | relative_link -%}
+                        <a href="{{ move_up }}" hx-post="{{ move_up }}">Move Up</a>
+                      {% endunless %}
+                      {% unless forloop.last %}
+                        <span class="text-muted"> &bull; </span>
+                        {%- assign move_down = redir_url | append: "/down" | relative_link -%}
+                        <a href="{{ move_down }}" hx-post="{{ move_down }}">Move Down</a>
+                      {% endunless %}
+                      <span class="text-muted"> &bull; </span>
+                      {%- assign del_url = redir_url | append: "/delete" | relative_link -%}
+                      <a href="{{ del_url }}" hx-post="{{ del_url }}" class="text-danger">Delete</a>
+                    </small>
+                  </div>
+                  <div class="col">{{ redir.to }}</div>
+                  <div class="col">{% if redir.is_regex %}Yes{% else %}No{% endif %}</div>
+                </div>
+              {%- endfor %}
+          </form>
+        {%- else -%}
+          <div id="tag_new">
+            <p class="text-muted text-center fst-italic">This web log has no redirect rules defined</p>
+          </div>
+        {%- endif %}
+      </div>
+    </div>
+  </div>
+</article>
diff --git a/src/admin-theme/settings.liquid b/src/admin-theme/settings.liquid
index ab956f8..92c5649 100644
--- a/src/admin-theme/settings.liquid
+++ b/src/admin-theme/settings.liquid
@@ -2,7 +2,8 @@
 <article>
   <p class="text-muted">
     Go to: <a href="#users">Users</a> &bull; <a href="#rss-settings">RSS Settings</a> &bull;
-    <a href="#tag-mappings">Tag Mappings</a>
+    <a href="#tag-mappings">Tag Mappings</a> &bull;
+    <a href="{{ "admin/redirect-rules" | relative_link }}">Redirect Rules</a>
   </p>
   <fieldset class="container mb-3">
     <legend>Web Log Settings</legend>
diff --git a/src/admin-theme/version.txt b/src/admin-theme/version.txt
index 821af72..eb1fc5a 100644
--- a/src/admin-theme/version.txt
+++ b/src/admin-theme/version.txt
@@ -1,2 +1,2 @@
 myWebLog Admin
-2.0.0
\ No newline at end of file
+2.1.0
\ No newline at end of file