Code TCL pour ban HOST + IDENT

[PiOn]

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.

tclcopier

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 !

[CrazyCat]

Ton erreur est:

tclcopier

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:

tclcopier

set uident [string trimleft [lindex [split [getchanhost $vnick $chan] "@"] 0]]

[PiOn]

Ah oui effectivement.. c'était tout bête !
Un grand merci à CrazyCat !
ça marche très bien.