X-Git-Url: https://git.distorted.org.uk/~mdw/tgal/blobdiff_plain/551a3ba41e0d76cdf1097096aacdbb4c41732e8e..9601c4bb6178c613e096ac17d581790f25d5ec60:/mason/dhandler

diff --git a/mason/dhandler b/mason/dhandler
index aca88bb..ef7044c 100755
--- a/mason/dhandler
+++ b/mason/dhandler
@@ -146,6 +146,9 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
 	my ($dir, $base, $ext) = split_path $path;
 	my $real = join_paths $IMGROOT, $path;
 	my $img = TrivGal::Image->new($path);
+
+	if (defined $scale) { $m->redirect($img->scale($scale)); }
+
 	my $url = join_paths $IMGURL, $path;
 	my $realdir = join_paths $IMGROOT, $dir;
 	my $urldir = join_paths $SCRIPTURL, $dir;
@@ -215,6 +218,7 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
 %
 <%args>
 	$path
+	$scale => undef
 </%args>
 </%def>
 %