From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 12 May 2022 10:51:42 +0000 (+0100)
Subject: mason/dhandler, mason/.perl-lib/TrivGal: Publish and use `$SRCURL'.
X-Git-Url: https://git.distorted.org.uk/~mdw/tgal/commitdiff_plain/a38a867d0a651dcc501a28967ad00c025916550b

mason/dhandler, mason/.perl-lib/TrivGal: Publish and use `$SRCURL'.
---

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index 4a41612..b9231b0 100644
--- a/mason/.perl-lib/TrivGal.pm
+++ b/mason/.perl-lib/TrivGal.pm
@@ -138,6 +138,9 @@ our $CACHEURL //= "$ROOTURL/tgal-cache";
 our $STATICURL //= "$ROOTURL/tgal-static";
 our $SCRIPTURL;
 
+export qw{$SRCURL};
+our $SRCURL = "https://git.distorted.org.uk/~mdw/tgal/";
+
 export qw{%SIZE};
 our %SIZE = (smallthumb => 96,
 	     medthumb => 144,
diff --git a/mason/dhandler b/mason/dhandler
index 24b5026..88febcf 100755
--- a/mason/dhandler
+++ b/mason/dhandler
@@ -290,8 +290,7 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
     terms of the
     <a rel=license href="https://www.gnu.org/licenses/agpl-3.0.en.html">GNU Affero
     General Public License version 3</a>.
-    Browse or download
-    the <a href="https://git.distorted.org.uk/~mdw/tgal/">source code</a>.
+    Browse or download the <a href="<% $SRCURL %>">source code</a>.
   </div>
 % my $user =
 %   find_covering_file $IMGROOT, $path, ".tgal-footer.html";