Picture-URL-Saver.tcl генератор галереи картинок.

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

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

Picture-URL-Saver.tcl генератор галереи картинок.

Сообщение tvrsh » 13 янв 2010 19:45

#Что делает скрипт:
# соберает все ссылки на картинки в файлик;
# проверяет, что ссылки живые, что по ссылке реально отдаётся картинка и только тогда пишет в файл;
# проверяет, что в файле нет повторов.

# by tvrsh
# выдает информацию по полученной картике
# создает хтмл станичку из сохраненных ссылок с описание кем и когда она была добавлена
# по команде !plast показывает последнюю добавленную картинку с краткой информацией о ней
#

# Скрипт основан на Picture-URL-Check by Meltdown(http://scripts.udp.at/?action=scripts)
# Далее тов. Drilly писал о нем тут: http://forum.eggdrop.org.ru/index.php?showtopic=3203
# А потом я начал с ним ковыряться.
#


Настройка элементарная. Необходимо только ввести путь до странички в которую сохранять ссылки.
Пока в скрипте только одна команда !plast показывающая последнюю добавленную картинку.

Пример странички с картинками: http://www.egghelp.ru/pictures.html

Дальнейшие предложения по улучшению скрипта приветствуются.
У вас нет необходимых прав для просмотра вложений в этом сообщении.
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: Picture-URL-Saver.tcl генератор галереи картинок.

Сообщение drilly » 19 фев 2010 16:46

"Не удалось доставить файл." чёт скачать не получается..
drilly
 
Сообщения: 1
Зарегистрирован: 19 фев 2010 16:44
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: Picture-URL-Saver.tcl генератор галереи картинок.

Сообщение tvrsh » 20 фев 2010 00:18

Обновил вложение в первом посте.
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: Picture-URL-Saver.tcl генератор галереи картинок.

Сообщение LuXe » 19 фев 2011 23:45

Не удалось доставить файл. :(((
LuXe
 
Сообщения: 38
Зарегистрирован: 18 ноя 2010 17:43
Благодарил (а): 8 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: Picture-URL-Saver.tcl генератор галереи картинок.

Сообщение tvrsh » 19 фев 2011 23:55

Обновил первый пост. Проверяй.
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: Picture-URL-Saver.tcl генератор галереи картинок.

Сообщение xopek » 20 фев 2011 00:57

[23:48] ---> Error occured <---
[23:48] | wrong # args: should be "time command ?count?"
[23:48] | while executing
[23:48] | "time"
[23:48] ---> End of error ---> <---

[23:48] ---> Error occured <---
[23:48] | wrong # args: should be "time command ?count?"
[23:48] | while executing
[23:48] | "time"
[23:48] | (procedure "urlcheck" line 44)
[23:48] | invoked from within
[23:48] | "urlcheck $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"
[23:48] ---> End of error ---> <---

[23:48] Tcl error [urlcheck]: wrong # args: should be "time command ?count?"

[23:48] ---> Error occured <---
[23:48] | can't read "state(sock)": no such element in array
[23:48] | while executing
[23:48] | "fileevent $state(sock) readable {}"
[23:48] ---> End of error ---> <---

[23:48] ---> Error occured <---
[23:48] | can't read "state(sock)": no such element in array
[23:48] | while executing
[23:48] | "fileevent $state(sock) writable {}"
[23:48] ---> End of error ---> <---

[23:48] ---> Error occured <---
[23:48] | can not find channel named "sock15"
[23:48] | while executing
[23:48] | "eof $sock"
[23:48] ---> End of error ---> <---

Это из дебага при появлении ссылки на канале.
На !plast реагирует так:
--chan--
<xopek> !plast
<Stella> Последнаяя картинка:
--telnet--
[23:48] 0

Информацию о картинке в канал выдает исправно.
<xopek> http://img.lenta.ru/articles/2011/02/19 ... pic002.jpg
<Stella> Server: Apache, Content-Type: image/jpeg, Content-Length: 26693, Date: Sat, 19 Feb 2011 20:48:03 GMT, Connection: keep-alive, Connection: keep-alive.

Файл HTML существует и права на запись у бота есть.
Подскажите как поправить, пожалуйста.
p.s. eggdrop 1.6.20, tcl 8.5, os freebsd 8
Демократии нет и не будет!
Государство - это я!
xopek
 
Сообщения: 2
Зарегистрирован: 05 май 2010 16:49
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.18+suzi

Re: Picture-URL-Saver.tcl генератор галереи картинок.

Сообщение tvrsh » 20 фев 2011 01:23

Твоему боту не нравится команда time потому, что ты не подключил скрипт alltools.tcl
Или замени строку
              puts $file "<br><b>Добавил $nick в [time] [date]<b><br> \<img src=\"$wlink\"\><br>"
 
на
              puts $file "<br><b>Добавил $nick [clock format [unixtime] -format "%d.%m.%Y - %I:%M:%S"]<b><br> \<img src=\"$wlink\"\><br>"
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi


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

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

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

cron