Added a format function to the times module and a setCookie function to the cookies module.

lib/pure/cookies.nim

@@ -9,7 +9,7 @@
 
 ## This module implements helper procs for parsing Cookies.
 
-import strtabs
+import strtabs, times
 
 proc parseCookies*(s: string): PStringTable = 
   ## parses cookies into a string table.
@@ -28,3 +28,32 @@ proc parseCookies*(s: string): PStringTable =
     if s[i] == '\0': break
     inc(i) # skip ';'
 
+proc setCookie*(key, value: string, domain = "", path = "", 
+                expires = "", noName = false): string =
+  ## Creates a command in the format of 
+  ## ``Set-Cookie: key=value; Domain=...; ...``
+  result = ""
+  if not noName: result.add("Set-Cookie: ")
+  result.add key & "=" & value
+  if domain != "": result.add("; Domain=" & domain)
+  if path != "": result.add("; Path=" & path)
+  if expires != "": result.add("; Expires=" & expires)
+
+proc setCookie*(key, value: string, expires: TTimeInfo,
+                domain = "", path = "", noName = false): string =
+  ## Creates a command in the format of 
+  ## ``Set-Cookie: key=value; Domain=...; ...``
+  ##
+  ## **Note:** UTC is assumed as the timezone for ``expires``.
+  
+  return setCookie(key, value, domain, path,
+            format(expires, "ddd',' dd MMM yyyy hh:mm:ss 'UTC'"), noname)
+  
+when isMainModule:
+  var tim = TTime(int(getTime()) + 76 * (60 * 60 * 24))
+
+  echo(setCookie("test", "value", tim.getGMTime()))
+  
+  echo parseCookies("uid=1; kp=2")
+  
+                

lib/pure/times.nim

@@ -390,4 +390,123 @@ proc `$`*(m: TMonth): string =
       "November", "December"]
   return lookup[m]
 
+proc format*(info: TTimeInfo, f: string): string =
+  ## This function formats `info` as specified by `f`. The following format
+  ## specifiers are available:
+  ## 
+  ## ==========  =================================================================================  ================================================
+  ## Specifier   Description                                                                        Example
+  ## ==========  =================================================================================  ================================================
+  ##    d        Numeric value of the day of the month, it will be one or two digits long.          ``1/04/2012 -> 1``, ``21/04/2012 -> 21``
+  ##    dd       Same as above, but always two digits.                                              ``1/04/2012 -> 01``, ``21/04/2012 -> 21``
+  ##    ddd      Three letter string which indicates the day of the week.                           ``Saturday -> Sat``, ``Monday -> Mon``
+  ##    dddd     Full string for the day of the week.                                               ``Saturday -> Saturday``, ``Monday -> Monday``
+  ##    h        The hours in one digit if possible. Ranging from 0-12.                             ``5pm -> 5``, ``2am -> 2``
+  ##    hh       The hours in two digits always. If the hour is one digit 0 is prepended.           ``5pm -> 05``, ``11am -> 11``
+  ##    H        The hours in one digit if possible, randing from 0-24.                             ``5pm -> 17``, ``2am -> 2``
+  ##    HH       The hours in two digits always. 0 is prepended if the hour is one digit.           ``5pm -> 17``, ``2am -> 02``
+  ##    m        The minutes in 1 digit if possible.                                                ``5:30 -> 30``, ``2:01 -> 1``
+  ##    mm       Same as above but always 2 digits, 0 is prepended if the minute is one digit.      ``5:30 -> 30``, ``2:01 -> 01``
+  ##    M
+  
+  
+  ## ==========  =================================================================================  ================================================
+
+
+  result = ""
+  var i = 0
+  var currentF = ""
+  while True:
+    case f[i]
+    of '\0':
+      break
+    of ' ', '-', '/', ':', '\'':
+      case currentF
+      of "d":
+        result.add($info.monthday)
+      of "dd":
+        if info.monthday < 10:
+          result.add("0")
+        result.add($info.monthday)
+      of "ddd":
+        result.add(($info.month)[0 .. 2])
+      of "dddd":
+        result.add($info.month)
+      of "h":
+        result.add($(0 - (info.hour - 12)))
+      of "hh":
+        let amerHour = 0 - (info.hour - 12)
+        if amerHour < 10:
+          result.add('0')
+        result.add($amerHour)
+      of "H":
+        result.add($info.hour)
+      of "HH":
+        if info.hour < 10:
+          result.add('0')
+        result.add($info.hour)
+      of "m":
+        result.add($info.minute)
+      of "mm":
+        if info.minute < 10:
+          result.add('0')
+        result.add($info.minute)
+      of "M":
+        result.add($(int(info.month)))
+      of "MM":
+        if int(info.month) < 10:
+          result.add('0')
+        result.add($(int(info.month)))
+      of "MMM":
+        result.add(($info.month)[0..2])
+      of "MMMM":
+        result.add($info.month)
+      of "s":
+        result.add($info.second)
+      of "ss":
+        if info.second < 10:
+          result.add('0')
+        result.add($info.second)
+      of "t":
+        if info.hour >= 12:
+          result.add('P')
+        else: result.add('A')
+      of "tt":
+        if info.hour >= 12:
+          result.add("PM")
+        else: result.add("AM")
+      of "y":
+        var fr = ($info.year).len()-2
+        if fr < 0: fr = 0
+        result.add(($info.year)[fr .. ($info.year).len()-1])
+      of "yy":
+        var fr = ($info.year).len()-3
+        if fr < 0: fr = 0
+        result.add(($info.year)[fr .. ($info.year).len()-1])
+      of "yyy":
+        var fr = ($info.year).len()-4
+        if fr < 0: fr = 0
+        result.add(($info.year)[fr .. ($info.year).len()-1])
+      of "yyyy":
+        result.add($info.year)
+      of "yyyyy":
+        result.add('0')
+        result.add($info.year)
+      of "":
+        nil # Do nothing.
+      else:
+        raise newException(EInvalidValue, "Invalid format string: " & currentF)
+      
+      currentF = ""
+      
+      if f[i] == '\'':
+        inc(i) # Skip '
+        while f[i] != '\'' and f.len-1 > i:
+          result.add(f[i])
+          inc(i)
+      else: result.add(f[i])
+      
+    else: currentF.add(f[i])
+    inc(i)
+
 {.pop.}