Merge pull request #166 from moteus/ssh_keyfunction

Add. Support CURLOPT_SSH_KNOWNHOSTS
2021-01-08 10:50:00 +03:00 · 2021-01-08 10:50:00 +03:00 · ac99e48791
parent 39c84f8c7d dbacb63360
commit ac99e48791
10 changed files with 225 additions and 18 deletions
--- a/.appveyor/install_curl.bat
+++ b/.appveyor/install_curl.bat
@ -36,6 +36,7 @@ if not exist %LR_EXTERNAL%\libcurl.dll (
  if not exist %LR_EXTERNAL%\include\curl mkdir %LR_EXTERNAL%\include\curl
  copy "include\curl\*.h" %LR_EXTERNAL%\include\curl
  copy "build\%PLAT_NAME%\VC12\%CURL_CFG%\libcurl.lib" %LR_EXTERNAL%\lib\libcurl.lib
+  copy "build\%PLAT_NAME%\VC12\%CURL_CFG%\libcurl.lib" %LR_EXTERNAL%\libcurl.lib
  copy "build\%PLAT_NAME%\VC12\%CURL_CFG%\libcurl.dll" %LR_EXTERNAL%\libcurl.dll
 )

--- a/.travis.yml
+++ b/.travis.yml
@ -17,6 +17,8 @@ matrix:
      os: linux
    - env: LUA="lua 5.3"
      os: linux
+    - env: LUA="lua 5.4"
+      os: linux
    - env: LUA="luajit 2.0"
      os: linux
    - env: LUA="luajit 2.1"
@ -49,6 +51,8 @@ before_script:
  - luarocks show lunitx           > /dev/null 2>&1 || luarocks install lunitx
  - luarocks show luafilesystem    > /dev/null 2>&1 || luarocks install luafilesystem
  - luarocks show dkjson           > /dev/null 2>&1 || luarocks install dkjson --deps-mode=none
+  - luarocks show luarocks-fetch-gitrec > /dev/null 2>&1 || luarocks install luarocks-fetch-gitrec
+  - luarocks show lua-http-parser  > /dev/null 2>&1 || luarocks install lua-http-parser || luarocks install test/deps/lua-http-parser-2.7-1.rockspec
  - luarocks show pegasus          > /dev/null 2>&1 || luarocks install pegasus http.parser 
    --server=http://luarocks.org/manifests/moteus
  - luarocks show pegasus-router   > /dev/null 2>&1 || luarocks install pegasus-router 
--- a/appveyor.yml
+++ b/appveyor.yml
@ -13,6 +13,7 @@ environment:
  - LUA: "lua 5.1"
  - LUA: "lua 5.2"
  - LUA: "lua 5.3"
+  - LUA: "lua 5.4"

 platform:
  - x64
@ -36,7 +37,7 @@ install:
    )
  - if not exist c:\hererocks (
      pip install hererocks &&
-      hererocks c:\hererocks --%LUA% --target %HR_TARGET% -r2.4.4
+      hererocks c:\hererocks --%LUA% --target %HR_TARGET% -rlatest
    )
  - call c:\hererocks\bin\activate
  - luarocks show luarocks-fetch-gitrec >nul 2>&1 || luarocks install luarocks-fetch-gitrec
@ -58,6 +59,8 @@ before_test:
  - luarocks show dkjson >nul 2>&1 || luarocks install dkjson
  - luarocks show luafilesystem >nul 2>&1 || luarocks install luafilesystem
  - luarocks show lua-path >nul 2>&1 || luarocks install lua-path
+  - luarocks show luarocks-fetch-gitrec > /dev/null 2>&1 || luarocks install luarocks-fetch-gitrec
+  - luarocks show lua-http-parser  > /dev/null 2>&1 || luarocks install lua-http-parser || luarocks install test/deps/lua-http-parser-2.7-1.rockspec
  - luarocks show pegasus >nul 2>&1 || luarocks install pegasus http.parser 
    --server=http://luarocks.org/manifests/moteus
  - luarocks show pegasus-router >nul 2>&1 || luarocks install pegasus-router 
