From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 31 Jul 2006 15:01:26 +0000 (+0200)
Subject: Make templates fallback to "default" if they are incomplete.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=5855094b0bb9c8a678db12e0750cd4c2a648ef6a

Make templates fallback to "default" if they are incomplete.
---

diff --git a/perl/Sesse/pr0n/Templates.pm b/perl/Sesse/pr0n/Templates.pm
index 4227486..8ff1e03 100644
--- a/perl/Sesse/pr0n/Templates.pm
+++ b/perl/Sesse/pr0n/Templates.pm
@@ -58,6 +58,7 @@ sub fetch_template {
 
 	my $base = $r->dir_config('TemplateBase');
 	open TEMPLATE, "<$base/$dir/$template"
+		or ($dir ne 'default' and open TEMPLATE, "<$base/default/$template")
 		or Sesse::pr0n::Common::error($r, "Couldn't open $dir/$template: $!");
 
 	local $/;