Bug $id -- " . html_quote($bug{'short_desc'}) .

From a59f318781f4f189484ba21206119c36ef3becf8 Mon Sep 17 00:00:00 2001 From: "bryce-mozilla%nextbus.com" <> Date: Tue, 15 Jun 1999 11:25:28 +0000 Subject: Fix several browsers, Lynx and Opera at least. HTML syntax errors here and there were fixed, and serverpush was restricted only to the versions of Mozilla known to support it. --- bug_form.pl | 9 ++------- buglist.cgi | 19 ++++++++++--------- query.cgi | 4 +--- show_bug.cgi | 3 +++ 4 files changed, 16 insertions(+), 19 deletions(-) diff --git a/bug_form.pl b/bug_form.pl index a2fb1056b..9a59ed94d 100644 --- a/bug_form.pl +++ b/bug_form.pl @@ -207,8 +207,6 @@ if (defined $URL && $URL ne "none" && $URL ne "NULL" && $URL ne "") { } print " -Bug $id -- " . html_quote($bug{'short_desc'}) . - " - +

Description:

Opened: $bug{'creation_ts'}

@@ -472,9 +470,6 @@ print "
 # long_list.cgi line:
 #  Edit Long Description
 
-
 navigation_header();
 
-print "\n";
-
 1;
diff --git a/buglist.cgi b/buglist.cgi
index 19fc96940..2aae1de05 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -25,11 +25,13 @@ use strict;
 require "CGI.pl";
 use Date::Parse;
 
-my $serverpush = 1;
+my $serverpush = 0;
 
-if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) {
-    # Internet explorer doesn't seem to understand server push.  What fun.
-    $serverpush = 0;
+if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla.[3-9]/ && $ENV{'HTTP_USER_AGENT'} !~ /[Cc]ompatible/ ) {
+   # Search for real Netscape 3 and up.  http://www.browsercaps.org used as source of
+   # browsers compatbile with server-push.  It's a Netscape hack, incompatbile
+   # with MSIE and Lynx (at least).
+   $serverpush = 1;
 }
 
 if ($serverpush) {
@@ -121,11 +123,10 @@ Content-type: text/html
 
 
 OK, default is set.
-OK, you now have a new default query.
+OK, you now have a new default query.  You may also bookmark the result of any
+individual query.
 
-
-
-Go back to the query page, using the new default.
+
Go back to the query page, using the new default.
 ";
         exit;
     };
@@ -821,7 +822,7 @@ if ($count > 0) {
    Change columns
 ";
     if (!$dotweak && $count > 1) {
-        print "Make changes to several of these bugs at once.\n";
+        print "Change several bugs at once\n";
     }
 }
 if ($serverpush) {
diff --git a/query.cgi b/query.cgi
index 54362fabd..b9a0c34d6 100755
--- a/query.cgi
+++ b/query.cgi
@@ -437,7 +437,7 @@ changed.
 
 Program:
 Version:
-Component:
+Component:
 ";
 
 if (Param("usetargetmilestone")) {
@@ -509,7 +509,6 @@ print "
 
 
 
-
 ";
 
 StringSearch("Summary", "short_desc");
@@ -560,7 +559,6 @@ print "
 
Give me a clue about how to use this form.
-
 
 ";
diff --git a/show_bug.cgi b/show_bug.cgi
index b2e747297..927d52688 100755
--- a/show_bug.cgi
+++ b/show_bug.cgi
@@ -52,3 +52,6 @@ print "\n";
 
 $! = 0;
 do "bug_form.pl" || die "Error doing bug_form.pl: $!";
+print "";
+print "\n";
+
-- 
cgit v1.2.1