can't read "argv": no such variable
    while executing
"llength $argv"

OUTPUT BUFFER:
source /usr/local/apache2/PourRivet/SessionBeforeScript.tcl
#!/usr/local/bin/tclsh

set TclDir "/home/ripp/www/PublicDirectory/TclRipp"
source "$TclDir/BasicTclTools.tcl"
# on sourcer le fichier qui se trouve dans le meme repertoire
source "[file dirname [file normalize [info script]]]/Blabla_Procedures.tcl"

if {[llength $argv]==0} {       ;#rR s'il manque l'argument
    puts ""
    puts "Attention il faut un nom de fichier : Blabla.tcl NomDuFichierSequence"
    puts " par exemple "
    puts " Blabla.tcl /genomics/link/Pabyssi/prottfa/PABY1135"
    puts ""
    exit
}

set FichierFasta [lindex $argv 0]

set FichierBlast [DoBlast $FichierFasta]          ;#rR on fait le blast et on rend le nom du fichier

set LesAE [LesAccessExpectTrouves $FichierBlast]  ;#rR on extrait une liste de liste Access Expect

set LesOrga [OrganismesPresents $LesAE]           ;#rR on recherche le nom de l'organisme avec l'access
                                                  ;#rR    et on ne prend qu'une fois chaque organisme
puts [join $LesOrga "\n"]

exit