diff --git a/mozilla/webtools/bugzilla/buglist.cgi b/mozilla/webtools/bugzilla/buglist.cgi index 9d364b78521..8439ccbbd2f 100755 --- a/mozilla/webtools/bugzilla/buglist.cgi +++ b/mozilla/webtools/bugzilla/buglist.cgi @@ -22,13 +22,21 @@ use diagnostics; use strict; -print "Content-type: multipart/x-mixed-replace;boundary=thisrandomstring\n"; -print "\n"; -print "--thisrandomstring\n"; - - require "CGI.pl"; +my $serverpush = 1; + +if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) { + # Internet explorer doesn't seem to understand server push. What fun. + $serverpush = 0; +} + +if ($serverpush) { + print "Content-type: multipart/x-mixed-replace;boundary=thisrandomstring\n"; + print "\n"; + print "--thisrandomstring\n"; +} + # Shut up misguided -w warnings about "used only once": use vars @::legal_platform, @@ -290,9 +298,11 @@ if (defined $::FORM{'order'} && $::FORM{'order'} ne "") { $query .= $::FORM{'order'}; } -print "Please stand by ...
\n"; -if (defined $::FORM{'debug'}) { - print "
$query\n"; +if ($serverpush) { + print "Please stand by ...
\n"; + if (defined $::FORM{'debug'}) { + print "
$query\n"; + } } SendSQL($query); @@ -391,8 +401,10 @@ while (@row = FetchSQLData()) { my $buglist = join(":", @bugarray); -print "\n"; -print "--thisrandomstring\n"; +if ($serverpush) { + print "\n"; + print "--thisrandomstring\n"; +} my $toolong = 0; @@ -594,4 +606,6 @@ if ($count > 0) { print "Make changes to several of these bugs at once.\n"; } } -print "\n--thisrandomstring--\n"; +if ($serverpush) { + print "\n--thisrandomstring--\n"; +}