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  
}