cd tls
foreach ca [lsort [glob ca/*/*]] {
set ca [join [lrange [split $ca /] 1 end] /]
set ee [file join ee $ca $dirname]
if {![file exists $ee]} { continue }
cd tls
foreach ca [lsort [glob ca/*/*]] {
set ca [join [lrange [split $ca /] 1 end] /]
set ee [file join ee $ca $dirname]
if {![file exists $ee]} { continue }