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

[tvrsh]

Скрипт показывает название, описание, категорию, продолжительность, автора, количество просмотров ролика и последний оставленный к нему комментарий при показе ссылки на ролик в канале.
Для включения скрипта установите на канал флаг +ourtube.
Скрипт тестировался на ботах _без_ suzi патча.

Пример работы:

<@tvrsh> http://www.youtube.com/watch?v=Bs8-cuj7KCE
<@lamestbot> Theodor Bastard - Pustota - [official swf{by kol belov}]rip. Добавил: morozio, Просмотров: 78035, Комментов: 113. Последний комментарий: <Juliklario 1 месяц назад> этож какой то 90-о лохматый,а они уже? такие вещи делали, талантливые такие)

Скачать: ourTube.tcl

[tvrsh]

Скрипт в первом посте обновлен и снова работает.

[tribale]

спасибо

[tvrsh]

[04/10/2010|16:25:11] <F> [16:25] =1&v=IoBvK1Y7rFQ">286B5 2A8G:8</a>
[04/10/2010|16:25:11] <F> <h4>A8G:8 :><5=B0@8 (8)</h4>
[04/10/2010|16:25:11] <F> <ul class="comment-list" >
[04/10/2010|16:25:11] <F> <li
[04/10/2010|16:25:11] <F> data-author-viewing=""
[04/10/2010|16:25:11] <F> data-id="-mQ2feqNIyzDm9BZOZ72XGvuB_0S2TI7DNfL-ds5Zy4"
[04/10/2010|16:25:11] <F> data-score="0"
[04/10/2010|16:25:11] <F> data-author="Tensssin"
[04/10/2010|16:25:11] <F> data-pending="0"
[04/10/2010|16:25:11] <F> data-blocked=""
[04/10/2010|16:25:11] <F> data-flagged="False"
[04/10/2010|16:25:11] <F> data-removed="False"
[04/10/2010|16:25:11] <F> data-tag="N"
[04/10/2010|16:25:11] <F> class="comment">
[04/10/2010|16:25:11] <F> <div class="metadata">
[04/10/2010|16:25:11] <F> <div>
[04/10/2010|16:25:11] <F> <a class="author" href="/user/T
[04/10/2010|16:25:11] <F> [16:25] Tcl error [otPub]: unknown encoding "cp1251"

[tvrsh]

[04/10/2010|16:25:11] <F> [16:25] =1&v=IoBvK1Y7rFQ">286B5 2A8G:8</a>
[04/10/2010|16:25:11] <F> <h4>A8G:8 :><5=B0@8 (8)</h4>
[04/10/2010|16:25:11] <F> <ul class="comment-list" >
[04/10/2010|16:25:11] <F> <li
[04/10/2010|16:25:11] <F> data-author-viewing=""
[04/10/2010|16:25:11] <F> data-id="-mQ2feqNIyzDm9BZOZ72XGvuB_0S2TI7DNfL-ds5Zy4"
[04/10/2010|16:25:11] <F> data-score="0"
[04/10/2010|16:25:11] <F> data-author="Tensssin"
[04/10/2010|16:25:11] <F> data-pending="0"
[04/10/2010|16:25:11] <F> data-blocked=""
[04/10/2010|16:25:11] <F> data-flagged="False"
[04/10/2010|16:25:11] <F> data-removed="False"
[04/10/2010|16:25:11] <F> data-tag="N"
[04/10/2010|16:25:11] <F> class="comment">
[04/10/2010|16:25:11] <F> <div class="metadata">
[04/10/2010|16:25:11] <F> <div>
[04/10/2010|16:25:11] <F> <a class="author" href="/user/T
[04/10/2010|16:25:11] <F> [16:25] Tcl error [otPub]: unknown encoding "cp1251"

I dont need this useless information. I need only your .set errorInfo

[Stefan]

