shell users tcl script

Rider · Post by **Rider** » Fri Jun 27, 2003 10:30 am

I cant get this to print more than 1 line if I were to use it for other shell commands like 'who' or 'finger'

bind pub * !users utgetusers ; proc utgetusers {nick host handle chan argh} {putmsg $chan "current users: [exec users]"}

can anybody help?

spock · Post by **spock** » Fri Jun 27, 2003 10:35 am

Code: Select all

set middlefinger [exec finger]
set l [split $middlefinger "\n"]
foreach i $l { putmsg $chan $i }

Rider · Post by **Rider** » Fri Jun 27, 2003 10:47 am

uhm? i dont understand. that sounds like an insult rather than real help

egghead · Post by **egghead** » Fri Jun 27, 2003 11:48 am

Rider wrote:uhm? i dont understand. that sounds like an insult rather than real help

replace "middlefinger" by a varname you prefer better and then run it.

Rider · Post by **Rider** » Fri Jun 27, 2003 11:54 am

ah, thought someone was being sarcastic. hmm how would that go into the this code exactly:

Code: Select all

bind pub * !users utgetusers ; proc utgetusers {nick host handle chan argh} {putmsg $chan "current users: [exec users]"}

Rider · Post by **Rider** » Sat Jun 28, 2003 8:05 am

what I mean is can someone rewrite it with the bind !finger etc as I dont know jack sh*t about tcls

egghead · Post by **egghead** » Sat Jun 28, 2003 12:00 pm

Rider wrote:what I mean is can someone rewrite it with the bind !finger etc as I dont know jack sh*t about tcls

Even without knowledge of Tcl, but with a bit of common sense, it is easy to take something from the original line and replace it with the new part.

Try it a bit and let us know how it is going.