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

* Send code 500 in case of exception.

Browse Source 
git-svn-id: trunk@17597 -
This commit is contained in:
michael 2011-05-28 09:18:49 +00:00
parent 63f6b66d0f
commit 86ff2a08ba
1 changed files with 2 additions and 0 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

@ -272,6 +272,8 @@ begin
end;
If (not R.HeadersSent) then
begin
R.Code:=500;
R.CodeText:='Application error '+E.ClassName;
R.ContentType:='text/html';
end;
If (R.ContentType='text/html') then