tcl в php

   regexp {<title>(.*?)</title>} $data "" title
        regsub -all -- "&#8249;" $title "<" title
        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$title\003" 
        set i 1
        regsub -all -- "<div class=\"txtli\">" $data "+++" data
        foreach line [split $data "+++"] {
            set champ ""; set part "";
            regexp -nocase -- {<h2><a href=.*?>(.*?)</a> / <a href=.*?>(.*?)</a></h2>} $line -> champ part
            regsub -all -- {<.*?>} $part {} part
            if {$champ != "" && $part != ""} {
                putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)$champ \003:: $liveresult(color5)$part\003" 
            }
            regsub -all -- "<li class=\"alt.*?\">" $line "+++" subline
            foreach subline [split $subline "+++"] {
                set status ""; set time ""; set ssilka ""; set teams "";
                regexp {<img src=\"http://s.*?.liveresult.ru/images/(.*?).gif\" class=\"stico\" alt=\"\" /><span class=\"date\">(.*?)</span><span class=\"title\"><a href=\"(.*?)\">(.*?)<\/a>} $subline "" status time ssilka teams
                set report "";
                regexp {<a href="http://www.euro-football.ru/article/(.*?)" target="_blank">} $subline "" report
                if {$status != ""} {
                    regsub -all -- "<span class=\"time\">" $time " в " time
                    regsub -all -- "</span>" $time "" time
                    #set time "[expr [lindex [split $time ":"] 0] - 1]:[lindex [split $time ":"] 0]"
                    if {$status == "st_min"} {
                        putserv "PRIVMSG $liveresult(channel) :\00304\002! \00301>\00314>\00315>\002 $liveresult(color1)$time \003- $liveresult(color2)$teams \003\[\002$liveresult(color3)!старт $i\002\003\]" 
                        lappend liveresult(allt) "$i|$ssilka|$teams"
                    } elseif {$report != ""} {
                        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color6)!отчет $i\003\]" 
                        lappend liveresult(allrep) "$i|$report"
                    } elseif {$status == "st_ft"} {
                        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color5)матч завершен\003\]" 
                    } else {
                        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color3)!старт $i\003\]" 
                        lappend liveresult(allt) "$i|$ssilka|$teams"
                    }
                    incr i
                }
            }
        }
    }

###
#
#  Название: liveresult.tcl
#  Версия: 1.4
#  Автор: tvrsh 
#
###
#
# Описание: Скрипт постит в канал текстовые трансляции футбольных матчей с сайта http://liveresult.ru/
#
###
#
# Установка: 
#         1. Скопируйте скрипт liveresult.tcl в папку scripts вашего бота.
#         2. В файле eggdrop.conf впишите строку source scripts/liveresult.tcl 
#         3. Сделайте .rehash боту.
#
###
#
# Версион хистори:
#
#              1.0(23.06.2010) Первая паблик версия.
#              1.2(24.06.2010) Добавлена команда остановки трансляции, немного упрощен код.
#                  14.11.2010  -немного обновил код.
#              1.3(30.04.2012) Обновил скрипт под изменения на сайте.
#              1.4(29.07.2012) Обновил скрипт.
#                              + просмотр отчетов о прошедших матчах.
#
###

namespace eval liveresult {
    # Сбрасываем значения всех переменных.
    foreach p [array names liveresult *] { catch {unset liveresult($p)} }

###                            ###
# Меню настроек ниже этой линии: #
# ______________________________ #
###                            ###
    variable liveresult
    array set liveresult {
        channel #erotic
        pref {!}
        binds {start старт}
        flag -
        sbinds {stop стоп}
        sflag -
        lbinds {list список}
        lflag -
        rbinds {report отчет}
        rflag -
        delay 15
        onjoin 1
        color1 \00314
        color2 \00303
        color3 \00304
        color4 \00302
        color5 \00307
        color6 \00313
        version "liveresult.tcl version 1.4"
        author "tvrsh"
        lastcomment {}
        lastscore {}
        allt {}
        allrep {}
    }

###                                                                  ###
# Ниже этой линии начинается код, не изменяйте его если не знаете TCL: #
# ____________________________________________________________________ #
###                                                                  ###

    # Обработка биндов запуска трансляции.
    foreach bind [split $liveresult(binds) " "] {
        bind pub $liveresult(flag)|$liveresult(flag) "$liveresult(pref)$bind" ::liveresult::liveresult_start
    }

