[Résolu] Retirer une partie d'un host

[Amand]

Bonjour à tous,

j'ai deux procédures , une qui me permet d'ajouter un access qui fonctionne parfaitement, elle ajoute une extension dans l'host de l'utilisateur .xyz :

tclcopier

bind pub o|o .+access [namespace current]::addaccess
proc addaccess { nick host hand chan arg } {
 
if {![channel get $chan certif]} {
return
}
 
set colonne(pseudo) [string tolower [lindex $arg 0]]
 
::certUser::service:connect
mysqlsel $::mysqlink "INSERT INTO voiceauto (pseudo, salon) VALUES ('$colonne(pseudo)', '$chan')"
::certUser::service:deconnect
 
if {[onchan $colonne(pseudo) $chan]} {
set identhost [getchanhost $colonne(pseudo)]
lassign [split $identhost "@"] ident uhost
putnow "CHGHOST $colonne(pseudo) $uhost.xyz"
}
 
puthelp "NOTICE $nick :Pseudo ajouté: \0034$colonne(pseudo)\003 sur \0034$chan\003"
 
}

Le problème est dans cette procédure, j'aimerais que dans la condition du onchan, il detecte si il y a .xyz a la fin de l'host et si oui il recup l'host et retire juste l'extension .xyz , en redefinissant l'host sans l'extension .xyz ..

tclcopier

bind pub o|o .-access [namespace current]::delaccess
proc delaccess { nick host hand chan arg } {
 
if {![channel get $chan certif]} {
return
}
 
set colonne(pseudo) [lindex $arg 0]
 
::certUser::service:connect
mysqlsel $::mysqlink "DELETE FROM voiceauto WHERE pseudo='$colonne(pseudo)' and salon='$chan'"
::certUser::service:deconnect
 
if {[onchan $colonne(pseudo) $chan]} {
set identhost [getchanhost $colonne(pseudo)]
lassign [split $identhost "@"] ident uhost
#putnow "CHGHOST $colonne(pseudo) $uhost" # ici je veux qu'il retire le .xyz du host
}
 
puthelp "NOTICE $nick :Pseudo supprimé: \0034$colonne(pseudo)\003 sur \0034$chan\003"
 
}