#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
BEGIN {
if ($ENV{_} and $ENV{_} =~ m/netdisco-web-fg$/) {
die "You probably want: '~/bin/localenv starman $0 --workers=1 --disable-keepalive'\n";
}
}
use FindBin;
FindBin::again();
use Path::Class 'dir';
BEGIN {
# stuff useful locations into @INC
unshift @INC,
dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
dir($FindBin::RealBin, 'lib')->stringify;
}
use App::Netdisco;
use Dancer;
debug sprintf "App::Netdisco %s", ($App::Netdisco::VERSION || 'HEAD');
my $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
set(session_dir => dir($home, 'netdisco-web-sessions')->stringify);
set plack_middlewares => [
[ Expires => (
content_type => [qr{^application/javascript}, qr{^text/css}, qr{image}, qr{font}],
expires => 'access plus 1 day',
)],
[ Static => (
path => qr{^/(?:javascripts|css|font|images)/},
root => $ENV{DANCER_PUBLIC},
pass_through => 1,
)],
# install Dancer::Debug for this...
#[ Debug => (
# panels => [qw/Dancer::Settings Parameters Dancer::Version DBITrace/],
#)],
];
use App::Netdisco::Web;
use Plack::Builder;
my $path = (setting('path') || '/');
builder { mount $path => dance };
=head1 NAME
netdisco-web-fg - Web Application for Netdisco
=head1 SEE ALSO
=over 4
=item *
L<App::Netdisco>
=back
=cut