use Gruntmaster::Data;
use Plack::App::Gruntmaster::HTML;
-use Email::Sender::Simple qw/sendmail/;
-use Email::Simple;
-
use warnings NONFATAL => 'all';
no warnings 'illegalproto';
cpp => 'text/x-c++src',
cs => 'text/x-csharp', # Used by GNOME. Not in mime.types.
go => 'text/plain', # ?
+ gs => 'text/plain',
hs => 'text/x-haskell',
java => 'text/x-java',
pas => 'text/x-pascal',
CPP => 'cpp',
GCCGO => 'go',
GOLANG => 'go',
+ GOLFSCRIPT => 'gs',
HASKELL => 'hs',
MONO => 'cs',
JAVA => 'java',
$vary .= ', Authorization' if $privacy eq 'private';
my @hdrs = ('X-Forever' => 1, 'Cache-Control' => "$privacy, max-age=$r->{maxage}", Vary => $vary);
return [200, ['Content-Type' => 'application/json; charset=utf-8', @hdrs], [encode_json $r->{params}]] if $format eq 'json';
- my $ret = render $r->{template}, 'en', title => $r->{title}, %{$r->{params}}, maybe static => $env->{HTTP_X_STATIC} + 1;
+ my $ret = render $r->{template}, 'en', title => $r->{title}, %{$r->{params}}, maybe static => $env->{HTTP_X_STATIC};
[200, ['Content-Type' => 'text/html; charset=utf-8', @hdrs], [encode 'UTF-8', $ret]]
},
},