couldn't open "moumou.html": permission denied
    while executing
"open $fichierout w"
    (in namespace eval "::request" script line 28)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/bin/tclsh

package require http

set url http://www.footballdatabase.eu/
set login luckyluc67
set passwd derry5
set fichierout moumou.html
set urlalakon http://www.footballdatabase.eu/football.competition.bundesliga.allemagne.2012-2013..3081.fr.html
set pagealakon alakon.html

set loginQuery [::http::formatQuery "crealog" 1 "login" $login "password" $passwd "connect.x" 0 "connect.y" 0]
set logoutQuery [::http::formatQuery "end" 1 "crealog" 1 "x" 0 "y" 0]

set token [::http::geturl $url]
upvar #0 $token state

set cookies {}
foreach {key value} $state(meta) {
    if {[string tolower $key] eq "set-cookie"} {
	# seule la partie avant le ; doit être gardée
	lappend cookies [lindex [split $value ";"] 0]
    }
}
array unset state

# CONNEXION
set out [open $fichierout w]
set token [::http::geturl $url -headers [list "Cookie" [join $cookies "; "]] -query $loginQuery -channel $out]
close $out
upvar #0 $token state

#parray state
set fLu [open $fichierout r]
set out [read -nonewline $fLu]
set Lout [split $out \n]
puts "\n=> [lsearch -inline -all -nocase -regexp $Lout lucky]"
close $fLu

unset -nocomplain state

# Bon, ici la preuve en images que ça marche et que tu n'es vraiment pas doué
set out [open $pagealakon w]
::http::geturl $urlalakon -headers [list "Cookie" [join $cookies "; "]] -query $loginQuery -channel $out
close $out

set fLu [open $pagealakon r]
set out [read -nonewline $fLu]
set Lout [split $out \n]
puts "\n=> [lsearch -inline -all -nocase -regexp $Lout welcome]"
close $fLu

# DECONNEXION
::http::geturl $url -headers [list "Cookie" [join $cookies "; "]] -query $logoutQuery