diff options
author | Dylan William Hardison <dylan@hardison.net> | 2018-05-21 20:14:53 +0200 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-06-28 22:41:56 +0200 |
commit | 3d8dc32afa0131e2ac0cd121b492aed8ad59fc11 (patch) | |
tree | 2d3489acbaa726ff7daaee0758c2bbd50c8fe13a /Bugzilla/PSGI.pm | |
parent | 15661bf793105352c3cf0d84d6c7e790be838a78 (diff) | |
download | bugzilla-3d8dc32afa0131e2ac0cd121b492aed8ad59fc11.tar.gz bugzilla-3d8dc32afa0131e2ac0cd121b492aed8ad59fc11.tar.xz |
working more
Diffstat (limited to 'Bugzilla/PSGI.pm')
-rw-r--r-- | Bugzilla/PSGI.pm | 43 |
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; |