egghelp/eggheads community

Help me with error in tcl

2004-07-17T11:14:10-04:00

If i run this tcl in eggdrop1.1.5 i think i don´t have this problem!
I will test

It looks to me that jones is trying to save one of the following fields to a user;
'nome nick origem entrada fotourl email', and with the exeption of email, none of those are considered valid entry types. So, XTRA field it is..

That said, he is probable better off writing this from scratch, instead of trying to modify this hopelessly old and outdated script.

Statistics: Posted by jones — Sat Jul 17, 2004 11:14 am

Help me with error in tcl

2004-07-16T12:45:27-04:00

It looks to me that jones is trying to save one of the following fields to a user;
'nome nick origem entrada fotourl email', and with the exeption of email, none of those are considered valid entry types. So, XTRA field it is..

That said, he is probable better off writing this from scratch, instead of trying to modify this hopelessly old and outdated script.

Statistics: Posted by greenbear — Fri Jul 16, 2004 12:45 pm

Help me with error in tcl

2004-07-16T10:12:51-04:00

there is one argument to much in that one...
actually in all of the ones listed in this thread
try this one:

Code:

proc user-set {hand type arg} {   setuser $hand $type $arg }

Statistics: Posted by Papillon — Fri Jul 16, 2004 10:12 am

Help me with error in tcl

2004-07-16T08:51:03-04:00

but my user-set just alredy it:

proc user-set {n c t} {
setuser $n xtra $c $t
}

Code:

proc user-set {hand type arg} {  setuser $hand XTRA $type $arg}

Statistics: Posted by jones — Fri Jul 16, 2004 8:51 am

Help me with error in tcl

2004-07-16T08:49:31-04:00

but my user-set alredy just it:

proc user-set {n c t} {
setuser $n xtra $c $t
}

That setxtra proc wont work, replace your user-set code with the one I posted.

Statistics: Posted by jones — Fri Jul 16, 2004 8:49 am

Help me with error in tcl

2004-07-15T20:49:32-04:00

That setxtra proc wont work, replace your user-set code with the one I posted.

Statistics: Posted by greenbear — Thu Jul 15, 2004 8:49 pm

Help me with error in tcl

2004-07-15T20:23:42-04:00

This code is ok! i don´t have more error in my tcl!

but the command that i use with this code not have effect!
I think to see the tcl in geral, but is a little complex because this tcl run with more some tcl and make html file.
*and i realy need show you the html file make online for tcl and the command on bot in the same time and show the problem!
for you understand me.
you can help-me go to the my server and see the eggdrop run? and i send the tcls for you?
give-me your UIN icq or MSN or email
to i go contact you to combine the time!
my email is: jr@viasky.com.br

I am despaired with this!!!
Thanks!

Code:

proc setxtra { handle data } {  set type [lindex $data 0]  set data [lrange $data 1 end]  setuser $handle XTRA $type $data } ;# setxtra

Statistics: Posted by jones — Thu Jul 15, 2004 8:23 pm

Help me with error in tcl

2004-07-15T15:39:26-04:00

Code:

proc setxtra { handle data } {  set type [lindex $data 0]  set data [lrange $data 1 end]  setuser $handle XTRA $type $data } ;# setxtra

Statistics: Posted by KrzychuG — Thu Jul 15, 2004 3:39 pm

Help me with error in tcl

2004-07-15T15:28:30-04:00

Code:

proc user-set {hand type arg} {  setuser $hand XTRA $type $arg}

Statistics: Posted by greenbear — Thu Jul 15, 2004 3:28 pm

Help me with error in tcl

2004-07-15T14:08:00-04:00

sorry!
i´m error to copy here the code of setxtra!

The code with problem is:
This code stay in toolkit.tcl

proc user-set {handle key data} {
set xtra [getxtra $handle]
# is key already there?
for {set i 0} {$i < [llength $xtra]} {incr i} {
set this [lindex $xtra $i]
if {[string compare [lindex $this 0] $key] == 0} {
set this [list $key $data]
setxtra $handle [lreplace $xtra $i $i $this]
return
}
}
lappend xtra [list $key $data]
setxtra $handle $xtra
}

Thanks

I don't see setxtra in that code
user-set $user $type $arg looks like old compat command

Statistics: Posted by jones — Thu Jul 15, 2004 2:08 pm

Help me with error in tcl

2004-07-14T19:40:43-04:00

I don't see setxtra in that code
user-set $user $type $arg looks like old compat command

Statistics: Posted by KrzychuG — Wed Jul 14, 2004 7:40 pm

Help me with error in tcl

2004-07-14T18:19:57-04:00

yes proc dcc_chinfo:

proc dcc_chinfo {handle idx rest} {
global modify imed time
set rest [filtstr $rest]
set tipos "nome nick origem entrada fotourl email"
if {[llength $rest]<=2} {
putdcc $idx "2Erro de sintaxe. Formato:12 .chinfo "
putdcc $idx "2Os tipos disponíveis são: [c_virgula_e [virgula_e $tipos] 12 2]2."
return
}
set user [lindex $rest 0]
if {[isinvalid $user $idx]} {return}
set type [string tolower [lindex $rest 1]]
set arg [newlrange $rest 2 end]
set found 0
foreach campo [string tolower $tipos] {
if {$campo==$type} {set found 1; break}
}
if {$found==0} {
putdcc $idx "2Campo inválido. Sao campos válidos: [c_virgula_e [virgula_e $tipos] 12 2]"
return
}
if {$type=="origem"} {
set arg [lindex [filtstr $arg] 0]
}
user-set $user $type $arg
if {$imed(makememberspage)} {
set construcao "Atualizando modificação na página ..."
} else {
set construcao "Página sendo atualizada em12 $time(makevotepages) 2minutos!"
}
putdcc $idx "2Informado setada. $construcao"
putcmdlog "#$handle# chinfo $user $type ..."
set modify(members) 1
if {$imed(makememberspage)} {checar_paginas}
}

Thanks!

Could you paste that scipt or give a link to it?

Statistics: Posted by jones — Wed Jul 14, 2004 6:19 pm

Help me with error in tcl

2004-07-14T17:44:54-04:00

Could you paste that scipt or give a link to it?

Statistics: Posted by KrzychuG — Wed Jul 14, 2004 5:44 pm

Help me with error in tcl

2004-07-14T17:39:03-04:00

I put this code:
i have this error now:

[18:39] Tcl error [dcc_chinfo]: wrong # args: should be "setxtra handle type data"

This should work:

Code:

proc setxtra { handle type data } {  setuser $handle XTRA $type $data} ;# setxtra

Statistics: Posted by jones — Wed Jul 14, 2004 5:39 pm

Help me with error in tcl

2004-07-14T15:05:14-04:00

Correct me if I'm wrong, but didnt good old 'setxtra' just wipe all the xtra info and then write the new one, like 'setxtra handle xtra'.

Statistics: Posted by greenbear — Wed Jul 14, 2004 3:05 pm