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

[tvrsh]

Название: karofilm.tcl
Версия: 1.1
Автор: tvrsh
Описание: Скрипт забирает с сайта http://karofilm.ru/ информацию о сеансах. Для описания параметров команды используйте !karo help
Поддержка Suzi: Да
Пример работы:

# Сеансы на сегодня.
<tvrsh> !karo help
-bionic- Расписание фильмов, идущих в кинотеатрах сети «Каро фильм».
-bionic- В параметрах команды можно указать <название кинотеатра> и +<дни> для поиска в кинотеатрах отличных от дефотного и на указанное количество дней вперед.
-bionic- Например: !karo алтуфьево +2 - просмотр сеансов в кинотеатре Каро фильм Алтуфьево на послезавтра.

# Смотрим сеансы на сегодня в дефолтном кинотеатре.
<tvrsh> !karo
<@bionic> Каро Фильм Подольск: 22.12.2012.
<@bionic> 'Хоббит: Нежданное путешествие' - 19:50/Зал 4, 23:10/Зал 4.
<@bionic> 'Хоббит: Нежданное путешествие 3D' - 21:30/Зал 2, 20:20/Зал 3.
<@bionic> Любовный переплёт (Digital) - 23:35/Зал 3.

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

[wr`]

Приветствую!нарисовалась ошибочка
при запросе !karo

•(10:52:21)• <(Paul> [10:49:40] Tcl error [::karofilm::karofilm_pub]: can't read "week": no such variable
•(10:52:33)• <ban> .set errorInfo
•(10:52:34)• <(Paul> [10:49:54] #ban# set errorInfo
•(10:52:34)• <(Paul> Currently: can't read "week": no such variable
•(10:52:34)• <(Paul> Currently: while executing
•(10:52:34)• <(Paul> Currently: "regsub -all -- {<div class=menu>} $week "|" week"
•(10:52:34)• <(Paul> Currently: (procedure "::karofilm::karofilm_proc" line 42)
•(10:52:34)• <(Paul> Currently: invoked from within
•(10:52:34)• <(Paul> Currently: "::karofilm::karofilm_proc $nick $uhost $hand $chan $text"
•(10:52:34)• <(Paul> Currently: (procedure "::karofilm::karofilm_pub" line 8)
•(10:52:34)• <(Paul> Currently: invoked from within
•(10:52:34)• <(Paul> Currently: "::karofilm::karofilm_pub $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

[tvrsh]

Сайт полностью обновился, пропала pda версия. Появился экспорт сеансов в xml.
Посмотрю что можно сделать.

[tvrsh]

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

[Jake]

вместо буквы "р" в начале слов, выводится знак вопроса:

[13:30:50] «друг» !karo Южное бутово
[13:30:51] «@Zeus» Дублер - 14:05/Зал №8, 18:50/Зал №8, 23:20/Зал №8.
[13:30:51] «@Zeus» Анна Каренина 2D - 11:50/Зал №3, 21:50/Зал №3.
[13:31:51] «@Zeus» Джанго освобожденный 2D - 15:10/Зал №3, 18:30/Зал №3.
[13:31:51] «@Zeus» Джек ? ичер 2D - 10:00/Зал №4, 12:40/Зал №4, 15:20/Зал №4, 18:10/Зал №4, 21:10/Зал №4, 23:50/Зал №4.
[13:31:52] «@Zeus» ? одительский беспредел 2D - 11:15/Зал №5, 15:25/Зал №5, 19:35/Зал №5, 22:00/Зал №5.

[tvrsh]

Jake, замени строку

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

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

    regsub -all -- {\s} $data " " data

на

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

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

    regsub -all -- {[\x20\x09]+} $data " " data

Как подсказал Vertigo, это из-за того, что \s включает в себя 160й аски символ, а им кодируется в утф буква Р. Новый регсаб будет удалять только табуляцию и пробелы, и ни одной буквы Р не пострадает.