From 5b4efdd292d84028a4222c3592d86b547db96574 Mon Sep 17 00:00:00 2001
From: Cadence Ember <cadence@disroot.org>
Date: Thu, 13 Oct 2022 22:40:14 +1300
Subject: [PATCH] Add a funny redirect that I can make use of later

---
 breezewiki.rkt          |  2 ++
 dist.rkt                |  2 ++
 src/dispatcher-tree.rkt |  1 +
 src/page-home.rkt       |  2 +-
 src/page-it-works.rkt   | 15 +++++++++++++++
 5 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 src/page-it-works.rkt

diff --git a/breezewiki.rkt b/breezewiki.rkt
index 3fc9b8f..a8b8c28 100644
--- a/breezewiki.rkt
+++ b/breezewiki.rkt
@@ -12,6 +12,7 @@
 (require-reloadable "src/page-category.rkt" page-category)
 (require-reloadable "src/page-global-search.rkt" page-global-search)
 (require-reloadable "src/page-home.rkt" page-home)
+(require-reloadable "src/page-it-works.rkt" page-it-works)
 (require-reloadable "src/page-not-found.rkt" page-not-found)
 (require-reloadable "src/page-proxy.rkt" page-proxy)
 (require-reloadable "src/page-redirect-wiki-home.rkt" redirect-wiki-home)
@@ -35,6 +36,7 @@
       page-category
       page-global-search
       page-home
+      page-it-works
       page-not-found
       page-proxy
       page-search
diff --git a/dist.rkt b/dist.rkt
index 805df48..777e81a 100644
--- a/dist.rkt
+++ b/dist.rkt
@@ -6,6 +6,7 @@
 (require (only-in "src/page-category.rkt" page-category))
 (require (only-in "src/page-global-search.rkt" page-global-search))
 (require (only-in "src/page-home.rkt" page-home))
+(require (only-in "src/page-it-works.rkt" page-it-works))
 (require (only-in "src/page-not-found.rkt" page-not-found))
 (require (only-in "src/page-proxy.rkt" page-proxy))
 (require (only-in "src/page-redirect-wiki-home.rkt" redirect-wiki-home))
@@ -24,6 +25,7 @@
     page-category
     page-global-search
     page-home
+    page-it-works
     page-not-found
     page-proxy
     page-search
diff --git a/src/dispatcher-tree.rkt b/src/dispatcher-tree.rkt
index b68cf9c..9e072bc 100644
--- a/src/dispatcher-tree.rkt
+++ b/src/dispatcher-tree.rkt
@@ -44,6 +44,7 @@
               (pathprocedure:make "/" (hash-ref ds 'page-home))
               (pathprocedure:make "/proxy" (hash-ref ds 'page-proxy))
               (pathprocedure:make "/search" (hash-ref ds 'page-global-search))
+              (pathprocedure:make "/buddyfight/wiki/It_Doesn't_Work!!" (hash-ref ds 'page-it-works))
               (filter:make (pregexp (format "^/~a/wiki/Category:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-category)))
               (filter:make (pregexp (format "^/~a/wiki/File:.+$" px-wikiname)) (lift:make (hash-ref ds 'page-file)))
               (filter:make (pregexp (format "^/~a/wiki/.+$" px-wikiname)) (lift:make (hash-ref ds 'page-wiki)))
diff --git a/src/page-home.rkt b/src/page-home.rkt
index b16f66a..86c316d 100644
--- a/src/page-home.rkt
+++ b/src/page-home.rkt
@@ -49,7 +49,7 @@
                       ,(apply format "~a: ~a" x))))
             examples))
     (h2 "Testimonials")
-    (p (@ (class "testimonial")) ">So glad to never have to touch fandom's garbage platform directly ever again —RNL")
+    (p (@ (class "testimonial")) ">so glad someone introduced me to a F*ndom alternative (BreezeWiki) because that x-factorized spillway of an ad-infested radioactive dumpsite can go die in a fire —RB")
     (p (@ (class "testimonial")) ">you are so right that fandom still sucks even with adblock somehow. even zapping all the stupid padding it still sucks —Minimus")
     (p (@ (class "testimonial")) ">attempting to go to a wiki's forum page with breezewiki doesn't work, which is based honestly —Tom Skeleton")
     (p (@ (class "testimonial")) ">Fandom pages crashing and closing, taking forever to load and locking up as they load the ads on the site... they are causing the site to crash because they are trying to load video ads both at the top and bottom of the site as well as two or three banner ads, then a massive top of site ad and eventually my anti-virus shuts the whole site down because it's literally pulling more resources than WoW in ultra settings... —Anonymous")
diff --git a/src/page-it-works.rkt b/src/page-it-works.rkt
new file mode 100644
index 0000000..ce9e05f
--- /dev/null
+++ b/src/page-it-works.rkt
@@ -0,0 +1,15 @@
+#lang racket/base
+(require racket/dict
+         net/url
+         web-server/http
+         web-server/dispatchers/dispatch
+         "application-globals.rkt")
+
+(provide
+ page-it-works)
+
+(define (page-it-works req)
+  (define b? (dict-ref (url-query (request-uri req)) 'b #f))
+  (if b?
+      (generate-redirect "/stampylongnose/wiki/It_Works")
+      (next-dispatcher)))