syntax for output cmds

[YooHoo]

What's the syntax to output information to the server for the improvements & alterations made by alltools.tcl? For example, output syntax to send a PRIVMSG to the channel #outhouse is

Code: Select all

puthelp "PRIVMSG #outhouse :This is my lame message."

Now my question is simply what is the correct syntax to use the command, for ex., putchan, in this same scenario? I'm confused as to where the quotes belong....

Code: Select all

putchan #outhouse :"Where do my quotes belong?"

Thanks

[greenbear]

It's 'putchan dest text'

Code: Select all

putchan #chan "text goes here"

[YooHoo]

so there is no longer any need to seperate nick/chan from the text with a colon ( : )?

[user]

You should be able to figure things out by reading the code

Code: Select all

proc putchan {dest text} {
  puthelp "PRIVMSG $dest :$text"
}

...so all it does is add a keyword and a colon (and slow things down a bit)

[awyeah]

Basically it's just a remap of the puthelp command. It will use the puthelp (slowest que) to send the msg to the channel. I don't see a need for using it. It will take some more time to read the proc putchan, why not simply use puthelp to make it go directly.

Then again it's mapped in such a way in alltools.tcl $dest can be a 'nick' too not especially a 'channel'. So it can also be:

putchan awyeah "hi there!"
putchan #funchat "hello everyone!"

For fixing that, and making it restricted to channels, as the name 'putchan' suggests you can use something like:

Code: Select all

 if {(string match "#*" $dest])} { puthelp "PRIVMSG $dest :$text" }

[YooHoo]

Basically it's just a remap of the puthelp command. It will use the puthelp (slowest que) to send the msg to the channel. I don't see a need for using it. It will take some more time to read the proc putchan, why not simply use puthelp to make it go directly.

I have found some of the shortcuts in alltools.tcl to be excellent, namely strlwr/strupr, iscommand, and ispermowner... wish some of the tcl docs had more examples of actual usage almost as much as I wish I had a beer....

[KrzychuG]

It can also be like this:

Code: Select all

if {[string index $dest 0] == "#"]} then { puthelp "PRIVMSG $dest :$text"}

:)

[user]

"#" is not the only channel name prefix and wtf is the point of this filtering in the output command?

[KrzychuG]

For fixing that, and making it restricted to channels...

Code: Select all

if {[string index $dest 0] == "#"] || [string index $dest 0] == "!"] || [string index $dest 0] == "&"]} then { puthelp "PRIVMSG $dest :$text"}

Fine now?

[user]

For fixing that, and making it restricted to channels...

Code: Select all

if {[string index $dest 0] == "#"] || [string index $dest 0] == "!"] || [string index $dest 0] == "&"]} then { puthelp "PRIVMSG $dest :$text"}

Fine now?

The best "fix" would be 'file delete scripts/alltools.tcl'
(I'd use 'string match {[#&!]*} $dest' to do that kind of matching)

[YooHoo]

Fine now?

it was fine before

The best "fix" would be 'file delete scripts/alltools.tcl'

that's akin to blasphemy

[awyeah]

So [string match {[#&!]*} $dest]:

Will match with $dest like "#blabla" or "!blabla" or "&blabla"
Meaning it will do a match against "#*" or "!*" or "&*" all in one command rather than specifiying 3 string matching commands with the logical OR operator?

Nice!