initial psgi support

1 files changed, 3 insertions, 17 deletions

diff --git a/Bugzilla.pm b/Bugzilla.pm
index 4a3dcb114..f2191f33b 100644
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -117,20 +117,6 @@ sub init_page {
     # 001compile.t test).
     return if $^C;
 
-    # IIS prints out warnings to the webpage, so ignore them, or log them
-    # to a file if the file exists.
-    if ($ENV{SERVER_SOFTWARE} && $ENV{SERVER_SOFTWARE} =~ /microsoft-iis/i) {
-        $SIG{__WARN__} = sub {
-            my ($msg) = @_;
-            my $datadir = bz_locations()->{'datadir'};
-            if (-w "$datadir/errorlog") {
-                my $warning_log = new IO::File(">>$datadir/errorlog");
-                print $warning_log $msg;
-                $warning_log->close();
-            }
-        };
-    }
-
     my $script = basename($0);
 
     # BMO - init metrics collection if required
@@ -369,7 +355,7 @@ sub login {
     return $class->user if $class->user->id;
 
     # Load all extensions here if not running under mod_perl
-    $class->extensions unless $ENV{MOD_PERL};
+    $class->extensions unless BZ_PERSISTENT;
 
     my $authorizer = new Bugzilla::Auth();
     $type = LOGIN_REQUIRED if $class->cgi->param('GoAheadAndLogIn');
@@ -902,10 +888,10 @@ sub _cleanup {
 
 sub END {
     # Bugzilla.pm cannot compile in mod_perl.pl if this runs.
-    _cleanup() unless $ENV{MOD_PERL};
+    _cleanup() unless BZ_PERSISTENT;
 }
 
-init_page() if !$ENV{MOD_PERL};
+init_page() unless BZ_PERSISTENT;
 
 1;