Création d'un service tcl

[BaGrift]

Salut,

Pour tout ce qui opé,half et autre sur authentifcation sur le robot, Tu la fonctionne des flag.

Enssuite pour ton tcl de sajoin je tes fais un petit code a toi de le testé j'ai aucun egg pour le teste moi meme !

tclcopier

#################################
#		Script sajoin.tcl		#
#	 Tcl Creat By BaGrift		#
#			27/02/2014			#
#								#
####################################
#		Aurel-Tchat Network		   #
#	Server irc://irc.aurel-tchat.fr#
# Site-Web http://aurel-tchat.fr   #
# Forum http://forum.aurel-tchat.fr#
####################################

#####################################################################################
#	Attention Si vous toucher le code vous risquer de le faire planter				#
#		Merci de pas toucher si vous avez aucune connaissance dans le domaine du TCL#
#####################################################################################

# Ici tu mais les vhost que tu veux qui sois sajoin !
set vhoststaff {
  *@NetAdmin.Ton-reseau.fr
  *@Admin.Ton-Reseau.fr
  *@CoAdmin.Ton-Reseau.fr
}
 
 
bind join - "*" join
proc join {nick host hand arg} {
global vhoststaff staff
  foreach vhost $vhoststaff {
  if [string match -nocase $vhost $host]  {
putserv "SAJOIN $nick #staff"
    }  
  }
}
 
putlog "\002\0034Chargement.. \002\037\0031sajoin.tcl by BaGrift\037\0031"