X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FBase.pm;h=9622d2ae621849d2f7be00e8c673953f2e09cd6c;hb=ab28c7bc7c201406bfc1c5d6319b26af92c7b953;hp=1741b30c5cdfbd483cd56b7531da63ce51f699bb;hpb=dfe9fad19b62489af03cdd2fd29cc5057536b483;p=plack-app-gruntmaster.git
diff --git a/lib/Gruntmaster/Page/Base.pm b/lib/Gruntmaster/Page/Base.pm
index 1741b30..9622d2a 100644
--- a/lib/Gruntmaster/Page/Base.pm
+++ b/lib/Gruntmaster/Page/Base.pm
@@ -4,7 +4,6 @@ use 5.014000;
use strict;
use warnings;
-use Encode qw/encode/;
use File::Slurp qw/read_file/;
use HTML::Template::Compiled;
@@ -13,6 +12,9 @@ use HTML::Template::Compiled;
use POSIX ();
use Gruntmaster::Data ();
use List::Util ();
+use LWP::UserAgent;
+
+my $ua = LWP::UserAgent->new;
sub import {
my $caller = caller;
@@ -27,7 +29,13 @@ sub import {
*{"${caller}::TITLE"} = sub () { $title };
*{"${caller}::debug"} = sub {
local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
- $_[0]->({qw/level debug message/ => $_[1]})
+ $_[0]->{'psgix.logger'}->({qw/level debug message/ => $_[1]})
+ };
+ *{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain'], [ @_ ] ] };
+ *{"${caller}::purge"} = sub {
+ return unless $ENV{PURGE_HOST};
+ my $req = HTTP::Request->new(PURGE => "http://$ENV{PURGE_HOST}$_[0]");
+ $ua->request($req)
};
}
@@ -52,7 +60,7 @@ my %orig_header_templates = (
@@ -75,15 +83,21 @@ my %orig_header_templates = (
-
iEval
-
TITLE_GOES_HERE
+
TITLE_GOES_HERE
+
+
HTML
);
my %orig_footer_templates = (
en => <<'HTML',
+
+
+
+
+