[Demande] aide pour une modification pour whois

[loulou7593]

Bonjour,
je viens car il y a quelques temps j'avais fait un petit script pour ajouter des @ et des xop sur une back radio via une commande, tout fonctionne bien, mais j'aimerais y apporter une modification. Je join le tcl et j'explique ce que j'aimerais.

tclcopier

set chanback "#back"
set Nomback "radio"
 
bind pub n .+@ Ajoutop
proc Ajoutop {nick host hand chan arg} {
	global botnick  
      set nick [lindex $arg 0]
	  if {$nick == ""} {
		putserv "PRIVMSG $::chanback :AJOUT @ Tu veux ajouter qui comme @ $hand ?"
		return 0
	}
	  if {[validuser $nick]} {
		puthelp "NOTICE $hand :$nick est déja Ajouté Comme Propriétaire"
		return 0
	}
	  putquick "MODE $chan +o $nick"
      adduser $nick $nick*!*@*
      chattr $nick +nfao
	  putserv "PRIVMSG $::chanback : @ effectué $nick fait maintenant partie de la Team $::Nomback ! Bienvenue. :) "
}
 
bind pub n .+xop Ajoutxop
proc Ajoutxop {nick uhost hand chan arg} {
	global botnick  
      set nick [lindex $arg 0]
	  if {$nick == ""} {
		putserv "PRIVMSG $::chanback :AJOUT XOP Tu veux ajouter qui comme XoP $nick ?"
		return 0
	}
	  if {[validuser $nick]} {
		puthelp "NOTICE $hand :$nick est déja Ajouté comme XoP"
		return 0
	}
	  putquick "MODE $chan +o $nick"
      adduser $nick $nick*!*@*
      chattr $nick +afoX
      putserv "PRIVMSG $::chanback : XoP effectué $nick fait maintenant partie de la Team $::Nomback ! Bienvenue. :) "
}
 
bind pub n .-op Supressionop
proc Supressionop {nick uhost hand chan arg} {
	global botnick
      set pseudo [lindex $arg 0]
	  if {![validuser $pseudo]} {
		puthelp "NOTICE $hand :$pseudo est déja supprimé"
		return 0
	}
      deluser [lindex $arg 0]
      chattr [lindex $arg 0] -jklmnoptxaf
      putquick "MODE $chan -o $pseudo"	  
      putserv "PRIVMSG $::chanback : Deluse effectué $pseudo ne fait plus partie de la Team $::Nomback ! Bonne continuation."
}

# ##############
# Invite Salon #
# ##############
 
bind join - * AutoInvite
proc AutoInvite {nick uhost hand chan args} {
global botnick
if {$nick!="$botnick"} {
if {[matchattr $hand a]} {
utimer 90 [list AutoInv $chan $nick]
return 0
}
}
proc AutoInv {chan nick} {
puthelp "invite $nick $::chanback"
}
return 0
}
 
bind join - "$chanback *" message
proc message {nick uhost hand chan args} {
global botnick
if {$nick!="$botnick"} {
if {[matchattr $hand a]} {
putserv "privmsg $::chanback : $nick Bienvenue, Pour Voir Les Commandes Tapez !commandes"
putquick "mode $chan +o $nick"
}
}
}

Voila, avant pour qu'une personne que j'avais ajouté soit invitée sur la back, il fallait d'abord que mon eggdrop se trouve sur le salon principal et que la personne en question joigne ce salon pour que l'eggdrop lance la procedure.
Maintenant j'aimerais ne pas avoir à mettre l'eggdrop sur plusieurs salons mais juste sur la back et que l'eggdrop whois à intervalle regulier la liste des users qui sont déja ajoutés et si ceux ci sont connectés qu'il les invites donc sur la back.

Est ce que quelqu'un aurait une petite idée de modification ?

Merci d'avance.