.console +d (restricted to owners)

TnkyWnky · Post by **TnkyWnky** » Wed Feb 25, 2004 3:45 pm

I know it can be done. I was instructed once before on how to do it. However, I guess I was simple-minded at the time as I didn't write down those instructions. =/

What I'm wondering is if anyone here might be able to tell me how to set the ".console +d" setting to owners only? Rather than to masters.

From what I can recall, it was most likely something to do with editing one of the source files. However, I can be mistaken.

So, if anybody's able to give me some assistance, it would be much appreciated.

Thanks,
TnkyWnky

Post by **caesar** » Thu Feb 26, 2004 1:57 pm

Code: Select all

catch {unbind dcc ot|o console *dcc:console} 
bind dcc ot|o console my:dcc:console

proc my:dcc:console {hand idx arg} {
  if {[string match -nocase "*d*" $arg] && ![matchattr $hand n]} { 
    putdcc $idx "something!" 
    return
  } 
  *dcc:console $hand $idx $arg 
  if {$arg != ""} {
    return
  } 
}

Should be working..

TnkyWnky · Post by **TnkyWnky** » Thu Feb 26, 2004 2:08 pm

Erm.. for some reason, it's giving me the following error with your suggested code:

Tcl error [my:dcc:console]: invalid command name "Ã…"

TnkyWnky · Post by **TnkyWnky** » Thu Feb 26, 2004 2:16 pm

catch {unbind dcc ot|- console *dcc:console}
bind dcc ot|o console my:dcc:console

proc my:dcc:console {hand idx arg} {
if {([string match -nocase "*d*" $arg]) && (![matchattr $hand n])} { return 1 }
*dcc:console $hand $idx $arg
}

That's what I re-adjusted it to, and it seems to be workn' fine so far.

TnkyWnky · Post by **TnkyWnky** » Thu Feb 26, 2004 2:33 pm

It's workn' perfectly.

Thanks so much for you help.