summaryrefslogtreecommitdiffstats
path: root/Bugzilla/PSGI.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla/PSGI.pm')
-rw-r--r--Bugzilla/PSGI.pm43
1 files changed, 0 insertions, 43 deletions
diff --git a/Bugzilla/PSGI.pm b/Bugzilla/PSGI.pm
deleted file mode 100644
index e2963ff7a..000000000
--- a/Bugzilla/PSGI.pm
+++ /dev/null
@@ -1,43 +0,0 @@
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, You can obtain one at http://mozilla.org/MPL/2.0/.
-#
-# This Source Code Form is "Incompatible With Secondary Licenses", as
-# defined by the Mozilla Public License, v. 2.0.
-
-package Bugzilla::PSGI;
-use 5.10.1;
-use strict;
-use warnings;
-
-use base qw(Exporter);
-
-use Bugzilla::Logging;
-our @EXPORT_OK = qw(compile_cgi);
-
-sub compile_cgi {
- my ($script) = @_;
- require CGI::Compile;
- require CGI::Emulate::PSGI;
-
- my $cgi = CGI::Compile->compile($script);
- my $app = CGI::Emulate::PSGI->handler(
- sub {
- Bugzilla::init_page();
- $ENV{PATH_INFO} = '' if $ENV{PATH_INFO} eq '/';
- $cgi->();
- }
- );
- return sub {
- my $env = shift;
- if ($env->{'psgix.cleanup'}) {
- push @{ $env->{'psgix.cleanup.handler'} }, \&Bugzilla::_cleanup;
- }
- my $res = $app->($env);
- Bugzilla::_cleanup() if not $env->{'psgix.cleanup'};
- return $res;
- };
-}
-
-
-1;