Link services Bahamut

[foufou]

re et merci pour ta réponse ainsi que la correction Mirc j'avais pas fait attention à cela.

Pour me faire comprendre, je souhaite connecter l'Eva actuel qui tourne sur mon serveur Ircu sur le serveur Bahamut.

Seul soucis, la connection de link n'est pas la même bien évidément histoire de nous faire suer lol.

les erreurs que j'ai eu en pl sont les suivantes:

<Geofront> [18:34] WARNING: open_telnet_raw() is about to block in gethostbyname()!
<Geofront> [18:34] net: connect! sock 13
<Geofront> [18:34] net: eof!(read) socket 13

tclcopier

proc coneva {} {
  global eva botnick hostclone hostc
  if [info exists hostclone] { unset hostclone }
  if [info exists hostc] { unset hostc }
  send ":$eva(serv) MODE $botnick +irZ-s"
  send ":$eva(serv) NICK $eva(nicke) 1 1 $eva(nickeident) $eva(serv) :$eva(name)"
  send ":$eva(serv) NICK $eva(csnick) 1 1 $eva(identcs) $eva(serv) :$eva(namecs)"
  send ":$eva(serv) NICK $eva(nick) 1 1 $eva(ident) $eva(serv) :$eva(name)"
  send ":$eva(serv) NICK $eva(nickserv) 1 1 $eva(identserv) $eva(serv) :$eva(nameserv)"
  send ":$eva(nick) MODE $eva(nick) +oiwsx"
  send ":$eva(nickserv) MODE $eva(nickserv) +iowsx"
  send ":$eva(nicke) MODE $eva(nicke) +iowsx"
  send ":$eva(nick) MODE $eva(csnick) +iowsx"
  send ":$eva(nick) JOIN $eva(log) x"
  send ":$eva(nick) JOIN $eva(opoff)"
  send ":$eva(nick) JOIN $eva(cmoff)"
  send ":$eva(nick) JOIN $eva(log) x"
  send ":$eva(nick) JOIN $eva(soho) x"
  send ":$eva(nick) MODE $eva(soho) +v $eva(nick)"
  send ":$eva(nicke) JOIN $eva(log) x"
  send ":$eva(nickserv) JOIN $eva(log) x"
  send ":$eva(nick) SAJOIN $botnick $eva(log)"
  send ":$eva(nick) SAJOIN $botnick $eva(log) x"
  send ":$eva(serv) MODE $eva(log) +vovovovovovo $eva(nicke) $eva(nick) $eva(nickserv) $eva(csnick) $botnick"
  send ":$eva(nick) MODE $eva(opoff) +v $eva(nick)"
  send ":$eva(nick) MODE #!Tchatche-Land! +v $eva(nick)"
  send ":$eva(nick) MODE $eva(cmoff) +v $eva(nick)"
  send ":$eva(nick) TOPIC $eva(log) :\02Bienvenue Sur Le Salon De Logs Securité Serveur."
  send ":$eva(csnick)silence +*!guest@*"
  send ":$eva(nick) silence +*!guest@*"
  send ":$eva(nicke) silence +*!guest@*"
  send ":$eva(nick) MODE $eva(log) +ntis"
  send ":$eva(nick) SAJOIN $botnick $eva(soho)"
  send ":$eva(nick) SAJOIN $botnick $eva(soho) x"
  send ":$eva(nick) MODE $eva(soho) +xvo $botnick $botnick"
}
 
bind dcc Z xconnect proc:xconnect
proc proc:xconnect {nick idx text} {
global eva hostclone check_connect
  if {[info exists eva(idx)] && [valididx $eva(idx)]} {
    if {$text=="-s"} {
  send ":$eva(nicke) QUIT $eva(serv) 0 :Maintenance technique !"
  send ":$eva(csnick) QUIT $eva(serv) 0 :Maintenance technique !"
  send ":$eva(nick) QUIT $eva(serv) 0 :Maintenance technique !"
  send ":$eva(nickserv) QUIT $eva(serv) 0 :Maintenance technique !"
  send ":$eva(nick) SQUIT $eva(serv) 0 :Rebooting Services!"
    } else {
putdcc $idx "UWorld déjà connecté. Tapez '.xconnect -s' pour squiter et reconnecter."
return 0
}
  }
    if ![catch {connect $eva(link) $eva(port)} eva(idx)] {
    send "PASS :$eva(pass)"
    send "SERVER $eva(serv) 1 [unixtime] [unixtime] J09 ACAA\] +s :$eva(info)"
    control $eva(idx) eva_event
#    control $eva(idx) evaz_event
  } else {putlog "\002Connection de $eva(serv) à $eva(idx) impossible."}
  coneva
  utimer 30 check_connect
  #utimer 60 "annonce12"
  return 1
}

Voila ou je galère, je sais pas comment m'y prendre !
Une idée ?