bind pub - !цска parsing

proc parsing {nick uhost hand chan text} {       
::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
set parsing_tok [::http::geturl "http://m.cskamoskva.ru/" -timeout 20000]
set data [regsub -all -- {\n|\r|\t} [::http::data $parsing_tok] ""]
::http::cleanup $parsing_tok

if {[regexp -nocase -- {"linered">.*?<div>(.*?)</div>.*?<div>(.*?)</div>} $data -> res1 res2]} {        
set res [regsub -all -- {\s+} "Ближайшая игра: $res1 Прошедшая игра: $res2" " "]
regsub -all -- {<.*?>} [string map -nocase {</p> ". " "<br />" " " <br> " "} $res] ""    
putserv "PRIVMSG $chan :Ближайшая игра:$res1 $res2"
}     
}  

bind pub - !цска parsing  

proc parsing {nick uhost hand chan text} {      
::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"  
set parsing_tok [::http::geturl "http://m.cskamoskva.ru/" -timeout 20000]  
set data [regsub -all -- {\n|\r|\t} [::http::data $parsing_tok] ""]  
::http::cleanup $parsing_tok  

if {[regexp -nocase -- {linered">.*?<div>(.*?)</div>.*?<div>(.*?)</div>} $data -> res1 res2]} {       
set res "Ближайшая игра: $res1 Прошедшая игра: $res2"
set res [regsub -all -- {\s+} [string map {:. :} [regsub -all -- {<.*?>} [string map -nocase {</p> ". " "<br />" " " <br> " "} $res] ""]] " "]
putserv "PRIVMSG $chan :$res"} {putserv "NOTICE $nick :Ошибка данных."}
}