Browse Source

* Fix bug #28272

git-svn-id: trunk@31018 -
michael 10 years ago
parent
commit
b7d12cf4d3
2 changed files with 43 additions and 41 deletions
  1. 22 21
      packages/fcl-web/src/base/cgiprotocol.pp
  2. 21 20
      packages/fcl-web/src/base/custcgi.pp

+ 22 - 21
packages/fcl-web/src/base/cgiprotocol.pp

@@ -5,7 +5,7 @@ unit cgiprotocol;
 interface
 interface
 
 
 Const
 Const
-  CGIVarCount = 44 ;
+  CGIVarCount = 45 ;
 
 
 Type
 Type
   TCGIVarArray = Array[1..CGIVarCount] of String;
   TCGIVarArray = Array[1..CGIVarCount] of String;
@@ -36,28 +36,29 @@ Const
     { 22 } 'HTTP_REFERER',
     { 22 } 'HTTP_REFERER',
     { 23 } 'HTTP_USER_AGENT',
     { 23 } 'HTTP_USER_AGENT',
     { 24 } 'HTTP_COOKIE',
     { 24 } 'HTTP_COOKIE',
+    { 25 } 'HTTP_IF_NONE_MATCH',
 
 
      // Additional Apache vars
      // Additional Apache vars
-    { 25 } 'HTTP_CONNECTION',
-    { 26 } 'HTTP_ACCEPT_LANGUAGE',
-    { 27 } 'HTTP_HOST',
-    { 28 } 'SERVER_SIGNATURE',
-    { 29 } 'SERVER_ADDR',
-    { 30 } 'DOCUMENT_ROOT',
-    { 31 } 'SERVER_ADMIN',
-    { 32 } 'SCRIPT_FILENAME',
-    { 33 } 'REMOTE_PORT',
-    { 34 } 'REQUEST_URI',
-    { 35 } 'CONTENT',
-    { 36 } 'HTTP_X_REQUESTED_WITH',
-    { 37 } 'HTTP_AUTHORIZATION',
-    { 38 } 'SCRIPT_URI',
-    { 39 } 'SCRIPT_URL',
-    { 40 } 'CONTEXT_DOCUMENT_ROOT',
-    { 41 } 'CONTEXT_PREFIX',
-    { 42 } 'HTTP_CACHE_CONTROL',
-    { 43 } 'HTTP_PRAGMA',
-    { 44 } 'REQUEST_SCHEME'
+    { 26 } 'HTTP_CONNECTION',
+    { 27 } 'HTTP_ACCEPT_LANGUAGE',
+    { 28 } 'HTTP_HOST',
+    { 29 } 'SERVER_SIGNATURE',
+    { 30 } 'SERVER_ADDR',
+    { 31 } 'DOCUMENT_ROOT',
+    { 32 } 'SERVER_ADMIN',
+    { 33 } 'SCRIPT_FILENAME',
+    { 34 } 'REMOTE_PORT',
+    { 35 } 'REQUEST_URI',
+    { 36 } 'CONTENT',
+    { 37 } 'HTTP_X_REQUESTED_WITH',
+    { 38 } 'HTTP_AUTHORIZATION',
+    { 39 } 'SCRIPT_URI',
+    { 40 } 'SCRIPT_URL',
+    { 41 } 'CONTEXT_DOCUMENT_ROOT',
+    { 42 } 'CONTEXT_PREFIX',
+    { 43 } 'HTTP_CACHE_CONTROL',
+    { 44 } 'HTTP_PRAGMA',
+    { 45 } 'REQUEST_SCHEME'
     );
     );
 
 
 Function IndexOfCGIVar(AVarName: String): Integer;
 Function IndexOfCGIVar(AVarName: String): Integer;

+ 21 - 20
packages/fcl-web/src/base/custcgi.pp

@@ -188,27 +188,28 @@ Const
     { 22: 'HTTP_REFERER'           } (h:hhReferer; v : hvUnknown),
     { 22: 'HTTP_REFERER'           } (h:hhReferer; v : hvUnknown),
     { 23: 'HTTP_USER_AGENT'        } (h:hhUserAgent; v : hvUnknown),
     { 23: 'HTTP_USER_AGENT'        } (h:hhUserAgent; v : hvUnknown),
     { 24: 'HTTP_COOKIE'            } (h:hhUnknown; v : hvCookie),
     { 24: 'HTTP_COOKIE'            } (h:hhUnknown; v : hvCookie),
