egghelp/eggheads community

shell users tcl script

2003-06-28T12:00:07-04:00

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.

Statistics: Posted by egghead — Sat Jun 28, 2003 12:00 pm

shell users tcl script

2003-06-28T08:05:10-04:00

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

Statistics: Posted by Guest — Sat Jun 28, 2003 8:05 am

shell users tcl script

2003-06-27T11:54:04-04:00

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

Code:

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

Statistics: Posted by Guest — Fri Jun 27, 2003 11:54 am

shell users tcl script

2003-06-27T11:48:15-04:00

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.

Statistics: Posted by egghead — Fri Jun 27, 2003 11:48 am

shell users tcl script

2003-06-27T10:47:08-04:00

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

Statistics: Posted by Guest — Fri Jun 27, 2003 10:47 am

shell users tcl script

2003-06-27T10:35:39-04:00

Code:

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

Statistics: Posted by spock — Fri Jun 27, 2003 10:35 am

shell users tcl script

2003-06-27T10:30:28-04:00

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?

Statistics: Posted by Guest — Fri Jun 27, 2003 10:30 am