#include "hbcurl.ch" 
  
 #define CURL_HTTP_VERSION_2TLS 4 
  
 PROCEDURE Main() 
  
    LOCAL curl, cStr 
  
    curl_global_init() 
  
    IF ! Empty( curl := curl_easy_init() ) 
       curl_easy_setopt( curl, HB_CURLOPT_BUFFERSIZE, 102400 ) 
       curl_easy_setopt( curl, HB_CURLOPT_URL, "http://ip-api.com/csv/?fields=status,message,country,mobile,isp,query" ) 
       curl_easy_setopt( curl, HB_CURLOPT_NOPROGRESS, .T. ) 
       curl_easy_setopt( curl, HB_CURLOPT_USERAGENT, "curl/7.75.0" ) 
       curl_easy_setopt( curl, HB_CURLOPT_MAXREDIRS, 50 ) 
       curl_easy_setopt( curl, HB_CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_2TLS ) 
       curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYPEER, .F. ) 
       curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYHOST, .F. ) 
       curl_easy_setopt( curl, HB_CURLOPT_FTP_SKIP_PASV_IP, .F. ) 
       curl_easy_setopt( curl, HB_CURLOPT_TCP_KEEPALIVE, .T. ) 
       curl_easy_setopt( curl, HB_CURLOPT_DL_BUFF_SETUP ) 
  
       curl_easy_perform( curl ) 
  
       ? "EFFECTIVE URL:", curl_easy_getinfo( curl, HB_CURLINFO_EFFECTIVE_URL ) 
       cStr := curl_easy_dl_buff_get( curl ) 
       ? "RESULT: " + cStr 
  
       IF hb_ATokens( cStr, "," )[ 4 ] == "true" 
          ? "Mobile (cellular) connection." 
       ENDIF 
  
       curl_easy_reset( curl ) 
       curl_easy_cleanup( curl ) 
  
    ENDIF 
  
    curl_global_cleanup() 
  
    RETURN