[05/10/2010|02:58:51] <@F> Debug (trace) --> can't read "state(sock)": no such element in array while executing "fileevent $state(sock) readable {}"
[05/10/2010|02:58:52] <@F> Debug (trace) --> can't read "state(sock)": no such element in array while executing "fileevent $state(sock) writable {}"
[05/10/2010|02:58:53] <@F> Debug (trace) --> can't read "state(sock)": no such element in array while executing "close $state(sock)"
[05/10/2010|02:58:55] <@F> Debug (trace) --> can't read "state(after)": no such element in array while executing "after cancel $state(after)"
[05/10/2010|02:58:57] <@F> Debug (trace) --> unknown encoding "cp1251" while executing "encoding convertto cp1251 [encoding convertfrom utf-8 $comment]" (procedure "otGet" line 48) invoked from within "otGet $webTarget" (procedure "otPub" line 22) invoked from within "otPub $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"
[05/10/2010|03:00:54] <@F> Debug (trace) --> can't read "state(sock)": no such element in array while executing "fileevent $state(sock) readable {}"
[05/10/2010|03:00:56] <@F> Debug (trace) --> can't read "state(sock)": no such element in array while executing "fileevent $state(sock) writable {}"
[05/10/2010|03:00:56] <@F> Debug (trace) --> can't read "state(sock)": no such element in array while executing "close $state(sock)"
[05/10/2010|03:00:58] <@F> Debug (trace) --> can't read "state(after)": no such element in array while executing "after cancel $state(after)"

[Reality]

У меня он вообще ничего не показывает...
Пишет

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

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

[14:33:29] <Pr3t3nD3r> [06:33:29] Tcl error [otPub]: can't read "comments": no such variable
[14:33:34] <Reality> .set errorInfo
[14:33:34] <Pr3t3nD3r> [06:33:34] tcl: builtin dcc call: *dcc:set Reality 11 errorInfo
[14:33:34] <Pr3t3nD3r> [06:33:34] #Reality# set errorInfo
[14:33:34] <Pr3t3nD3r> Currently: can't read "comments": no such variable
[14:33:34] <Pr3t3nD3r> Currently:     while executing
[14:33:34] <Pr3t3nD3r> Currently: "putlog $comments"
[14:33:34] <Pr3t3nD3r> Currently:     (procedure "otGet" line 15)
[14:33:34] <Pr3t3nD3r> Currently:     invoked from within
[14:33:34] <Pr3t3nD3r> Currently: "otGet $webTarget"
[14:33:34] <Pr3t3nD3r> Currently:     (procedure "otPub" line 22)
[14:33:34] <Pr3t3nD3r> Currently:     invoked from within
[14:33:34] <Pr3t3nD3r> Currently: "otPub $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

[tvrsh]

Обновил скрипт. Смотрите первый пост.

[Reality]

Спасибо, сам скрипт работает. Но возможно что бы он данные выводил в CP1251 ? (windows-1251)
У нас сервер не "понимает", все на 1251 сидят.

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

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

[17:26:10] <~Reality> http://www.youtube.com/watch?v=IrQNmIyhIRQ&feature=fvw
[17:26:13] <Pr3t3nD3r> 530?>78B82=K5 45B8H:8  3 31        ?@8:>;K  2845>?@8:>;K  0=5:4>BK  D;5H 83@K  ?@8:>;L=K5 :0@B8=:8   A?09=5B @C 5 -  . Добавил: NiKe221295, Просмотров: 91,754, Комментов: 13. Последний комментарий: <kotzxcvb 3 days ago>  2>B? MB> 70@O4 ?>78B820)))))?

[tvrsh]

Попробуй закомментировать строки

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

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

    set comment [encoding convertto cp1251 [encoding convertfrom utf-8 $comment]]
    set title [encoding convertto cp1251 [encoding convertfrom utf-8 $title]]
    set description [encoding convertto cp1251 [encoding convertfrom utf-8 $description]]

[Reality]

К сожалению не помогло...

[Vertigo]

как вариант попробуй заменить их на

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

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

    set comment [encoding convertto cp1251 $comment]
    set title [encoding convertto cp1251 $title]
    set description [encoding convertto cp1251 $description]

[Reality]

Спасибо, заработало.

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

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

[21:22:15] <~Reality> http://www.youtube.com/watch?v=HC7see320Ho
[21:22:18] <&Pr3t3nD3r> Анекдоты на Арбате часть 1 - Anekdoti s Arbata chast&#39; 1. Добавил: Grow1993, Просмотров: 91,068, Комментов: 24. Последний комментарий: <777TheCrow777 2 weeks ago>  лолоололололологлолоолол? лол

И ещё вопрос, почему добавляются
21:22:18] <&Pr3t3nD3r> Анекдоты на Арбате часть 1 - Anekdoti s Arbata chast'
хотя их там нет.

[tvrsh]

Это символ ' в escape последовательности.
Чтобы это исправить перед строкой

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

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

    regsub -all -- {\<[^\>]*\>|\t} $title "" title

добавь строку

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

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

    set title [string map {&#39; '} $title]

[Reality]

Всё работает, спасибо.