bind pub - !tls parsing proc parsing {nick uhost hand chan text} { ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)" # Регистрируем https сокет ::http::register https 443 ::tls::socket set parsing_tok [::http::geturl https://whatstatus.info/api/status] set data [::http::data $parsing_tok] ::http::cleanup $parsing_tok # После получения данных освобождаем https сокет ::http::unregister https #Вместо вывода в канал просто посмотрим, что мы получили в пременной $data putlog $data } putlog "https parsing example loaded..."