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


blockage....
#1
Hello j'ai un ti probléme... j'ai un TCL que on ma filer et il avait quelque erreurs.... la je trouve pu d'erreur mais la remote TCL ne ce fait pas... j'ai pas de message d'erreur et sa fait rien quand je tape !secour où autre commandes :/ une idée ? voici le code


tcl
bind pub - !secours procsos
bind pub - !secour procsos
proc procsos {nick host hand chan arg} {
global nosos vhostnetadmin sossalon
global countsossalon salonsecours nososoff saloni
   set arg [string tolower $arg]
   set timenow [ctime [unixtime] ]
   set saloni [lindex $arg 1]
   set arg1 [lindex $arg 0]
   set arg2 [lindex $arg 0]
   set liste [lindex $arg 1]
   regsub -all {|||} $arg "" arg
   foreach salonsecoursok $salonsecours {
   if {[string match -nocase $salonsecoursok $chan]} {
   foreach admin $vhostnetadmin {
   if {[string match -nocase $admin $host]} {
   if { ($arg2 == "off") && ($liste == "all") } {
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00304 désactivé\00312 sur tous les salons off par\00306 $nick\00301 !"
   set sossalon($liste) "Tout"
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   set nososoff 1
   incr nososoff
   return 0
   }
   if { ($arg2 == "on") && ($liste == "all") } {
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00303 réactivé\00312 sur tous les salons off par\00306 $nick\00301 ."
   unset sossalon($liste)
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   unset nososoff
   return 0
   }
   if { ($arg2 == "off") && ($liste == "list") } {
    if {[array exists countsossalon]} {
        unset countsossalon
    }
    foreach run [array names sossalon] {
        foreach r $sossalon($run) {
            if {[info exists countsossalon($r)]} {
                incr countsossalon($r)
            } else { 
              set countsossalon($r) 1
            }
        }
    }
    putfast "PRIVMSG $chan :\00312Liste des salons\00304 désactivée\00312 pour les\00304 SOS \00301:"
    foreach cousossalon [lsort -dictionary [array names countsossalon]] {
        putquick "privmsg $chan :\00312$cousossalon\00301 est\00304 désactivé\00301 ."
     } 
    putfast "PRIVMSG $chan :\00304Fin \00312Liste \00301."
  }
  foreach connus $saloni {
   if { ($arg1 == "off") && ($salon != "") && [string match -nocase $connus $salon] } {
    if {[array exists countsossalon]} {
        unset countsossalon
    }
    foreach run [array names sossalon] {
        foreach r $sossalon($run) {
            if {[info exists countsossalon($r)]} {
                incr countsossalon($r)
            } else {
                set countsossalon($r) 1
            }
        }
    }
    foreach cousossalon [lsort -dictionary [array names countsossalon]] {
      if {[string match -nocase $cousossalon $salon]} {
      putfast "NOTICE $nick :\00312Commande\00301 !sos/attaque\00304 déjà désactivé\00301 sur\00312 $salon \00301!"
      return 0
      } 
    } 
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00304 désactivé\00312 sur $salon par\00306 $nick\00301 !"
   set sossalon($salon) "$salon"
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   set nosos 1
   incr nosos
   return 0
   }
   set listsalon " [array names sossalon] "
   if { ($arg1 == "on") && ($salon != "") && [string match -nocase $connus $salon] && [string match -nocase "* $connus *" $listsalon] } {
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00303 réactivé\00312 sur $salon par\00306 $nick\00301 ."
   unset sossalon($connus)
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   unset nosos
   return 0
      } elseif { ($arg1 == "on") && ($salon != "") && [string match -nocase $connus $salon] && ![string match -nocase "* $connus *" $listsalon] } {
      putfast "PRIVMSG $chan :\00312Commande\00301 !sos/attaque\00303 déjà réactivé\00301 sur\00312 $salon \00301."
      return 0
      }
     }
    }
   }
  }
 }
}



j'ai oublier voici les vHost au cas ou

set vhostnetadmin {
*@NetAdmin.zet-land.org
*@ChefAdmin.zet-land.org
*@TechAdmin.zet-land.org

}
Le meuilleur du Web www.zet-land.org


Messages In This Thread
blockage.... - by Babytigrou16 - 15/05/2010, 00:20
RE: blockage.... - by heretoc - 15/05/2010, 09:36
RE: blockage.... - by Okk2 - 03/06/2010, 22:45
RE: blockage.... - by heretoc - 04/06/2010, 03:49
RE: blockage.... - by Okk2 - 04/06/2010, 11:00
RE: blockage.... - by heretoc - 04/06/2010, 12:38
RE: blockage.... - by Okk2 - 05/06/2010, 01:27

Forum Jump:


Users browsing this thread: 1 Guest(s)