    # Обработка биндов остановки трансляции.
    foreach sbind [split $liveresult(sbinds) " "] {
        bind pub $liveresult(sflag)|$liveresult(sflag) "$liveresult(pref)$sbind" ::liveresult::liveresult_stop
    }

    # Обработка биндов просмотра списка трансляций.
    foreach lbind [split $liveresult(lbinds) " "] {
        bind pub $liveresult(lflag)|$liveresult(lflag) "$liveresult(pref)$lbind" ::liveresult::liveresult_list
    }

    # Обработка биндов просмотра отчета о прошедшем матче.
    foreach rbind [split $liveresult(rbinds) " "] {
        bind pub $liveresult(rflag)|$liveresult(rflag) "$liveresult(pref)$rbind" ::liveresult::liveresult_parce_report
    }

    # Обработка биндов для онджойнового приветствия.
    if {$liveresult(onjoin) >= 1} {
        bind join -|- "*" ::liveresult::liveresult_onjoin
    }

    # Процедура приветствия юзеров при входе на канал.
    proc ::liveresult::liveresult_onjoin {nick uhost hand chan} {
        variable liveresult
        global botnick

        if {$chan != $liveresult(channel) || $nick == $botnick} {
            return 0
        }

        putserv "NOTICE $nick :$liveresult(color1)Добро пожаловать на канал $liveresult(color2)$chan$liveresult(color1), $liveresult(color5)$nick$liveresult(color1).\003"
        putserv "NOTICE $nick :$liveresult(color1)На этом канале проходят $liveresult(color2)\002online\002$liveresult(color1)-трансляции спортивных матчей.\003"
        putserv "NOTICE $nick :$liveresult(color1)Для получения справки используй $liveresult(color3)\002$liveresult(pref)[lindex $liveresult(lbinds) [rand [llength $liveresult(lbinds)]]] хелп\002$liveresult(color1).\003"

        if {[info exists liveresult(status)] && $liveresult(status) != ""} {
            putserv "NOTICE $nick :$liveresult(color1)Идет $liveresult(color2)[lindex [split $liveresult(status) "|"] 0] $liveresult(color1)минута матча $liveresult(color2)[lindex [split $liveresult(status) "|"] 1]$liveresult(color1)."
            return 0
        }
    }

