Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- proc ::testounet::-annonce {nick uhost handle chan text} {
- set num [lindex $text 0]
- if {$chan ne $::testounet::back} {return}
- if {$num eq ""} {putserv "PRIVMSG $::testounet::back :\002Erreur :\002 !del <num>"; return}
- ::testounet::effacer:donnee $::testounet::fichier(testounet) $num
- }
- proc ::testounet::effacer:donnee {file arg} {
- # $arg est le N° de la ligne, donc est 1 au minimum
- set fileID [open $file r]
- while { ![eof $fileID] } {
- if { [set line [gets $fileID]] ne {} } {
- lappend lines_list $line
- }
- }
- close $fileID
- putlog "Before: $arg vs [llength $lines_list]"
- # Ici, $arg est au maximum égal à llength
- if {$arg > [llength $lines_list]} {
- putlog "$arg n'existe pas "
- return
- } else {
- incr $arg -1
- putlog "After: position $arg"
- # $arg est compris entre 0 et llength-1
- set fileID [open $file w]
- puts -nonewline $fileID [join [lreplace $lines_list $arg $arg] "\x0D\x0A"]
- close $fileID
- putlog "$arg supprimé. "
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement