()

Fandom sends a fake 404 to media if there's a Referer header that has an origin
that's not Fandom. However, we can choose not to send the header by setting
Referrer-Policy. See also:
https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/Referrer-Policy

src/page-file.rkt

@@ -25,17 +25,7 @@
 (module+ test
   (require rackunit)
   (define test-media-detail
-    '#hasheq((fileTitle . "Example file")
+    '#hasheq((fileTitle . "Example file") (videoEmbedCode . "") (imageUrl . "https://static.wikia.nocookie.net/examplefile") (rawImageUrl . "https://static.wikia.nocookie.net/examplefile") (userName . "blankie") (isPostedIn . #t) (smallerArticleList . (#hasheq((title . "Example_article") (titleText . "Example article")))) (articleListIsSmaller . 0) (exists . #t) (imageDescription . #f))))
-             (videoEmbedCode . "")
-             (imageUrl . "https://static.wikia.nocookie.net/examplefile")
-             (rawImageUrl . "https://static.wikia.nocookie.net/examplefile")
-             (userName . "blankie")
-             (isPostedIn . #t)
-             (smallerArticleList . (#hasheq((title . "Example_article")
-                                            (titleText . "Example article"))))
-             (articleListIsSmaller . 0)
-             (exists . #t)
-             (imageDescription . #f))))
 
 (define (url-content-type url)
   (log-outgoing url)
@@ -73,29 +63,29 @@
    #:wikiname wikiname
    #:title title
    #:license license
-   `(div ,(if (non-empty-string? video-embed-code)
+   `(div
-              (update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname)
+     ,(if (non-empty-string? video-embed-code)
-              (get-media-html image-url image-content-type))
+          (update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname)
-         (p ,(if (non-empty-string? video-embed-code)
+          (get-media-html image-url image-content-type))
-                 `""
+     (p ,(if (non-empty-string? video-embed-code)
-                 `(span (a (@ (href ,maybe-proxied-raw-image-url)) "View original file") ". "))
+             `""
-            "Added by "
+             `(span (a (@ (href ,maybe-proxied-raw-image-url)) "View original file") ". "))
-            (a (@ (href ,(format "/~a/wiki/User:~a" wikiname username))) ,username)
+        "Added by "
-            "."
+        (a (@ (href ,(format "/~a/wiki/User:~a" wikiname username))) ,username)
-            ,(if is-posted-in
+        "."
-                 `(span " Posted in "
+        ,(if is-posted-in
-                        ,@(map (λ (article)
+             `(span " Posted in "
-                                 (define page-path (jp "/title" article))
+                    ,@(map (λ (article)
-                                 (define title (jp "/titleText" article page-path))
+                             (define page-path (jp "/title" article))
-                                 `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
+                             (define title (jp "/titleText" article page-path))
-                                        (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path)))
+                             `(span ,(if (eq? (car smaller-article-list) article) "" ", ")
-                                           ,title)))
+                                    (a (@ (href ,(format "/~a/wiki/~a" wikiname page-path))) ,title)))
-                               smaller-article-list)
+                           smaller-article-list)
-                        ,(if (eq? article-list-is-smaller 1) "…" "."))
+                    ,(if (eq? article-list-is-smaller 1) "…" "."))
-                 `""))
+             `""))
-         ,(if (string? image-description)
+     ,(if (string? image-description)
-              (update-tree-wiki (html->xexp (preprocess-html-wiki image-description)) wikiname)
+          (update-tree-wiki (html->xexp (preprocess-html-wiki image-description)) wikiname)
-              ""))))
+          ""))))
 
 (define (page-file req)
   (define wikiname (path/param-path (first (url-path (request-uri req)))))
@@ -156,11 +146,10 @@
   (check-equal? (get-media-html "https://example.com" #f) `""))
 (module+ test
   (parameterize ([(config-parameter 'strict_proxy) "true"])
-    (check-not-false
+    (check-not-false ((query-selector (attribute-selector 'src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fexamplefile")
-     ((query-selector
+                                      (generate-results-page
-       (attribute-selector 'src "/proxy?dest=https%3A%2F%2Fstatic.wikia.nocookie.net%2Fexamplefile")
+                                       #:source-url ""
-       (generate-results-page #:source-url ""
+                                       #:wikiname "test"
-                              #:wikiname "test"
+                                       #:title "File:Example file"
-                              #:title "File:Example file"
+                                       #:media-detail test-media-detail
-                              #:media-detail test-media-detail
+                                       #:image-content-type "image/jpeg"))))))
-                              #:image-content-type "image/jpeg"))))))