ourTube.tcl - Показ информации о роликах с youtube.com

Решение вопросов при работе с TCL скриптами.

Модератор: Модераторы

ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение tvrsh » 24 май 2010 23:00

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

Пример работы:
#egghelp @ IrcNet.ru писал(а): <@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
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение tvrsh » 05 сен 2010 12:26

Скрипт в первом посте обновлен и снова работает.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение tribale » 19 сен 2010 20:59

спасибо
tribale
 
Сообщения: 1
Зарегистрирован: 19 сен 2010 20:57
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Stefan » 04 окт 2010 17:25

[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 окт 2010 22:21, всего редактировалось 1 раз.
Причина: You need to use "Quote" button to paste quotes from partyline and other.
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение tvrsh » 04 окт 2010 22:24

Stefan писал(а):
[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
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Stefan » 05 окт 2010 04:05

[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)"
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Reality » 11 янв 2011 16:35

У меня он вообще ничего не показывает...
Пишет
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"
Аватара пользователя
Reality
 
Сообщения: 12
Зарегистрирован: 11 янв 2011 13:35
Откуда: Latvia, Liepaja.
Благодарил (а): 4 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение tvrsh » 11 янв 2011 19:16

Обновил скрипт. Смотрите первый пост.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Reality » 11 янв 2011 19:29

Спасибо, сам скрипт работает. Но возможно что бы он данные выводил в CP1251 ? (windows-1251)
У нас сервер не "понимает", все на 1251 сидят.
[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)))))?
Аватара пользователя
Reality
 
Сообщения: 12
Зарегистрирован: 11 янв 2011 13:35
Откуда: Latvia, Liepaja.
Благодарил (а): 4 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение tvrsh » 11 янв 2011 19:33

Попробуй закомментировать строки
    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]]
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Reality » 11 янв 2011 22:05

К сожалению не помогло...
Аватара пользователя
Reality
 
Сообщения: 12
Зарегистрирован: 11 янв 2011 13:35
Откуда: Latvia, Liepaja.
Благодарил (а): 4 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Vertigo » 11 янв 2011 22:30

как вариант попробуй заменить их на
    set comment [encoding convertto cp1251 $comment]
    set title [encoding convertto cp1251 $title]
    set description [encoding convertto cp1251 $description]

За это сообщение автора Vertigo поблагодарил:
Reality (11 янв 2011 23:44)
Аватара пользователя
Vertigo
 
Сообщения: 107
Зарегистрирован: 20 авг 2008 23:49
Откуда: Москва
Благодарил (а): 0 раз.
Поблагодарили: 37 раз.
Версия бота: Eggdrop 1.8

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Reality » 11 янв 2011 23:34

Спасибо, заработало.
[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'
хотя их там нет.
Аватара пользователя
Reality
 
Сообщения: 12
Зарегистрирован: 11 янв 2011 13:35
Откуда: Latvia, Liepaja.
Благодарил (а): 4 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение tvrsh » 11 янв 2011 23:45

Это символ ' в escape последовательности.
Чтобы это исправить перед строкой
    regsub -all -- {\<[^\>]*\>|\t} $title "" title
добавь строку
    set title [string map {&#39; '} $title]
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.

За это сообщение автора tvrsh поблагодарил:
Reality (12 янв 2011 20:40)
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: ourTube.tcl - Показ информации о роликах с youtube.com

Сообщение Reality » 12 янв 2011 20:40

Всё работает, спасибо.
Аватара пользователя
Reality
 
Сообщения: 12
Зарегистрирован: 11 янв 2011 13:35
Откуда: Latvia, Liepaja.
Благодарил (а): 4 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18


Вернуться в TCL скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

cron