    # Процедура обработки паблик команды просмотра списка трансляций.
    proc ::liveresult::liveresult_list {nick uhost hand chan text} {
        variable liveresult
        global lastbind

        # Проверяем канал.
        if {$chan != $liveresult(channel)} { 
            return 0
        }

        set liveresult(allt) [list]
        ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
        set text [lindex [split $text] 0]
        switch -glob $text {
            завтра {
                set liveresult_tok [::http::geturl "http://www.liveresult.ru/football/txt/tomorrow/"]  
            }
            вчера {
                set liveresult_tok [::http::geturl "http://www.liveresult.ru/football/txt/yesterday/"]  
            }
            неделя {
                set liveresult_tok [::http::geturl "http://www.liveresult.ru/football/txt/week/"]  
            }      
            +неделя {
                set liveresult_tok [::http::geturl "http://www.liveresult.ru/football/txt/nextweek/"]  
            }
            -неделя {
                set liveresult_tok [::http::geturl "http://www.liveresult.ru/football/txt/prevweek/"]  
            }
            хелп {
                putserv "NOTICE $nick :$liveresult(color1)Дополнительными параметрами команды $liveresult(color2)$lastbind $liveresult(color1)могут быть:\003" 
                putserv "NOTICE $nick :$liveresult(color2)-неделя \003- $liveresult(color1)расписание игр на прошлой неделе.\003" 
                putserv "NOTICE $nick :$liveresult(color2)неделя \003- $liveresult(color1)расписание игр на текущей неделе.\003" 
                putserv "NOTICE $nick :$liveresult(color2)вчера \003- $liveresult(color1)расписание игр на вчерашний день.\003" 
                putserv "NOTICE $nick :$liveresult(color2)сегодня \003- $liveresult(color1)расписание игр на сегодня.\003" 
                putserv "NOTICE $nick :$liveresult(color2)завтра \003- $liveresult(color1)расписание игр на завтра.\003" 
                putserv "NOTICE $nick :$liveresult(color2)+неделя \003- $liveresult(color1)расписание игр на следующей неделе.\003" 
                putserv "NOTICE $nick :$liveresult(color1)При использовании команды $liveresult(color2)$lastbind $liveresult(color1)без параметров выводится расписание на сегодня.\003" 
                return 0
            }
            default {
                set liveresult_tok [::http::geturl "http://www.liveresult.ru/football/txt/today/"]  
            }
        }    
        
        set data [::http::data $liveresult_tok]
        ::http::cleanup $liveresult_tok

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

        if {[regexp {<div class=\"error\">(.*?)</div>} $data "" error]} {
            putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$error \003- $liveresult(color1)Используйте $liveresult(color2)$lastbind хелп\003" 
            return 0
        }

        regexp {<title>(.*?)</title>} $data "" title
        regsub -all -- "&#8249;" $title "<" title
        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$title\003" 
        set i 1
        regsub -all -- "<div class=\"txtli\">" $data "+++" data
        foreach line [split $data "+++"] {
            set champ ""; set part "";
            regexp -nocase -- {<h2><a href=.*?>(.*?)</a> / <a href=.*?>(.*?)</a></h2>} $line -> champ part
            regsub -all -- {<.*?>} $part {} part
            if {$champ != "" && $part != ""} {
                putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)$champ \003:: $liveresult(color5)$part\003" 
            }
            regsub -all -- "<li class=\"alt.*?\">" $line "+++" subline
            foreach subline [split $subline "+++"] {
                set status ""; set time ""; set ssilka ""; set teams "";
                regexp {<img src=\"http://s.*?.liveresult.ru/images/(.*?).gif\" class=\"stico\" alt=\"\" /><span class=\"date\">(.*?)</span><span class=\"title\"><a href=\"(.*?)\">(.*?)<\/a>} $subline "" status time ssilka teams
                set report "";
                regexp {<a href="http://www.euro-football.ru/article/(.*?)" target="_blank">} $subline "" report
                if {$status != ""} {
                    regsub -all -- "<span class=\"time\">" $time " в " time
                    regsub -all -- "</span>" $time "" time
                    #set time "[expr [lindex [split $time ":"] 0] - 1]:[lindex [split $time ":"] 0]"
                    if {$status == "st_min"} {
                        putserv "PRIVMSG $liveresult(channel) :\00304\002! \00301>\00314>\00315>\002 $liveresult(color1)$time \003- $liveresult(color2)$teams \003\[\002$liveresult(color3)!старт $i\002\003\]" 
                        lappend liveresult(allt) "$i|$ssilka|$teams"
                    } elseif {$report != ""} {
                        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color6)!отчет $i\003\]" 
                        lappend liveresult(allrep) "$i|$report"
                    } elseif {$status == "st_ft"} {
                        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color5)матч завершен\003\]" 
                    } else {
                        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)$time \003- $liveresult(color2)$teams \003\[$liveresult(color3)!старт $i\003\]" 
                        lappend liveresult(allt) "$i|$ssilka|$teams"
                    }
                    incr i
                }
            }
        }
    }
 
    # Парсим страничку тут.
    proc ::liveresult::liveresult_parce_report {nick uhost hand chan text} {
        variable liveresult
        global lastbind

        # Проверяем наличие списка трансляций в памяти бота.
        if {![info exist liveresult(allrep)] && $liveresult(allrep) == ""} {
            putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), обновите номера отчетов о прошедших играх командой $liveresult(color2)$liveresult(pref)[lindex $liveresult(lbinds) [rand [llength $liveresult(lbinds)]]]\003."
            return 0
        }

        # Проверяем правильность введенного параметра.
        set text [lindex [split $text] 0]
        if {![isnumber $text]} { 
            putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), обязательным параметром команды $liveresult(color2)$lastbind $liveresult(color1)является номер отчета. Номера отчетов можно узнать по команде $liveresult(color5)$liveresult(pref)[lindex $liveresult(lbinds) [rand [llength $liveresult(lbinds)]]]\003." 
            return 0
        }

        # Ассоциируем с введенным параметром ссылку на трансляцию и отправляем парситься.
        foreach nomer $liveresult(allrep) {
            if {[lindex [split $nomer "|"] 0] == $text} {

                ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
                set liveresult_tok [::http::geturl "http://www.euro-football.ru/article/[lindex [split $nomer "|"] 1]"]  
                set data [::http::data $liveresult_tok]
                ::http::cleanup $liveresult_tok

                # Поддержка сузи.
                if {[info exists ::sp_version]} {
                    set data [encoding convertfrom utf-8 $data]
                } else {
                    set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
                }

                # Собираем информацию о матче и его трансляции.
                regsub -all -- "\n|\t" $data "" data
                regexp {<title>(.*?)/.*?</title>} $data "" title
                putserv "PRIVMSG $chan :$liveresult(color5)\002$title\002\003"
                
                regexp {<div class="sourceinfomainnews">(.*?)<!--noindex-->} $data "" report
                regsub -all -- "<strong>" $report "$liveresult(color4)" report
                regsub -all -- "</strong>" $report "$liveresult(color1)" report
                regsub -all -- {<.*?>} $report {} report
                
                putserv "PRIVMSG $chan :$liveresult(color1)[string range $report 0 250]\003"
                putserv "PRIVMSG $chan :$liveresult(color1)[string range $report 251 500]\003"
                putserv "PRIVMSG $chan :$liveresult(color1)[string range $report 501 750]\003"
                putserv "PRIVMSG $chan :$liveresult(color1)[string range $report 751 1000]...\003"
                return 0
            } 
        }
        putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), отчета с номером $liveresult(color3)$text $liveresult(color1)не существует. Уточните номера отчетов командой $liveresult(color2)$liveresult(pref)[lindex $liveresult(lbinds) [rand [llength $liveresult(lbinds)]]]$liveresult(color1).\003" 
        return 0
    }

    # Процедура обработки паблик команды начала трансляции.
    proc ::liveresult::liveresult_start {nick uhost hand chan text} {
        variable liveresult
        global lastbind

        # Проверяем канал.
        if {$chan != $liveresult(channel)} { 
            return 0
        }

        # Проверяем наличие списка трансляций в памяти бота.
        if {![info exist liveresult(allt)] && $liveresult(allt) == ""} {
            putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), обновите номера трансляций командой $liveresult(color2)$liveresult(pref)[lindex $liveresult(lbinds) [rand [llength $liveresult(lbinds)]]]\003."
            return 0
        }

        # Проверяем не запущена ли уже трансляциия и если да, то сообщаем об этом.
        foreach tms "[utimers]" {
            if {[string match -nocase "*::liveresult::*" $tms]} {
                putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), уже запущена трансляция $liveresult(color2)[lindex [split [lindex [lindex $tms 1] 5] "|"] 2]$liveresult(color1). Для остановки трансляции используйте $liveresult(color3)$liveresult(pref)[lindex $liveresult(sbinds) [rand [llength $liveresult(sbinds)]]]$liveresult(color1).\003" 
                return 0
            }
        }

        # Проверяем правильность введенного параметра.
        set text [lindex [split $text] 0]
        if {![isnumber $text]} { 
            putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), обязательным параметром команды $liveresult(color2)$lastbind $liveresult(color1)является номер трансляции. Номера трансляций можно узнать по команде $liveresult(color2)$liveresult(pref)[lindex $liveresult(binds) [rand [llength $liveresult(binds)]]]$liveresult(color1).\003"
            return 0
        }

        # Ассоциируем с введенным параметром ссылку на трансляцию и отправляем парситься.
        foreach nomer $liveresult(allt) {
            if {[lindex [split $nomer "|"] 0] == $text} {
                ::liveresult::killtm
                set liveresult(ids) ""
                ::liveresult::liveresult_parce $nick $uhost $hand $chan $nomer
                return 0
            } 
        }
        putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), трансляции с номером $liveresult(color3)$text $liveresult(color1)не существует. Уточните номера трансляций командой $liveresult(color2)$liveresult(pref)[lindex $liveresult(lbinds) [rand [llength $liveresult(lbinds)]]]$liveresult(color1).\003" 
        return 0
    }

    # Парсим страничку тут.
    proc ::liveresult::liveresult_parce {nick uhost hand chan link} {
        variable liveresult
        global botnick lastbind

        ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
        set liveresult_tok [::http::geturl "[lindex [split $link "|"] 1]"]  
        set data [::http::data $liveresult_tok]
        ::http::cleanup $liveresult_tok

        # Поддержка сузи.
        if {[info exists ::sp_version]} {
            set data [encoding convertfrom utf-8 $data]
        } else {
            set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
        }

        if {[regexp {До начала осталось\ (.*?).</span>} $data "" error]} {
            putserv "PRIVMSG $liveresult(channel) :$liveresult(color4)\002$nick\002$liveresult(color1), до начала матча осталось: $liveresult(color2)$error$liveresult(color1).\003" 
            return 0
        }

        # Собираем информацию о матче и его трансляции.
        regsub -all -- "\n|\t" $data "" data
        regexp {<h1><a href=".*?">(.*?)</a>\ <span id="score">(.*?)</span>\ <a href=".*?">(.*?)</a>} $data "" team1 score team2

        if {$score != $liveresult(lastscore)} {
            putserv "TOPIC $liveresult(channel) :$liveresult(color1)Текущая трансляция: $liveresult(color5)$team1 $liveresult(color6)\002$score\002 $liveresult(color5)$team2 $liveresult(color1)::\003"
        }
        
        set liveresult(lastscore) $score

        regexp {<div class="period">(.*?)<noindex>} $data "" data
        regsub -all -- "<div class=\"clear\"></div>" $data "|" data

        foreach line [lreverse [lrange [split $data "|"] 0 2]] {
            regexp {<div class="txtm m" id="txtm_(\d+)">} $line "" id
            if {[lsearch $liveresult(ids) $id] == "-1"} {
                lappend liveresult(ids) $id
                set icon "";
                regexp {<div class="icon"><img src=".*?" alt="(.*?)" /></div>} $line "" icon
                regexp {<div class="min">(.*?)</div>} $line "" time
                regexp {<div class="m">(.*?)</div>} $line "" comment
                regsub -all -- "<b>|</b>|<h4>|</h4>" $comment "\002" comment
                regsub -all -- "<br>|\n" $comment " " comment
                set liveresult(status) "$time|[lindex [split $link "|"] 2]"
                set liveresultmsg "";
                if {$icon != ""} {
                    append liveresultmsg "$liveresult(color3)\002$icon\002 $liveresult(color1)- "
                }
                append liveresultmsg "$liveresult(color2)\002$time\002: $liveresult(color1)$comment"
                putserv "PRIVMSG $liveresult(channel) :$liveresultmsg" 
                
                if {$icon == "Свисток"} {
                    putserv "TOPIC $liveresult(channel) :$liveresult(color1)Последняя трансляция: $liveresult(color5)$team1 $liveresult(color6)\002$score\002 $liveresult(color5)$team2 $liveresult(color6):: $liveresult(color1)Список странсляций: $liveresult(color2)$liveresult(pref)[lindex $liveresult(lbinds) [rand [llength $liveresult(lbinds)]]]$liveresult(color1).\003"
                    ::liveresult::liveresult_stop nick uhost hand chan text
                    return 0
                }
            } 

        }
        ::liveresult::killtm
        utimer $liveresult(delay) [list ::liveresult::liveresult_parce $nick $uhost $hand $chan $link]
        return 0
    }

    # Процедура обработки паблик команды остановки трансляции.
    proc ::liveresult::liveresult_stop {nick uhost hand chan text} {
        variable liveresult

        # Проверяем канал.
        if {$chan != $liveresult(channel)} { 
            return 0
        }

        set liveresult(ids) ""
    
        # Проверяем наличие активных таймеров и убиваем их если они существуют.
        foreach tms "[utimers]" {
            if {[string match -nocase "*::liveresult::*" $tms]} {
                ::liveresult::killtm
                putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)Трансляция $liveresult(color2)[lindex [split [lindex [lindex $tms 1] 5] "|"] 2] $liveresult(color1)остановлена.\003" 
                return 0
            }
        }
        putserv "PRIVMSG $liveresult(channel) :$liveresult(color1)Текущих трансляций нет.\003" 
        return 0
    }

    # Убиваем все таймеры в этой процедуре.
    proc ::liveresult::killtm { } {
        foreach tms "[utimers]" {
            if {([llength $tms] != 0)} {
                if {[string match -nocase "*::liveresult::*" $tms]} {
                    killutimer [lindex $tms 2]
                }
                unset tms
            }
        }
    }

    ::liveresult::killtm

    # Выводим сообщение о том, что скрипт удачно загружен.
    putlog "\[liveresult\] $liveresult(version) by $liveresult(author) loaded"
}