[Gd-chatter] r11699 - trunk/libraries/network/koala/sources/koala

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Sun Feb 24 01:39:45 2008
New Revision: 11699

Modified:
   trunk/libraries/network/koala/sources/koala/header-values.dylan
   trunk/libraries/network/koala/sources/koala/server.dylan
Log:
Job: koala
split bugfix


Modified: trunk/libraries/network/koala/sources/koala/header-values.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/header-values.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/header-values.dylan	Sun Feb 24 01:39:45 2008
@@ -256,7 +256,7 @@
   if (string-match("Basic", str, bpos, dpos))
     // base64 encoding of userid:password.  Should decode and return
     // (userid . password).  or maybe avalue with "userid"=userid, etc.
-    let username+password = split(base64-decode(trimmed-substring(str, dpos, epos)), ':');
+    let username+password = split(base64-decode(trimmed-substring(str, dpos, epos)), ":");
     pair(first(username+password), last(username+password));
   else
     make(<avalue>,

Modified: trunk/libraries/network/koala/sources/koala/server.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/server.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/server.dylan	Sun Feb 24 01:39:45 2008
@@ -687,7 +687,7 @@
   let content-type-header = get-header(request, "content-type");
   as(<symbol>,
      if (content-type-header)
-       first(split(content-type-header, ';'))
+       first(split(content-type-header, ";"))
      else
        ""
      end if)