Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support site name configuration variable.

Browse Source
This commit is contained in:
Chris 2013-01-08 21:19:32 +00:00
parent 66ac535c73
commit 9e883ced44
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Webperl/Template.pm
View File

@ -114,6 +114,8 @@
# - `{V_[commonpath]}` is replaced by the path from the base of the web
# application to the common template directory (useful for image and other resource
# 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.
package Webperl::Template;
use POSIX qw(strftime);
@ -574,6 +576,7 @@ sub process_template {
$$textref =~ s/{V_\[scriptpath\]}/$self->{scriptpath}/g;
$$textref =~ s/{V_\[templatepath\]}/$self->{templatepath}/g;
$$textref =~ s/{V_\[commonpath\]}/$self->{commonpath}/g;
$$textref =~ s/{V_\[sitename\]}/$self->{settings}->{config}->{site_name}/g;
# Do any module marker replacements if we can
if($self -> {"modules"}) {