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

[tvrsh]

Название: flibusta.tcl
Версия: 1.1
Автор: tvrsh
Описание: Скрипт ищет книги по независимому библиотечному ресурсу http://flibusta.net/
Поддержка Suzi: Да
Пример работы:

<tvrsh> !книга кен кизи
<@bionic> По вашему запросу "кен кизи" найдены 10 книг. Первые 5 из них:
<@bionic> 1 - Когда явились ангелы (сборник): http://flibusta.net//b/261675/fb2
<@bionic> 2 - Веселые проказники встречаются с Джимом Кроу: http://flibusta.net//b/150174/fb2
<@bionic> 3 - Над кукушкиным гнездом: http://flibusta.net//b/164895/fb2
<@bionic> 4 - Пролетая над гнездом кукушки (One Flew Over the Cuckoo’s Nest): http://flibusta.net//b/214880/fb2
<@bionic> 5 - Отто кровавый: http://flibusta.net//b/27140/fb2

Ссылка на скрипт: flibusta.tcl

[tvrsh]

Быстренько обновил файл в первом посте. Теперь можно искать по нескольким словам. Но только искать автора и вообще не особо эффективно:

[20:10:27] <tvrsh> !books -3 кизи кен
[20:10:28] <@bionic> По вашему запросу "кизи кен" ничего не найдено.
[20:10:30] <tvrsh> !books -3 кен кизи
[20:10:30] <@bionic> По вашему запросу "кен кизи" найдены 7 книг. Первые 3 из них:

Это уже косяк сайта.

[tvrsh]

Чтобы избавиться от зависимости от egglib_pub.tcl, которая используется у нас для кодирования текста запроса в процедуре ::egglib::urlencode и перейти полностью на работу с http.tcl замените строки

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    set text [join [::egglib::urlencode [encoding convertto utf-8 [encoding convertfrom cp1251 $text]]] "+"]
    set url "http://flibusta.net/a/$text"
    set flibusta_tok [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"]

на

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    set text [string map {\x20 +} [encoding convertfrom cp1251 $text]]
    set url "http://flibusta.net/a/[::http::formatQuery $text]"
    set flibusta_tok [::http::config -urlencoding utf-8 -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"]

[tvrsh]

Обновил скрипт. Пример работы и сам скрипт в первом сообщении.

[utrack]

Извините, хочу скачать скрипт, но... как получить права для просмотра вложений?)

[tvrsh]

Извините, хочу скачать скрипт, но... как получить права для просмотра вложений?)

Теперь можешь скачивать.
post981.html#p981

[tvrsh]

Добавил скрипт в архив, скачивать могут все.

[Волк]

а вот у меня что-то ничего не находит
возможно отправляет запрос на поиск не в той кодировке

[tvrsh]

а вот у меня что-то ничего не находит
возможно отправляет запрос на поиск не в той кодировке

Надо смотреть на строку

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    set flibusta_tok [::http::geturl "http://flibusta.net/a/[::http::formatQuery $text]" -timeout 35000]

У меня не осталось ботов без сузи, проверить не могу.

[Волк]

бр. нашел вон в etitle схожий кусок кода (он вроде вполне спокойно работает), попробовал сделать подобное, но один фиг не находит

изначальный кусок был такой:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

 set request $text
    ::http::config -urlencoding utf-8 -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
    set flibusta_tok [::http::geturl "http://flibusta.net/a/[::http::formatQuery $text]" -timeout 35000]  
    set data [::http::data $flibusta_tok]

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

set etitle_tok [::http::config -urlencoding utf-8 -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)"]
    set etitle_tok [::http::geturl "$query" -binary 1 -timeout 20000]  
    set data [::http::data $etitle_tok]

попробовал привести к такому

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

set request $text
    set flibusta_tok [::http::config -urlencoding utf-8 -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)"]
    set flibusta_tok [::http::geturl "http://flibusta.net/a/[::http::formatQuery $text]" -binary 1 -timeout 35000]  
    set data [::http::data $flibusta_tok]

[tvrsh]

Обновил скрипт в архиве, надо было перед строкой

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    set flibusta_tok [::http::geturl "http://flibusta.net/a/[::http::formatQuery $text]" -timeout 35000]

добавить

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    if {![info exists ::sp_version]} {
        set text [encoding convertfrom cp1251 $text]
    }
 

Проверяй у себя.

[Волк]

во, теперь почти фурычит)
но да, ищет он несколько затейливо..

<<@Волх> !книга пелевин
<Lupus> По вашему запросу "пелевин" ничего не найдено.
<@Волх> !книга вести из непала
<Lupus> По вашему запросу "вести из непала" ничего не найдено.
<@Волх> !книга Подземное небо
<Lupus> По вашему запросу "Подземное небо" ничего не найдено.
<@Волх> !книга архимаг
<Lupus> По вашему запросу "архимаг" ничего не найдено.
<@Волх> !книга рудазов
<Lupus> По вашему запросу "рудазов" найдены 15 книг. Первые 5 из них:
<Lupus> 1 - 0AA:07K (A A09B0 02B>@0): http://flibusta.net/b/99342/fb2
<Lupus> 2 - (0EH0=>@: http://flibusta.net/b/147558/fb2
<Lupus> 3 - 0AA:07K 87 ?@02>3> 1>B8=:0: http://flibusta.net/b/99648/fb2
<Lupus> 4 - 0AA:07K 87 ?@02>3> 1>B8=:0 (A1>@=8:): http://flibusta.net/b/147042/fb2
<Lupus> 5 - -:8?06: http://flibusta.net/b/78178/fb2

[tvrsh]

Он ищет по авторам а не по названиям книг:

[23:23:27] <tvrsh> !books виктор пелевин
[23:23:35] <@bionic> По вашему запросу "виктор пелевин" найдена 81 книга. Первые 5 из них:
[23:23:35] <@bionic> 1 - Empire V: http://flibusta.net/b/254702/fb2
[23:23:35] <@bionic> 2 - Timeout, или Вечерняя Москва: http://flibusta.net/b/134472/fb2

[Волк]

а, имени ему не хватало
а вот с этим

<Lupus> 4 - 0AA:07K 87 ?@02>3> 1>B8=:0 (A1>@=8:)

куда смотреть?

[tvrsh]

Волк, в блоке

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

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

смотри на строку

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

        set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]