Страница 1 из 1

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

СообщениеДобавлено: 13 янв 2010 19:45
tvrsh
#Что делает скрипт:
# соберает все ссылки на картинки в файлик;
# проверяет, что ссылки живые, что по ссылке реально отдаётся картинка и только тогда пишет в файл;
# проверяет, что в файле нет повторов.

# 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

Дальнейшие предложения по улучшению скрипта приветствуются.

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

СообщениеДобавлено: 19 фев 2010 16:46
drilly
"Не удалось доставить файл." чёт скачать не получается..

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

СообщениеДобавлено: 20 фев 2010 00:18
tvrsh
Обновил вложение в первом посте.

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

СообщениеДобавлено: 19 фев 2011 23:45
LuXe
Не удалось доставить файл. :(((

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

СообщениеДобавлено: 19 фев 2011 23:55
tvrsh
Обновил первый пост. Проверяй.

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

СообщениеДобавлено: 20 фев 2011 00:57
xopek
[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

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

СообщениеДобавлено: 20 фев 2011 01:23
tvrsh
Твоему боту не нравится команда 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>"