[nethack-naodash.git] / app.psgi

#!/usr/bin/perl
use 5.014000;
use warnings;

use App::Web::NAOdash;
use File::Slurp;
use Plack::Builder;

my $index = read_file 'web/index.html';

builder {
	mount '/dash/' => App::Web::NAOdash->new->to_app;
	mount '/json/' => App::Web::NAOdash->new(json => 1)->to_app;
	mount '/ok' => sub { [200, [], []] };
	mount '/' => sub {
		[200, [
			'Cache-Control' => 'max-age=86400',
			'Content-Type' => "text/html; charset=utf-8",
			'Content-Length' => length $index,
		], [$index]]
	};
}
Commit	Line	Data
01ba3ddc MG	1	#!/usr/bin/perl
	2	use 5.014000;
	3	use warnings;
	4
	5	use App::Web::NAOdash;
42f966d6	6	use File::Slurp;
01ba3ddc MG	7	use Plack::Builder;
01ba3ddc MG	8
42f966d6 MG	9	my $index = read_file 'web/index.html';
42f966d6 MG	10
01ba3ddc MG	11	builder {
	12	mount '/dash/' => App::Web::NAOdash->new->to_app;
	13	mount '/json/' => App::Web::NAOdash->new(json => 1)->to_app;
	14	mount '/ok' => sub { [200, [], []] };
42f966d6 MG	15	mount '/' => sub {
	16	[200, [
	17	'Cache-Control' => 'max-age=86400',
	18	'Content-Type' => "text/html; charset=utf-8",
	19	'Content-Length' => length $index,
	20	], [$index]]
	21	};
01ba3ddc	22	}