Probleme sur deux codes tcl...

[heretoc]

Bien le bonjour,
Avec mon code tcl j'ai deux problemes que je vais vous decrires pour savoir si vous pouvez m'aider.

1 - Probleme n°1 - Ajout dans la base de donnée
J'ai une commande !addtaff qui me permet d'enregistrer un texte dans une database pour la lire ultérieurement hors cela bug.
Si j'effectue un "!addtaff ceci est un test" (donc pour enregistrer la phrase "ceci est un test" dans la database) lors de sa lecture j'obtient que "est un test" en gros il me supprime le premier mots au debut.

Voici le code tcl
Script supprimé: Codes couleurs mIRC

2 - Probleme n°2 - Suppression des textes dans la bases de donnée
Deuxieme probleme celui ci lors de la suppression dans la base de donnée. J'ai une commande !deltaff qui efface correctement les textes désirer dans la base de donnée mais quand celle ci est vide, la commande !deltaff fait bug le robot qui indique l'erreure :
"can't read "datalist": no such variable"
Donc j'aimerais que quand je fait !deltaff meme si la database est vide le robot ne plante pas car cela est assez genant ...

Voici le code tcl

tclcopier

proc deltaff:deltaff {pseudonyme cible salon} {
global Clam;
    set file [open "[Clam:scriptdir]db/taff.db" r]
    set fc 0
    set fd 0
    while {![eof $file]} {
      set line [gets $file]
      incr fc
      if {$fc == $cible } {
        putdcc $Clam(idx) ":$Clam(pseudo) NOTICE $pseudonyme :Effacement du boulot n°$cible"
        set fd 1
      } else {
        lappend datalist $line
      }
    }
    close $file
    incr fc -1
    set file [open "[Clam:scriptdir]db/taff.db" w]
    foreach line $datalist {
      if {$line != "" } { puts $file $line }
    }
    close $file
    if { $fd == 0 } { 
	putdcc $Clam(idx) ":$Clam(pseudo) NOTICE $pseudonyme :Erreur ! le numéro de la ligne n'existe pas" }
}