X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FBase.pm;h=3a58c188af55920d61d198f64206aab68d04201b;hb=191f4979def520b8be01554eb954c80ee42df38b;hp=b0b4c57fbac3cd784fa6bc32690ff44867697567;hpb=d1a026f7f722aa6223a256936420096eb221b2dd;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/Base.pm b/lib/Gruntmaster/Page/Base.pm index b0b4c57..3a58c18 100644 --- a/lib/Gruntmaster/Page/Base.pm +++ b/lib/Gruntmaster/Page/Base.pm @@ -4,6 +4,7 @@ use 5.014000; use strict; use warnings; +use Encode qw/encode/; use File::Slurp qw/read_file/; use HTML::Template::Compiled; @@ -24,6 +25,10 @@ sub import { *{"${caller}::strftime"} = \&POSIX::strftime; *{"${caller}::NAME"} = sub () { $name }; *{"${caller}::TITLE"} = sub () { $title }; + *{"${caller}::debug"} = sub { + local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1; + $_[0]->{'psgix.logger'}->({qw/level debug message/ => $_[1]}) + }; } ################################################## @@ -32,18 +37,46 @@ my %orig_header_templates = ( en => <<'HTML', TITLE_GOES_HERE - - - - + + + + + + + +
- -
iEval
TITLE_GOES_HERE
- - - +
HTML ); @@ -59,7 +92,8 @@ HTML ); sub patch_templates { - my $root = $ENV{GRUNTMASTER_TEMPLATE_ROOT} or return; + my $root = 'tmpl'; + return %{$_[0]} unless -d $root; my ($templates, $name) = @_; my %out = %$templates; for (<$root/$name.*>) { @@ -70,19 +104,15 @@ sub patch_templates { %out } -sub reload_templates (){ $ENV{GRUNTMASTER_RELOAD_TEMPLATES} } - my %header_templates = patch_templates \%orig_header_templates, 'header'; my %footer_templates = patch_templates \%orig_footer_templates, 'footer'; 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]}; } @@ -101,15 +131,19 @@ sub cook_templates { my %templates; sub generate{ - my ($self, $path, $lang) = @_; + my ($self, $lang, @args) = @_; - $templates{$self} = { cook_templates $self->TEMPLATES, $self->NAME => $self->TITLE } if !exists $templates{$self} or reload_templates; + $templates{$self} = { cook_templates $self->TEMPLATES, $self->NAME => $self->TITLE } unless exists $templates{$self}; my $htc = HTML::Template::Compiled->new(scalarref => \$templates{$self}{$lang}, default_escape => 'HTML',); - $self->_generate($htc, $path, $lang); - $htc->output + $self->_generate($htc, $lang, @args); + [200, ['Content-Type' => 'text/html', 'Content-Language' => $_[1], 'Vary' => 'Accept-Language'], [ encode 'UTF-8' => $htc->output ] ] } sub _generate {} +sub variants { + [ map { [ $_, 1, 'text/html', undef, undef, $_, undef ]} keys $_[0]->TEMPLATES ] +} + 1