+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Code TCL pour ban HOST + IDENT (/showthread.php?tid=1799)
Code TCL pour ban HOST + IDENT - PiOn - 30/07/2024
Bonjour,
Je laisse un message pour une aide concernant mon tcl
Il bannit bien l'host, mais, je cherche a bannir l'ident également sous forme : *!blabla@*
Dans ce que je vais vous mettre ci-dessous, il bannit mon propre ident.
tcl
bind pub - !kbapp kbapp
proc kbapp {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE $nick tu n'as pas accés à cette commande"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
if {![onchan $vnick $chan]} { putquick "NOTICE $nick :\00312 [Erreur] $vnick n'est pas sur $chan"; return 0}
set vhost [lindex [split [getchanhost $vnick $chan] "@"] 1]
set uident [string trimleft [lindex [split $uhost "@"] 0]]
putserv "MODE $chan +b *!$uident@*"
putquick "PRIVMSG chanserv ban $chan $vnick Pas de pub pour les applications. ($nick)"
putquick "PRIVMSG BOTSERV say $chan Info: $vnick est banni(e) de $chan pour la raison suivante: Publicité Interdite. (Par $nick)"
putquick "PRIVMSG #Back-Tentation KickBan Applications Pseudo: $vnick sur $chan par $nick"
return
} else {
puthelp "NOTICE $nick Pseudo Incorrecte"
return
}
}
Si quelqu'un trouve l'erreur ou veut bien m'aider/guider..
Merci d'avance !
RE: Code TCL pour ban HOST + IDENT - CrazyCat - 30/07/2024
Ton erreur est:
tcl
set uident [string trimleft [lindex [split $uhost "@"] 0]]
Je pense que tu voulais en fait prendre $vhost et pas $uhost
D'ailleurs, $vhost est inutile, et tu devrais juste faire:
tcl
set uident [string trimleft [lindex [split [getchanhost $vnick $chan] "@"] 0]]
RE: Code TCL pour ban HOST + IDENT - PiOn - 30/07/2024
Ah oui effectivement.. c'était tout bête !
Un grand merci à CrazyCat !
ça marche très bien.