poisk.tcl v3.6.5, Search engines parser Options

[Kreon]

3.6.5
Апдейты

3.6.4
Дополнены !google/!yandex/!rambler
Дополнен поиск !file
Поправлена информация по !image
Исправлены !linux/!bsd/!mac
Удалены !xdcc/!crack ввиду неработоспособности сайтов поисковиков

3.6.3
Исправлен !google, !images (от OxCom)
Добавлена поддержка Suzi, где её не хватало

3.6.2a
Исправлена работа !yandex (от OxCom)
Исправлен перевод кодировок с использованием патча Suzi для !rambler.
Изменен под UTF8 !google, исправлен !msn

3.6.2
Обновленная версия поисковика. Исправлен яндекс, теперь скрипт должен корректно работать с пропатчеными ботами.

3.6.4 3.6.5  poisk.tcl ( 21.15k ) Number of downloads: 1547

[Kreon]

Всё нормально на патченных ботах с encoding system = cp1251.
По поводу других информации нет. Если кто исправит скрипт для совместимости с другими вариантами настройки бота не сломав работу на патченных - присылайте, выложу.

[Alvor]

Информация - на патченом работает, на непатченом яндекс кракозявит.

[Xam]

На непатченном с
encoding system iso8859-1
set egg_codepage cp1251

CODE

proc ::poisk::yandex_on_data {id html nick chan uhost com} {
    global poisk
    if {![info exists sp_version]} {
        set html [encoding convertto cp1251 [encoding convertfrom utf-8 $html]]
    } else {
        set html [encoding convertfrom utf-8 $html]
    }
    regsub -all -- \n $html {} html; regsub -all -nocase -- </a> $html </a>\n html
    set qnum $poisk(host,$uhost); set num 0
    catch { unset poisk(host,$uhost) }
    if { $poisk(debug) } { putlog "\[poisk\] callback executed... analyzing data..." }
    set res "";    set total ""; set desc ""
    foreach line [split $html \n] {
       regexp -nocase -- {Нашлось<br>(.*?)страниц} $line garb total
        if { [regexp -nocase -- {<a tabindex.*?onclick.*?href=\"(.*?)\".*?target=.*?><b>(.*?)</b>.*?</a>} $line garb res desc] ||
             [regexp -nocase -- {<a tabindex=.*?onclick=.*?href=\"(.*?)\".*?target=.*?>(.*?)</a>} $line garb res desc] } { incr num; if { $num != $qnum } { set res ""; set desc "" } else { break } }
        }
    if { $poisk(debug) } { putlog "\[poisk\] res=$res desc=$desc total=$total" }
    if { $res == "" } { ::egglib::out $nick $chan $poisk(txt,fail_$com); return }
    set desc [string trim [::egglib::unhtml $desc]]
    set total [string trim [::egglib::unhtml [string map {  { }} $total]]]
    if { $total != "" } { set total " ($poisk(txt,total) $total)" }
    if { $desc != "" } { set desc " - \0035$desc\003" }
    ::egglib::out $nick $chan "\00312$res\003$desc$total"
}

Яндекс так работает в нормальной кодировке, поидее и на сузи так должно работать тоже. Рамблер и гугл работают без каких-либо правок.

[Alvor]

Оно опять не работает. Пачините? ))