X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/mLib/blobdiff_plain/0ddebb8f377a5daa1f546f18a956db99c54685ca..7e4708e456b17131f28ae7f1ff7b5c7f86e2f803:/url.c

diff --git a/url.c b/url.c
index d859bfa..f7e11b3 100644
--- a/url.c
+++ b/url.c
@@ -52,7 +52,8 @@ void url_initenc(url_ectx *ctx) { ctx->f = 0; }
 
 /* --- @encode@ --- *
  *
- * Arguments:	@dstr *d@ = pointer to output string
+ * Arguments:	@url_ectx *ctx@ = encoding context
+ *		@dstr *d@ = pointer to output string
  *		@const char *p@ = pointer to thing to encode
  *
  * Returns:	---
@@ -60,7 +61,7 @@ void url_initenc(url_ectx *ctx) { ctx->f = 0; }
  * Use:		Encodes the input string into the output string.
  */
 
-static void encode(dstr *d, const char *p)
+static void encode(url_ectx *ctx, dstr *d, const char *p)
 {
   while (*p) {
     switch (*p) {
@@ -68,11 +69,28 @@ static void encode(dstr *d, const char *p)
 	DPUTC(d, '+');
         break;
       default:
-        if (isalnum((unsigned char)*p))
-	  DPUTC(d, *p);
-        else
-	  dstr_putf(d, "%%%02x", *p);
-        break;
+        if ((ctx->f & URLF_LAX) || isalnum((unsigned char)*p))
+	  goto safe;
+	else
+	  goto unsafe;
+      case '/':
+      case '~':
+	if (ctx->f & URLF_STRICT)
+	  goto unsafe;
+      case '-':
+      case '.':
+      case '_':
+      safe:
+	DPUTC(d, *p);
+	break;
+      unsafe:
+      case '+':
+      case '%':
+      case '=':
+      case '&':
+      case ';':
+	dstr_putf(d, "%%%02x", *p);
+	break;
     }
     p++;
   }
@@ -95,9 +113,9 @@ void url_enc(url_ectx *ctx, dstr *d, const char *name, const char *value)
 {
   if (ctx->f & URLF_SEP)
     DPUTC(d, '&');
-  encode(d, name);
+  encode(ctx, d, name);
   DPUTC(d, '=');
-  encode(d, value);
+  encode(ctx, d, value);
   DPUTZ(d);
   ctx->f |= URLF_SEP;
 }