Răsfoiți Sursa

* Support all methods

git-svn-id: trunk@27707 -
michael 11 ani în urmă
părinte
comite
f28dbdafcc
1 a modificat fișierele cu 0 adăugiri și 2 ștergeri
  1. 0 2
      packages/fcl-web/tests/testcgiapp.pp

+ 0 - 2
packages/fcl-web/tests/testcgiapp.pp

@@ -115,8 +115,6 @@ begin
   else
   else
     begin
     begin
     Method:=Uppercase(Method);
     Method:=Uppercase(Method);
-    If (Method<>'POST') and (Method<>'GET') then
-      Raise Exception.CreateFmt(SerrUnsupportedMethod,['METHOD']);
     end;
     end;
 end;
 end;
 (*
 (*