From 46b21f56c443752954208d8b75b1a6f0154cd86a Mon Sep 17 00:00:00 2001
From: Pete <pete@debu.gs>
Date: Thu, 2 Nov 2023 10:50:35 -0700
Subject: Fix a bug in directory listings in httpd.

---
 appl/svc/httpd/httpd.b | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/appl/svc/httpd/httpd.b b/appl/svc/httpd/httpd.b
index db570a74..d2f5f5e5 100644
--- a/appl/svc/httpd/httpd.b
+++ b/appl/svc/httpd/httpd.b
@@ -506,8 +506,10 @@ senddir(g: ref Private_info,vers,uri: string, fd: ref FD, mydir: ref Dir)
 	g.bout.puts("<table>\n");
 	for(i := 0; i < n; i++){
 		(typ, enc) := classify(a[i]);
-		g.bout.puts(sys->sprint("<tr><td><a href=\"%s%s\">%s</A></td>",
-			myname, a[i].name, a[i].name));
+		#g.bout.puts(sys->sprint("<tr><td><a href=\"%s%s\">%s</A></td>",
+		#	myname, a[i].name, a[i].name));
+		g.bout.puts(sys->sprint("<tr><td><a href=\"%s\">%s</A></td>",
+			a[i].name, a[i].name));
 		if(typ != nil){
 			if(typ.generic!=nil)
 				g.bout.puts(sys->sprint("<td>%s", typ.generic));
-- 
cgit v1.2.3