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

[wr`]

Доброго времени суток,хотел поинтересоваться,возможно ли сделать в этом скрипте чтоб когда бот будет выдавать rss ленту она сокращалась,например через сайт http://tinyurl.com/

[tvrsh]

Перед строкой

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

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

proc rssparse {content} {

добавь код

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

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

# TinyURL shortening.
proc rsstinyurl {url} {
    set http [::http::config -useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5"]
    set token [http::geturl "http://tinyurl.com/api-create.php?[http::formatQuery url $url]" -timeout 3000]
    upvar #0 $token state
    if {[string length $state(body)]} {
        return $state(body)
    }
    return $url
}

Далее в процедуре rssparse после строки

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

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

regexp -nocase -- {<link>(.+?)</link>} $value tmp link

допиши строку

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

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

set link [rsstinyurl $link]

Не проверял.

[Spoofing]

offtopic

зависть. вызвал функцию и получил результат, не зависимо от времени выполнения.
в мирочке на тех же сокетах приходится обрабатывать события и все "программирование" сводится к callback'ам %(((

[wr`]

спасибо большое,все работает,еще вопрос по скрипту,можно сделать в нем чтоб он не выдавал одну и ту же новость,а то он каждые 10 минут выдает,получается не красивый флуд однообразной новости

[tvrsh]

Он не должен повторять новости, проверь папку с кэшем для этого фида. Если она не создалась автоматически создай ее сам.

[wr`]

спасибо,помогло

[wr`]

еще назрел вопрос,а возможно в этом скрипте добавить описание к новости? типа <news> <description> <link>

[tvrsh]

В процедуре rssparse после строки

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

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

        regexp -nocase -- {<link>(.+?)</link>} $value tmp link

добавь

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

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

        set desc {n/a}
        regexp -nocase -- {<description>(.+?)</description>} $value tmp desc

Потом замени

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

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

        set rssnews($item) "{$link} {$title}"

на

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

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

        set rssnews($item) "{$link} {$title} {$desc}"

В процедуре rssnews_on_data после строки

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

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

        regsub -all -- {<publisher>} $output $publisher output

добавь

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

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

        regsub -all -- {<desc>} $output [lindex $rssnews($id) 2] output

Тоже самое и в процедуре rsscheck_on_data
Ну и в настройку фидов в POSTLAYOUT и TRIGLAYOUT добавь <desc>. И в строках

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

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

        set postlayout   "<publisher> <news> <link>"

и

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

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

    set triglayout   "<id> <news> <link>"

тоже.
Не проверял.

[DmitRex]

А нечегче использовать скрипт feed.tcl ?

[10:09:33] <DmitRex> !новость http://bash.org.ru/rss/ +auto
[10:09:35] <DoMoBeHoK> URL http://bash.org.ru/rss/ добавлен в список проверки обновлений успешно.
[10:12:17] <DoMoBeHoK> [ Bash.Org.Ru ] :: Цитата #412165 :: Айвенго: от нашей девятиэтажки столько проводов протянуто, что я уже боюсь, как бы не оказалось, что она только на них и держится... @ http://bash.org.ru/quote/412165

[tvrsh]

Проще, но если человеку хочется почему бы и не помочь. К тому же, этим улучшается конкурентоспособность скрипта, и в итоге, скриптов становится больше и они становятся лучше. А в случае монополизма на скриптовой арене ничего хорошего не выйдет.

[wr`]

все работает отлично,спасибо большое.Была еще одна мысль,она писалась и ранее,но вот раз начали дополнять этот скрипт,попрошу еще разок.А можно сделать это описание новости сделать так чтоб она выдавалась юзверю при запросе.
например бот выдает ленту
bot:news:убийсто в москве http://источник.ру [!news 1]
и вот как раз при этом запросе !news 1 он будет выдавать описание ленты в приват.
соответственно следущая лента становится опять !news 1,а предыдущая уже станет !news 2.
Думаю ясно объяснил,если это возможно заранее огромное спасибо,если нет ,ничего страшного буду пользоваться что получилось уже

Добавлено спустя 48 минут 54 секунды:
поспешил сказать что все работает,по запросу ленты все работает,а сам перестал выдавать новость и записывать ее в кэш

[tvrsh]

Чтобы дискрипшн выдавался только в запросе убери его из POSTLAYOUT.
Фраза "не работает" мне не говорит ни о чем. Показывай конкретные ошибки.

[Blans]

А можно сделать это описание новости сделать так чтоб она выдавалась юзверю при запросе.
например бот выдает ленту
bot:news:убийсто в москве http://источник.ру [!news 1]
и вот как раз при этом запросе !news 1 он будет выдавать описание ленты в приват.
соответственно следущая лента становится опять !news 1,а предыдущая уже станет !news 2.

А можно подобное реализовать?

[tvrsh]

А в чем смысл изменения номеров новостей? Зачем такие сложности?