add leading dot for explicit domain in webcookies, bump redirection limit to 12 in webfs

2 files changed, 14 insertions, 3 deletions

diff --git a/sys/src/cmd/webcookies.c b/sys/src/cmd/webcookies.c
index 45ff69550..b0508b309 100644
--- a/sys/src/cmd/webcookies.c
+++ b/sys/src/cmd/webcookies.c
@@ -953,9 +953,20 @@ parsecookie(Cookie *c, char *p, char **e, int isns, char *dom, char *path)
 	}
 	*e = p;
 
-	if(c->dom)
+	if(c->dom){
+		/* add leading dot for explicit domain */
+		if(c->dom[0] != '.' && strcmp(ipattr(c->dom), "dom") == 0){
+			static char *ddom = nil;
+
+			ddom = realloc(ddom, strlen(c->dom)+2);
+			if(ddom != nil){
+				ddom[0] = '.';
+				strcpy(ddom+1, c->dom);
+				c->dom = ddom;
+			}
+		}
 		c->explicitdom = 1;
-	else
+	}else
 		c->dom = dom;
 	if(c->path)
 		c->explicitpath = 1;
diff --git a/sys/src/cmd/webfs/http.c b/sys/src/cmd/webfs/http.c
index ecc2dde83..03029bb6a 100644
--- a/sys/src/cmd/webfs/http.c
+++ b/sys/src/cmd/webfs/http.c
@@ -506,7 +506,7 @@ http(char *m, Url *u, Key *shdr, Buq *qbody, Buq *qpost)
 	h = nil;
 	pid = 0;
 	needlength = 0;
-	for(try = 0; try < 6; try++){
+	for(try = 0; try < 12; try++){
 		strcpy(status, "0 No status");
 		if(u == nil || (strcmp(u->scheme, "http") && strcmp(u->scheme, "https"))){
 			werrstr("bad url scheme");