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

[tvrsh]

Название: egismeteo.tcl
Версия: 1.0
Автор: tvrsh
Описание: Скрипт показывает погоду с сайта gismeteo.ru, написан на смену моей погоде с яндекса.
Поддержка Suzi: Да
Пример работы:

<tvrsh> !п Сакраменто
<+bionic> Сакраменто / Калифорния: Пасмурно, +12°C, Ветер юго-восточный: 5м/с(18 км/ч), Давление: 765мм.рт.ст, Влажность: 88%, Температура воды: +11°C.

Дополнительная информация:
Пока с минимальным функционалом, постепенно буду дописывать.
Ссылка на скрипт:

[tvrsh]

Переписал скрипт для работы с бета-версией нового сайта, добавил возможность использования алиасов городов.

[Pitstopper]

В патилайне при запросе погоды выдает такое:

Tcl error [::egismeteo::egismeteo_pub]: can't read "place": no such variable

[Vertigo]

В патилайне при запросе погоды выдает такое:

Tcl error [::egismeteo::egismeteo_pub]: can't read "place": no such variable

IP твоего бота скорее всего забанен на сервере гисметео, потому и не сработал парсер в скрипте. Это уже прошедшая практика. Скриптом пользоваться в таком случае не получится.
Чтобы убедиться в этом, добавь код

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

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

set ncode [http::ncode $egismeteo_tok]
set code [http::code $egismeteo_tok]
if {$ncode != "200"} {putserv "PRIVMSG $chan :\00304HTTP-Error\003: $code"; return}

после строки

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

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

set d [::http::data $egismeteo_tok]

Вообще tvrsh ленится добавлять подобные проверки в скрипт, а они между прочим, значительно облегчают диагностику ошибок при работе скрипта.

[Pitstopper]

Vertigo, после добавления твоего кода - ситуация не изменилась, никаких сообщений в патилайне не добавилось. По прежнему - Tcl error [::egismeteo::egismeteo_pub]: can't read "place": no such variable.

[Vertigo]

Vertigo, после добавления твоего кода - ситуация не изменилась, никаких сообщений в патилайне не добавилось. По прежнему - Tcl error [::egismeteo::egismeteo_pub]: can't read "place": no such variable.

После добавления моего кода, ошибка будет выводиться в канал, если она есть (ответ сервера отличен от 'HTTP/1.1 200 OK'. Ты бота рехашил после добавления кода?
Если это все равно не помогло, добавь строчку

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

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

set place [list]

перед строчкой

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

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

foreach {null aa} [regexp -all -inline -start 1 -- {<a class="js-crumb link b" .*?>(.*?)</a>} $d] {

[tvrsh]

Учел все замечания и добавил показ остальных городов через -2, -3, -4 и т.д.

[Pitstopper]

Теперь в патилайне такое:
Tcl error [::egismeteo::egismeteo_pub]: can't read "e": no such variable

[Vertigo]

Pitstopper, подозреваю, что у тебя бот не умеет работать с гзипом. В переменной с данными получается нечитаемая ксунта, поэтому парсер и не работает. В патилане набери .status и покажи строку с "Tcl version:". А в качестве панацеи попробуй заменить в скрипте

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

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

catch {set egismeteo_tok [::http::geturl "http://beta.gismeteo.ru/search/[::http::formatQuery $text]" -timeout "15000"]} error

на

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

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

catch {set egismeteo_tok [::http::geturl "http://beta.gismeteo.ru/search/[::http::formatQuery $text]" -timeout "15000" -headers [list "Accept-Encoding" None]]} error

и

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

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

catch {set egismeteo_tok [::http::geturl "http://beta.gismeteo.ru[lindex $f $r]" -timeout "15000"]} error

на

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

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

catch {set egismeteo_tok [::http::geturl "http://beta.gismeteo.ru[lindex $f $r]" -timeout "15000" -headers [list "Accept-Encoding" None]]} error

Если это все равно не поможет, могу посоветовать установить более новый тикль (8.6+) или пакет critctl.

[Pitstopper]

OS: Linux 3.12.28+
Библиотека Tcl: /usr/local/lib/tcl8.6
Версия Tcl: 8.6.0 (версия заголовка 8.6.0)
Tcl is threaded.

И да, ошибка все равно остается.

[Vertigo]

Чтоб поставить точку в этом вопросе, добавь следующий код (сохранив полученные данные в файл), чтоб не гадать что и как.

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

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

set f [open egismeteo.txt w+]; puts $f $d; flush $f; close $f

Добавь эту строчку после строчки

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

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

set d [::http::data $egismeteo_tok]

И выложи сюда или проанализируй сам содержимое файла egismeteo.txt в корневой директории бота.

[Pitstopper]

Ок, прикрепляю.

[Vertigo]

Pitstopper, у тебя в полученных данных в исходном коде страницы <div class="frame-current-weather">, а в скрипте парсится <div class="current-weather">. Могу посоветовать заменить строчку

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

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

regexp {<div class="current-weather">(.*?)<!-- frame forecast -->} $d "" e

на

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

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

regexp {<div.*?current-weather">(.*?)<!-- frame location -->} $d "" e

. Наверно гисметео отдаёт разные варианты страницы в зависимости от геолокации клиента. Не факт, что это поможет, ибо дальше тоже, вероятно будет ошибка в парсере. Мне, если честно, править лень чужой код ).

[Pitstopper]

В патилайне ошибок нет, а в канал выдает такое: /: /A=>, . Что ж, будем ждать, когда автор поправит. Спасибо за помощь!

[Bart]

Tcl error [::egismeteo::egismeteo_pub]: can't read "e": no such variable

Тоже бывает такая ошибка, но не постоянно. Например, после рестарта некоторое время работает, потом отваливается.