paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reverted ProcessedPathInfo to ReturnedPathInfo

Browse Source 
git-svn-id: trunk@15352 -
This commit is contained in:
michael 2010-05-31 07:08:06 +00:00
parent 96055e24ea
commit 2cd9eb927b
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/base/custweb.pp
View File

@ -368,7 +368,7 @@ Var
begin
S:=IncludeHTTPPathDelimiter(GetApplicationURL(ARequest));
P:=IncludeHTTPPathDelimiter(ARequest.ProcessedPathinfo);
P:=IncludeHTTPPathDelimiter(ARequest.ReturnedPathInfo);
If (P='') or (P='/') then
P:=IncludeHTTPPathDelimiter(AModuleName);
if (Length(P)>0) and (P[1]='/') then

2
packages/fcl-web/src/base/fpapache.pp
View File

@ -502,7 +502,7 @@ Constructor TApacheRequest.CreateReq(App : TCustomApacheApplication; ARequest :
begin
FApache:=App;
FRequest:=Arequest;
ProcessedPathInfo:=App.BaseLocation;
ReturnedPathInfo:=App.BaseLocation;
Inherited Create;
InitFromRequest;
end;

14
packages/fcl-web/src/base/httpdefs.pp
View File

@ -267,7 +267,7 @@ type
FHandleGetOnPost: Boolean;
FURI: String;
FFiles : TUploadedFiles;
FProcessedPathInfo : String;
FReturnedPathInfo : String;
procedure ParseFirstHeaderLine(const line: String);override;
function GetFirstHeaderLine: String;
Protected
@ -286,7 +286,7 @@ type
constructor Create; override;
destructor destroy; override;
Function GetNextPathInfo : String;
Property ProcessedPathInfo : String Read FProcessedPathInfo Write FProcessedPathInfo;
Property ReturnedPathInfo : String Read FReturnedPathInfo Write FReturnedPathInfo;
Property CommandLine : String Read FCommandLine;
Property Command : String read FCommand;
Property URI : String read FURI; // Uniform Resource Identifier
@ -934,19 +934,19 @@ Var
begin
P:=PathInfo;
{$ifdef CGIDEBUG}SendDebug(Format('Pathinfo: "%s" "%s"',[P,FProcessedPathInfo]));{$ENDIF}
{$ifdef CGIDEBUG}SendDebug(Format('Pathinfo: "%s" "%s"',[P,FReturnedPathInfo]));{$ENDIF}
if (P <> '') and (P[length(P)] = '/') then
Delete(P, length(P), 1);//last char is '/'
If (P<>'') and (P[1]='/') then
Delete(P,1,1);
Delete(P,1,Length(IncludeHTTPPathDelimiter(FProcessedPathInfo)));
{$ifdef CGIDEBUG}SendDebug(Format('Pathinfo: "%s" "%s"',[P,FProcessedPathInfo]));{$ENDIF}
Delete(P,1,Length(IncludeHTTPPathDelimiter(FReturnedPathInfo)));
{$ifdef CGIDEBUG}SendDebug(Format('Pathinfo: "%s" "%s"',[P,FReturnedPathInfo]));{$ENDIF}
I:=Pos('/',P);
If (I=0) then
I:=Length(P)+1;
Result:=Copy(P,1,I-1);
FProcessedPathInfo:=IncludeHTTPPathDelimiter(FProcessedPathInfo)+Result;
{$ifdef CGIDEBUG}SendDebug(Format('Pathinfo: "%s" "%s" : %s',[P,FProcessedPathInfo,Result]));{$ENDIF}
FReturnedPathInfo:=IncludeHTTPPathDelimiter(FReturnedPathInfo)+Result;
{$ifdef CGIDEBUG}SendDebug(Format('Pathinfo: "%s" "%s" : %s',[P,FReturnedPathInfo,Result]));{$ENDIF}
end;
procedure TRequest.ParseFirstHeaderLine(const line: String);