# Je definis ci dessous le vhost qui ont accès a !connect

set vhostconnect {
*@CoMaster.domaine.tld
*@Master.domaine.tld
*@ChanMaster.domaine.tld
*@SysOp.domaine.tld
*@ServerAdmin.domaine.tld
*@TechAdmin.domaine.tld
*@NetAdmin.domaine.tld
}

#Je definis le salon sur lequel cete commande et utilisable (ici ce sera #control)

set chancontrol "#Control"

#Ici je démarre la commande en m'inspirant des set definis.

bind pub - !connect connect
proc connect { nick host hand channel arg } {
global vhostconnect chancontrol
set ip [lindex $arg 0]
set user [lindex $arg 1]
foreach vhost $vhostconnect {
if [string match -nocase $vhost $host]  {
putquick "PRIVMSG $chancontrol : \0032Les anciennes connexions de\0034 $user"
putquick "PRIVMSG $chancontrol : Anciennement $user --> $ip"
}
}
}