Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Message de blackliste en minuscule
#1
hello à tous,

je vient vers vous car je rencontre un souci sur un tcl de blackliste.en effet lors de l'ajout de l'indésirable faut y ajouter une raison et cet raison s'enregistre en minuscule et non comme je l'ai écris.j'aimerai savoir ce qu'il faudrait que je remplace, pour qu'il enregistre et lisent le pseudo et la raison normalement svp.


tcl
proc bl:do:add {hand arg} {
 global blackl BLNicks
 set added 0
 if {[llength [lrange [split $arg] 1 end]] == 1} {
  if {[string is integer [lindex [split $arg] end]]} {
   set kreason "$blackl(kmsg)"
   set btime "[lindex [split $arg] end]"
  } else {
   set kreason "[lrange [split $arg] 1 end]"
   set btime "$blackl(btime)"
  }
 } elseif {[llength [lrange [split $arg] 1 end]] > 1} {
  if {[string is integer [lindex [split $arg] end]]} {
   set kreason "[join [lrange [split $arg] 1 end-1]]"
   set btime "[lindex [split $arg] end]"
  } else {
   set kreason "[join [lrange [split $arg] 1 end]]"
   set btime "$blackl(btime)"
  }
 } else {
  set kreason "$blackl(kmsg)"
  set btime "$blackl(btime)"
 }
 if {![file exists $blackl(file)]} { 
  set temp [open $blackl(file) w]
  close $temp
 }
 set blnick "[string map {\\ \\\\ \[ \\\[ \] \\\]} [lindex [split $arg] 0]]"
 if {![we:can:find:ban $blnick add]} {
  puts [set fs [open $blackl(file) a]] "$blnick $hand $kreason $btime"
  close $fs
  set BLNicks [split [string tolower [read [set inf [open $blackl(file)]]]] "\n"][close $inf]
  set added 1
 }
 set added
}


merci de votre aides.


Possibly Related Threads…
Thread Author Replies Views Last Post
  Blackliste pseudo/host bewess 11 6,937 16/06/2010, 12:10
Last Post: CrazyCat
  blackliste sur detection de chan cac.team 11 5,369 25/06/2009, 15:10
Last Post: loulou7593

Forum Jump:


Users browsing this thread: 1 Guest(s)