From 76669f6c298bcf3f69a0e1df5c524a7cff3e367d Mon Sep 17 00:00:00 2001 From: Pasha Date: Sat, 20 Jan 2024 10:09:23 +0000 Subject: initial commit --- web/NetUseAdminWeb/public/dispatch.cgi | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100755 web/NetUseAdminWeb/public/dispatch.cgi (limited to 'web/NetUseAdminWeb/public/dispatch.cgi') diff --git a/web/NetUseAdminWeb/public/dispatch.cgi b/web/NetUseAdminWeb/public/dispatch.cgi new file mode 100755 index 0000000..8a15355 --- /dev/null +++ b/web/NetUseAdminWeb/public/dispatch.cgi @@ -0,0 +1,33 @@ +#!/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); -- cgit v1.2.1