From 376cbd3274af2667220fb97d211627bff6a82e14 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Thu, 16 May 2013 16:41:48 +0100
Subject: [PATCH] Admin email address variable substitution.

---
 Webperl/Template.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Webperl/Template.pm b/Webperl/Template.pm
index f38f79c..38465c8 100644
--- a/Webperl/Template.pm
+++ b/Webperl/Template.pm
@@ -116,6 +116,7 @@
 #    paths inside the common template). This will always have a trailing '/'.
 # - `{V_[sitename]}` is replaced by the name of the site in the 'site_name'
 #    configuration value.
+# - `{V_[admin_email]}` is replaced by the site admin email address.
 package Webperl::Template;
 
 use POSIX qw(strftime);
@@ -540,6 +541,7 @@ sub fix_variables {
     $$textref =~ s/{V_\[templatepath\]}/$self->{templatepath}/g;
     $$textref =~ s/{V_\[commonpath\]}/$self->{commonpath}/g;
     $$textref =~ s/{V_\[sitename\]}/$self->{settings}->{config}->{site_name}/g;
+    $$textref =~ s/{V_\[admin_email\]}/$self->{settings}->{config}->{Core:admin_email}/g;
 
     # Do any module marker replacements if we can
     if($self -> {"modules"}) {