67 lines
1.3 KiB
Perl
Executable File
67 lines
1.3 KiB
Perl
Executable File
#!/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
|