paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 18:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed recognition of contenttypes containing information about the character-set

Browse Source 
* Added debug-lines

git-svn-id: trunk@13245 -
This commit is contained in:
joost 2009-06-06 21:17:53 +00:00
parent 26767125f0
commit 17c4dc5feb
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-web/src/httpdefs.pp
View File

@ -1113,6 +1113,9 @@ var
R : String; R : String;
begin begin
{$ifdef CGIDEBUG}
SendMethodEnter('TRequest.InitRequestVars');
{$endif}
R:=Method; R:=Method;
if (R='') then if (R='') then
Raise Exception.Create(SErrNoRequestMethod); Raise Exception.Create(SErrNoRequestMethod);
@ -1126,6 +1129,9 @@ begin
InitGetVars InitGetVars
else else
Raise Exception.CreateFmt(SErrInvalidRequestMethod,[R]); Raise Exception.CreateFmt(SErrInvalidRequestMethod,[R]);
{$ifdef CGIDEBUG}
SendMethodExit('TRequest.InitRequestVars');
{$endif}
end; end;
Type Type
@ -1158,7 +1164,7 @@ begin
CT:=ContentType; CT:=ContentType;
if Pos('MULTIPART/FORM-DATA',Uppercase(CT))<>0 then if Pos('MULTIPART/FORM-DATA',Uppercase(CT))<>0 then
ProcessMultiPart(M,CT, ContentFields) ProcessMultiPart(M,CT, ContentFields)
else if CompareText('APPLICATION/X-WWW-FORM-URLENCODED',CT)=0 then else if Pos('APPLICATION/X-WWW-FORM-URLENCODED',Uppercase(CT))<>0 then
ProcessUrlEncoded(M, ContentFields) ProcessUrlEncoded(M, ContentFields)
else else
begin begin