no such variable
    (read trace on "env(ORDALIDIR)")
    invoked from within
"set OrdaliDir $env(ORDALIDIR)"
    (in namespace eval "::request" script line 9)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish

#package require tdom
package require http 2.3
package require La
catch { namespace import La::*}


global OrdaliDir ; set OrdaliDir $env(ORDALIDIR)
global tmpdebut
set tmpdebut [clock seconds]

source $OrdaliDir/ordali_startup.tcl
source $GscopeDir/gscope_source.tcl
source /home/ripp/tcl/tcl3d/tcl3d_source.tcl
source $OrdaliDir/ordali_outils.tcl
source $OrdaliDir/ordali_affiche.tcl
source $OrdaliDir/ordali_super.tcl
source $OrdaliDir/ordali_secours.tcl
source $OrdaliDir/ordali_math.tcl
source $OrdaliDir/gscope_xml.tcl
#rR source $OrdaliDir/ordali_farve.tcl


if {$tcl_platform(platform) == "windows"} {
    package require dde 1.1
}

global VariablesAuDepart
set VariablesAuDepart [info globals]

LesDefauts
global FichierMSF ; set FichierMSF ""

proc TestHtml {} {

    global IdXml

    set IdXml [DecortiqueUnXml "BOX0117.xml" LesNomLOrdre Sequences]
    set f [open "testhtml.html" w]
    $IdXml asHTML -channel $f
    close $f

    return
}

TestHtml

########### Ca finit ici #####################