29 lines
639 B
Perl
Executable File
29 lines
639 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
BEGIN {
|
|
# stuff useful locations into @INC and $PATH
|
|
use Config;
|
|
use FindBin;
|
|
FindBin::again();
|
|
use Path::Class 'dir';
|
|
|
|
my $location = $FindBin::RealBin;
|
|
$ENV{PATH} = $location . $Config{path_sep} . $ENV{PATH};
|
|
unshift @INC,
|
|
dir($location)->parent->subdir('lib')->stringify,
|
|
dir($location, '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'));
|
|
|
|
use App::Netdisco::Web;
|
|
dance;
|