From a38a867d0a651dcc501a28967ad00c025916550b Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 12 May 2022 11:51:42 +0100
Subject: [PATCH] mason/dhandler, mason/.perl-lib/TrivGal: Publish and use
 `$SRCURL'.

---
 mason/.perl-lib/TrivGal.pm | 3 +++
 mason/dhandler             | 3 +--
 2 files changed, 4 insertions(+), 2 deletions(-)

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";
-- 
2.11.0