| 1 | #!/usr/bin/perl |
| 2 | use 5.014000; |
| 3 | use warnings; |
| 4 | |
| 5 | use App::Web::NAOdash; |
| 6 | use File::Slurp; |
| 7 | use Plack::Builder; |
| 8 | |
| 9 | my $index = read_file 'web/index.html'; |
| 10 | |
| 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, [], []] }; |
| 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 | }; |
| 22 | } |