can't read "RId": no such variable
    while executing
"$RId delete"
    (in namespace eval "::request" script line 47)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
proc NewAsp {} {
    ConnectUrl

    # page d'acceuil championnat
    #
    set url "http://www.footballdatabase.eu/homechampionnats.php"
    cd [file join g:/ lts]
    file mkdir DataBrut
    cd DataBrut
    set ::LtsDir [file join g:/ lts/DataBrut]
    
    set fic pays.html
    if {[file exists $fic]} {
	set data [ContenuDuFichier $fic]
    } else {
	set data [HttpCopy $url "" "" -headers [list Cookie [join $::cookies {;}]]]
	set data [VerifDataHtml $data]
	set f [open $fic w]
	puts $f $data
	close $f
    }
    puts "pays done ..."

    set RId  [dom parse -html $data]
    set doc  [$RId documentElement]
    set base "http://www.footballdatabase.eu/"
    set Lpays [list France Allemagne Angleterre Italie Espagne]
    set Lopt [$doc selectNodes //option]
    foreach no $Lopt {
	set v none
	set cnt [$no selectNode string(.)]
	if $cnt ni $Lpays} {
	    continue
	}
	
	if {[$no hasAttribute value]} {
	    set v [$no getAttribute value none]
	}
	# recup pour chaque pays
	#
	file mkdir $cnt
	cd $cnt
	
	set url "${base}$v"
	NewAsp_Pays $cnt $url
    }
    $RId delete
    $doc delete
    
    return
}


proc NewAsp_Pays {cnt url} {
    
    set fic $cnt.html
    if {[file exists $fic]} {
	set data [ContenuDuFichier $fic]
    } else {
	set data [HttpCopy $url "" "" -headers [list Cookie [join $::cookies {;}]]]
	set data [VerifDataHtml $data]
	set f [open $fic w]
	puts $f $data
	close $f
    }
    puts "$cnt done ..."
    
    set RId  [dom parse -html $data]
    set doc  [$RId documentElement]
    set Lopt [$doc selectNodes //option]
    if {$cnt eq "France"} {
	set Nc 2
    } else {
	set Nc 1
    }
    set base "http://www.footballdatabase.eu/"
    set Ni 0 ; set i 0
    while {$Ni <= $Nc} { 
	incr i
	set no  [lindex $Lopt $i]
	set v   [$no getAttribute value]
	set lig [$no selectNode string(.)]
	set lig [string map [list " " "-"] $lig]
	if {[regexp {^\-} $lig]} {continue}

	set url "${base}$v"
	NewAsp_Championnat $cnt $lig $url
	incr Ni
    }
    $RId delete
    update
    cd ..
    
    return
}


proc NewAsp_Championnat {cnt lig url} {
    file mkdir $lig
    cd $lig
    
    set fic "${cnt}_$lig.html"
    if {[file exists $fic]} {
	set data [ContenuDuFichier $fic]
    } else {
	set data [HttpCopy $url "" "" -headers [list Cookie [join $::cookies {;}]]]
	set data [VerifDataHtml $data]
	set f [open $fic w]
	puts $f $data
	close $f
    }
    puts "$cnt $lig done ..."
    
    set RId  [dom parse -html $data]
    set doc  [$RId documentElement]
    set Lopt [$doc selectNodes //option]
    set base "http://www.footballdatabase.eu/"
    set nba 0
    foreach no $Lopt {
	set v [string trim [$no selectNode string(.)]]
	set v [string map [list "/" "-"] $v]
	lassign [split $v "-"] a b
	if {$a ne $b && ($a ne "" || $b ne "") && [string is integer $a] && [string is integer $b]} {
	    set att [$no getAttribute value none]
	    set url "${base}$att"
	    NewAsp_Annee $cnt $lig $v $url
	    incr nba
	    if {$nba == 8} {break}
	}
    }
    $RId delete
    update
    cd ..

    return
}


proc NewAsp_Annee {cnt lig annee url} {
    file mkdir $annee
    cd "Y$annee"

    set fic "${cnt}_${lig}_$annee.html"
    if {[file exists $fic]} {
	set data [ContenuDuFichier $fic]
    } else {
	set data [HttpCopy $url "" "" -headers [list Cookie [join $::cookies {;}]]]
	set data [VerifDataHtml $data]
	set f [open $fic w]
	puts $f $data
	close $f
    }
    puts "$cnt $lig $annee done ..."
    
    set RId  [dom parse -html $data]
    set doc  [$RId documentElement]
    set base "http://www.footballdatabase.eu/"
    set Lopt [$doc selectNodes //option]
    foreach no $Lopt {
	set jrn [$no selectNode string(.)] 
	if {[string is integer $jrn] && $jrn >= 1 && $jrn <= 38} {
	    set att [$no getAttribute value none]
	    set url "${base}$att"
	    NewAsp_Journee $cnt $lig $annee $jrn $url
	}
    }
    $RId delete
    update
    cd ..
    
    return
}


proc NewAsp_Journee {cnt lig annees jrn url} {
    set fic "${cnt}_${lig}_${annees}_$jrn.html"
    if {[file exists $fic]} {
	set data [ContenuDuFichier $fic]
    } else {
	set data [HttpCopy $url "" "" -headers [list Cookie [join $::cookies {;}]]]
	set data [VerifDataHtml $data]
	set f [open $fic w]
	puts $f $data
	close $f
    }
    puts "$cnt $lig $annees $jrn done ..."
    
    if {[file exists $fic]} {
	cd ..
	
	return
    }
    
    return
    
    set RId [dom parse -html $data]
    set doc [$RId documentElement]
    set Ltb [$doc selectNodes //table]
    foreach tb $Ltb {
	if {! [$tb hasAttribute class]} {
	    continue
	}
	if {[$tb getAttribute class none] ne "fondsoustitrembleu488"} {
	    continue
	}
    }
    #set Ltr [$tb selectNodes ./tr]
    
    #3eme tr
    #   2eme td class styledatebleu, value=date
    #6eme tr
    
    
    #td att class styledatebleu
    
    
    return
}


proc VerifDataHtml {data} {
    if {! [catch {dom parse -html $data} Msg]} {
	return $data
    }
    regsub -all "" $data "" data
    return $data

    # meme nombre
    set no [regsub -all "
" $tmp "" tmp]
    #if {$no == $nf} {return $data}

    set Lo [regexp -all -inline -indices -- "" $data]
    set io 0 ; set if 0
    puts "no $no nf $nf"
    puts "Lo $Lo"
    puts "Lf $Lf"
    flush stdout
    update idletasks
    
    while {$io < $no && $if < $nf} {
	set o [lindex [lindex $Lo $io] 0]
	set f [lindex [lindex $Lf $if] 0]
	if {$o < $f} {
	    incr io
	    incr if
	} else {
	    set data "[string range $data 0 $f-1][string range $data $f+7 end]"
	    incr if
	}
    }

    return $data
}



proc ConnectUrl {} {
    global cookies

    set url "http://www.footballdatabase.eu/"
    set tok [::http::geturl $url]
    upvar #0 $tok state
    set cookies [list]
    foreach {name value} $state(meta) {
	if { $name eq "Set-Cookie" } {
	    lappend cookies [lindex [split $value {;}] 0]
	}
    }
    ::http::cleanup $tok
    
    # relance avec login passwork
    set query [::http::formatQuery \
	    login luckyluc67 \
	    passwork derry5]
    set tok [::http::geturl $url -query $query -headers [list Cookie [join $cookies {;}]]]
    ::http::cleanup $tok
    
    puts "\nConnected to database ..."
    
    return
}