cvs commit: apache-site bugdb.cgi
coar99/10/14 19:51:38 Modified:.bugdb.cgi Log: The -T flag breaks too many things for now.. Revision ChangesPath 1.47 +1 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.46 retrieving revision 1.47 diff -u -r1.46 -r1.47 --- bugdb.cgi 1999/10/14 18:38:49 1.46 +++ bugdb.cgi 1999/10/15 02:51:36 1.47 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl -T +#!/usr/local/bin/perl # wwwgnats.pl - a WWW interface to the GNATS bug tracking system # Thanks to Larry Wall, CERN, and NCSA for Perl, WWW, and Mosaic!
cvs commit: apache-site bugdb.cgi
coar99/10/14 11:38:52
Modified:.bugdb.cgi
Log:
Assume that internal calls to timestamp() are safe; have it
untaint what it receives. (Fixes breakage caused by making -T
the default.)
Revision ChangesPath
1.46 +2 -0 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- bugdb.cgi 1999/10/09 05:00:07 1.45
+++ bugdb.cgi 1999/10/14 18:38:49 1.46
@@ -667,6 +667,8 @@
sub timestamp {
local($fname) = shift(@_);
+$fname =~ /(.*)/;
+$fname = $1;
open(TIMESTAMP, "$LSPROG -l $fname|")
|| die "Error: can't record the timestamp of the PR ($fname)";
($_=)=~ /\s(\S+\s+\S+\s+\S+)\s+\S+$/
cvs commit: apache-site bugdb.cgi
marc99/10/08 22:00:09
Modified:.bugdb.cgi
Log:
Add [ and ] to allowed characters. Some more work is required to make
full regexes work, but this is a reasonable solution for now.
Revision ChangesPath
1.45 +1 -1 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- bugdb.cgi 1999/10/08 23:40:06 1.44
+++ bugdb.cgi 1999/10/09 05:00:07 1.45
@@ -373,7 +373,7 @@
sub check_unsafe
{
local($str) = $_[0];
-unless($str =~ /[EMAIL PROTECTED] ]+$/) {
+unless($str =~ /[EMAIL PROTECTED] ]+$/) {
print "INVALID INPUT: $str\n";
die("$0: invalid character (breakin attempt?) in \"$str\"");
}
cvs commit: apache-site bugdb.cgi
marc99/10/08 16:40:06
Modified:.bugdb.cgi
Log:
Ensure that we validate all input from the user before we pass it
to any command lines. If it doesn't look safe, die. This list
may be too restrictive in certain cases, but if so it can be dealt
with.
Revision ChangesPath
1.44 +15 -1 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- bugdb.cgi 1999/10/08 17:33:11 1.43
+++ bugdb.cgi 1999/10/08 23:40:06 1.44
@@ -1,9 +1,10 @@
-#!/usr/local/bin/perl
+#!/usr/local/bin/perl -T
# wwwgnats.pl - a WWW interface to the GNATS bug tracking system
# Thanks to Larry Wall, CERN, and NCSA for Perl, WWW, and Mosaic!
require "/usr/local/lib/gnats/libgnats.pl";
use POSIX;
+$ENV{PATH}="/bin:/usr/bin:/usr/local/bin";
Configuration begins here
@@ -369,6 +370,15 @@
return $str;
}
+sub check_unsafe
+{
+local($str) = $_[0];
+unless($str =~ /[EMAIL PROTECTED] ]+$/) {
+ print "INVALID INPUT: $str\n";
+ die("$0: invalid character (breakin attempt?) in \"$str\"");
+}
+}
+
# Make text safe to display in an HTML stream
sub html_escape
{
@@ -1223,6 +1233,7 @@
$oldval = "nobody|^\$";
}
# Convert this key into a query-pr option
+ &check_unsafe($oldval);
$opts = " --originator=\"$oldval\"";
# The originator cares about bugs which are in feedback state.
$opts .= " --state=\"feedback\"";
@@ -1242,6 +1253,7 @@
}
if ($nickname ne "") {
# Convert this key into a query-pr option
+ &check_unsafe($nickname);
$opts = " --responsible=\"$nickname\"";
# Responsible person cares about bugs which are open or analyzed.
$opts .= " --state=\"open|analyzed\"";
@@ -1267,6 +1279,8 @@
# (Our database sometimes puts underscores instead of spaces).
$oldval =~ s/[\s_]/[ _]/g;
# Convert this key into a query-pr option
+ &check_unsafe($oldkey);
+ &check_unsafe($oldval);
$opts .= " --$oldkey=\"$oldval\"";
}
}
cvs commit: apache-site bugdb.cgi
marc99/10/08 10:33:13 Modified:.bugdb.cgi Log: Update bugdb script to refer people to the swish-e bugdb search form first. It is far more efficient and far more useful for the vast majority of people, despite a few problems like not always display the title of the PR in the search results. Revision ChangesPath 1.43 +41 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.42 retrieving revision 1.43 diff -u -r1.42 -r1.43 --- bugdb.cgi 1999/05/24 17:55:50 1.42 +++ bugdb.cgi 1999/10/08 17:33:11 1.43 @@ -1699,6 +1699,10 @@ just using our software and we have nothing to do with them. Don't waste your time or ours by telling us about it. +Do NOT submit a problem report without searching the existing ones + first to ensure that the issue you are reporting has not already been + addressed + @@ -1715,8 +1719,44 @@ #EOM #-- # Quick query +print < +Search the Apache problem report database by keyword or phrase: + + + +The Boolean AND, OR, and NOT are supported. The asterisk (*) can be +used as a truncation character. If you enter multiple words +without an AND or an OR they are automagically ANDed +together. The search is not case sensitive. Email addresses and other +words with a dot, a dash, a hyphen or an '\@' sign are taken as one +searchable token. Thus you are strongly encouraged to use +asterisk '*' completion. + +http://search.apache.org/"; METHOD="POST"> + + + + + +Maximum number of records to return: + +20 +100 +200 + + + + + + + + +EOT print "\n"; -print "Use the following form to search the problem report database. "; +print "Alternatively, if you have a more specific query you can use\n"; +print "the following form to search the problem report database. "; print "Narrow your search by specifying a value for one or more problem report fields.\n"; print "\n";
cvs commit: apache-site bugdb.cgi
coar99/05/24 10:55:51 Modified:.bugdb.cgi Log: Argh.. 65-char marker left in by mistake. Revision ChangesPath 1.42 +0 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.41 retrieving revision 1.42 diff -u -r1.41 -r1.42 --- bugdb.cgi 1999/05/24 17:43:43 1.41 +++ bugdb.cgi 1999/05/24 17:55:50 1.42 @@ -15,7 +15,6 @@ # Lifetime (in seconds) of displayed info before it expires. $life_time = 30 * 60; $CCNOTE = < in the Cc line and make sure the] [subject line starts with the report component and number, with ]
cvs commit: apache-site bugdb.cgi
coar99/05/24 10:43:44
Modified:.bugdb.cgi
Log:
Maybe this will slow down the 'pending' reports..
Revision ChangesPath
1.41 +15 -9 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- bugdb.cgi 1999/01/19 19:37:15 1.40
+++ bugdb.cgi 1999/05/24 17:43:43 1.41
@@ -15,14 +15,18 @@
# Lifetime (in seconds) of displayed info before it expires.
$life_time = 30 * 60;
$CCNOTE = < in the Cc line ]
-[and leave the subject line UNCHANGED. This is not done]
-[automatically because of the potential for mail loops. ]
-[If you do not include this Cc, your reply may be ig- ]
-[nored unless you are responding to an explicit request ]
-[from a developer. ]
-[Reply only with text; DO NOT SEND ATTACHMENTS! ]
+#
+[In order for any reply to be added to the PR database, you need]
+[to include <[EMAIL PROTECTED]> in the Cc line and make sure the]
+[subject line starts with the report component and number, with ]
+[or without any 'Re:' prefixes (such as "general/1098:" or ]
+["Re: general/1098:"). If the subject doesn't match this ]
+[pattern, your message will be misfiled and ignored. The ]
+["apbugs" address is not added to the Cc line of messages from ]
+[the database automatically because of the potential for mail ]
+[loops. If you do not include this Cc, your reply may be ig- ]
+[nored unless you are responding to an explicit request from a ]
+[developer. Reply only with text; DO NOT SEND ATTACHMENTS! ]
EOT
#
@@ -145,6 +149,8 @@
#should go.
# 01/19/1999 Ken Coar - IE5 doesn't like "http:/no-server-name/path"
#URLs, so remove the scheme from server-local URLs we emit.
+# 05/24/1999 Ken Coar - Try making the 'how to reply' message a little
+#more explicit; we're getting lots of misfiled messages..
#
### End Modification log
@@ -282,7 +288,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 19 January 1999Authors: ",
+print "Version: 24 May 1999Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
cvs commit: apache-site bugdb.cgi
coar99/01/19 11:37:16
Modified:.bugdb.cgi
Log:
Change "http:$SCRIPT_NAME" emissions to "$SCRIPT_NAME", since
IE5 doesn't like schemes w/o a servername component.
Revision ChangesPath
1.40 +10 -8 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- bugdb.cgi 1998/10/26 21:10:02 1.39
+++ bugdb.cgi 1999/01/19 19:37:15 1.40
@@ -143,6 +143,8 @@
#spam or taking over their favourite sites.
# 10/26/1998 Ken Coar - Note on the main page where security reports
#should go.
+# 01/19/1999 Ken Coar - IE5 doesn't like "http:/no-server-name/path"
+#URLs, so remove the scheme from server-local URLs we emit.
#
### End Modification log
@@ -280,7 +282,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 30 September 1998Authors: ",
+print "Version: 19 January 1999Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -1320,10 +1322,10 @@
}
$nrows++;
print "\n";
- print " $NUMBER ";
+ print " $NUMBER ";
print "$fstring\n";
if ($#field > 4) {
- print "$NUMBER";
+ print "$NUMBER";
}
print "\n\n";
}
@@ -1431,7 +1433,7 @@
local($_fullname) = $fullname;
$_fullname =~ tr/ /_/;
$fstring =~ s/(\s*)$//;
- print "$fstring$1";
+ print "$fstring$1";
$fstring = "";
foreach (@states) {
$str = $counts{$fullname."_".$_}+0;
@@ -1499,14 +1501,14 @@
foreach $CATEGORY (sort(keys(%names))) {
$fstring = &truncstr($CATEGORY, 20)." ";
$fstring =~ s/(\s*)$//;
- print "$fstring$1";
+ print "$fstring$1";
$fstring = "";
foreach (@states) {
next if ($_ eq "");
$str = $counts{$CATEGORY."_".$_}+0;
if ($str > 0) {
# Who's gonna answer the following query?
- $fstring .= "$str";
+ $fstring .= "$str";
$fstring .= " " x (11-length($str));
} else {
$fstring .= &truncstr($str, 10) . " ";
@@ -1703,8 +1705,8 @@
EOM
-#| Summary of active bugs by status and
person
-#| Summary of all bugs by status and
category
+#| Summary of active bugs by status and
person
+#| Summary of all bugs by status and
category
#EOM
#--
# Quick query
cvs commit: apache-site bugdb.cgi
coar98/10/26 13:10:03 Modified:.bugdb.cgi Log: Foo, that last update sneaked in before it was ready.. Revision ChangesPath 1.39 +3 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.38 retrieving revision 1.39 diff -u -r1.38 -r1.39 --- bugdb.cgi 1998/10/26 21:03:06 1.38 +++ bugdb.cgi 1998/10/26 21:10:02 1.39 @@ -141,6 +141,8 @@ #multi-table reports. # 09/30/1998 Ken Coar - I'm sick of PRs that whinge about Apache sending #spam or taking over their favourite sites. +# 10/26/1998 Ken Coar - Note on the main page where security reports +#should go. # ### End Modification log @@ -1680,7 +1682,7 @@ Do NOT report security problems through this form! Send them in - email to <[EMAIL PROTECTED]>. + email to <[EMAIL PROTECTED]>. Do NOT send configuration questions or requests for help debugging CGI!
cvs commit: apache-site bugdb.cgi related_projects.html
coar98/10/26 13:03:08 Modified:.bugdb.cgi related_projects.html Log: Update Andrew Ford's reference card URL at his request. Revision ChangesPath 1.38 +3 -0 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.37 retrieving revision 1.38 diff -u -r1.37 -r1.38 --- bugdb.cgi 1998/09/30 15:02:58 1.37 +++ bugdb.cgi 1998/10/26 21:03:06 1.38 @@ -1679,6 +1679,9 @@ +Do NOT report security problems through this form! Send them in + email to <[EMAIL PROTECTED]>. + Do NOT send configuration questions or requests for help debugging CGI! If you're tracing spam or you're here because one of your favourite Web 1.33 +2 -2 apache-site/related_projects.html Index: related_projects.html === RCS file: /export/home/cvs/apache-site/related_projects.html,v retrieving revision 1.32 retrieving revision 1.33 diff -u -r1.32 -r1.33 --- related_projects.html 1998/09/28 14:33:50 1.32 +++ related_projects.html 1998/10/26 21:03:07 1.33 @@ -182,8 +182,8 @@ A compact, tri-fold double-sided page listing all major directives, available at -http://www.ford-mason.co.uk/resources/apache-refcard/";> -http://www.ford-mason.co.uk/resources/apache-refcard/ +http://www.ford-mason.co.uk/resources/refcards/apache.html";> +http://www.ford-mason.co.uk/resources/refcards/apache.html
cvs commit: apache-site bugdb.cgi bug_report.html
coar98/09/30 08:03:00
Modified:.bugdb.cgi bug_report.html
Log:
Whinge, whinge, whinge -- we don't need clewless l'users yammering
about the Apache site originating spam or usurping their
favourite site.
Revision ChangesPath
1.37 +26 -4 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- bugdb.cgi 1998/09/09 12:53:57 1.36
+++ bugdb.cgi 1998/09/30 15:02:58 1.37
@@ -139,6 +139,8 @@
#how-to-reply text.
# 08/03/1998 Ken Coar - Add counts for matching PRs and position within
#multi-table reports.
+# 09/30/1998 Ken Coar - I'm sick of PRs that whinge about Apache sending
+#spam or taking over their favourite sites.
#
### End Modification log
@@ -276,7 +278,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 03 August 1998Authors: ",
+print "Version: 30 September 1998Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -1672,9 +1674,29 @@
Built on top of the GNU tool GNATS.
-
-
-
+
+
+
+
+
+Do NOT send configuration questions or requests for help debugging
CGI!
+
+If you're tracing spam or you're here because one of your favourite
Web
+ sites now says 'It Worked! Apache is installed!' -- then contact the
+ mail originator or the Web site's Webmaster directly, because they're
+ just using our software and we have nothing to do with them. Don't
+ waste your time or ours by telling us about it.
+
+
+
+
+
+
+
+
+
+
+
EOM
#| Summary of active bugs by status and
person
#| Summary of all bugs by status and
category
1.20 +14 -1 apache-site/bug_report.html
Index: bug_report.html
===
RCS file: /export/home/cvs/apache-site/bug_report.html,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- bug_report.html 1998/09/23 15:42:40 1.19
+++ bug_report.html 1998/09/30 15:02:58 1.20
@@ -97,11 +97,24 @@
If you have done all of the preceding, then please select the button
below and fill out the form, and we will respond to it as soon as we can.
+
+
+
+ Do NOT send configuration questions or requests for help debugging CGI!
+
+ If you're tracing spam or you're here because one of your favourite Web
+ sites now says 'It Worked! Apache is installed!' -- then contact the
+ mail originator or the Web site's Webmaster directly, because they're
+ just using our software and we have nothing to do with them. Don't
+ waste your time or ours by telling us about it.
+
+
+
+
http://www.apache.org/bugdb.cgi";>
-Do NOT send configuration questions or requests for help debugging
CGI!
cvs commit: apache-site bugdb.cgi
coar98/09/09 05:53:57
Modified:.bugdb.cgi
Log:
Argh.
Revision ChangesPath
1.36 +1 -1 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- bugdb.cgi 1998/09/09 12:42:21 1.35
+++ bugdb.cgi 1998/09/09 12:53:57 1.36
@@ -43,7 +43,7 @@
"release, if one has been made since last contact. If we\n" .
"don't hear from you, this report will be closed.\n" .
"If you have information to add, BE SURE to reply to this\n" .
-"message and include the [EMAIL PROTECTED] address so it\n" .
+"message and include the [EMAIL PROTECTED] address so it\n" .
"will be attached to the problem report!";
$CANNED_TEXT{"Stale"} =
"[This is a standard response.]\n" .
cvs commit: apache-site bugdb.cgi
coar98/09/09 05:42:21
Modified:.bugdb.cgi
Log:
I'm tired of people replying to 'PR is stale' messages without
Ccing the bugdb. If they don't, and their reply doesn't go in,
and we subsequently close the PR, hard cheese for them -- they
were told.
Revision ChangesPath
1.35 +4 -1 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- bugdb.cgi 1998/08/04 03:48:30 1.34
+++ bugdb.cgi 1998/09/09 12:42:21 1.35
@@ -41,7 +41,10 @@
"no outstanding questions, please consider this a request\n" .
"to try to reproduce the problem with the latest software\n" .
"release, if one has been made since last contact. If we\n" .
-"don't hear from you, this report will be closed.";
+"don't hear from you, this report will be closed.\n" .
+"If you have information to add, BE SURE to reply to this\n" .
+"message and include the [EMAIL PROTECTED] address so it\n" .
+"will be attached to the problem report!";
$CANNED_TEXT{"Stale"} =
"[This is a standard response.]\n" .
"No response from submitter, assuming issue has been resolved.";
cvs commit: apache-site bugdb.cgi
coar98/08/03 20:48:31
Modified:.bugdb.cgi
Log:
Add some more minimal niceties, like PR counts.
Revision ChangesPath
1.34 +16 -8 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- bugdb.cgi 1998/08/01 09:45:57 1.33
+++ bugdb.cgi 1998/08/04 03:48:30 1.34
@@ -134,6 +134,8 @@
# 08/01/1998 Ken Coar - Break summary listing into 100-row tables for
#faster rendering and add 'don't send attachments' clause to the
#how-to-reply text.
+# 08/03/1998 Ken Coar - Add counts for matching PRs and position within
+#multi-table reports.
#
### End Modification log
@@ -271,7 +273,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 01 August 1998Authors: ",
+print "Version: 03 August 1998Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -525,8 +527,8 @@
&emit_preamble (0);
print
cvs commit: apache-site bugdb.cgi
coar98/08/01 02:45:58
Modified:.bugdb.cgi
Log:
For large summaries, the rendering of the page needed to wait until
the entire page was received; for slow links this was a pain. So,
as Paul suggested, the output is now broken up into 100-row tables.
I also added a note about 'don't send attachments, twit!' to the
how-to-reply section; attachments don't mix so well with non-MIME
tools like GNATS..
Revision ChangesPath
1.33 +35 -16apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- bugdb.cgi 1998/07/27 22:39:25 1.32
+++ bugdb.cgi 1998/08/01 09:45:57 1.33
@@ -19,6 +19,10 @@
[you need to include <[EMAIL PROTECTED]> in the Cc line ]
[and leave the subject line UNCHANGED. This is not done]
[automatically because of the potential for mail loops. ]
+[If you do not include this Cc, your reply may be ig- ]
+[nored unless you are responding to an explicit request ]
+[from a developer. ]
+[Reply only with text; DO NOT SEND ATTACHMENTS! ]
EOT
#
@@ -127,6 +131,9 @@
# 05/28/1998 Ken Coar - Change the 'still alive?' standard response to
include
#a request for retesting under the latest sotware.
# 07/27/1998 Ken Coar - Change the default search state from "open" to
"any".
+# 08/01/1998 Ken Coar - Break summary listing into 100-row tables for
+#faster rendering and add 'don't send attachments' clause to the
+#how-to-reply text.
#
### End Modification log
@@ -264,7 +271,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 28 May 1998Authors: ",
+print "Version: 01 August 1998Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -1258,21 +1265,8 @@
print "No bugs match your query.\n";
return;
}
-print "\n\n";
-# Print field headers.
-local($QUICKFMT, $WIDTH, $fstring, $str);
-$fstring = "PR#";
-foreach (@field) {
- ($QUICKFMT, $WIDTH)=split(/:/,$field{$_});
- if ($QUICKFMT <= $quickfmt) {
-#$fstring .= &truncstr($_, $WIDTH) . " ";
- $fstring .= "$_ ";
- }
-}
-if ($#field > 4) {
- $fstring .= "PR#";
-}
-print "$fstring\n";
+&qf_tabletop (%field);
+local ($nrows) = 0;
# Print each PR in result as link to full text
foreach (@prs) {
s/\s*\|\s*/|/go;
@@ -1307,6 +1301,11 @@
$fstring .= "" . &html_escape($str) . "";
}
}
+ if (($nrows % 100) == 0) {
+ print "\n\n\n" if ($nrows != 0);
+ &qf_tabletop (%field);
+ }
+ $nrows++;
print "\n";
print " $NUMBER ";
print "$fstring\n";
@@ -1316,6 +1315,26 @@
print "\n\n";
}
print "\n";
+}
+
+sub qf_tabletop {
+local (%field) = @_;
+local ($QUICKFMT, $WIDTH, $fstring, $str);
+
+print "\n\n";
+# Print field headers.
+$fstring = "PR#";
+foreach (@field) {
+ ($QUICKFMT, $WIDTH) = split(/:/, $field{$_});
+ if ($QUICKFMT <= $quickfmt) {
+#$fstring .= &truncstr($_, $WIDTH) . " ";
+ $fstring .= "$_ ";
+ }
+}
+if ($#field > 4) {
+ $fstring .= "PR#";
+}
+print "$fstring\n";
}
sub query_summary {
cvs commit: apache-site bugdb.cgi
coar98/07/27 15:39:26 Modified:.bugdb.cgi Log: Change the default search state from "open" to "any". Revision ChangesPath 1.32 +2 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.31 retrieving revision 1.32 diff -u -r1.31 -r1.32 --- bugdb.cgi 1998/05/28 10:56:55 1.31 +++ bugdb.cgi 1998/07/27 22:39:25 1.32 @@ -126,6 +126,7 @@ #for editors without full domain names. # 05/28/1998 Ken Coar - Change the 'still alive?' standard response to include #a request for retesting under the latest sotware. +# 07/27/1998 Ken Coar - Change the default search state from "open" to "any". # ### End Modification log @@ -183,7 +184,7 @@ "Responsible", "any", #"Originator", "any", "Class", "any", - "State", "open", + "State", "any", ); # Defines order of quick output restrictions @quickrestr = (
cvs commit: apache-site bugdb.cgi
coar98/05/28 03:56:55
Modified:.bugdb.cgi
Log:
Enhance one of the canned messages.
Revision ChangesPath
1.31 +8 -3 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- bugdb.cgi 1998/05/27 03:29:45 1.30
+++ bugdb.cgi 1998/05/28 10:56:55 1.31
@@ -33,8 +33,11 @@
"This Apache problem report has not been updated recently.\n" .
"Please reply to this message if you have any additional\n" .
"information about this issue, or if you have answers to\n" .
-"any questions that have been posed to you. If we don't\n" .
-"hear from you, this report will be closed.";
+"any questions that have been posed to you. If there are\n" .
+"no outstanding questions, please consider this a request\n" .
+"to try to reproduce the problem with the latest software\n" .
+"release, if one has been made since last contact. If we\n" .
+"don't hear from you, this report will be closed.";
$CANNED_TEXT{"Stale"} =
"[This is a standard response.]\n" .
"No response from submitter, assuming issue has been resolved.";
@@ -121,6 +124,8 @@
#next to the 'go directly to' option (saves mouse motion).
# 05/26/1998 Brian Behlendorf - force "From" field to default to @apache.org
#for editors without full domain names.
+# 05/28/1998 Ken Coar - Change the 'still alive?' standard response to
include
+#a request for retesting under the latest sotware.
#
### End Modification log
@@ -258,7 +263,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 24 April 1998Authors: ",
+print "Version: 28 May 1998Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
cvs commit: apache-site bugdb.cgi
brian 98/05/26 20:29:46
Modified:.bugdb.cgi
Log:
Force "From" field to default to @apache.org for editors without full
domain names.
Revision ChangesPath
1.30 +5 -0 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- bugdb.cgi 1998/05/24 13:51:00 1.29
+++ bugdb.cgi 1998/05/27 03:29:45 1.30
@@ -119,6 +119,8 @@
#email syntax validation (Dean Gaudet's suggestion).
# 05/24/1998 Ken Coar - change my address and put a 'Go' SUBMIT button right
#next to the 'go directly to' option (saves mouse motion).
+# 05/26/1998 Brian Behlendorf - force "From" field to default to @apache.org
+#for editors without full domain names.
#
### End Modification log
@@ -907,6 +909,9 @@
# Email-notify all concerned parties
#print "-\n";
+
+#add "@apache.org" if there's no domain on the editor's email addy.
+$input{'Editor'} .= "[EMAIL PROTECTED]" if ($input{'Editor'} !~ /@/);
local($mail_to, $mailed) = ("", 0);
$mail_to = join(", ", sort(keys(%mail_to)));
if (($mail_to ne "") && (!$input{"NoNotify"})) {
cvs commit: apache-site bugdb.cgi
coar98/05/24 06:51:01
Modified:.bugdb.cgi
Log:
Been meaning to do this for a while.. Save motion by putting a
submit button right next to the 'go directly to' option.
Revision ChangesPath
1.29 +7 -3 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- bugdb.cgi 1998/04/26 12:19:04 1.28
+++ bugdb.cgi 1998/05/24 13:51:00 1.29
@@ -117,6 +117,8 @@
#sentinels.
# 04/24/1998 Ken Coar - change "chop" to "chomp" in a few places, add
#email syntax validation (Dean Gaudet's suggestion).
+# 05/24/1998 Ken Coar - change my address and put a 'Go' SUBMIT button right
+#next to the 'go directly to' option (saves mouse motion).
#
### End Modification log
@@ -260,8 +262,8 @@
"with revamp work by ",
"http://www.organic.com\";>Brian Behlendorf ",
"[EMAIL PROTECTED] & ",
- "http://www.golux.com/coar/\";>Ken Coar ",
- "[EMAIL PROTECTED]\n";
+ "http://Web.Golux.Com/coar/\";>Ken Coar ",
+ "[EMAIL PROTECTED]\n";
} else {
&emit_preamble (0);
print "SPR Front End
@@ -1646,7 +1648,9 @@
# Choose quick output format.
print "\n";
print "Go directly to the full display ";
-print "for PR# ";
+print "for PR# \n";
+print "\n";
+
print "OR\n";
print "Compose a database
query";
print "";
cvs commit: apache-site bugdb.cgi
coar98/04/26 05:19:05
Modified:.bugdb.cgi
Log:
Typo.. How on Earth did *that* get by my testing..? :-(
Revision ChangesPath
1.28 +1 -1 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- bugdb.cgi 1998/04/24 11:00:33 1.27
+++ bugdb.cgi 1998/04/26 12:19:04 1.28
@@ -422,7 +422,7 @@
$ok = 0;
}
}
-if ($fieldvalies{'emailaddr'} !~ m:[EMAIL PROTECTED]:) {
+if ($fieldvalues{'emailaddr'} !~ m:[EMAIL PROTECTED]:) {
push (@emsgs, "Email address is invalid");
$ok = 0;
}
cvs commit: apache-site bugdb.cgi
coar98/04/24 04:00:34
Modified:.bugdb.cgi
Log:
Change 'chop's to 'chomp's, and add rudimentary email address
syntax validation.
PR: 2135
Submitted by: Dean Gaudet
Revision ChangesPath
1.27 +12 -6 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- bugdb.cgi 1998/02/22 02:18:17 1.26
+++ bugdb.cgi 1998/04/24 11:00:33 1.27
@@ -115,6 +115,8 @@
#even to closed PRs, without spamming people.
# 01/20/1998 Ken Coar - Simplify the canned message handling by using
#sentinels.
+# 04/24/1998 Ken Coar - change "chop" to "chomp" in a few places, add
+#email syntax validation (Dean Gaudet's suggestion).
#
### End Modification log
@@ -252,7 +254,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 20 January 1998Authors: ",
+print "Version: 24 April 1998Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -387,7 +389,7 @@
# Get arguments
local($_)=scalar();
-chop; s/\r$//;
+chomp; s/\r$//;
local($i,%input);
undef(%fieldvalues); # Global!
foreach (split(/&/)) {
@@ -416,13 +418,17 @@
local ($fieldval) = $fieldvalues{$field};
$fieldval =~ s/\s//g;
if ($fieldval eq "") {
- push (@emsgs, $field);
+ push (@emsgs, $field . " is blank");
$ok = 0;
}
}
+if ($fieldvalies{'emailaddr'} !~ m:[EMAIL PROTECTED]:) {
+ push (@emsgs, "Email address is invalid");
+ $ok = 0;
+}
if (! $ok) {
print "Problem report not sent!\n";
- print "Your problem report is missing required information:\n";
+ print "Your problem report has missing or invalid required
information:\n";
print "\n";
foreach $field (@emsgs) {
print " $field\n \n";
@@ -644,7 +650,7 @@
# Get arguments
local($_)=scalar();
-chop; s/\r$//;
+chomp; s/\r$//;
local($i,%input);
foreach (split(/&/)) {
++$i;
@@ -713,7 +719,7 @@
$ed_err = "$errmsg\nError: can't run $DATEPROG";
last LOCKED;
}
- chop($date=);
+ chomp($date=);
close(DATE);
$mail_to{&tolower($nEditor{$input{'Editor'}})} = 1;
cvs commit: apache-site bugdb.cgi
brian 98/02/21 18:18:18 Modified:.bugdb.cgi Log: PR: 1848 change description of gnats Revision ChangesPath 1.26 +1 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.25 retrieving revision 1.26 diff -u -r1.25 -r1.26 --- bugdb.cgi 1998/02/11 15:18:34 1.25 +++ bugdb.cgi 1998/02/22 02:18:17 1.26 @@ -1620,7 +1620,7 @@ $databasetitle -Built on top of the public domain tool GNATS. +Built on top of the GNU tool GNATS.
cvs commit: apache-site bugdb.cgi
coar98/02/11 07:18:35
Modified:.bugdb.cgi
Log:
Add a "is this still alive" button, correct and simplify the
handling of canned text, and make the display of same 'small'
to take up less space at the top of the edit form.
Revision ChangesPath
1.25 +37 -4 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- bugdb.cgi 1998/01/20 15:06:09 1.24
+++ bugdb.cgi 1998/02/11 15:18:34 1.25
@@ -28,6 +28,13 @@
# appropriate message key (e.g., "_C_Stale"). handle_edit_pr senses
# this and substitutes the actual text.
#
+$CANNED_TEXT{"Quiet"} =
+"[This is a standard response.]\n" .
+"This Apache problem report has not been updated recently.\n" .
+"Please reply to this message if you have any additional\n" .
+"information about this issue, or if you have answers to\n" .
+"any questions that have been posed to you. If we don't\n" .
+"hear from you, this report will be closed.";
$CANNED_TEXT{"Stale"} =
"[This is a standard response.]\n" .
"No response from submitter, assuming issue has been resolved.";
@@ -1477,7 +1484,7 @@
if ($ENV{'REMOTE_USER'}) {
local ($timestamp) = ×tamp($fullpr);
print <
+
@@ -1491,6 +1498,32 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Outstanding request(s) for information
+
+
+
+$CANNED_TEXT{'Quiet'}
+
+
+
+
+
+
@@ -1510,7 +1543,7 @@
-$CANNED_TEXT{'Stale'}
+$CANNED_TEXT{'Stale'}
@@ -1536,7 +1569,7 @@
-$CANNED_TEXT{'Duplicate'}
+$CANNED_TEXT{'Duplicate'}
@@ -1562,7 +1595,7 @@
-$CANNED_TEXT{'Inappropriate'}
+$CANNED_TEXT{'Inappropriate'}
cvs commit: apache-site bugdb.cgi
coar98/01/20 07:06:11
Modified:.bugdb.cgi
Log:
Fix problem with canned closure messages not being interpreted
correctly (i.e., "\n" remained verbatim rather than being
replaced with a newline character).
Revision ChangesPath
1.24 +41 -27apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- bugdb.cgi 1998/01/03 18:17:41 1.23
+++ bugdb.cgi 1998/01/20 15:06:09 1.24
@@ -20,30 +20,31 @@
[and leave the subject line UNCHANGED. This is not done]
[automatically because of the potential for mail loops. ]
EOT
-$CANNED_LABEL{"Stale"} =
-'[This is a standard response.]\n' .
-'No response from submitter, assuming issue has been resolved.';
-$CANNED_LABEL{"Duplicate"} =
-'[This is a standard response.]\n' .
-'This issue has been reported before;\n' .
-'please search the FAQ and the bug database.\n' .
-'Thanks for using Apache!';
-$CANNED_LABEL{"Inappropriate"} =
-'[This is a standard response.]\n' .
-'This is a CGI programming or basic configuration issue.\n' .
-'As mentioned on the main bug database page, we must refer\n' .
-'all such basic or non-Apache-related questions to the\n' .
-'comp.infosystems.www.servers.unix and related newsgroups.\n' .
-'Please ask your question there.\n' .
-'Please also search the FAQ and the bug database.\n' .
-'Thanks for using Apache!';
+
#
-# Turn the \n markers in the canned text into real newlines.
+# Canned closure messages. These are used in one-click "close this
+# sucker" operations. The text isn't passed directly to the handle_edit_pr
+# function; instead, the StateReason field is set to "_C_" plus the
+# appropriate message key (e.g., "_C_Stale"). handle_edit_pr senses
+# this and substitutes the actual text.
#
-foreach (keys(%CANNED_LABEL)) {
-$CANNED_TEXT{$_} = $CANNED_LABEL{$_};
-$CANNED_TEXT{$_} =~ s/\\n/\n/g;
-}
+$CANNED_TEXT{"Stale"} =
+"[This is a standard response.]\n" .
+"No response from submitter, assuming issue has been resolved.";
+$CANNED_TEXT{"Duplicate"} =
+"[This is a standard response.]\n" .
+"This issue has been reported before;\n" .
+"please search the FAQ and the bug database.\n" .
+"Thanks for using Apache!";
+$CANNED_TEXT{"Inappropriate"} =
+"[This is a standard response.]\n" .
+"This is a CGI programming or basic configuration issue.\n" .
+"As mentioned on the main bug database page, we must refer\n" .
+"all such basic or non-Apache-related questions to the\n" .
+"comp.infosystems.www.servers.unix and related newsgroups.\n" .
+"Please ask your question there.\n" .
+"Please also search the FAQ and the bug database.\n" .
+"Thanks for using Apache!";
# Outside commands
$MAILER = "/usr/sbin/sendmail -oi -t";
@@ -105,6 +106,8 @@
# 01/03/1998 Ken Coar - Add a checkbox to the edit form to prevent
#email from being sent. This allows cosmetic changes to be made,
#even to closed PRs, without spamming people.
+# 01/20/1998 Ken Coar - Simplify the canned message handling by using
+#sentinels.
#
### End Modification log
@@ -242,7 +245,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 3 January 1998Authors: ",
+print "Version: 20 January 1998Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -686,7 +689,8 @@
# Check that the timestamp hasn't changed since the form was generated
if ($timestamp ne ×tamp($fullpr)) {
- $ed_err = "$errmsg\nThis PR has been modified since you started
editing it.\n";
+ $ed_err = "$errmsg\nThis PR has been modified since you started"
+ . " editing it.\n";
last LOCKED;
}
@@ -708,6 +712,16 @@
$mail_to{&tolower($nEditor{$input{'Editor'}})} = 1;
local($to_subm, $to_old, $to_new);
+ #
+ # If the StateReason begins with "_C_" the remainder of the
+ # value is a key into the canned-closure-messages hash.
+ # Make the substitution.
+ #
+ if ($input{'StateReason'} =~ /^_C_/) {
+ local ($key) = $input{'StateReason'};
+ $key =~ s/^_C_//;
+ $input{'StateReason'} = $CANNED_TEXT{$key};
+ }
# Update the audit trail
#print "if ($input{'State'} ne $fieldvalues{'State'})\n";
if ($input{"State"} ne $fieldvalues{'State'}) {
@@ -1486,7 +1500,7 @@
-
+
@@ -1512,7 +1526,7 @@
-
cvs commit: apache-site bugdb.cgi
coar98/01/03 10:17:42
Modified:.bugdb.cgi
Log:
Add a checkbox to the edit form to turn off mail notification.
(Useful when making cosmetic changes or altering closed PRs.)
Revision ChangesPath
1.23 +27 -13apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- bugdb.cgi 1997/12/30 05:34:21 1.22
+++ bugdb.cgi 1998/01/03 18:17:41 1.23
@@ -102,6 +102,9 @@
# 12/30/1997 Ken Coar - Correct a pointer to the bugdb page, and add the
#actual closure text to the editing display so editors know what will
#be sent.
+# 01/03/1998 Ken Coar - Add a checkbox to the edit form to prevent
+#email from being sent. This allows cosmetic changes to be made,
+#even to closed PRs, without spamming people.
#
### End Modification log
@@ -239,7 +242,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 30 December 1997Authors: ",
+print "Version: 3 January 1998Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -428,7 +431,7 @@
# Send the PR
$prtext = &unparse_pr("send");
-open(MAIL, "|$MAILER") || die "Error while invoking sendmail";
+open(MAIL, "|$MAILER") || die "Error while invoking $MAILER";
print MAIL <\n";
-local($mail_to);
+local($mail_to, $mailed) = ("", 0);
$mail_to = join(", ", sort(keys(%mail_to)));
-if ($mail_to ne "") {
+if (($mail_to ne "") && (!$input{"NoNotify"})) {
if (open(MAILER, "|$MAILER")) {
$msg =
"To: $mail_to
@@ -892,19 +895,21 @@
";
print MAILER $msg;
close(MAILER);
-
- # Display message
- $msg =~ s/\/\>\;/g;
- print
-"Your changes to PR $pr were filed to the database.
-The parties concerned were notified via e-mail as follows:
-$msg
-";
+ $mailed = 1;
} else {
print "Error: can't run $MAILER\n";
}
}
+# Display message
+$msg =~ s/\/\>\;/g;
+print "Your changes to PR $pr were filed to the database.";
+if ($mailed) {
+print <$msg
+EOHT
+}
}
# Gives the interface to change the PR
@@ -951,6 +956,15 @@
# Maximize box dimensions
local($width)= 60;
local($height)= 4;
+
+print <
+
+
+ DO NOT send mail about this change
+
+
+EOHT
print "
Editor (you):
cvs commit: apache-site bugdb.cgi
coar97/12/29 21:34:27
Modified:.bugdb.cgi
Log:
Display the canned closure text next to the closure buttons.
Revision ChangesPath
1.22 +55 -17apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- bugdb.cgi 1997/11/14 22:18:36 1.21
+++ bugdb.cgi 1997/12/30 05:34:21 1.22
@@ -20,6 +20,30 @@
[and leave the subject line UNCHANGED. This is not done]
[automatically because of the potential for mail loops. ]
EOT
+$CANNED_LABEL{"Stale"} =
+'[This is a standard response.]\n' .
+'No response from submitter, assuming issue has been resolved.';
+$CANNED_LABEL{"Duplicate"} =
+'[This is a standard response.]\n' .
+'This issue has been reported before;\n' .
+'please search the FAQ and the bug database.\n' .
+'Thanks for using Apache!';
+$CANNED_LABEL{"Inappropriate"} =
+'[This is a standard response.]\n' .
+'This is a CGI programming or basic configuration issue.\n' .
+'As mentioned on the main bug database page, we must refer\n' .
+'all such basic or non-Apache-related questions to the\n' .
+'comp.infosystems.www.servers.unix and related newsgroups.\n' .
+'Please ask your question there.\n' .
+'Please also search the FAQ and the bug database.\n' .
+'Thanks for using Apache!';
+#
+# Turn the \n markers in the canned text into real newlines.
+#
+foreach (keys(%CANNED_LABEL)) {
+$CANNED_TEXT{$_} = $CANNED_LABEL{$_};
+$CANNED_TEXT{$_} =~ s/\\n/\n/g;
+}
# Outside commands
$MAILER = "/usr/sbin/sendmail -oi -t";
@@ -75,6 +99,9 @@
# 11/14/1997 Ken Coar - Add a note to mail messages about how to get
#replies to go into the database. Also add an Expires: header field
#(Dirk-Willem van Gulik).
+# 12/30/1997 Ken Coar - Correct a pointer to the bugdb page, and add the
+#actual closure text to the editing display so editors know what will
+#be sent.
#
### End Modification log
@@ -212,7 +239,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 13 November 1997Authors: ",
+print "Version: 30 December 1997Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -482,7 +509,7 @@
The developers do not have time to answer the same question again and
again. Please search the FAQ and the
http://www.apache.org/bugdb.cgi";
+ HREF="http://bugs.apache.org/";
>problem report database
before you enter this report!
@@ -1423,17 +1450,17 @@
local ($timestamp) = ×tamp($fullpr);
print <
-
+
- Edit this problem report
+ Edit this report
-
+
@@ -1445,17 +1472,21 @@
-
+
- Close due to no response from the submitter; assuming issue
- has been resolved.
+ No response from submitter
+
+
+
+$CANNED_TEXT{'Stale'}
+
-
+
@@ -1467,17 +1498,21 @@
-
+
- Close as being a duplicate report. (Refers submitter to bugdb
- and the FAQ.)
+ Already reported
+
+
+
+$CANNED_TEXT{'Duplicate'}
+
-
+
@@ -1489,15 +1524,18 @@
-
+
- Close as concerning CGI, basic configuration, or something else
- with which we say we don't provide assistance. (Refers submitter to
- newsgroups and FAQ.)
+ Inappropriate report
+
+
+
+$CANNED_TEXT{'Inappropriate'}
+
cvs commit: apache-site bugdb.cgi
coar97/11/14 14:18:37
Modified:.bugdb.cgi
Log:
Add a 30-minute Expires: response header field, and include some
instructions about how to get replies into the bugdb in mail
sent on updates.
Submitted by: Dirk-Willem van Gulik
Revision ChangesPath
1.21 +38 -2 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- bugdb.cgi 1997/11/13 21:56:39 1.20
+++ bugdb.cgi 1997/11/14 22:18:36 1.21
@@ -3,6 +3,7 @@
# Thanks to Larry Wall, CERN, and NCSA for Perl, WWW, and Mosaic!
require "/usr/local/lib/gnats/libgnats.pl";
+use POSIX;
Configuration begins here
@@ -11,6 +12,15 @@
$databasetitle = "$software Problem Report Database";
$EDITOR_FILE = "$GNATS_LIB/gnats-db/gnats-adm/responsible";
+# Lifetime (in seconds) of displayed info before it expires.
+$life_time = 30 * 60;
+$CCNOTE = < in the Cc line ]
+[and leave the subject line UNCHANGED. This is not done]
+[automatically because of the potential for mail loops. ]
+EOT
+
# Outside commands
$MAILER = "/usr/sbin/sendmail -oi -t";
$DATEPROG= "/bin/date";
@@ -62,6 +72,9 @@
#new database value and the old subject line.
# 11/13/1997 Ken Coar - Add another button for "closing due to no response,"
#and fix a mis-set Class value from one of the other buttons.
+# 11/14/1997 Ken Coar - Add a note to mail messages about how to get
+#replies to go into the database. Also add an Expires: header field
+#(Dirk-Willem van Gulik).
#
### End Modification log
@@ -222,6 +235,24 @@
exit(0);
Miscellaneous functions
+# Format a date according to RFC 822 rules.
+sub RFC822_date
+{
+local ($s) = @_;
+local (@fdate) = gmtime ($s);
+local (@MNAME) = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
+ "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
+local (@WDAY) = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
+
+$fdate[5] += ($fdate[5] > 90) ? 1900 : 2000;
+return sprintf ("%s, %02d %s %04d %02d:%02d:%02d GMT",
+ $WDAY[$fdate[6]],
+ $fdate[3],
+ $MNAME[$fdate[4]],
+ $fdate[5], $fdate[2], $fdate[1],
+ $fdate[0]);
+}
+
# Dumps the environment
sub dumpenv
{
@@ -234,7 +265,7 @@
}
#
-# Emits either a rredirect or the preamble to some HTML.
+# Emits either a redirect or the preamble to some HTML.
#
sub emit_preamble {
local ($redirect, $target, $oldsel) = @_;
@@ -244,7 +275,8 @@
if ($redirect) {
print "Location: $target\n\n";
} else {
- print "Content-type: text/html\n\n";
+ print "Content-type: text/html\n";
+ print "Expires: " . &RFC822_date (time + $life_time) . "\n\n";
print "\n";
}
$| = 0;
@@ -377,6 +409,8 @@
Reply-To: $fieldvalues{"emailaddr"}
X-send-pr-version: $GNATS_VER
+$CCNOTE
+
$prtext
EOM
close(MAIL);
@@ -822,6 +856,8 @@
"To: $mail_to
From: $input{'Editor'}
Subject: Re: $input{'Category'}/$pr: $oldsyn
+
+$CCNOTE
Synopsis: $oldsyn
cvs commit: apache-site bugdb.cgi
coar97/11/13 13:56:40
Modified:.bugdb.cgi
Log:
A couple of minor tweaks/fixes.
Revision ChangesPath
1.20 +4 -2 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- bugdb.cgi 1997/11/13 17:02:06 1.19
+++ bugdb.cgi 1997/11/13 21:56:39 1.20
@@ -60,6 +60,8 @@
#actual PR category; if it was changed as part of the edit, the message
#would be unreplyable because of a category mismatch between the
#new database value and the old subject line.
+# 11/13/1997 Ken Coar - Add another button for "closing due to no response,"
+#and fix a mis-set Class value from one of the other buttons.
#
### End Modification log
@@ -197,7 +199,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 11 November 1997Authors: ",
+print "Version: 13 November 1997Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -1403,7 +1405,7 @@
-
+
cvs commit: apache-site bugdb.cgi
coar97/11/13 09:02:07 Modified:.bugdb.cgi Log: Add another canned button, this time for "no response, assuming closed." Revision ChangesPath 1.19 +23 -0 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.18 retrieving revision 1.19 diff -u -r1.18 -r1.19 --- bugdb.cgi 1997/11/11 22:12:29 1.18 +++ bugdb.cgi 1997/11/13 17:02:06 1.19 @@ -1407,6 +1407,28 @@ + + + + + + + Close due to no response from the submitter; assuming issue + has been resolved. + + + + + + + + + + + + + + @@ -1415,6 +1437,7 @@ Close as being a duplicate report. (Refers submitter to bugdb and the FAQ.) +
cvs commit: apache-site bugdb.cgi
coar97/11/11 14:12:30
Modified:.bugdb.cgi
Log:
Change the subject of mail sent after an edit to use the new
PR category. If it was changed as part of the edit, the mail
used to be unreplyable because it would no longer match the
PR's category.
Revision ChangesPath
1.18 +6 -2 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- bugdb.cgi 1997/11/10 22:23:23 1.17
+++ bugdb.cgi 1997/11/11 22:12:29 1.18
@@ -56,6 +56,10 @@
#and "non-critical" the default severity.
# 11/10/1997 Ken Coar - Added some "canned response" buttons on the
#full display page seen by authorised editors.
+# 11/11/1997 Ken Coar - Change the subject of edit mail sent to match the
+#actual PR category; if it was changed as part of the edit, the message
+#would be unreplyable because of a category mismatch between the
+#new database value and the old subject line.
#
### End Modification log
@@ -193,7 +197,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 10 November 1997Authors: ",
+print "Version: 11 November 1997Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -815,7 +819,7 @@
$msg =
"To: $mail_to
From: $input{'Editor'}
-Subject: Re: $semipr: $oldsyn
+Subject: Re: $input{'Category'}/$pr: $oldsyn
Synopsis: $oldsyn
cvs commit: apache-site bugdb.cgi
coar97/11/10 14:23:24
Modified:.bugdb.cgi
Log:
Added two canned-response buttons alongside the "Edit" button.
Editors can now one-step-close a PR with canned text about it
being a duplicate (read the FAQ and search the db), or about
it being a CGI/basic configuration issue (read the FAQ, search
the db, and check the newsgroups).
Revision ChangesPath
1.17 +60 -5 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- bugdb.cgi 1997/11/09 17:04:58 1.16
+++ bugdb.cgi 1997/11/10 22:23:23 1.17
@@ -54,6 +54,8 @@
#occlude things like "mod_auth-any".
# 11/9/1997 Ken Coar - Make "general" the default category on new PRs,
#and "non-critical" the default severity.
+# 11/10/1997 Ken Coar - Added some "canned response" buttons on the
+#full display page seen by authorised editors.
#
### End Modification log
@@ -191,7 +193,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 9 November 1997Authors: ",
+print "Version: 10 November 1997Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -1376,11 +1378,64 @@
print "$err\n";
} else {
if ($ENV{'REMOTE_USER'}) {
+ local ($timestamp) = ×tamp($fullpr);
print <
-
-
-
+
+
+
+
+
+
+
+
+ Edit this problem report
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Close as being a duplicate report. (Refers submitter to bugdb
+ and the FAQ.)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Close as concerning CGI, basic configuration, or something else
+ with which we say we don't provide assistance. (Refers submitter to
+ newsgroups and FAQ.)
+
+
+
EOM
}
print "Full text of PR number $pr:\n\n";
cvs commit: apache-site bugdb.cgi
coar97/11/09 09:04:59
Modified:.bugdb.cgi
Log:
Go back to having the category list lexically sorted. Make
"general" the default category on new PRs, and "non-critical"
the default severity.
Revision ChangesPath
1.16 +19 -4 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- bugdb.cgi 1997/10/19 16:53:13 1.15
+++ bugdb.cgi 1997/11/09 17:04:58 1.16
@@ -52,6 +52,8 @@
#to a particular PR from the main menu (prompted by Dean Gaudet).
# 8/13/1997 Ken Coar - fix problem causing check for "any" keyword to
#occlude things like "mod_auth-any".
+# 11/9/1997 Ken Coar - Make "general" the default category on new PRs,
+#and "non-critical" the default severity.
#
### End Modification log
@@ -121,6 +123,9 @@
"State",
);
+$new_default_category = "general";
+$new_default_severity = "non-critical";
+
Main routine
# Main Program
@@ -186,7 +191,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 13 August 1997Authors: ",
+print "Version: 9 November 1997Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -471,7 +476,11 @@
EOM
foreach $option (@nCategory) {
- print " $option\n" if ($option);
+ if ($option) {
+ printf " $option\n";
+ }
}
print "\n";
@@ -480,8 +489,14 @@
print "$_:\n";
print "\n";
foreach $option (eval "[EMAIL PROTECTED]") {
- print " $option\n" if ($option);
+ if ($option) {
+ print " $option\n";
+ }
}
print "\n";
}
cvs commit: apache-site bugdb.cgi
coar97/10/19 09:53:14 Modified:.bugdb.cgi Log: Add text explaining how to add notes to PRs. These instructions show up on the "thanks for your PR" page, and no-where else. Revision ChangesPath 1.15 +38 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.14 retrieving revision 1.15 diff -u -r1.14 -r1.15 --- bugdb.cgi 1997/08/13 21:03:32 1.14 +++ bugdb.cgi 1997/10/19 16:53:13 1.15 @@ -367,7 +367,44 @@ $prtext EOM close(MAIL); -print "Your problem report has been sent. It will take about 3 minutes to show up in the system.\n"; +print < + Your problem report has been sent. + It will take about 3 minutes to show up in the system. + + + Important Note: + + When your report has been recorded in the database, you will get a mail + message about it. Although you cannot use the Web to make changes to + your report, you can do so through email. + + + To add information to your problem report, just REPLY to the mail + message you get, and be sure that the address + <[EMAIL PROTECTED]>is referenced in either the + To: or Cc: lines. That way, the text of your + message will be attached to the existing information in the PR. + + + Likewise, if you receive private email from the Apache developers, you + should CC the <[EMAIL PROTECTED]> + address so your reply will be recorded in the database for others to + see. + + + Important! DO NOT change the subject of your message! + It must match the pattern + "Re: component/PR-number" + (e.g., "Re: general/911: demo"), or + else it won't make it into the database. + + + The only time you will see these instructions is when you enter a + new problem report. + + +EOHT }
cvs commit: apache-site bugdb.cgi
coar97/08/13 14:03:34
Modified:.bugdb.cgi
Log:
The check for the special keyword "any" was occluding field
values that included "any" with sentinel characters Perl recognised
as "word boundaries." So "mod_auth-any" wouldn't make it
through.
PR: 749
Revision ChangesPath
1.14 +8 -3 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- bugdb.cgi 1997/08/09 01:13:09 1.13
+++ bugdb.cgi 1997/08/13 21:03:32 1.14
@@ -50,6 +50,8 @@
#than 4 columns - easier to follow link without having to
#horizontally scroll back. Also added field to let you go directly
#to a particular PR from the main menu (prompted by Dean Gaudet).
+# 8/13/1997 Ken Coar - fix problem causing check for "any" keyword to
+#occlude things like "mod_auth-any".
#
### End Modification log
@@ -184,7 +186,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 30 July 1997Authors: ",
+print "Version: 13 August 1997Authors: ",
"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le, ",
"with revamp work by ",
@@ -1055,8 +1057,11 @@
foreach (keys(%restrict)) {
$oldkey = $_;
$oldval = $restrict{$oldkey};
- # If "any" was given, don't bother using this key
- if ($oldval !~ /\bany\b/) {
+ # If "any" was given as a distinct keyword, alone or in
+ # combination, don't bother using this key
+ if (($oldval ne "any")
+ && ($oldval !~ /^any\|/)
+ && ($oldval !~ /\|any$/)) {
# Turn underscores and spaces into regular expression
# that match either underscores or spaces
# (Our database sometimes puts underscores instead of spaces).
cvs commit: apache-site bugdb.cgi
brian 97/08/08 18:13:10
Modified:.bugdb.cgi
Log:
Adjusted credits according to wishes of original authors, to help defray
support messages being sent to them.
Revision ChangesPath
1.13 +2 -4 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- bugdb.cgi 1997/07/30 19:27:40 1.12
+++ bugdb.cgi 1997/08/09 01:13:09 1.13
@@ -185,10 +185,8 @@
} elsif ($PATH_INFO eq "") {
&main_menu();
print "Version: 30 July 1997Authors: ",
- "http://alumni.caltech.edu/~dank\";>Dan Kegel ",
- "[EMAIL PROTECTED] & ",
- "http://alumni.caltech.edu/~huyle/\";>Huy Le ",
- "[EMAIL PROTECTED],",
+ "http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
+ "and Huy Le, ",
"with revamp work by ",
"http://www.organic.com\";>Brian Behlendorf ",
"[EMAIL PROTECTED] & ",
cvs commit: apache-site bugdb.cgi
coar97/07/30 12:27:42
Modified:. bugdb.cgi
Log:
Yggh. Marc spotted that the redirect wasn't supplying a full
URL, so we have to compose one.
Revision ChangesPath
1.12 +3 -1 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- bugdb.cgi 1997/07/30 19:15:14 1.11
+++ bugdb.cgi 1997/07/30 19:27:40 1.12
@@ -980,7 +980,9 @@
# there.
#
if ($oldval = $restrict{'pr'}) {
- return &emit_preamble (1, "http:$SCRIPT_NAME/full/$oldval");
+ local ($port) = $ENV{'SERVER_PORT'};
+ $port = ($port eq '80') ? "" : ":$port";
+ return &emit_preamble (1,
"http://$SERVER_NAME$port$SCRIPT_NAME/full/$oldval";);
}
delete ($restrict{'pr'});
#
cvs commit: apache-site bugdb.cgi
coar97/07/30 12:15:15
Modified:. bugdb.cgi
Log:
Oops! Some bad assumptions were made about where the "quickfmt="
would appear in the GET arguments..
Revision ChangesPath
1.11 +3 -2 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- bugdb.cgi 1997/07/30 19:00:14 1.10
+++ bugdb.cgi 1997/07/30 19:15:14 1.11
@@ -163,10 +163,10 @@
### Query a number of PR's and display in quick output form
} elsif ($PATH_INFO =~ m,^/quick,) {
# Get arg of quickfmt=
-$QUERY_STRING =~ m,^quickfmt=(\w+)&,;
+$QUERY_STRING =~ m,quickfmt=(\w+)&,;
$QUICKFMT = $1;
# Get all restrictions. First, strip off quickfmt prefix.
-($RESTR = $QUERY_STRING) =~ s/^quickfmt=\w+&//;
+($RESTR = $QUERY_STRING) =~ s/quickfmt=\w+&//;
# Then, split into words.
@RESTR=split(/&/,$RESTR);
@@ -982,6 +982,7 @@
if ($oldval = $restrict{'pr'}) {
return &emit_preamble (1, "http:$SCRIPT_NAME/full/$oldval");
}
+delete ($restrict{'pr'});
#
# Nope, it's a real query. Now let's remove form-fields that don't
# equate to GNATS-fields.
cvs commit: apache-site bugdb.cgi
coar97/07/30 12:00:17
Modified:. bugdb.cgi
Log:
Add a "go directly to PR# N" option on the main menu (requested
overtly by Dean, but I think several people have mentioned it).
Revision ChangesPath
1.10 +56 -14apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- bugdb.cgi 1997/07/30 17:55:36 1.9
+++ bugdb.cgi 1997/07/30 19:00:14 1.10
@@ -48,7 +48,8 @@
#may be unsatisfying.
# 7/30/1997 Ken Coar - add PR# link at extreme right if there are more
#than 4 columns - easier to follow link without having to
-#horizontally scroll back.
+#horizontally scroll back. Also added field to let you go directly
+#to a particular PR from the main menu (prompted by Dean Gaudet).
#
### End Modification log
@@ -120,11 +121,6 @@
Main routine
# Main Program
-select (STDOUT);
-$| = 1;
-print "Content-type: text/html\n\n";
-$| = 0;
-print "\n";
#&read_originator;
&read_editor;
@@ -199,6 +195,7 @@
"http://www.golux.com/coar/\";>Ken Coar ",
"[EMAIL PROTECTED]\n";
} else {
+&emit_preamble (0);
print "SPR Front End
SPR Front End
@@ -223,6 +220,25 @@
print "\n";
}
+#
+# Emits either a rredirect or the preamble to some HTML.
+#
+sub emit_preamble {
+local ($redirect, $target, $oldsel) = @_;
+
+$oldsel = select (STDOUT);
+$| = 1;
+if ($redirect) {
+ print "Location: $target\n\n";
+} else {
+ print "Content-type: text/html\n\n";
+ print "\n";
+}
+$| = 0;
+select ($oldsel);
+return 0;
+}
+
# Translates '+' to ' ' and '%##' to 'chr(0x##)'
sub cgi_trans
{
@@ -281,6 +297,7 @@
# Sends the new PR
sub handle_send_pr {
# Display title
+&emit_preamble (0);
print "Apache: New Problem Report
Submission";
# Get arguments
@@ -358,6 +375,7 @@
sub send_pr
{
# Display title
+&emit_preamble (0);
print $b; }
sub query_quick {
-# Print title
-print "Quick summary of PR's
-Quick summary of PR's:
-
-";
#print "args = (@_)\n";
local($quickfmt,@restrict)[EMAIL PROTECTED];
# Convert $quickfmt to index into @quickfmt
@@ -961,7 +976,15 @@
$restrict{$oldkey} = $oldval;
}
#
-# Now let's remove form-fields that don't equate to GNATS-fields.
+# If we were given an explicit PR number, redirect the browser
+# there.
+#
+if ($oldval = $restrict{'pr'}) {
+ return &emit_preamble (1, "http:$SCRIPT_NAME/full/$oldval");
+}
+#
+# Nope, it's a real query. Now let's remove form-fields that don't
+# equate to GNATS-fields.
#
$oldval = $restrict{"search"};
if ($oldval && $restrict{"qstring"}) {
@@ -970,6 +993,13 @@
delete $restrict{"string"};
delete $restrict{"qstring"};
delete $restrict{"search"};
+
+# Print title
+&emit_preamble (0);
+print "Quick summary of PR's
+Quick summary of PR's:
+
+";
local($opts);
local(@prs);
# Read in quick format list of pr's matching query
@@ -1107,6 +1137,7 @@
sub query_summary {
# Print title
+&emit_preamble (0);
print "Summary of active PR's by person and
status
Summary of active PR's by person and status:
@@ -1196,6 +1227,7 @@
sub query_summary_cat {
# Print title
+&emit_preamble (0);
print "Summary of PR's by category and status
Summary of PR's by category and status:
@@ -1272,6 +1304,7 @@
sub query_full
{
local($pr) = $_[0];
+&emit_preamble (0);
print "Full Problem Report Text for PR#$pr
";
@@ -1303,6 +1336,7 @@
# Very first page of front end
sub main_menu {
+&emit_preamble (0);
print <$databasetitle
@@ -1327,8 +1361,13 @@
print "\n";
# Choose quick output format.
-print "\n";
-print "Output format: \n";
+print "\n";
+print "Go directly to the full display ";
+print "for PR# ";
+print "OR\n";
+print "Compose a database
query";
+print "";
+print "\nOutput format: \
cvs commit: apache-site bugdb.cgi
coar97/07/30 10:55:37
Modified:. bugdb.cgi
Log:
Added a link to the full PR display as the rightmost column, just
like the leftmost one, so you don't have to keep scrolling back
and forth horizontally. Also added some HTML cleanup (closing
s and s where missing, and changed header cells to
from ).
Revision ChangesPath
1.9 +19 -7 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- bugdb.cgi 1997/07/12 02:12:59 1.8
+++ bugdb.cgi 1997/07/30 17:55:36 1.9
@@ -46,8 +46,11 @@
# 7/11/1997 Ken Coar - added warning that the submitter had better not
#be duplicating an existing PR or FAQ item, or the response he gets
#may be unsatisfying.
+# 7/30/1997 Ken Coar - add PR# link at extreme right if there are more
+#than 4 columns - easier to follow link without having to
+#horizontally scroll back.
#
-### End Modifcation log
+### End Modification log
### Environment variables
$SCRIPT_NAME = $ENV{"SCRIPT_NAME"};
@@ -185,7 +188,7 @@
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
-print "Version: 11 July 1997Authors: ",
+print "Version: 30 July 1997Authors: ",
"http://alumni.caltech.edu/~dank\";>Dan Kegel ",
"[EMAIL PROTECTED] & ",
"http://alumni.caltech.edu/~huyle/\";>Huy Le ",
@@ -1045,15 +1048,18 @@
print "\n\n";
# Print field headers.
local($QUICKFMT, $WIDTH, $fstring, $str);
-$fstring = "PR# ";
+$fstring = "PR#";
foreach (@field) {
($QUICKFMT, $WIDTH)=split(/:/,$field{$_});
if ($QUICKFMT <= $quickfmt) {
#$fstring .= &truncstr($_, $WIDTH) . " ";
- $fstring .= "$_ ";
+ $fstring .= "$_ ";
}
}
-print "$fstring\n";
+if ($#field > 4) {
+ $fstring .= "PR#";
+}
+print "$fstring\n";
# Print each PR in result as link to full text
foreach (@prs) {
s/\s*\|\s*/|/go;
@@ -1085,10 +1091,16 @@
$str = eval "\$$_";
$str =~ s/\s+/ /g;
#$fstring .= &truncstr($str, $WIDTH) . " ";
- $fstring .= "".&html_escape($str)." ";
+ $fstring .= "" . &html_escape($str) . "";
}
}
- print "$NUMBER
$fstring\n";
+ print "\n";
+ print " $NUMBER ";
+ print "$fstring\n";
+ if ($#field > 4) {
+ print "$NUMBER";
+ }
+ print "\n\n";
}
print "\n";
}
cvs commit: apache-site bugdb.cgi
coar97/07/11 19:13:01
Modified:. bugdb.cgi
Log:
Add a bold warning that the submitter had *better* not be duplicating
an existing FAQ or PR item, or the response he gets may be ..
unsatisfying. (Particularly if the respondent is feeling snarky. ;)
Revision ChangesPath
1.8 +24 -3 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.7
retrieving revision 1.8
diff -C3 -r1.7 -r1.8
*** bugdb.cgi 1997/06/11 10:20:05 1.7
--- bugdb.cgi 1997/07/12 02:12:59 1.8
***
*** 43,48
--- 43,52
# 6/11/1997 Ken Coar - Added ability to edit the synopsis, release, and
#originator - very useful for pulling "pending" PRs into the
#mainstream db.
+ # 7/11/1997 Ken Coar - added warning that the submitter had better not
+ #be duplicating an existing PR or FAQ item, or the response he gets
+ #may be unsatisfying.
+ #
### End Modifcation log
### Environment variables
***
*** 181,187
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print "Version: 11 June 1997Authors: ",
"http://alumni.caltech.edu/~dank\";>Dan Kegel ",
"[EMAIL PROTECTED] & ",
"http://alumni.caltech.edu/~huyle/\";>Huy Le ",
--- 185,191
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print "Version: 11 July 1997Authors: ",
"http://alumni.caltech.edu/~dank\";>Dan Kegel ",
"[EMAIL PROTECTED] & ",
"http://alumni.caltech.edu/~huyle/\";>Huy Le ",
***
*** 351,368
sub send_pr
{
# Display title
! print "Apache: New Problem Report submission
New Problem Report form:
Please be aware that the Apache problem report database is PUBLICLY
ACCESSIBLE. The information you submit on this form will be available to
anyone on the Internet. Do not send information that you wish to remain
private.
! ";
print "\n";
#print "Organization: \n";
--- 355,389
sub send_pr
{
# Display title
! print FAQ.
+ The developers do not have time to answer the same question again and
+ again. Please search the FAQ and the
+ http://www.apache.org/bugdb.cgi";
+ >problem report database
+ before you enter this report!
+
! EOHT
print "\n";
#print "Organization: \n";
cvs commit: apache-site bugdb.cgi
coar97/06/11 03:20:07
Modified:. bugdb.cgi
Log:
Added ability to edit the synopsis, originator, and release
fields. This is useful when handling PRs that come into the
DB from mail as "pending" and don't have the right attributes.
No user-visible changes.
Revision ChangesPath
1.7 +53 -1 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.6
retrieving revision 1.7
diff -C3 -r1.6 -r1.7
*** bugdb.cgi 1997/06/06 12:01:35 1.6
--- bugdb.cgi 1997/06/11 10:20:05 1.7
***
*** 36,41
--- 36,48
# 3/2/95 Dan Kegel - Fixed small bug in timestamp; : was confusing
browsers.
# 8/24/96 Brian behlendorf - Extensive hacking for Apache
# 5/1/1997 (let's be Y2K-safe, now! ;-) Enhancements for Apache
+ # 6/6/1997 Ken Coar - Added form widgets for searching header or content
+ #fields; edit notification now has GNATS' preferred subject format;
+ #added PR# to when editing; added ability to annotate w/o
+ #changing state.
+ # 6/11/1997 Ken Coar - Added ability to edit the synopsis, release, and
+ #originator - very useful for pulling "pending" PRs into the
+ #mainstream db.
### End Modifcation log
### Environment variables
***
*** 174,180
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print "Version: 6 June 1997Authors: ",
"http://alumni.caltech.edu/~dank\";>Dan Kegel ",
"[EMAIL PROTECTED] & ",
"http://alumni.caltech.edu/~huyle/\";>Huy Le ",
--- 181,187
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print "Version: 11 June 1997Authors: ",
"http://alumni.caltech.edu/~dank\";>Dan Kegel ",
"[EMAIL PROTECTED] & ",
"http://alumni.caltech.edu/~huyle/\";>Huy Le ",
***
*** 560,565
--- 567,603
$fieldvalues{'State'} = $input{'State'};
}
+ if ($input{"Synopsis"} && ($input{"Synopsis"} ne
$fieldvalues{'Synopsis'})) {
+ $change_msg .=
+ "Synopsis-Changed-From: $fieldvalues{'Synopsis'}
+ Synopsis-Changed-To: $input{'Synopsis'}
+ Synopsis-Changed-By: $input{'Editor'}
+ Synopsis-Changed-When: $date
+ ";
+ $to_old = $to_subm = 1;
+ $fieldvalues{'Synopsis'} = $input{'Synopsis'};
+ }
+
+ if ($input{"Originator"} && ($input{"Originator"} ne
$fieldvalues{'Originator'})) {
+ $change_msg .=
+ "Originator-Changed-From-To: $fieldvalues{'Originator'}-$input{'Originator'}
+ Originator-Changed-By: $input{'Editor'}
+ Originator-Changed-When: $date
+ ";
+ $to_old = $to_subm = 1;
+ $fieldvalues{'Originator'} = $input{'Originator'};
+ }
+
+ if ($input{"Release"} ne $fieldvalues{'Release'}) {
+ $change_msg .=
+ "Release-Changed-From-To: $fieldvalues{'Release'}-$input{'Release'}
+ Release-Changed-By: $input{'Editor'}
+ Release-Changed-When: $date
+ ";
+ $to_old = $to_subm = 1;
+ $fieldvalues{'Release'} = $input{'Release'};
+ }
+
if ($input{"Class"} ne $fieldvalues{'Class'}) {
$change_msg .= "Class-Changed-From-To:
$fieldvalues{'Class'}-$input{'Class'}
Class-Changed-By: $input{'Editor'}
***
*** 724,729
--- 762,769
local($oldsyn) = $fieldvalues{"Synopsis"};
local($oldstate) = $fieldvalues{"State"};
local($oldresp) = $fieldvalues{"Responsible"};
+ local($oldrel) = $fieldvalues{"Release"};
+ local($oldorig) = $fieldvalues{"Originator"};
local($oldclass) = $fieldvalues{"Class"};
local($oldsev) = $fieldvalues{"Severity"};
$oldresp =~ s/\s*\(.*$//; # Get rid of comment in responsible party name
***
*** 756,761
--- 796,809
print "\n";
print "
+ New synopsis:
+ \n";
+
+ print "
+ Originator:
+ \n";
+
+ print "
Class:
\n";
for (sort (@nClass)) {
***
*** 764,769
--- 812,821
print " $_\n";
}
print "\n";
+
+ print "
+ Release:
+ \n";
print "
Severity:
cvs commit: apache-site bugdb.cgi
coar97/06/06 05:01:36
Modified:. bugdb.cgi
Log:
Some serious enhancements:
o ability to search header or content fields
o ability to add comments when editing w/o having to change PR state
o PR number now in title bar on more screens
o subject of edit notification now matches GNATS' expectations
so replies to users can just add apbugs w/o having to edit
the subject too
Reviewed by: Roy Fielding, Marc Slemko
Revision ChangesPath
1.6 +54 -15apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.5
retrieving revision 1.6
diff -C3 -r1.5 -r1.6
*** bugdb.cgi 1997/05/27 05:23:43 1.5
--- bugdb.cgi 1997/06/06 12:01:35 1.6
***
*** 174,180
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print "Version: 1 May 1997Authors: ",
"http://alumni.caltech.edu/~dank\";>Dan Kegel ",
"[EMAIL PROTECTED] & ",
"http://alumni.caltech.edu/~huyle/\";>Huy Le ",
--- 174,180
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print "Version: 6 June 1997Authors: ",
"http://alumni.caltech.edu/~dank\";>Dan Kegel ",
"[EMAIL PROTECTED] & ",
"http://alumni.caltech.edu/~huyle/\";>Huy Le ",
***
*** 448,463
# Sends the PR changes
sub handle_edit_pr {
# Display title
! print "Problem Report editing
";
# Initialization
$errmsg="Your problem report changes have not been sent.\n";
- # Get the PR, editor, old state, and timestamp
- local($pr, $oldstate, $timestamp) = @_;
-
# Get arguments
local($_)=scalar();
chop; s/\r$//;
--- 448,463
# Sends the PR changes
sub handle_edit_pr {
+ # Get the PR, editor, old state, and timestamp
+ local($pr, $oldstate, $timestamp) = @_;
+
# Display title
! print "Problem Report editing for PR#$pr
";
# Initialization
$errmsg="Your problem report changes have not been sent.\n";
# Get arguments
local($_)=scalar();
chop; s/\r$//;
***
*** 465,471
foreach (split(/&/)) {
++$i;
local($key,$value)=split(/=/);
! $input{$key}=&cgi_trans($value);
}
# Verify arguments
--- 465,483
foreach (split(/&/)) {
++$i;
local($key,$value)=split(/=/);
! $value=&cgi_trans($value);
! if ($fieldnames_multi{$key} > 0) {
! #
! # Convert any CR-LFs or CRs to \n (different browsers use
! # different line terminators).
! #
! $value =~ s/\r\n/\n/g;
! $value =~ s/\r/\n/g;
! if ($value !~ /\n$/) {
! $value .= "\n";
! }
! }
! $input{$key}=$value;
}
# Verify arguments
***
*** 537,542
--- 549,563
";
$to_old = $to_subm = 1;
$fieldvalues{'State'} = $input{'State'};
+ } elsif ($input{'StateReason'} ne "") {
+ $change_msg .=
+ "Comment-Added-By: $input{'Editor'}
+ Comment-Added-When: $date
+ Comment-Added:
+ $input{'StateReason'}
+ ";
+ $to_old = $to_subm = 1;
+ $fieldvalues{'State'} = $input{'State'};
}
if ($input{"Class"} ne $fieldvalues{'Class'}) {
***
*** 659,665
$msg =
"To: $mail_to
From: $input{'Editor'}
! Subject: Changed information for PR $semipr
Synopsis: $oldsyn
--- 680,686
$msg =
"To: $mail_to
From: $input{'Editor'}
! Subject: Re: $semipr: $oldsyn
Synopsis: $oldsyn
***
*** 685,694
# Gives the interface to change the PR
sub edit_pr
{
# Display title
! print "Problem Report editing\n";
- $pr = $_[0];
if ($pr eq "") {
print "Sorry\n";
print "You must specify the number of the problem report to edit.\n";
--- 706,716
# Gives the interface to change the PR
sub edit_pr
{
+ $pr = $_[0];
+
# Display title
! print "Problem Report editing for
PR#$pr\n";
if ($pr eq "") {
print "Sorry\n";
print "You must specify the number of the problem report to edit.\n";
***
*** 763,769
print "> $option\n";
}
print
! "If state changed, give the reason here:";
print "New category:\n";
print "";
--- 785,793
print "> $option\n";
}
print
! "If state changed, give the reason here.
! To add a comment to the case, enter text he
cvs commit: apache-site bugdb.cgi
brian 97/05/26 22:23:45 Modified:. bugdb.cgi Log: Obtained from: Marc Slemko Changed query-pr option to "multitext" to enable searching of multi-line fields. Revision ChangesPath 1.5 +1 -1 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.4 retrieving revision 1.5 diff -C3 -r1.4 -r1.5 *** bugdb.cgi 1997/05/07 17:56:16 1.4 --- bugdb.cgi 1997/05/27 05:23:43 1.5 *** *** 1245,1251 and/or specifying a freeform text search on any field: ! --- 1245,1251 and/or specifying a freeform text search on any field: !
cvs commit: apache-site bugdb.cgi
coar97/05/07 10:56:17 Modified:. bugdb.cgi Log: Added request for backtrace to "Full Description" section (per Ben's request in <[EMAIL PROTECTED]>). Revision ChangesPath 1.4 +5 -0 apache-site/bugdb.cgi Index: bugdb.cgi === RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.3 retrieving revision 1.4 diff -C3 -r1.3 -r1.4 *** bugdb.cgi 1997/05/01 10:55:19 1.3 --- bugdb.cgi 1997/05/07 17:56:16 1.4 *** *** 414,419 --- 414,424 Synopsis - a brief description of the problem at hand. Full Description + If you are getting a core dump, such as a SIGSEGV, please provide a + backtrace (see + http://www.apache.org/docs/misc/FAQ#what2do";>the FAQ + for instructions). + How can we repeat this problem? Give example URL's, etc.
cvs commit: apache-site bugdb.cgi
coar97/05/01 03:55:20
Modified:. bugdb.cgi
Log:
Forgot to update the change log..
Revision ChangesPath
1.3 +12 -2 apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C3 -r1.2 -r1.3
*** bugdb.cgi 1997/05/01 10:39:49 1.2
--- bugdb.cgi 1997/05/01 10:55:19 1.3
***
*** 34,40
#Fewer hardcoded paths to external programs. Moved pr_addr code to
#subroutine in libgnats.pl.
# 3/2/95 Dan Kegel - Fixed small bug in timestamp; : was confusing
browsers.
! # 8/24/96 Brian behlendorf - Extensive hacking for Apache
### End Modifcation log
### Environment variables
--- 34,41
#Fewer hardcoded paths to external programs. Moved pr_addr code to
#subroutine in libgnats.pl.
# 3/2/95 Dan Kegel - Fixed small bug in timestamp; : was confusing
browsers.
! # 8/24/96 Brian behlendorf - Extensive hacking for Apache
! # 5/1/1997 (let's be Y2K-safe, now! ;-) Enhancements for Apache
### End Modifcation log
### Environment variables
***
*** 173,179
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print"Version: 24 Aug 96Authors: http://alumni.caltech.edu/~dank\";>Dan Kegel [EMAIL PROTECTED] & http://alumni.caltech.edu/~huyle/\";>Huy Le [EMAIL PROTECTED], with
revamp work by http://www.organic.com\";>Brian Behlendorf [EMAIL
PROTECTED]\n";
} else {
print "SPR Front End
SPR Front End
--- 174,189
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print "Version: 1 May 1997Authors: ",
! "http://alumni.caltech.edu/~dank\";>Dan Kegel ",
! "[EMAIL PROTECTED] & ",
! "http://alumni.caltech.edu/~huyle/\";>Huy Le ",
! "[EMAIL PROTECTED],",
! "with revamp work by ",
! "http://www.organic.com\";>Brian Behlendorf ",
! "[EMAIL PROTECTED] & ",
! "http://www.golux.com/coar/\";>Ken Coar ",
! "[EMAIL PROTECTED]\n";
} else {
print "SPR Front End
SPR Front End
cvs commit: apache-site bugdb.cgi
coar97/05/01 03:39:51
Modified:. bugdb.cgi
Log:
Enhancements to bug reporting WWW form:
o add warning about public nature of PR db
o add searchability by PR class and severity
o add ability to change both of above when editing
o add PR # to HTML and on full display
o translate CRs into newlines in multi-line fields
o force flush of HTTP headers
o request "uname -a" on entry form
o require non-blank values for Environment, email, Category,
and Description
o fix '@' escaping bug
Reviewed by: Roy Fielding, Dean Gaudet
Revision ChangesPath
1.2 +89 -13apache-site/bugdb.cgi
Index: bugdb.cgi
===
RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C3 -r1.1 -r1.2
*** bugdb.cgi 1997/03/25 04:43:15 1.1
--- bugdb.cgi 1997/05/01 10:39:49 1.2
***
*** 87,107
--- 87,114
# The first field is the restriction, the second field is the default
option
%quickrestr = (
"Category","any",
+ "Severity","any",
"Responsible", "any",
# "Originator", "any",
+ "Class", "any",
"State", "open",
);
# Defines order of quick output restrictions
@quickrestr = (
"Category",
+ "Severity",
"Responsible",
# "Originator",
+ "Class",
"State",
);
Main routine
# Main Program
+ select (STDOUT);
+ $| = 1;
print "Content-type: text/html\n\n";
+ $| = 0;
print "\n";
#&read_originator;
***
*** 166,172
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print"Version: 24 Aug 96Authors: http://alumni.caltech.edu/~dank\";>Dan Kegel [EMAIL PROTECTED] & http://alumni.caltech.edu/~huyle/\";>Huy Le [EMAIL PROTECTED], with
revamp work by http://www.organic.com\";>Brian Behlendorf [EMAIL
PROTECTED]\n";
} else {
print "SPR Front End
SPR Front End
--- 173,179
### Main menu
} elsif ($PATH_INFO eq "") {
&main_menu();
! print"Version: 24 Aug 96Authors: http://alumni.caltech.edu/~dank\";>Dan Kegel [EMAIL PROTECTED] & http://alumni.caltech.edu/~huyle/\";>Huy Le [EMAIL PROTECTED], with
revamp work by http://www.organic.com\";>Brian Behlendorf [EMAIL
PROTECTED]\n";
} else {
print "SPR Front End
SPR Front End
***
*** 250,256
# Sends the new PR
sub handle_send_pr {
# Display title
! print "New Problem Report submission";
# Get arguments
local($_)=scalar();
--- 257,263
# Sends the new PR
sub handle_send_pr {
# Display title
! print "Apache: New Problem Report
Submission";
# Get arguments
local($_)=scalar();
***
*** 263,282
$value = &cgi_trans($value);
# By convention, multi-line fields have newlines at end of
# each line. I think some browsers forget the last newline?
! if ($fieldnames_multi{$key} > 0 && $value !~ /\n$/) {
! $value .= "\n";
}
$fieldvalues{$key}=$value;
}
# Verify arguments
! local($field);
! foreach $field ("Category") {
! if ($fieldvalues{$field} eq "") {
! print "Your problem report has not been sent.\n";
! print "You must select a $field.\n";
! return;
}
}
# kludge
--- 270,309
$value = &cgi_trans($value);
# By convention, multi-line fields have newlines at end of
# each line. I think some browsers forget the last newline?
! if ($fieldnames_multi{$key} > 0) {
! #
! # Convert any CR-LFs or CRs to \n (different browsers use
! # different line terminators).
! #
! $value =~ s/\r\n/\n/g;
! $value =~ s/\r/\n/g;
! if ($value !~ /\n$/) {
! $value .= "\n";
! }
}
$fieldvalues{$key}=$value;
}
# Verify arguments
! local($field, $ok, @emsgs) = (0, 1);
! foreach $field ("Synopsis", "emailaddr", "Environment", "Category",
"Description") {
! local ($fieldval) = $fieldvalues{$field};
! $fieldval =~ s/\s//g;
! if ($fieldval eq "") {
! push (@emsgs, $field);
! $ok = 0;
! }
! }
! if (! $ok) {
! print "Problem report not sent!\n";
! print "Your problem report is missing required information:\n";
! print "\n";
! foreach $field (@emsgs) {
! print " $field\n \n";
}
+ pri
