[divisé] Utilisation Vhost, Ou Flag ?

[aliasangelius]

Je parle de link pour configurer des sockets.. Je pense un exemple de code sera le mieux adapter

tclcopier

proc checkconnect {} {
   if {![info exists OperServ(idx)]} { utimer 30 [namespace current]::checkconnect } else { xconnect:serv }
}
 
proc xconnect:serv {} {
   variable OperServ
   if [catch {set OperServ(idx) [connect $OperServ(ip) $OperServ(port)]} err] {
      putlog "Connection error :$err"
      return
   }
   putdcc $OperServ(idx) "PASS $OperServ(pwdlink)"
   putdcc $OperServ(idx) "SERVER $OperServ(serv) 1 [unixtime] [unixtime] P09 +s :$OperServ(info)"
   putdcc $OperServ(idx) ":$OperServ(serv) NICK $OperServ(nick) '' '' $OperServ(identd) $OperServ(host) $OperServ(serv) '' :$OperServ(nom)"
   putdcc $OperServ(idx) ":$OperServ(nick) MODE $OperServ(nick) +owsgkd"
   putdcc $OperServ(idx) ":$OperServ(nick) JOIN $OperServ(log)"
   putdcc $OperServ(idx) ":$OperServ(nick) WALLOPS :[::msgcat::mc m2]"
   putdcc $OperServ(idx) ":$OperServ(nick) MODE $OperServ(log) +v $OperServ(nick)"
   putdcc $OperServ(idx) ":$OperServ(serv) NICK $OperServ(nickp) '' '' $OperServ(identdp) $OperServ(hostp) $OperServ(serv) '' :$OperServ(nomp)"
   putdcc $OperServ(idx) ":$OperServ(nickp) MODE $OperServ(nickp) +owsgkd"
   putdcc $OperServ(idx) ":$OperServ(nickp) JOIN $OperServ(log)"
   putdcc $OperServ(idx) ":$OperServ(nickp) MODE $OperServ(log) +v $OperServ(nickp)"
   putdcc $OperServ(idx) ":$OperServ(nick) PRIVMSG $OperServ(log) :[::msgcat::mc m5] [::msgcat::mc m6]"
   control $OperServ(idx) [namespace current]::controling_server
   utimer 10 [namespace current]::verify
}

Voila en exemple ce que je parle par socket et link..

Pour ce qui et du chanrelay oui ta pas tord en effet !