--- a/rockspecs/lua-curl-scm-0.rockspec
+++ b/rockspecs/lua-curl-scm-0.rockspec
@ -15,7 +15,7 @@ description = {
 }

 dependencies = {
-  "lua >= 5.1, < 5.4"
+  "lua >= 5.1, < 5.5"
 }

 external_dependencies = {
--- a/src/lceasy.c
+++ b/src/lceasy.c
@ -94,10 +94,13 @@ int lcurl_easy_create(lua_State *L, int error_mode){
  p->match.cb_ref     = p->match.ud_ref = LUA_NOREF;
  p->chunk_bgn.cb_ref = p->chunk_bgn.ud_ref = LUA_NOREF;
  p->chunk_end.cb_ref = p->chunk_end.ud_ref = LUA_NOREF;
+#if LCURL_CURL_VER_GE(7,19,6)
+  p->ssh_key.cb_ref   = p->ssh_key.ud_ref   = LUA_NOREF;
+#endif
 #if LCURL_CURL_VER_GE(7,64,0)
  p->trailer.cb_ref   = p->trailer.ud_ref   = LUA_NOREF;
 #endif
-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
  p->hstsread.cb_ref  = p->hstsread.ud_ref  = LUA_NOREF;
  p->hstswrite.cb_ref = p->hstswrite.ud_ref = LUA_NOREF;
 #endif
@ -155,11 +158,15 @@ static int lcurl_easy_cleanup_storage(lua_State *L, lcurl_easy_t *p){
  luaL_unref(L, LCURL_LUA_REGISTRY, p->chunk_bgn.ud_ref);
  luaL_unref(L, LCURL_LUA_REGISTRY, p->chunk_end.cb_ref);
  luaL_unref(L, LCURL_LUA_REGISTRY, p->chunk_end.ud_ref);
+#if LCURL_CURL_VER_GE(7,19,6)
+  luaL_unref(L, LCURL_LUA_REGISTRY, p->ssh_key.cb_ref);
+  luaL_unref(L, LCURL_LUA_REGISTRY, p->ssh_key.ud_ref);
+#endif
 #if LCURL_CURL_VER_GE(7,64,0)
  luaL_unref(L, LCURL_LUA_REGISTRY, p->trailer.cb_ref);
  luaL_unref(L, LCURL_LUA_REGISTRY, p->trailer.ud_ref);
 #endif
-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
  luaL_unref(L, LCURL_LUA_REGISTRY, p->hstsread.cb_ref);
  luaL_unref(L, LCURL_LUA_REGISTRY, p->hstsread.ud_ref);
  luaL_unref(L, LCURL_LUA_REGISTRY, p->hstswrite.cb_ref);
@ -178,10 +185,13 @@ static int lcurl_easy_cleanup_storage(lua_State *L, lcurl_easy_t *p){
  p->match.cb_ref     = p->match.ud_ref     = LUA_NOREF;
  p->chunk_bgn.cb_ref = p->chunk_bgn.ud_ref = LUA_NOREF;
  p->chunk_end.cb_ref = p->chunk_end.ud_ref = LUA_NOREF;
+#if LCURL_CURL_VER_GE(7,19,6)
+  p->ssh_key.cb_ref   = p->ssh_key.ud_ref   = LUA_NOREF;
+#endif
 #if LCURL_CURL_VER_GE(7,64,0)
  p->trailer.cb_ref   = p->trailer.ud_ref   = LUA_NOREF;
 #endif
-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
  p->hstsread.cb_ref  = p->hstsread.ud_ref  = LUA_NOREF;
  p->hstswrite.cb_ref = p->hstswrite.ud_ref = LUA_NOREF;
 #endif
@ -897,6 +907,27 @@ static int lcurl_easy_unset_DEBUGFUNCTION(lua_State *L){
  return 1;
 }

+#if LCURL_CURL_VER_GE(7,19,6)
+
+static int lcurl_easy_unset_SSH_KEYFUNCTION(lua_State *L){
+  lcurl_easy_t *p = lcurl_geteasy(L);
+
+  CURLcode code = curl_easy_setopt(p->curl, CURLOPT_SSH_KEYFUNCTION, NULL);
+  if(code != CURLE_OK){
+    return lcurl_fail_ex(L, p->err_mode, LCURL_ERROR_EASY, code);
+  }
+  curl_easy_setopt(p->curl, CURLOPT_SSH_KEYDATA, NULL);
+
+  luaL_unref(L, LCURL_LUA_REGISTRY, p->ssh_key.cb_ref);
+  luaL_unref(L, LCURL_LUA_REGISTRY, p->ssh_key.ud_ref);
+  p->ssh_key.cb_ref = p->ssh_key.ud_ref = LUA_NOREF;
+
+  lua_settop(L, 1);
+  return 1;
+}
+
+#endif
+
 #if LCURL_CURL_VER_GE(7,21,0)

 static int lcurl_easy_unset_FNMATCH_FUNCTION(lua_State *L){
@ -935,6 +966,7 @@ static int lcurl_easy_unset_CHUNK_BGN_FUNCTION(lua_State *L){
  lua_settop(L, 1);
  return 1;
 }
+
 static int lcurl_easy_unset_CHUNK_END_FUNCTION(lua_State *L){
  lcurl_easy_t *p = lcurl_geteasy(L);

@ -1046,7 +1078,7 @@ static int lcurl_easy_unset_TRAILERFUNCTION(lua_State *L){

 #endif

-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS

 static int lcurl_easy_unset_HSTSREADFUNCTION (lua_State *L){
  lcurl_easy_t *p = lcurl_geteasy(L);
@ -1818,7 +1850,7 @@ static int lcurl_easy_set_TRAILERFUNCTION (lua_State *L){

 //{ HSTS Reader

-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS

 #define LCURL_HSTS_EXPIRE_LEN 18

@ -1924,7 +1956,7 @@ static int lcurl_easy_set_HSTSREADFUNCTION(lua_State *L){

 //{ HSTS Writer

-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS

 static int lcurl_hstswrite_callback(CURL *easy, struct curl_hstsentry *sts, struct curl_index *count, void *arg) {
  lcurl_easy_t *p = arg;
@ -1996,6 +2028,87 @@ static int lcurl_easy_set_HSTSWRITEFUNCTION(lua_State *L){

 //}

+//{ SSH key
+
+#if LCURL_CURL_VER_GE(7,19,6)
+
+static void lcurl_ssh_key_push(lua_State *L, const struct curl_khkey *key){
+  if (!key) {
+    lua_pushnil(L);
+    return;
+  }
+
+  lua_newtable(L);
+
+  if(key->len){
+    lua_pushliteral(L, "raw");
+    lua_pushlstring(L, key->key, key->len);
+  } else {
+    lua_pushliteral(L, "base64");
+    lua_pushstring(L, key->key);
+  }
+  lua_rawset(L, -3);
+
+  lua_pushliteral(L, "type");
+  lutil_pushuint(L, key->keytype);
+  lua_rawset(L, -3);
+}
+
+static int lcurl_ssh_key_callback(
+  CURL *easy,
+  const struct curl_khkey *knownkey,
+  const struct curl_khkey *foundkey,
+  enum curl_khmatch khmatch,
+  void *arg
+) {
+  lcurl_easy_t *p = arg;
+  lua_State *L = p->L;
+  int top = lua_gettop(L);
+  int n   = lcurl_util_push_cb(L, &p->ssh_key);
+
+  assert(NULL != p->L);
+
+  lcurl_ssh_key_push(L, knownkey);
+  lcurl_ssh_key_push(L, foundkey);
+  lutil_pushuint(L, khmatch);
+
+  if (lua_pcall(L, n + 2, LUA_MULTRET, 0)) {
+    assert(lua_gettop(L) >= top);
+    lua_pushlightuserdata(L, (void*)LCURL_ERROR_TAG);
+    lua_insert(L, top + 1);
+    return CURLKHSTAT_REJECT;
+  }
+
+  if (lua_gettop(L) > top) {
+    int ret = lua_tointeger(L, top + 1);
+    lua_settop(L, top);
+
+    switch (ret) 
+#if LCURL_CURL_VER_GE(7,73,0)
+      case CURLKHSTAT_FINE_REPLACE:
+#endif
+      case CURLKHSTAT_FINE_ADD_TO_FILE:
+      case CURLKHSTAT_FINE:
+      case CURLKHSTAT_REJECT:
+      case CURLKHSTAT_DEFER:
+        return ret;
+  }
+
+  return CURLKHSTAT_REJECT;
+}
+
+static int lcurl_easy_set_SSH_KEYFUNCTION(lua_State *L){
+  lcurl_easy_t *p = lcurl_geteasy(L);
+  return lcurl_easy_set_callback(L, p, &p->ssh_key,
+    CURLOPT_SSH_KEYFUNCTION, CURLOPT_SSH_KEYDATA,
+    "ssh_key", lcurl_ssh_key_callback
+  );
+}
+
+#endif
+
+//}
+
 static int lcurl_easy_setopt(lua_State *L){
  lcurl_easy_t *p = lcurl_geteasy(L);
  long opt;
@ -2023,8 +2136,11 @@ static int lcurl_easy_setopt(lua_State *L){
    OPT_ENTRY(progressfunction,  PROGRESSFUNCTION, TTT, 0, 0)
    OPT_ENTRY(seekfunction,      SEEKFUNCTION,     TTT, 0, 0)
    OPT_ENTRY(debugfunction,     DEBUGFUNCTION,    TTT, 0, 0)
+#if LCURL_CURL_VER_GE(7,19,6)
+  OPT_ENTRY(ssh_keyfunction,     SSH_KEYFUNCTION,  TTT, 0, 0)
+#endif
 #if LCURL_CURL_VER_GE(7,21,0)
-    OPT_ENTRY(fnmatch_function,  FNMATCH_FUNCTION, TTT, 0, 0)
+    OPT_ENTRY(fnmatch_function,   FNMATCH_FUNCTION,   TTT, 0, 0)
    OPT_ENTRY(chunk_bgn_function, CHUNK_BGN_FUNCTION, TTT, 0, 0)
    OPT_ENTRY(chunk_end_function, CHUNK_END_FUNCTION, TTT, 0, 0)
 #endif
@ -2034,6 +2150,16 @@ static int lcurl_easy_setopt(lua_State *L){
 #endif
 #if LCURL_CURL_VER_GE(7,56,0)
    OPT_ENTRY(mimepost,          MIMEPOST,         TTT, 0, 0)
+#endif
+#if LCURL_CURL_VER_GE(7,63,0)
+  OPT_ENTRY(curlu,               CURLU,            TTT, 0, 0)
+#endif
+#if LCURL_CURL_VER_GE(7,64,0)
+  OPT_ENTRY(trailerfunction,     TRAILERFUNCTION,  TTT, 0, 0)
+#endif
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
+  OPT_ENTRY(hstsreadfunction,    HSTSREADFUNCTION, TTT, 0, 0)
+  OPT_ENTRY(hstswritefunction,   HSTSWRITEFUNCTION,TTT, 0, 0)
 #endif
  }
 #undef OPT_ENTRY
@ -2060,8 +2186,11 @@ static int lcurl_easy_unsetopt(lua_State *L){
    OPT_ENTRY(progressfunction,  PROGRESSFUNCTION, TTT, 0, 0)
    OPT_ENTRY(seekfunction,      SEEKFUNCTION,     TTT, 0, 0)
    OPT_ENTRY(debugfunction,     DEBUGFUNCTION,    TTT, 0, 0)
+#if LCURL_CURL_VER_GE(7,19,6)
+  OPT_ENTRY(ssh_keyfunction,     SSH_KEYFUNCTION,  TTT, 0, 0)
+#endif
 #if LCURL_CURL_VER_GE(7,21,0)
-    OPT_ENTRY(fnmatch_function,  FNMATCH_FUNCTION, TTT, 0, 0)
+    OPT_ENTRY(fnmatch_function,   FNMATCH_FUNCTION,   TTT, 0, 0)
    OPT_ENTRY(chunk_bgn_function, CHUNK_BGN_FUNCTION, TTT, 0, 0)
    OPT_ENTRY(chunk_end_function, CHUNK_END_FUNCTION, TTT, 0, 0)
 #endif
@ -2071,6 +2200,16 @@ static int lcurl_easy_unsetopt(lua_State *L){
 #endif
 #if LCURL_CURL_VER_GE(7,56,0)
    OPT_ENTRY(mimepost,          MIMEPOST,         TTT, 0, 0)
+#endif
+#if LCURL_CURL_VER_GE(7,63,0)
+  OPT_ENTRY(curlu,               CURLU,            TTT, 0, 0)
+#endif
+#if LCURL_CURL_VER_GE(7,64,0)
+  OPT_ENTRY(trailerfunction,     TRAILERFUNCTION,  TTT, 0, 0)
+#endif
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
+  OPT_ENTRY(hstsreadfunction,    HSTSREADFUNCTION, TTT, 0, 0)
+  OPT_ENTRY(hstswritefunction,   HSTSWRITEFUNCTION,TTT, 0, 0)
 #endif
  }
 #undef OPT_ENTRY
@ -2141,6 +2280,9 @@ static const struct luaL_Reg lcurl_easy_methods[] = {
  OPT_ENTRY(progressfunction,  PROGRESSFUNCTION, TTT, 0, 0)
  OPT_ENTRY(seekfunction,      SEEKFUNCTION,     TTT, 0, 0)
  OPT_ENTRY(debugfunction,     DEBUGFUNCTION,    TTT, 0, 0)
+#if LCURL_CURL_VER_GE(7,19,6)
+  OPT_ENTRY(ssh_keyfunction,   SSH_KEYFUNCTION,  TTT, 0, 0)
+#endif
 #if LCURL_CURL_VER_GE(7,21,0)
  OPT_ENTRY(fnmatch_function,   FNMATCH_FUNCTION,   TTT, 0, 0)
  OPT_ENTRY(chunk_bgn_function, CHUNK_BGN_FUNCTION, TTT, 0, 0)
@ -2159,7 +2301,7 @@ static const struct luaL_Reg lcurl_easy_methods[] = {
 #if LCURL_CURL_VER_GE(7,64,0)
  OPT_ENTRY(trailerfunction,   TRAILERFUNCTION,  TTT, 0, 0)
 #endif
-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
  OPT_ENTRY(hstsreadfunction,  HSTSREADFUNCTION, TTT, 0, 0)
  OPT_ENTRY(hstswritefunction, HSTSWRITEFUNCTION,TTT, 0, 0)
 #endif
@ -2176,6 +2318,9 @@ static const struct luaL_Reg lcurl_easy_methods[] = {
  OPT_ENTRY(progressfunction,  PROGRESSFUNCTION, TTT, 0, 0)
  OPT_ENTRY(seekfunction,      SEEKFUNCTION,     TTT, 0, 0)
  OPT_ENTRY(debugfunction,     DEBUGFUNCTION,    TTT, 0, 0)
+#if LCURL_CURL_VER_GE(7,19,6)
+  OPT_ENTRY(ssh_keyfunction,   SSH_KEYFUNCTION,  TTT, 0, 0)
+#endif
 #if LCURL_CURL_VER_GE(7,21,0)
  OPT_ENTRY(fnmatch_function,   FNMATCH_FUNCTION,   TTT, 0, 0)
  OPT_ENTRY(chunk_bgn_function, CHUNK_BGN_FUNCTION, TTT, 0, 0)
@ -2194,7 +2339,7 @@ static const struct luaL_Reg lcurl_easy_methods[] = {
 #if LCURL_CURL_VER_GE(7,64,0)
  OPT_ENTRY(trailerfunction,   TRAILERFUNCTION,  TTT, 0, 0)
 #endif
-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
  OPT_ENTRY(hstsreadfunction,  HSTSREADFUNCTION, TTT, 0, 0)
  OPT_ENTRY(hstswritefunction, HSTSWRITEFUNCTION,TTT, 0, 0)
 #endif
@ -2243,8 +2388,11 @@ static const lcurl_const_t lcurl_easy_opt[] = {
  OPT_ENTRY(progressfunction,  PROGRESSFUNCTION, TTT, 0, 0)
  OPT_ENTRY(seekfunction,      SEEKFUNCTION,     TTT, 0, 0)
  OPT_ENTRY(debugfunction,     DEBUGFUNCTION,    TTT, 0, 0)
+#if LCURL_CURL_VER_GE(7,19,6)
+  OPT_ENTRY(ssh_keyfunction,   SSH_KEYFUNCTION,  TTT, 0, 0)
+#endif
 #if LCURL_CURL_VER_GE(7,21,0)
-  OPT_ENTRY(fnmatch_function,  FNMATCH_FUNCTION, TTT, 0, 0)
+  OPT_ENTRY(fnmatch_function,   FNMATCH_FUNCTION,   TTT, 0, 0)
  OPT_ENTRY(chunk_bgn_function, CHUNK_BGN_FUNCTION, TTT, 0, 0)
  OPT_ENTRY(chunk_end_function, CHUNK_END_FUNCTION, TTT, 0, 0)
 #endif
@ -2261,7 +2409,7 @@ static const lcurl_const_t lcurl_easy_opt[] = {
 #if LCURL_CURL_VER_GE(7,64,0)
  OPT_ENTRY(trailerfunction,   TRAILERFUNCTION,  TTT, 0, 0)
 #endif
-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
  OPT_ENTRY(hstsreadfunction,  HSTSREADFUNCTION, TTT, 0, 0)
  OPT_ENTRY(hstswritefunction, HSTSWRITEFUNCTION,TTT, 0, 0)
 #endif
--- a/src/lceasy.h
+++ b/src/lceasy.h
@ -87,10 +87,13 @@ typedef struct lcurl_easy_tag{
  lcurl_callback_t match;
  lcurl_callback_t chunk_bgn;
  lcurl_callback_t chunk_end;
+#if LCURL_CURL_VER_GE(7,19,6)
+  lcurl_callback_t ssh_key;
+#endif
 #if LCURL_CURL_VER_GE(7,64,0)
  lcurl_callback_t trailer;
 #endif
-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
  lcurl_callback_t hstsread;
  lcurl_callback_t hstswrite;
 #endif
--- a/src/lcflags.h
+++ b/src/lcflags.h
@ -10,6 +10,26 @@ FLG_ENTRY(AUTH_NTLM                       )
 #if LCURL_CURL_VER_GE(7,19,3)
 FLG_ENTRY(AUTH_DIGEST_IE                  )
 #endif
+#if LCURL_CURL_VER_GE(7,19,6)
+FLG_ENTRY(KHSTAT_FINE_ADD_TO_FILE         )
+FLG_ENTRY(KHSTAT_FINE                     )
+FLG_ENTRY(KHSTAT_REJECT                   )
+FLG_ENTRY(KHSTAT_DEFER                    )
+FLG_ENTRY(KHMATCH_OK                      )
+FLG_ENTRY(KHMATCH_MISMATCH                )
+FLG_ENTRY(KHMATCH_MISSING                 )
+FLG_ENTRY(KHTYPE_RSA1                     )
+FLG_ENTRY(KHTYPE_RSA                      )
+FLG_ENTRY(KHTYPE_DSS                      )
+#endif
+#if LCURL_CURL_VER_GE(7,58,0)
+FLG_ENTRY(KHTYPE_ECDSA                    )
+FLG_ENTRY(KHTYPE_ED25519                  )
+#endif
+#if LCURL_CURL_VER_GE(7,73,0)
+FLG_ENTRY(KHSTAT_FINE_REPLACE             )
+#endif
+
 #if LCURL_CURL_VER_GE(7,22,0)
 FLG_ENTRY(AUTH_NTLM_WB                    )
 #endif
@ -254,7 +274,7 @@ FLG_ENTRY(OT_FUNCTION)
 FLG_ENTRY(OT_FLAG_ALIAS)
 #endif

-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
 FLG_ENTRY(HSTS_ENABLE)
 FLG_ENTRY(HSTS_READONLYFILE)
 FLG_ENTRY(STS_OK)
--- a/src/lcopteasy.h
+++ b/src/lcopteasy.h
@ -504,7 +504,7 @@ OPT_ENTRY(proxy_issuercert_blob, PROXY_ISSUERCERT_BLOB, BLB, 0, 0)
 OPT_ENTRY(ssl_ec_curves,      SSL_EC_CURVES,      STR, 0, LCURL_DEFAULT_VALUE)
 #endif

-#if LCURL_CURL_VER_GE(7,74,0)
+#if LCURL_CURL_VER_GE(7,74,0) && LCURL_USE_HSTS
 OPT_ENTRY(hsts_ctrl,          HSTS_CTRL,          LNG, 0, 0)
 OPT_ENTRY(hsts,               HSTS,               STR, 0, LCURL_DEFAULT_VALUE)
 #endif
--- a/src/lcurl.c
+++ b/src/lcurl.c
@ -203,7 +203,7 @@ static int lcurl_version_info(lua_State *L){

  lua_newtable(L);
  lua_pushstring(L, data->version);         lua_setfield(L, -2, "version");          /* LIBCURL_VERSION     */
-  lua_pushnumber(L, data->version_num);     lua_setfield(L, -2, "version_num");      /* LIBCURL_VERSION_NUM */
+  lutil_pushuint(L, data->version_num);     lua_setfield(L, -2, "version_num");      /* LIBCURL_VERSION_NUM */
  lua_pushstring(L, data->host);            lua_setfield(L, -2, "host");             /* OS/host/cpu/machine when configured */

  lua_newtable(L);
--- a/test/deps/lua-http-parser-2.7-1.rockspec
+++ b/test/deps/lua-http-parser-2.7-1.rockspec
@ -0,0 +1,28 @@
+#!/usr/bin/env lua
+
+package = 'lua-http-parser'
+version = '2.7-1'
+source = {
+    url = 'gitrec+https://github.com/brimworks/lua-http-parser'
+}
+description = {
+    summary  = "A Lua binding to Ryan Dahl's http request/response parser.",
+    detailed = '',
+    homepage = 'http://github.com/brimworks/lua-http-parser',
+    license  = 'MIT', --as with Ryan's
+}
+dependencies = {
+    'lua >= 5.1, < 5.5',
+    'luarocks-fetch-gitrec',
+}
+build = {
+    type = 'builtin',
+    modules = {
+        ['http.parser'] = {
+            sources = {
+                "http-parser/http_parser.c",
+                "lua-http-parser.c"
+            }
+        }
+    }
+}