support path config option

2013-06-03 19:13:40 +01:00
parent 31ca119f84
commit 3d1185261a
3 changed files with 17 additions and 2 deletions
--- a/Netdisco/bin/netdisco-web-fg
+++ b/Netdisco/bin/netdisco-web-fg
@@ -34,7 +34,16 @@ set plack_middlewares => [
 ];

 use App::Netdisco::Web;
-dance;
+use Plack::Builder;
+
+my $app = sub {
+  my $env     = shift;
+  my $request = Dancer::Request->new(env => $env);
+  Dancer->dance($request);
+};
+
+my $path = (setting('path') || '/');
+builder { mount $path => $app };

 =head1 NAME