27/01/2010, 19:49
Bonjour,
Je viens car j'ai un salon de report de commande, seulement j'ai un soucis.
J'aimerais quand qqun qui a access sur le bot se log, le bot lui envoi une invitation sur le salon de report de commande.
J'ai cherché dans le windop, et dans la procedure de login
j'ai ca :
et j'ai mis ca dedans ==> puthelp "INVITE $dop(back) $nick"
il apparait 2 fois, mais rien ne fonctionne. Quand je me log sur le bot il ne m'invite pas du le salon back.
Si quelqu'un pouvais m'eclairer.
Merci d'avance
Je viens car j'ai un salon de report de commande, seulement j'ai un soucis.
J'aimerais quand qqun qui a access sur le bot se log, le bot lui envoi une invitation sur le salon de report de commande.
J'ai cherché dans le windop, et dans la procedure de login
j'ai ca :
TCL
proc dop:login {nick host rhand arg} {
global dop
set pass [join [lindex [split $arg] 1]]
set hand [join [lindex [split $arg] 0]]
if {$pass == ""} {
puthelp "NOTICE $nick :[dop:lang $hand 161 ""]"
return 0
}
if {![validuser $hand]} {
puthelp "NOTICE $nick :[dop:lang $hand 104 "$hand"]"
return 0
}
if {[passwdok $hand ""]} {
putserv "NOTICE $nick :[dop:lang $hand 158 ""]"
return 0
}
#set hand [getuser $hand handle]
if {[getuser $hand xtra dop:auth] == 1 && [hand2nick $hand] != "" && [getuser $hand xtra dop:authhost] == $host} {
putserv "NOTICE $nick :[dop:lang $hand 246 "$hand"]"
putserv "NOTICE $nick :[dop:lang $hand 247 "[getuser $hand xtra dop:authnick]![getuser $hand xtra dop:authhost]"]"
return 0
}
if {[matchattr $hand n]} {
set found 0
foreach user [userlist] {
if {[getuser $user xtra dop:owner.access] > 0} {
set found 1
}
}
if {$found == 0} {
setuser $hand xtra dop:owner.access 1000
}
}
if {![passwdok $hand ""]} {
if {![passwdok $hand $pass]} {
puthelp "NOTICE $nick :[dop:lang $rhand 163 "$hand"]"
setuser $hand xtra dop:auth 0
delhost $hand "[getuser $hand xtra dop:authnick]!*[dop:notild [getuser $hand xtra dop:authhost]]"
setuser $hand xtra dop:authhost "*"
setuser $hand xtra dop:authnick ""
delhost $hand "$nick!*[dop:notild $host]"
set accessss [getuser $hand xtra dop:owner.access]
if {$accessss > 500} {
if {$dop(adminreport) == 1} {
puthelp "NOTICE $dop(adminreportchan) :[dop:lang $rhand 164 "$nick $host $hand $accessss"]"
}
}
}
if {[passwdok $hand $pass]} {
puthelp "NOTICE $nick :[dop:lang $rhand 165 "$hand"]"
setuser $hand hosts "$nick!*[dop:notild $host]"
setuser $hand xtra dop:auth 1
delhost $hand "[getuser $hand xtra dop:authnick]!*[dop:notild [getuser $hand xtra dop:authhost]]"
setuser $hand xtra dop:authhost $host
puthelp "INVITE $dop(back) $nick"
setuser $hand xtra dop:authnick $nick
set accessss [getuser $hand xtra dop:owner.access]
if {$accessss < 501} { putserv "PRIVMSG $dop(back) :$nick vient de s'authentifier sous le pseudo de $hand." }
if {$accessss > 502} { putserv "PRIVMSG $dop(back) :1$nick vient de s'authentifier étant de l'4EQUIPE1 sous le pseudo de $hand."
if {$dop(adminreport) == 1} {
puthelp "PRIVMSG $dop(adminreportchan) :[dop:lang $rhand 166 "$nick $host $hand $accessss"]"
puthelp "INVITE $dop(back) $nick"
}
}
foreach chan [channels] {
switch -- [getuser $hand xtra dop:$chan.automode] {
"op" { pushmode $chan +o $nick }
"voice" { pushmode $chan +v $nick }
}
}
}
}
}
et j'ai mis ca dedans ==> puthelp "INVITE $dop(back) $nick"
il apparait 2 fois, mais rien ne fonctionne. Quand je me log sur le bot il ne m'invite pas du le salon back.
Si quelqu'un pouvais m'eclairer.
Merci d'avance