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

[Бриллиант]

Скрипт quote.tcl 1.3 выводит цитаты с "" как то криво то заменяет их на "{}" то ставит "\" перед, а если добавить """ (три ковычки) то вообще перестаёт работать, такие же косяки и с другими символами.

[tvrsh]

Замени все

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

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

[lrange $res 4 end]

на

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

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

[join [lrange $res 4 end]]

и

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

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

[lrange $q 4 end]

на

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

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

[join [lrange $q 4 end]]

Таким образом текст цитаты мы превратим из списка в строку, что по идее никак не должно сказаться на секурности скрипта.

<@tvrsh> !addquote 1"11"""
<@Info> tvrsh, Цитата добавлена. (номер: 1)
<@tvrsh> !q
<@Info> [1/1] :: 1"11""" [added by tvrsh 15-11-2010 on 23:58:32]
<@tvrsh> !delquote 1
<@Info> Удалена цитата номер 1 :: 1"11""" (added by tvrsh 15-11-2010 on 23:58:32).

[Бриллиант]

Больше различных цитат надо было протестировать) проблема осталась например если есть кавычки и запятые, да и вообще может перестать работать с обычными кавычками, я не знаю как этот скрипт устроен, но на одной и той же цитате он ведёт себя по разному.

!addquote привет "мэн", как дела
Цитата добавлена. (номер: 2)
!quote
Tcl error [::quote::quote]: list element in quotes followed by "," instead of space

Может быть стоит саму цитату брать в базе в {}? Пробовал вроде работает, но он берёт в скобки только последнюю цитату, при добавление следующей убирал скобки с предыдущих

set wrstr [list $chan $nick!$uhost $qtime \{$text\}]

[tvrsh]

Проблема была в том, что команды работы со списками(lindex, lrange) применялись к строкам. Подправил скрипт, брать тут: http://www.egghelp.ru/files/332

[Бриллиант]

Теперь при добавление таких цитат с символами через какое то время стирается база и выходит опять эта ошибка

[tvrsh]

Теперь при добавление таких цитат с символами через какое то время стирается база и выходит опять эта ошибка

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

[Бриллиант]

!aq привет всем "2""
Цитата добавлена. (номер: 4)
!aq привет всем "2"" d

Tcl error [::quote::addquote]: list element in quotes followed by """ instead of space
.set errorInfo
Currently: list element in quotes followed by """ instead of space
Currently: while executing
Currently: "join $line"
Currently: (procedure "writedata" line 4)
Currently: invoked from within
Currently: "writedata "$quotedir/$quotedata" $qdata"
Currently: (procedure "::quote::addquote" line 28)
Currently: invoked from within
Currently: "::quote::addquote $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

!q
В базе нет ни одной цитаты.

Присоединил скрипт на пару дней новее версия, но в ней та же беда, скрипт хороший но надо довести до ума.

[tvrsh]

Надоело мне копаться с этой переделкой оригинального скрипта. Взял исходный скрипт, который работает без ошибок, и прикрутил к нему показ времени и даты добавления цитаты. И стали они одинаковы по функционалу.

[Бриллиант]

Теперь из-за времени, после перезагрузки бот не видит цитаты, и время добавлено только в рандомные

[tvrsh]

Поправил, смотри в предыдущем посте.