Changeset 376 for Network/CoolWeb/WebServer/UHTTPServerCGI.pas

Timestamp:

Jun 18, 2012, 10:42:17 PM (12 years ago)

Author:

chronos

Message:

• Modified: QueryParts renamed to Path as TListString type.

File:

• Network/CoolWeb/WebServer/UHTTPServerCGI.pas (modified) (3 diffs)

Network/CoolWeb/WebServer/UHTTPServerCGI.pas

@@ -99 +99 @@
       EnvVars.Values['QUERY_STRING'] := Copy(EnvVars.Values['QUERY_STRING'], 1,
         Length(EnvVars.Values['QUERY_STRING']) - 1);
-    Request.QueryParts.Explode(EnvVars.Values['QUERY_STRING'], '/', StrToStr);
-    if Pos('?', EnvVars.Values['REQUEST_URI']) > 0 then
+    Request.Path.Explode(EnvVars.Values['QUERY_STRING'], '/', StrToStr);
+    if Pos('?', EnvVars.Values['REQUEST_URI']) > 0 then begin
       Request.Query.Parse(Copy(EnvVars.Values['REQUEST_URI'],
         Pos('?', EnvVars.Values['REQUEST_URI']) + 1,
         Length(EnvVars.Values['REQUEST_URI'])));
+    end;
 
     // Load session variables
@@ -119 +120 @@
 
     Response.Content.Clear;
-    Response.Headers.Values['Content-type'] := 'text/html';
+    Response.Headers.Add('Content-type', 'text/html');
 
     // Execute content handler
@@ -132 +133 @@
       // Generate cookies
       for I := 0 to Cookies.Count - 1 do
-        Headers.Add('Set-Cookie' + Headers.NameValueSeparator + Cookies.Names[I] + '=' + Cookies.ValueFromIndex[I]);
+        Headers.Add('Set-Cookie', Cookies.Names[I] + '=' + Cookies.ValueFromIndex[I]);
         // + ';path=/;expires=' + RFC822DateTime(Now);
 
       // Generate headers
       for I := 0 to Headers.Count - 1 do begin
-        WriteLn(Headers.Names[I] + ': ' + Headers.ValueFromIndex[I]);
+        WriteLn(Headers.Keys[I] + ': ' + Headers.Items[I].Value);
       end;