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} {
        incr arg -1
        set fileID [open $file r]

        while { ![eof $fileID] } {
                if { [set line [gets $fileID]] ne {} } {
                        lappend lines_list $line

                }
        }
        if {$arg > [llength $lines_list]} {
          putlog "$arg n'existe pas "
          return
        } else {
          putlog "$arg supprimé. "
        }
        close $fileID
        set fileID [open $file w]
        puts -nonewline $fileID [join [lreplace $lines_list $arg $arg] "\x0D\x0A"]
        close $fileID
}