coar 99/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 Changes Path
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 "<HR><SMALL>Version: 30 September 1998<BR>Authors: ",
+ print "<HR><SMALL>Version: 19 January 1999<BR>Authors: ",
"<A HREF=\"http://alumni.caltech.edu/~dank/gnats.html\";>Dan Kegel ",
"and Huy Le</A>, <BR> ",
"with revamp work by ",
@@ -1320,10 +1322,10 @@
}
$nrows++;
print "<TR>\n";
- print " <TD><a href=http:$SCRIPT_NAME/full/$NUMBER>$NUMBER</a></TD> ";
+ print " <TD><A HREF=\"$SCRIPT_NAME/full/$NUMBER\">$NUMBER</A></TD> ";
print "$fstring\n";
if ($#field > 4) {
- print "<TD><a href=http:$SCRIPT_NAME/full/$NUMBER>$NUMBER</a></TD>";
+ print "<TD><A HREF=\"$SCRIPT_NAME/full/$NUMBER\">$NUMBER</A></TD>";
}
print "\n</TR>\n";
}
@@ -1431,7 +1433,7 @@
local($_fullname) = $fullname;
$_fullname =~ tr/ /_/;
$fstring =~ s/(\s*)$//;
- print "<a
href=http:$SCRIPT_NAME/quick?quickfmt=regular&Person=$_fullname>$fstring</a>$1";
+ print "<A
HREF=\"$SCRIPT_NAME/quick?quickfmt=regular&Person=$_fullname\">$fstring</A>$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 "<a
href=http:$SCRIPT_NAME/quick?quickfmt=regular&Category=$CATEGORY>$fstring</a>$1";
+ print "<A
HREF=\"$SCRIPT_NAME/quick?quickfmt=regular&Category=$CATEGORY\">$fstring</A>$1";
$fstring = "";
foreach (@states) {
next if ($_ eq "");
$str = $counts{$CATEGORY."_".$_}+0;
if ($str > 0) {
# Who's gonna answer the following query?
- $fstring .= "<a
href=http:$SCRIPT_NAME/quick?quickfmt=regular&Category=$CATEGORY&State=$_>$str</a>";
+ $fstring .= "<A
HREF=\"$SCRIPT_NAME/quick?quickfmt=regular&Category=$CATEGORY&State=$_\">$str</A>";
$fstring .= " " x (11-length($str));
} else {
$fstring .= &truncstr($str, 10) . " ";
@@ -1703,8 +1705,8 @@
</TR>
</TABLE>
EOM
-#| <A HREF="http:$SCRIPT_NAME/summary">Summary of active bugs by status and
person</A>
-#| <A HREF="http:$SCRIPT_NAME/summary_cat">Summary of all bugs by status and
category</A>
+#| <A HREF="$SCRIPT_NAME/summary">Summary of active bugs by status and
person</A>
+#| <A HREF="$SCRIPT_NAME/summary_cat">Summary of all bugs by status and
category</A>
#EOM
#------------------------------------------------------------------
# Quick query
