Clam.tcl v2.0
#6
ok donc pour add dans un fichier

TCL
set TF(bl) "scripte/emplacement-de-ton-fichier.db"
 
bind pub - !badlist liste
bind pub - !addbad ajout
 
proc ajout {nick host hand chan arg} {
       global TF
       set victim [lindex $arg 0]
     catch {open $TF(bl) r+} dossier	 
	 while {![eof $dossier]} {
	 gets $dossier lecture
     if {[string equal -nocase [lindex $lecture 0] $victim]} {
     # le pseudo recherché est déjà dedans #
     close $dossier
     return
     }
     }
     # le pseudo est ajouté #
     puts $dossier "$victim ajouté par $nick"
     close $dossier
}
proc liste {nick host hand chan arg} {
     global TF
     catch {open $TF(bl) r} dossier
     while {![eof $dossier]} { 
     set lecture [gets $dossier] 
	 if {$lecture != ""} {
putserv "NOTICE $nick : $lecture "
     }
     }
     close $dossier  
}



voila je viens de te codé sa vite fait , je pense pas qu'il y ai d'erreur
Répondre Avertir


Messages dans ce sujet
Clam.tcl v2.0 - par Behemoth - 06/12/2009, 12:20
RE: Clam.tcl v2.0 - par fedora - 06/12/2009, 18:57
RE: Clam.tcl v2.0 - par heretoc - 08/12/2009, 23:04
RE: Clam.tcl v2.0 - par snoopy - 09/12/2009, 17:25
RE: Clam.tcl v2.0 - par fedora - 09/12/2009, 17:32
RE: Clam.tcl v2.0 - par snoopy - 09/12/2009, 18:08
RE: Clam.tcl v2.0 - par CrazyCat - 09/12/2009, 19:44

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté