Fixes case in cgi module.

This commit is contained in:
Dominik Picheta 2014-09-10 00:01:32 +01:00
commit 205b765fdd

View file

@ -31,7 +31,7 @@
import strutils, os, strtabs, cookies import strutils, os, strtabs, cookies
proc URLencode*(s: string): string = proc urlEncode*(s: string): string =
## Encodes a value to be HTTP safe: This means that characters in the set ## Encodes a value to be HTTP safe: This means that characters in the set
## ``{'A'..'Z', 'a'..'z', '0'..'9', '_'}`` are carried over to the result, ## ``{'A'..'Z', 'a'..'z', '0'..'9', '_'}`` are carried over to the result,
## a space is converted to ``'+'`` and every other character is encoded as ## a space is converted to ``'+'`` and every other character is encoded as
@ -52,7 +52,7 @@ proc handleHexChar(c: char, x: var int) {.inline.} =
of 'A'..'F': x = (x shl 4) or (ord(c) - ord('A') + 10) of 'A'..'F': x = (x shl 4) or (ord(c) - ord('A') + 10)
else: assert(false) else: assert(false)
proc URLdecode*(s: string): string = proc urlDecode*(s: string): string =
## Decodes a value from its HTTP representation: This means that a ``'+'`` ## Decodes a value from its HTTP representation: This means that a ``'+'``
## is converted to a space, ``'%xx'`` (where ``xx`` denotes a hexadecimal ## is converted to a space, ``'%xx'`` (where ``xx`` denotes a hexadecimal
## value) is converted to the character with ordinal number ``xx``, and ## value) is converted to the character with ordinal number ``xx``, and
@ -82,7 +82,7 @@ proc addXmlChar(dest: var string, c: char) {.inline.} =
of '\"': add(dest, """) of '\"': add(dest, """)
else: add(dest, c) else: add(dest, c)
proc XMLencode*(s: string): string = proc xmlEncode*(s: string): string =
## Encodes a value to be XML safe: ## Encodes a value to be XML safe:
## * ``"`` is replaced by ``"`` ## * ``"`` is replaced by ``"``
## * ``<`` is replaced by ``&lt;`` ## * ``<`` is replaced by ``&lt;``
@ -331,9 +331,9 @@ proc setTestData*(keysvalues: varargs[string]) =
var i = 0 var i = 0
var query = "" var query = ""
while i < keysvalues.len: while i < keysvalues.len:
add(query, URLencode(keysvalues[i])) add(query, urlEncode(keysvalues[i]))
add(query, '=') add(query, '=')
add(query, URLencode(keysvalues[i+1])) add(query, urlEncode(keysvalues[i+1]))
add(query, '&') add(query, '&')
inc(i, 2) inc(i, 2)
putEnv("QUERY_STRING", query) putEnv("QUERY_STRING", query)