#!/usr/bin/env perl
# Dancer2 fileuploader
# essential to set DANCER_ENVIRONMENT before calling D2 or defaults to development
BEGIN {
$ENV{DANCER_APPHANDLER} = 'PSGI';
$ENV{DANCER_ENVIRONMENT} = $ENV{PLACK_ENV} = 'production';
}
# for development debugging:
BEGIN {
use lib (
'/home/raj/perl5/lib/perl5',
'/home/raj/apps/FileUploader-D2/lib',
);
use autodie;
# causes "Software caused connection abort: Failed to flush CGI output to client":
close STDERR;
open STDERR, '>>', '/home/raj/apps/FileUploader-D2/logs/debug.txt'; # doesn't record 'die' events
}
use Dancer2 0.2;
use Plack::Runner;
# For some reason Apache SetEnv directives dont propagate
# correctly to the dispatchers, so forcing PSGI and env here
# is safer.
set apphandler => 'PSGI';
set environment => 'production'; # doesn't work - set in BEGIN block above
my $psgi = '/home/raj/apps/FileUploader-D2/bin/app.psgi';
die "Unable to read startup script: $psgi" unless -r $psgi;
Plack::Runner->run($psgi);