set Eva(ip)   "ip"
set Eva(port) "port"
set Eva(pass) "password"
set Eva(serv) "Eva02.***.fr"
set Eva(info) "Eva-Service"

#**********#
# Info Eva #
#**********#
 
set Eva(nick) "Eva"
set Eva(host) "***.fr"
set Eva(real) "Eva-000Service"
set Eva(ident) "Eva-Service"
set Eva(mode) "oaOwsgk"

#**********#
# Info Geo #
#**********#
 
set Eva(geo) "Geofront"
set Eva(geohost) "***.fr"
set Eva(georeal) "Geo-000Service"
set Eva(geoident) "Geo-Service"
set Eva(geomode)  "oaOwsgk"

#**********#
# Info Geo #
#**********#
 
set Eva(logserv) "LogServ"
set Eva(loghost) "***.fr"
set Eva(logreal) "Log-000Service"
set Eva(logident) "Log-Service"
set Eva(logmode)  "oaOwsgk"

#***********#
# Salon log #
#***********#
 
set Eva(log) "#services"
set Eva(quit01) "Redémarrage Service"
set Eva(quit02) "Coupure Service Maintenance"

#***************************#
# Variable à ne pas toucher #
#***************************#
 
proc putspeed {arg} {
  putquick "$arg"
  clearqueue all
}

#***********************************#
# Connection de la socket Principal #
#***********************************#
 
 
proc connexion {} {
  global Eva 
  #if [info exists userserv] {unset -nocomplain userserv}
  if {![catch "connect $Eva(ip) $Eva(port)" Eva(idx)]} {
  putdcc $Eva(idx) "PASS $Eva(pass)"
  putdcc $Eva(idx) "SERVER $Eva(serv) 1 :$Eva(info)"
  putdcc $Eva(idx) ":$Eva(serv) NICK $Eva(nick) 1 [unixtime] $Eva(ident) $Eva(host) $Eva(serv) :$Eva(real)"
  putdcc $Eva(idx) ":$Eva(nick) MODE $Eva(nick) $Eva(mode)"
  putdcc $Eva(idx) ":$Eva(nick) JOIN $Eva(log)"
  putdcc $Eva(idx) ":$Eva(nick) MODE $Eva(log) +o $Eva(nick)"
  putdcc $Eva(idx) ":$Eva(serv) NICK $Eva(geo) 1 [unixtime] $Eva(geoident) $Eva(geohost) $Eva(serv) :$Eva(georeal)"
  putdcc $Eva(idx) ":$Eva(geo) MODE $Eva(geo) $Eva(geomode)"
  putdcc $Eva(idx) ":$Eva(geo) JOIN $Eva(log)"
  putdcc $Eva(idx) ":$Eva(geo) MODE $Eva(log) +o $Eva(geo)"
  putdcc $Eva(idx) ":$Eva(serv) NICK $Eva(logserv) 1 [unixtime] $Eva(logident) $Eva(loghost) $Eva(serv) :$Eva(logreal)"
  putdcc $Eva(idx) ":$Eva(logserv) MODE $Eva(logserv) $Eva(logmode)"
  putdcc $Eva(idx) ":$Eva(logserv) JOIN $Eva(log)"
  putdcc $Eva(idx) ":$Eva(logserv) MODE $Eva(log) +v $Eva(logserv)"
  control $Eva(idx) event 
  utimer 5 verification
 
}
}

#############
# Evenement #
#############
 
proc event {idx arg} {
   global Eva
   set arg [split $arg]
   if {[lindex $arg 0]=="PING"} { putdcc $idx "PONG [lindex $arg 1]" }
 
}

 
################
# Verification #
################
 
if {![info exists Eva(idx)]} { connexion }
 
proc verification {} {
   global Eva
   if {[valididx $Eva(idx)]} { utimer 5 verification } else { connexion }
}

###############
# eggy:rehash #
###############
 
bind dcc n xrehash eggy:xrehash
proc eggy:xrehash {nick idx arg} {
    putdcc $idx "\002Rehash de Eva-Service et des fichiers\002"
        utimer 4 rehash
}

################
# eggy:restart #
################
 
bind dcc n xrestart eggy:xrestart
proc eggy:xrestart {nick idx arg} {
    global Eva
        putdcc $idx "\002Redémarrage de Eva-service\002"
    if {[valididx $Eva(idx)]} {
        putdcc $Eva(idx) ":$Eva(nick) SQUIT :$::Eva(quit01)"
        putdcc $Eva(idx) ":$Eva(geo) SQUIT :$::Eva(quit01)"
	putdcc $Eva(idx) ":$Eva(logserv) SQUIT :$::Eva(quit01)"
        putdcc $Eva(idx) ":$Eva(serv) SQUIT :$::Eva(serv)"
	  foreach kill [utimers] { 
            if {[lindex $kill 1]=="verification"} { killutimer [lindex $kill 2] }
      }
    }
    connexion
 
}

############
# eggy:die #
############
 
bind dcc n xdie eggy:xdie
proc eggy:xdie {nick idx arg} {
    global Eva
        putdcc $idx "\002Arrêt de  Eva-Service\002"
    if {[valididx $Eva(idx)]} {
        putdcc $Eva(idx) ":$Eva(nick) QUIT : $::Eva(quit02)"
        putdcc $Eva(idx) ":$Eva(geo) QUIT : $::Eva(quit02)"
	putdcc $Eva(idx) ":$Eva(logserv) QUIT : $::Eva(quit02)"
        putdcc $Eva(idx) ":$Eva(serv) QUIT :$::Eva(quit02)"
	  foreach kill [utimers] { 
            if {[lindex $kill 1]=="verification"} { killutimer [lindex $kill 2] }
      }
    }
}

putdcc $Eva(idx) ":$Eva(nick) QUIT :$::Eva(quit01)"
putdcc $Eva(idx) ":$Eva(geo) QUIT :$::Eva(quit01)"
putdcc $Eva(idx) ":$Eva(logserv) QUIT :$::Eva(quit01)"
putdcc $Eva(idx) ":$Eva(serv) SQUIT :$::Eva(serv)"

bind evnt - prerestart eva:evnt:prerestart
 
proc eva:evnt:prerestart event {
  global Eva
  putdcc $Eva(idx) ":$Eva(nick) QUIT :$::Eva(quit01)"
  putdcc $Eva(idx) ":$Eva(geo) QUIT :$::Eva(quit01)"
  putdcc $Eva(idx) ":$Eva(logserv) QUIT :$::Eva(quit01)"
  putdcc $Eva(idx) ":$Eva(serv) SQUIT :$::Eva(serv)"
}