X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FCommon.pm;h=37cdf710fc60e21223a52f01a7b00fe379f262ad;hb=4aa8ba862bf3a79362df73c3d1e8707e8135af23;hp=258f7e753bcf9537d5825dd8a2704fc852275995;hpb=e5a94ee5c11e9e9045a70ae2d33aa039b2259f35;p=plack-app-gruntmaster.git

diff --git a/lib/Gruntmaster/Page/Common.pm b/lib/Gruntmaster/Page/Common.pm
index 258f7e7..37cdf71 100644
--- a/lib/Gruntmaster/Page/Common.pm
+++ b/lib/Gruntmaster/Page/Common.pm
@@ -4,15 +4,18 @@ use 5.014000;
 use strict;
 use warnings;
 use parent qw/Exporter/;
-our @EXPORT_OK = qw/header footer/;
+our @EXPORT_OK = qw/header footer cook_templates reload_templates/;
 
-my %header_templates = (
+use File::Slurp qw/read_file/;
+
+my %orig_header_templates = (
   en => <<'HTML',
 <!DOCTYPE html>
 <title>TITLE_GOES_HERE</title>
 <link rel="stylesheet" href="/gm.css">
-<script src="/jquery-2.0.3.min.js"></script>
-<script src="/view.js"></script>
+<script src="/zepto.var" defer></script>
+<script src="/view.js" defer></script>
+<script src="/form.js" defer></script>
 <meta charset="utf-8">
 
 <span id="admin"></span>
@@ -24,7 +27,7 @@ my %header_templates = (
 HTML
 );
 
-my %footer_templates = (
+my %orig_footer_templates = (
   en => <<'HTML',
 
 <footer>
@@ -35,13 +38,42 @@ Dilmom: Well, it's a stripped-down version of the Gruntmaster 9000, of course. B
 HTML
 );
 
+sub patch_templates {
+	my $root = $ENV{GRUNTMASTER_TEMPLATE_ROOT} or return;
+	my ($templates, $name) = @_;
+	my %out = %$templates;
+	for (<$root/$name*>) {
+		m/\.(.+)$/;
+		$out{$1} = read_file $_
+	}
+
+	%out
+}
+
+my %header_templates = patch_templates \%orig_header_templates, 'header';
+my %footer_templates = patch_templates \%orig_footer_templates, 'footer';
+
+sub reload_templates () { $ENV{GRUNTMASTER_RELOAD_TEMPLATES} }
+
 sub header{
   my ($language, $title) = @_;
+  %header_templates = patch_templates \%orig_header_templates, 'header' if reload_templates;
   $header_templates{$language} =~ s/TITLE_GOES_HERE/$title/ger;
 }
 
 sub footer{
+  %footer_templates = patch_templates \%orig_footer_templates, 'footer' if reload_templates;
   $footer_templates{$_[0]};
 }
 
+sub cook_templates (\%@) {
+	my ($templates, $name, $title) = @_;
+
+	my %out = patch_templates $templates, $name;
+	$out{$_}  = header ($_, $title) . $out{$_} for keys %out;
+	$out{$_} .= footer  $_  for keys %out;
+
+	%out
+}
+
 1;
