X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FBase.pm;h=ee8a3101768148125a468ce5bb71f55d5348ad4c;hb=9e1979aeb2725b7548115832fa696393772340bd;hp=cf29eacc3c56962148f012739c16bc36b0260aee;hpb=1053baeebc541fc3508aabb6121759bb4a884e23;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/Base.pm b/lib/Gruntmaster/Page/Base.pm index cf29eac..ee8a310 100644 --- a/lib/Gruntmaster/Page/Base.pm +++ b/lib/Gruntmaster/Page/Base.pm @@ -31,7 +31,7 @@ sub import { local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1; $_[0]->{'psgix.logger'}->({qw/level debug message/ => $_[1]}) }; - *{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain'], [ @_ ] ] }; + *{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain', 'Cache-Control' => 'no-cache'], [ @_ ] ] }; *{"${caller}::purge"} = sub { return unless $ENV{PURGE_HOST}; my $req = HTTP::Request->new(PURGE => "http://$ENV{PURGE_HOST}$_[0]"); @@ -44,18 +44,19 @@ sub import { my %orig_header_templates = ( en => <<'HTML', -TITLE_GOES_HERE +TITLE_GOES_HERE | MindCoding - + +