#!/usr/bin/env perl # NetUseMod is a program to moderate Usenet posts via web interface. # Copyright (C) 2024 Salahuddin # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . BEGIN { $ENV{DANCER_APPHANDLER} = 'PSGI';} use Dancer2; use FindBin '$RealBin'; use Plack::Runner; # For some reason Apache SetEnv directives don't propagate # correctly to the dispatchers, so forcing PSGI and env here # is safer. set apphandler => 'PSGI'; set environment => 'production'; my $psgi = path($RealBin, '..', 'bin', 'app.psgi'); die "Unable to read startup script: $psgi" unless -r $psgi; Plack::Runner->run($psgi);