paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed bug #7133: invalid URL should give an error

Browse Source 
git-svn-id: trunk@4420 -
This commit is contained in:
michael 2006-08-13 14:13:27 +00:00
parent 43d73cca57
commit d48866d4e2
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fcl/net/httpsvlt.pp
View File

@ -426,7 +426,7 @@ end;
procedure THttpServerConnection.RequestStreamReceived;
var
i: Integer;
i : Integer;
s, URI: String;
Servlet: TGenericServlet;
Request: THttpServletRequest;
@ -435,18 +435,16 @@ begin
// WriteLn('Stream received: ', RequestStream.Size, ' bytes');
URI := UpperCase(RequestHeader.URI);
for i := 0 to Server.ServletMappings.Count - 1 do
begin
I:=0;
Servlet:=Nil;
While (Servlet=Nil) and (I<Server.ServletMappings.Count) do
begin
s := UpperCase(Server.ServletMappings[i].URLPattern);
if ((s[Length(s)] = '*') and (Copy(s, 1, Length(s) - 1) =
Copy(URI, 1, Length(s) - 1))) or (s = URI) then
break;
end;
if i < Server.ServletMappings.Count then
Servlet := Server.ServletMappings[i].Servlet
else
Servlet := nil;
Servlet:=Server.ServletMappings[i].Servlet;
inc(I);
end;
if RequestHeader.ContentLength = 0 then
RequestHeader.ContentLength := RequestStream.Size;