--- libaitwww/src/tools.c	2012/07/31 23:08:40	1.2.6.3
+++ libaitwww/src/tools.c	2012/08/06 11:08:08	1.3.2.1
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: tools.c,v 1.2.6.3 2012/07/31 23:08:40 misho Exp $
+* $Id: tools.c,v 1.3.2.1 2012/08/06 11:08:08 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -162,7 +162,8 @@ www_unescape(char * __restrict str)
 {
 	register int i, j;
 
-	assert(str);
+	if (!str)
+		return;
 
 	for (i = j = 0; str[j]; i++, j++) {
 		str[i] = str[j];
@@ -176,4 +177,52 @@ www_unescape(char * __restrict str)
 	}
 
 	str[i] = 0;
+}
+
+/*
+ * www_undot() - Undotted and clean WWW query filename
+ *
+ * @fname = query filename
+ * return: none
+ */
+void
+www_undot(const char * __restrict fname)
+{
+	char *s, *s2;
+	int l;
+
+	if (!fname)
+		return;
+
+	/* collapse / sequences */
+	if ((s = strstr(fname, "//"))) {
+		s2 = s + 1;
+		for (s2 = ++s; *s2 == '/'; s2++);
+		memmove(s, s2, strlen(s2) + 1);
+	}
+
+	/* escaped ./ and /./ sequences */
+	while (!strncmp(fname, "./", 2))
+		memmove((void*) fname, fname + 2, strlen(fname + 1));
+	while ((s = strstr(fname, "/./")))
+		memmove(s, s + 2, strlen(s + 1));
+
+	/* alternate between removing leading ../ and removing xxx/../ */
+	while (42) {
+		while (!strncmp(fname, "../", 3))
+			memmove((void*) fname, fname + 3, strlen(fname + 2));
+		if (!(s = strstr(fname, "/../")))
+			break;
+		for (s2 = s - 1; s2 >= fname && *s2 != '/'; --s2);
+		memmove(s2 + 1, s + 4, strlen(s + 3));
+	}
+
+	/* elide any /.. at the end */
+	while ((l = strlen(fname)) > 3 && 
+			!strcmp((s = (char*) fname + l - 3), "/..")) {
+		for (s2 = s - 1; s2 >= fname && *s2 != '/'; --s2);
+		if (s2 < fname)
+			break;
+		*s2 = 0;
+	}
 }