putlog "test chargé !"

set vhostjoinpart {
  *@faucheur.enjoy-tchat.fr
}
 
 
bind pub - !vien vien
bind pub - !oust oust
 
proc vien { nick host hand channel arg } {
 global vhostjoinpart vien
 set chan [lindex $arg 0]
 foreach vhost [array names $::vhostjoinpart] {
   if {[string match -nocase $vhost $host]} {
     putlogs "privmsg #lm-staff :\00312Ok, \0037$nick \00312! je rejoins \0034$chan"
     channel add $chan
     savechannels
    }
  }
  return
}
 
proc oust { nick host hand channel arg } {
 global vhostjoinpart oust
 set chan [lindex $arg 0]
 foreach vhost [array names $::vhostjoinpart] {
   if [string match -nocase $vhost $host] {
     putlogs "privmsg #lm-staff :\00312Ok, \0037$nick \00312! je part de \0034$chan"
     channel remove $chan
     savechannels
     }
  }
  return
}
 
putlog "test chargé !"

proc vien { nick host hand channel arg } {
   global vhostjoinpart vien
   putlog "Bind vien déclenché"
   set chan [lindex $arg 0]
   putlog "Canal visé: $chan"
   foreach vhost [array names $::vhostjoinpart] {
      putlog "Test: $host vs $vhost"
      if {[string match -nocase $vhost $host]} {
         putlog "privmsg #lm-staff :\00312Ok, \0037$nick \00312! je rejoins \0034$chan"
         channel add $chan
         savechannels
      } else {
         putlog "Pas bon"
      }
   }
   return
}

set vhostjoinpart "*@faucheur.enjoy-tchat.fr"
 
 
#########################
## Liste des commandes ##
#########################
 
#Ajout/suppression d'un salon pour le robot
bind pub - !oust unassign
proc unassign {nick host hand chan text} {
   global botnick unassign vhostjoinpart
   # on crée $cleave qui est le canal à quitter
   set cleave [join [lrange [split $text] 0 0]]
   if {[validchan $cleave]} { 
      # le canal cible est valide, on le retire
      channel remove $cleave
      foreach pseudo $vhostjoinpart {
         putquick "NOTICE $pseudo:Je suis bien partie de $cleave"
      }
   } else {
      putserv "NOTICE $nick :Je ne connais pas le canal $cleave"
   }
}
 
bind pub - !vien assign
proc assign {nick host hand chan text} {
    global botnick assign vhostjoinpart
   # on crée $cjoin qui est le canal à rejoindre
    set cleave [join [lrange [split $text] 0 0]]
    channel add $cleave
    foreach pseudo $vhostjoinpart {
        putquick "NOTICE $pseudo: $botnick a bien été atribué au salon $cleave"
     }
}

foreach vhost [array names $::vhostjoinpart] {

foreach vhost $::vhostjoinpart {

set vhostjoinpart {
  *@faucheur.enjoy-tchat.fr
}
 
proc test1 {host} {
  foreach vhost $::vhostjoinpart {
     if { [string match -nocase $vhost $host] } {
        puts "Matched $host against $vhost"
     } else {
        puts "failed $host against $vhost"
     }
  }
}
 
proc test2 {host} {
  foreach vhost [array names $::vhostjoinpart] {
     if { [string match -nocase $vhost $host] } {
        puts "Matched $host against $vhost"
     } else {
        puts "failed $host against $vhost"
     }
  }
}
 
puts "Test 1:"
test1 "user@blabla.com"
test1 "roger@faucheur.enjoy-tchat.fr"
test1 "berthe@Faucheur.Enjoy-Tchat.fr"
 
puts "Test 2:"
test2 "user@blabla.com"
test2 "roger@faucheur.enjoy-tchat.fr"
test2 "berthe@Faucheur.Enjoy-Tchat.fr"