]>
Commit | Line | Data |
---|---|---|
01ba3ddc MG |
1 | #!/usr/bin/perl |
2 | use 5.014000; | |
3 | use warnings; | |
4 | ||
5 | use App::Web::NAOdash; | |
6 | use Plack::Builder; | |
7 | ||
8 | builder { | |
9 | mount '/dash/' => App::Web::NAOdash->new->to_app; | |
10 | mount '/json/' => App::Web::NAOdash->new(json => 1)->to_app; | |
11 | mount '/ok' => sub { [200, [], []] }; | |
12 | mount '/' => sub { App::Web::NAOdash::reply(404, 'Try /dash/USERNAME or /json/USERNAME')}; | |
13 | } |