<Vladislav> !tcl ::http::config -useragent "Mozilla/4.0"; set parsing_tok [::http::geturl http://www.liveresult.ru/football/txt/today/ -timeout 20000 -headers [list "Accept-Encoding" None]]; set data [encoding convertfrom utf-8 [::http::data $parsing_tok]]; ::http::cleanup $parsing_tok; regexp -nocase -- {<title>(.*?)</title>} $data -> data; return $data
<Windrop> [ERROR 92.501ms] неизвестная команда "zlib"

Как-то не очень это помогает)

<newbie> .tcl http::config -useragent "Mozilla/4.0"; http::meta [http::geturl http://www.liveresult.ru/football/txt/today/ -timeout 20000 -headers [list "Accept-Encoding" None]]
<bot> Tcl: Server nginx Date {Wed, 28 Nov 2012 13:57:55 GMT} Content-Type text/html Connection close Expires {Thu, 19 Nov 1981 08:52:00 GMT} Cache-Control {no-store, no-cache, must-revalidate, post-check=0, pre-check=0} Pragma no-cache
<newbie> .tcl http::config -useragent "Mozilla/4.0"; http::meta [http::geturl http://www.liveresult.ru/football/txt/today/ -timeout 20000 -headers [list "Accept-Encoding" "gzip, deflate, x-gzip,*;q=0.1"]]
<bot> Tcl: Server nginx Date {Wed, 28 Nov 2012 13:58:57 GMT} Content-Type text/html Connection close Expires {Thu, 19 Nov 1981 08:52:00 GMT} Cache-Control {no-store, no-cache, must-revalidate, post-check=0, pre-check=0} Pragma no-cache Content-Encoding gzip

<Vladislav> !tcl zlib
<Windrop> [ERROR 0.0ms] неизвестная команда "zlib"
<Vladislav> !tcl info pa
<Windrop> [OK 0.0ms] 8.5.11
<Vladislav> !tcl package provide http
<Windrop> [OK 0.0ms] 2.7.7

<Vladislav> !tcl ::http::config -useragent "Mozilla/4.0"; set parsing_tok [::http::geturl http://www.liveresult.ru/football/txt/today/ -timeout 20000 -headers [list "Accept-Encoding" None]]; set data [encoding convertfrom utf-8 [::http::data $parsing_tok]]; ::http::cleanup $parsing_tok; regexp -nocase -- {<title>(.*?)</title>} $data -> data; return $data
<Windrop> [RETURN 215.001ms] Текстовые трансляции (Среда, 28 ноября 2012) ‹ Футбол ‹ Live Result Ru

<Vladislav> !tcl ::http::config -useragent "Mozilla/4.0"; set parsing_tok [::http::geturl http://www.liveresult.ru/football/txt/today/ -timeout 20000 -headers [list "Accept-Encoding" "gzip, deflate, x-gzip,*;q=0.1"]]; set data [encoding convertfrom utf-8 [::http::data $parsing_tok]]; ::http::cleanup $parsing_tok; regexp -nocase -- {<title>(.*?)</title>} $data -> data; return $data
<Windrop> [RETURN 195.0ms] ?
<Windrop> [RETURN] ??xi/пM1?r'2}???tqU??|&??xa{dwh??w?7\?qWV?»/( >¶???bl\?p???}??:?9[
<Windrop> [RETURN] ?)????????(?0??????©?=j?-j??Q??vBb?>;^$?h??l????I9WF???/??F?;??O»r^?O??=?i???µk????'w`?§??mK)?????µ???z?{?]t+??NX?N%??°§»????
jxW?X?g????BY«??R???»??m?]??uM????6?ig???:??1¬ 6#*µ??R*?»+Z???h'??M?;V5?>0<D[? [???o~??©KWA??wM»?)n???E???G?)?,???a?p?U??]C?f?,k??©U?)y????sWo?'??7˜_O?o??????{.??y#??O??????2??aq?¶7?:??k...
<Windrop> [RETURN] ?!?i?u<b?µx????? ?e??±}?B???????}C???·2?e%C?R???J???nV???~??~u
<Windrop> [RETURN] ?\??g®????{R?~8??4jA
<Windrop> [RETURN] ?jE«?????M???A§3lC?d?Mµ *P
<Windrop> [RETURN] Показано 6 строк, всего 45.

[18:37:54] NewUser_1405 [~plangc@109.195.141.48] теперь известен как Ben

if {[set fcity [getuser $hand XTRA fcity]] == ""} {}

set fcity [getuser $hand XTRA fcity]
if {$fcity == ""} {}

[22:09:57] <qq> !тор aimp
[22:09:58] <@Zeus> Ничего не найдено.
[22:10:09] <qq> !тор winamp
[22:10:10] <@Zeus> Ничего не найдено.

[22:08:40] <qq> % время москва
[22:08:41] <@Zeus> В душе не знаю!