Форум о ботах Eggdrop/Windrop

bind pub - !record parsing

proc parsing {nick uhost hand chan text} {
    putlog "bind: OK"

    ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
    # Указываем ссылку на мобильную версию сайта. НА ней меньше информации и ее удобнее парсить.
    set parsing_tok [::http::geturl http://m.moskva.fm/stations/FM_98.4]
    set data [::http::data $parsing_tok]
    ::http::cleanup $parsing_tok

    if {[info exists ::sp_version]} {
        set data [encoding convertfrom cp1251 $data]
    } else {
        set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
    }

    regsub -all -- {\n} $data "" data

    # Забираем время когда началась песенка.
    regexp {<p><small>(.*?)</small><br/>} $data "" time

    # Забираем испонителей.
    regexp {<a href=.*? class="artist">(.*?)</a>} $data "" artist
   
    # Забираем название песенки.
    regexp {<a href=.*? class="song">(.*?)</a>} $data "" track

    putserv "PRIVMSG $chan :$time $artist $track"

}
putlog "parsing.tcl loaded..."
 

bind pub - !record parsing

proc parsing {nick uhost hand chan text} {

    set parsing_tok [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"]
    set parsing_tok [::http::geturl http://www.moskva.fm/stations/FM_98.4]
    set data [::http::data $parsing_tok]
    ::http::cleanup $parsing_tok

    if {[info exists ::sp_version]} {
        set data [encoding convertfrom cp1251 $data]
    } else {
        set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
    }

    regexp {<td class="msk-colorlist-songs-play-time">(.*?)<td class="msk-colorlist-songs-add-to-compilation">} $data "" data

    regsub -all -- {\n} $data "" data

    # время когда начался трэк.
    regexp {<small class="meta">(.*?)</small>} $data "" time

    # испонитель и название трэка.
    regexp {<a class="song" href="/artist/.*?><b>(.*?)</b>(.*?)</a>} $data "" artist track
   
    # ссылка на прослушивание.
    regexp {http://www.moskva.fm/play/(.*?)\">} $data "" play
       
    putserv "PRIVMSG $chan :\00303<\00304$time\00303> \002\00310$artist\002 \00314- $track: \00312\037http://www.moskva.fm/play/$play"

}
putlog "record.tcl loaded..."

    regexp {<td class="msk-colorlist-songs-play-time">(.*?)<td class="msk-colorlist-songs-add-to-compilation">} $data "" data

    regexp {<td class="msk-colorlist-songs-play-time">(.*?)</table>} $data "" data