[TCL] sbnc - disconnect script

[D-Style]

Hallo,

ich habe vor als erstes ein kleines script zu schreiben mit dem es den usern beim sbnc überhaupt möglich ist vom irc server zu gehen ohne das sie den irc server auf null setzn müssen ^^

ich habe dazu folgendes:

 
internalbind command own:quit 
    
    proc own:quit{client params} { 
   if {[string equal -nocase [lindex $params 0] "quit"]} { 
       bncreply "ja hier soll eigentlich der disconnect ausgeführt werden..." 
       haltoutput 
   } 
    }

ja das problem ist ich weiß nicht wie die commands heißen und bin ansonsten leider in sachen tcl auf völligem neuland.. ich bin schon froh das er überhaupt antwortet ^^

nunja jedenfalls soll an der beschriebenen stelle der command ausgeführt werden als würde ich als admin '/msg -sbnc disconnect $user' machen..

wär erfreut wenn mir wer weiterhelfen könnte.

Laut der commands.txt
--
bncdisconnect <Reason>

Description: Disconnects a user from the irc server.
Returns: Nothing.
--
allerdings weiß ich jetz auch nicht wie ich das da richtig einsetze...

gruß

[D-Style]

internalbind command own:quit

proc own:quit {client parameters} {
if {[string equal -nocase [lindex $parameters 0] "quit"]} {
bncdisconnect loggoff

}
}

done.