|
@@ -440,13 +440,17 @@ procedure ParseStartLine(Request : TFPHTTPConnectionRequest; AStartLine : String
|
|
|
|
|
|
|
|
Var
|
|
Var
|
|
|
S : String;
|
|
S : String;
|
|
|
-
|
|
|
|
|
|
|
+ I : Integer;
|
|
|
|
|
+
|
|
|
begin
|
|
begin
|
|
|
Request.Method:=GetNextWord(AStartLine);
|
|
Request.Method:=GetNextWord(AStartLine);
|
|
|
Request.URL:=GetNextWord(AStartLine);
|
|
Request.URL:=GetNextWord(AStartLine);
|
|
|
S:=Request.URL;
|
|
S:=Request.URL;
|
|
|
If (S<>'') and (S[1]='/') then
|
|
If (S<>'') and (S[1]='/') then
|
|
|
Delete(S,1,1);
|
|
Delete(S,1,1);
|
|
|
|
|
+ I:=Pos('?',S);
|
|
|
|
|
+ if (I>0) then
|
|
|
|
|
+ S:=Copy(S,1,I-1);
|
|
|
Request.PathInfo:=S;
|
|
Request.PathInfo:=S;
|
|
|
S:=GetNextWord(AStartLine);
|
|
S:=GetNextWord(AStartLine);
|
|
|
If (Pos('HTTP/',S)<>1) then
|
|
If (Pos('HTTP/',S)<>1) then
|
michael