* Patch to extend earlier fix for ISS in CGI to FastCGI (bug ID 30073)

git-svn-id: trunk@34466 -

packages/fcl-web/src/base/custfcgi.pp

@@ -354,6 +354,9 @@ begin
     else
       NameValueList.Add(Name+'='+Value)
     end;
+  // Microsoft-IIS hack. IIS includes the script name in the PATH_INFO
+  if Pos('IIS', ServerSoftware) > 0 then
+    SetHTTPVariable(hvPathInfo,StringReplace(PathInfo, ScriptName, '', [rfReplaceAll, rfIgnoreCase]));
 end;
 
 procedure TFCGIRequest.Log(EventType: TEventType; const Msg: String);