sbnc TCL

Hilfestellungen zur Installation, Konfiguration und Inbetriebnahme eines Bouncers.. psybnc, bnc, muh, ezbounce, etc...
Antworten
X-Trancer
Newbie
Beiträge:17
Registriert:30. Mai 2005, 17:48
sbnc TCL

Beitrag von X-Trancer » 27. Sep 2007, 06:52

Code: Alles auswählen

bind nick - * nick_ident_chg 
bind raw - 001 nick_ident_con 

internalbind command nickpass:command 

set cuser [getctx] 

proc nickpass:command { client params } { 
   if { [string equal -nocase [lindex $params 0] "help"] } { 
      bncaddcommand nickpass User "manage the password for Nickserv automatic identification" "Syntax: nickpass help" 
   } elseif { [string equal -nocase [lindex $params 0] "nickpass"] } { 
      if { [llength $params] < 2 } { 
            bncreply "Help is available on the following topics:" 
            bncreply "set (description of the set command)" 
            bncreply "unset (description of the unset command)" 
            bncreply "To get help on a topic use /sbnc nickpass help <topic>" 
            haltoutput 
      } elseif { [string equal -nocase [lindex $params 1] "set"] } { 
         if { [llength $params] < 3 } { 
            bncreply "No value (password) given" 
            haltoutput 
         } else { 
            setbncuser $client tag nickserv.password [lindex $params 2] 
            bncreply "Done." 
            haltoutput 
         } 
      } elseif { [string equal -nocase [lindex $params 1] "unset"] } { 
         setbncuser $client tag nickserv.password "" 
         bncreply "Done." 
         haltoutput 
      } elseif { [string equal -nocase [lindex $params 1] "help"] } { 
         if { [string equal -nocase [lindex $params 2] "set"] } { 
            bncreply "To set a setting use /sbnc nickpass set <value>" 
            haltoutput 
         } elseif { [string equal -nocase [lindex $params 2] "unset"] } { 
            bncreply "To unset a setting use /sbnc nickpass unset" 
            haltoutput 
         } elseif { [llength $params] < 3 } { 
            bncreply "Help is available on the following topics:" 
            bncreply "set (description of the set command)" 
            bncreply "unset (description of the unset command)" 
            bncreply "To get help on a topic use /sbnc nickpass help <topic>" 
            haltoutput 
         } else { 
            bncreply "No help available on that topic." 
            haltoutput 
         } 
      } 
   } 
} 

proc nick_ident_chg { nick uhost handle channel newnick } { 
   global botnick cuser 
   set debug 1 
   bncreply "$debug" 
   if {$newnick == $botnick} { 
      if { [getbncuser $cuser tag nickserv.password] != "" } { 
         putserv "PRIVMSG Nickserv :identify [getbncuser $cuser tag nickserv.password]" 
      } 
   } 
   set debug 2 
   bncreply "$debug" 
} 

proc nick_ident_con { nick uhost handle } { 
   global cuser 
   if { [getbncuser $cuser tag nickserv.password] != "" } { 
      putserv "PRIVMSG Nickserv :identify [getbncuser $cuser tag nickserv.password]" 
   } 
}
Moin

Kenn sich jemand mit TCL aus?

Bei mir geht dieses Script nicht also nur so halb die einstellungen frisst er aber wenn ich connecte oder umbenenne identifiziert er sich net automatisch mit dem gesetzten passwort

Kann das jemand testen?

Der author sagte bei ihm gehe es und er hat auch keine Zeit mehr sich drum zu kümmern

Mein server hat debian etch und tcl8.4dev tslk8.4 brauchts da evt noch mehr?

Für eure Hilfe wäre zu danken

In dem Sinne bis bald

Gott zum Grusse
Deutsches IRC Netzwerk

Sucht immer neue Users

mIRC - [url]irc://irc.german-irc.net[/url]
Webseite- http://www.german-irc.net
Forum - http://forum.german-irc.net

Antworten