소스 검색

Add files via upload

Daniel Voipan 5 년 전
부모
커밋
1e36291685
1개의 변경된 파일5개의 추가작업 그리고 0개의 파일을 삭제
  1. 5 0
      BlackTools/Protections/BT.noproxy.tcl

+ 5 - 0
BlackTools/Protections/BT.noproxy.tcl

@@ -49,9 +49,14 @@ if {[link:status $chan] == "1"} {
 ###
 proc blacktools:noproxy_data {host} {
     global black
+if {![info exists black(http_ok)]} {
 if {[catch {package require http} no_http] != 0} {
     source $black(backdir)/BlackTools/Addons/http.tcl
     package require http
+    set black(http_ok) 1
+} else {
+    set black(http_ok) 1
+    }
 }
     set link "http://ip-api.com/json/${host}?fields=proxy,status,isp"
     set ipq [::http::config -useragent "lynx"]