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

[VooDoo]

Нужен как воздух скриптик, отправляющий приватный текст на e-mail. Адрес отправки один и задан в скрипте - так что не для спама это.
Нашёл один забугорный, но разобраться никак не могу, увы.

[VooDoo]

Нашёл у вас sendmail.tcl

Код: Выделить всё

proc ::sendmail::msg { nick uhost hand args } {
   global sendmail botnick
   if { [llength [split [lindex $args 0] ] ] > 1 || [llength [split [lindex $args 0] ] ] == 0 } { set args [split [lindex $args 0]] }
   if {[llength $args]==0} { ::egglib::outh $nick $nick "!sendmail" "<от(mail)> <кому(mail)> <'тема'> <'текст'>"; return }
   ::egglib::log $nick $nick "sendmail" $args
   set from ""; set to ""; set subject ""; set text ""
   set from [lindex $args 0]
   set to [lindex $args 1]
   set subject [lindex [split $args \'] 1];
   if { $subject == "" } { set subject [lindex $args 2] }
   set text [lindex [split $args \'] 3];
   if { $text == "" } { set text [lrange $args 3 end] }
   if { $to == "" } { ::egglib::outh $nick $nick "!sendmail" "<от(mail)> <кому(mail)> <'тема'> <'текст'>"; return }
   if { $subject == "" } { ::egglib::outh $nick $nick "!sendmail" "<от(mail)> <кому(mail)> <'тема'> <'текст'>"; return }
   if { $text == "" } { ::egglib::outh $nick $nick "!sendmail" "<от(mail)> <кому(mail)> <'тема'> <'текст'>"; return }
   if {![string match "*@*" $from]} { set from "i.am.too.l@me.to.set.mail.correctly" }
   if {![catch {open "| $sendmail(path) -f $from -t" "w"} message]} {
           puts $message "To: $to"
           puts $message "From: $from"
           puts $message "Subject: $subject"
           puts $message "$text Не скажу от кого письмо =\"
           close $message
           ::egglib::out $nick $nick "Ваше сообщение отправлено."
           return
       }


Tcl error [::sendmail::msg]: extra characters after close-quote

[VooDoo]

Форум-призрак - ни одной живой души

[tvrsh]

И при каком действии такая ошибка? Кто будет показывать errorInfo?

[VooDoo]

!sendmail vasya@domain.ru vova@domain.ru тема проверка связи.

При правильно введённой команде выдаёт.

[tvrsh]

.set errorInfo сразу после ошибки покажи.

[VooDoo]

век живи, век учись...

пока разобрался сам.

было так:

Код: Выделить всё

if {![catch {open "| $sendmail(path) -f $from -t" "w"} message]} {

надо так:

Код: Выделить всё

if {![catch {open | "$sendmail(path) -f $from -t" "w"} message]} {

как дальше пойдёт отпишусь.
Сэнкс!

-------

Уже отписываюсь
Не отсылает. Это error теперь.

Currently: expected integer but got "w"
Currently: while executing
Currently: "open | "$sendmail(path) -f $from -t" "w""

[tvrsh]

Чтобы убрать ошибку extra characters after close-quote надо в строке

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

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

           puts $message "$text Не скажу от кого письмо =\"

убрать последний элемент смайлика =\ так как он экранирует закрывающую кавычку.
Или вообще сделать так:

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

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

           puts $message "$text"

[VooDoo]

Currently: expected integer but got "w"
Currently: while executing
Currently: "open | "$sendmail(path) -f $from -t" "w""

А это как?
---
И, кстати, как заставить бота вывести в тексте \ ?

[tvrsh]

Эта ошибка стала появляться после того как ты сделал это: viewtopic.php?p=706#p706
Самому трудно догадаться все вернуть назад?
Также как и любой другой символ. Только если у тебя после \ должна идти закрывающая кавычка то оставить перед ней пробел.

<tvrsh> $$ putserv "PRIVMSG $chan :test\ "
<@bionic> test
<@bionic> OK - 0.276 ms.
<tvrsh> $$ putserv "PRIVMSG $chan :test\"
<@bionic> Error: missing " - 0.118 ms.

[VooDoo]

Итак!

1. Пока в тикле туговато порой догадываться. Скипт принял наконец-то рабочий вид. Как теперь заставить его присылать не белиберду? Я о кодировке.

2. \ удалось вывести на канал так: ...\\ "

P.S. В целом ужЕ БОЛЬШОЕ спасибо за помощь и отзывчивость!

[tvrsh]

Я о кодировке.

Когда ты научишься задавать вопросы по конкретным ошибкам?

[VooDoo]

Встречный вопрос: когда ты научишься вникать в суть вопроса?
Из поста видно, что текст, вполне понятный, был отослан в одной кодировке, а на мыло он попал совершенно в другой и стал представлять из себя некую крокозябру. Вот КАК, именно КАК заставить бота присылать на мыло ТО, ЧТО было непосредственно послано ему???

Скрипт есть у вас на сайте, потести сам. Что мы как сломанное радио?..

[tvrsh]

Идиот, может ты покажешь эту, как ты выразился, "крокозябру"? Я понятия не имею что и в какой кодировке у тебя работает. Скрипт нужен тебе и по-этому тести его сам, мне все это абсолютно без надобности.
Дебил.

[VooDoo]

Во как! Спасибо за лестные слова. Тогда нахуя сайт носит название eggHELP? Чтоб с высоты модератора всех слать? Раз такое громкое название, то в идеале надо иметь бы бота и на нём отрабатывать скрипты, которые тем более имеются на вашем сайте. За них надо бы быть в ответе. А так у вас пока свалка скриптов, а не "рабочие лошадки".
За "идиот" и "дебил" имею право послать вас, молодой человек, на хуй, что непосредственно и делаю!
Про convertto/convertfrom не судьба отписать? Долбоёб... Эт те в догонку, ёпть.