#define HB_CURLSSLOPT_NATIVE_CA hb_bitShift( 1, 4 )
#xcommand IMPORT <module> => static <module> ;;
init procedure <module> ;;
<module> := Import( <(module)> );;
return
IMPORT ai
function Main()
return nil
FUNCTION Import( cModuleName, nMode )
LOCAL pHrbBody, cFileName := cModuleName + ".hrb"
hb_default( @nMode, HB_HRB_BIND_DEFAULT )
return pHrbBody := hb_hrbLoad( nMode, cFileName )
FUNCTION UrlDownload( cUrl, cDestFile )
LOCAL hCurl
LOCAL nResult
curl_global_init()
hCurl := curl_easy_init()
IF hCurl != NIL
curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )
curl_easy_setopt( hCurl, HB_CURLOPT_DOWNLOAD )
curl_easy_setopt( hCurl, HB_CURLOPT_DL_FILE_SETUP, cDestFile )
curl_easy_setopt( hCurl, HB_CURLOPT_SSL_OPTIONS, HB_CURLSSLOPT_NATIVE_CA )
nResult := curl_easy_perform( hCurl )
curl_easy_cleanup( hCurl )
ENDIF
curl_global_cleanup()
RETURN nResult == HB_CURLE_OK