egghelp/eggheads community

chanset via pub command

2020-09-16T13:15:03-04:00

thank you CrazyCat and Caesar much apreciated works fine now

Statistics: Posted by simo — Wed Sep 16, 2020 1:15 pm

chanset via pub command

2020-09-16T13:06:48-04:00

cleared all tcls and left only the chanset one and seems to work now

Statistics: Posted by simo — Wed Sep 16, 2020 1:06 pm

chanset via pub command

2020-09-16T12:51:48-04:00

So you have an error, but not in that proc, because there is no lreplace in it.
You'd better give us your full script, or find which of your script did this error.

Statistics: Posted by CrazyCat — Wed Sep 16, 2020 12:51 pm

chanset via pub command

2020-09-16T12:45:24-04:00

list doesn't contain element 2
while executing
"lreplace $items 2 2"

Statistics: Posted by simo — Wed Sep 16, 2020 12:45 pm

chanset via pub command

2020-09-16T12:42:55-04:00

And what did you get in party-line ?
I can't help you without these infos

Statistics: Posted by CrazyCat — Wed Sep 16, 2020 12:42 pm

chanset via pub command

2020-09-16T12:35:49-04:00

tried your last posted code and didnt output any error CrazyCat

Statistics: Posted by simo — Wed Sep 16, 2020 12:35 pm

chanset via pub command

2020-09-16T11:04:03-04:00

I think you don't know how to debug a script...

Try this code, and copy us the command you type in chan and what happens in party-line

Code:

proc pub:chanset {nick host hand chan text} {   set value [lassign $text mode]   putlog "getting mode: *$mode* and value: *$value*"   if {![info exists value] || $value eq ""} {      putlog "value seems to not be set"      catch {channel set $chan $mode} error   } else {      putlog "ok, value is set"      catch {channel set $chan $mode $value} error   }   putlog "error is *$error*"   if {$error == ""} {      putnow "NOTICE $nick :Successfully set $text"   } else {      putnow "NOTICE $nick :Error setting $text: [lindex $error 0]..."   }}

Using .console +d is a good way to see errors. And if an error appear, type .set errorInfo to have more detals

Statistics: Posted by CrazyCat — Wed Sep 16, 2020 11:04 am

chanset via pub command

2020-09-16T10:44:33-04:00

ive added this caesar but it didnt output anything

putserv "privmsg $chan :trying to set $mode to $value"

Statistics: Posted by simo — Wed Sep 16, 2020 10:44 am

chanset via pub command

2020-09-16T00:54:24-04:00

Did you add a putlog line to see what mode and value would be set and what error do you get? Something like:

Code:

putlog "trying to set $mode to $value"

Statistics: Posted by caesar — Wed Sep 16, 2020 12:54 am

chanset via pub command

2020-09-15T19:16:38-04:00

tnx for that crazycat tried that didnt seem to work properly tho same result of just setting parts of the settings

Statistics: Posted by simo — Tue Sep 15, 2020 7:16 pm

chanset via pub command

2020-09-15T18:17:01-04:00

No, he means (if I'm not wrong):

Code:

proc pub:chanset {nick host hand chan text} {   set value [lassign $text mode]   if {![info exists value] || $value eq ""} {      catch {channel set $chan $mode} error   } else {      catch {channel set $chan $mode $value} error   }   if {$error == ""} {      putnow "NOTICE $nick :Successfully set $text"   } else {      putnow "NOTICE $nick :Error setting $text: [lindex $error 0]..."   }}

Statistics: Posted by CrazyCat — Tue Sep 15, 2020 6:17 pm

chanset via pub command

2020-09-15T15:01:50-04:00

you mean like this caesar:

Code:

proc pub:chanset {nick host hand chan text} {set text [lindex [split $text] 0]set value [lassign $text mode] if {![info exists value]} {  catch {channel set $chan $set} error } {  catch {channel set $chan $set $value} error } if {$error == ""} {  putnow "NOTICE $nick :Successfully set $text" } {  putnow "NOTICE $nick :Error setting $text: [lindex $error 0]..." }}

Statistics: Posted by simo — Tue Sep 15, 2020 3:01 pm

chanset via pub command

2020-09-15T04:23:51-04:00

You shouldn't use set, arg or args cos they have special meanings in TCL.

Here's a nice trick with lassign:

Code:

% set text "ap:repeatl 2:10 60 k:kb 2"ap:repeatl 2:10 60 k:kb 2% set value [lassign $text mode]2:10 60 k:kb 2% puts $modeap:repeatl% puts $value2:10 60 k:kb 2

Statistics: Posted by caesar — Tue Sep 15, 2020 4:23 am

chanset via pub command

2020-09-14T13:55:09-04:00

excellent tnx CrazyCat

Statistics: Posted by simo — Mon Sep 14, 2020 1:55 pm

chanset via pub command

2020-09-14T12:18:38-04:00

The split command cut $args in 5 pieces (split is on " ") and set the first to $set (bad idea of variable name) and the second to $value (bad idea too). The script wasn't thought for complex values.

You can use scan and a regexp to set $set and $value, or do it in 2 times whith:

Code:

set set [lindex [split $arg] 0]set value [join [lrange [split $arg] 1 end]]

Statistics: Posted by CrazyCat — Mon Sep 14, 2020 12:18 pm