coar 97/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 Changes Path
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'});
#