+    { 25: 'HTTP_IF_NONE_MATCH      } (h:hhIfNoneMatch; v : hvUnknown),
      // Additional Apache vars
      // Additional Apache vars
-    { 25: 'HTTP_CONNECTION'        } (h:hhConnection; v : hvUnknown),
-    { 26: 'HTTP_ACCEPT_LANGUAGE'   } (h:hhAcceptLanguage; v : hvUnknown),
-    { 27: 'HTTP_HOST'              } (h:hhHost; v : hvUnknown),
-    { 28: 'SERVER_SIGNATURE'       } (h:hhUnknown; v : hvUnknown),
-    { 29: 'SERVER_ADDR'            } (h:hhUnknown; v : hvUnknown),
-    { 30: 'DOCUMENT_ROOT'          } (h:hhUnknown; v : hvUnknown),
-    { 31: 'SERVER_ADMIN'           } (h:hhUnknown; v : hvUnknown),
-    { 32: 'SCRIPT_FILENAME'        } (h:hhUnknown; v : hvUnknown),
-    { 33: 'REMOTE_PORT'            } (h:hhUnknown; v : hvUnknown),
-    { 34: 'REQUEST_URI'            } (h:hhUnknown; v : hvUnknown),
-    { 35: 'CONTENT'                } (h:hhUnknown; v : hvContent),
-    { 36: 'XHTTPREQUESTEDWITH'     } (h:hhUnknown; v : hvXRequestedWith),
-    { 37: 'HTTP_AUTHORIZATION'     } (h:hhAuthorization; v : hvUnknown),
-    { 38: 'SCRIPT_URI'             } (h:hhUnknown; v : hvUnknown),
-    { 39: 'SCRIPT_URL'             } (h:hhUnknown; v : hvURL),
-    { 40: 'CONTEXT_DOCUMENT_ROOT'  } (h:hhUnknown; v : hvUnknown),
-    { 41: 'CONTEXT_PREFIX'         } (h:hhUnknown; v : hvUnknown),
-    { 42: 'HTTP_CACHE_CONTROL'     } (h:hhCacheControl; v : hvUnknown),
-    { 43: 'HTTP_PRAGMA'            } (h:hhPragma; v : hvUnknown),
-    { 44: 'REQUEST_SCHEME'         } (h:hhUnknown; v : hvUnknown)
+    { 26: 'HTTP_CONNECTION'        } (h:hhConnection; v : hvUnknown),
+    { 27: 'HTTP_ACCEPT_LANGUAGE'   } (h:hhAcceptLanguage; v : hvUnknown),
+    { 28: 'HTTP_HOST'              } (h:hhHost; v : hvUnknown),
+    { 29: 'SERVER_SIGNATURE'       } (h:hhUnknown; v : hvUnknown),
+    { 30: 'SERVER_ADDR'            } (h:hhUnknown; v : hvUnknown),
+    { 31: 'DOCUMENT_ROOT'          } (h:hhUnknown; v : hvUnknown),
+    { 32: 'SERVER_ADMIN'           } (h:hhUnknown; v : hvUnknown),
+    { 33: 'SCRIPT_FILENAME'        } (h:hhUnknown; v : hvUnknown),
+    { 34: 'REMOTE_PORT'            } (h:hhUnknown; v : hvUnknown),
+    { 35: 'REQUEST_URI'            } (h:hhUnknown; v : hvUnknown),
+    { 36: 'CONTENT'                } (h:hhUnknown; v : hvContent),
+    { 37: 'XHTTPREQUESTEDWITH'     } (h:hhUnknown; v : hvXRequestedWith),
+    { 38: 'HTTP_AUTHORIZATION'     } (h:hhAuthorization; v : hvUnknown),
+    { 39: 'SCRIPT_URI'             } (h:hhUnknown; v : hvUnknown),
+    { 40: 'SCRIPT_URL'             } (h:hhUnknown; v : hvURL),
+    { 41: 'CONTEXT_DOCUMENT_ROOT'  } (h:hhUnknown; v : hvUnknown),
+    { 42: 'CONTEXT_PREFIX'         } (h:hhUnknown; v : hvUnknown),
+    { 43: 'HTTP_CACHE_CONTROL'     } (h:hhCacheControl; v : hvUnknown),
+    { 44: 'HTTP_PRAGMA'            } (h:hhPragma; v : hvUnknown),
+    { 45: 'REQUEST_SCHEME'         } (h:hhUnknown; v : hvUnknown)
   );
   );
 
 
 procedure TCgiHandler.GetCGIVarList(List: TStrings);
 procedure TCgiHandler.GetCGIVarList(List: TStrings);