invalid command name "LesDefauts"
    while executing
"LesDefauts"
    (in namespace eval "::request" script line 34)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
puts -nonewline ""




proc HeaderHTML {} {
    return "


  
    
    

    
    
    

    

  
  
  
    "
}


set ::argv0 ""
set ::OrdaliDir /maison/moumou/ordali
set ::OnWeb 1
set ::EspionneNon 1

set ::auto_path [linsert $::auto_path 0 /home/moumou/ordali/lib]

LesDefauts
set ::Defauts(Mode) batch
set ::Defauts(MarcheForcee) 0


set Lhtml {}
lappend Lhtml [HeaderHTML]
if {! [::rivet::var exists rep]} {
    lappend Lhtml "

"
    lappend Lhtml " 1er click 
"
    lappend Lhtml " 2eme click 
"	
    lappend Lhtml ""	
    SESSION store tank toto "coucou"
} else {
    lappend Lhtml "
 val de toto [SESSION fetch tank toto]
"
    lappend Lhtml ""
}

puts [join $Lhtml \n]

::rivet::abort_page


puts -nonewline "

"