From 0738603c1f499211b0bf4b0646eb2dd4ae1a30fe Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Wed, 30 Sep 1998 02:20:59 +0000 Subject: Don't do server-push if the user seems to be using Internet Explorer. --- buglist.cgi | 34 ++++++++++++++++++++++++---------- 1 file changed, 24 insertions(+), 10 deletions(-) diff --git a/buglist.cgi b/buglist.cgi index 9d364b785..8439ccbbd 100755 --- a/buglist.cgi +++ b/buglist.cgi @@ -22,12 +22,20 @@ 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; -require "CGI.pl"; +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": @@ -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"; +} -- cgit v1.2.3-24-g4f1b