download_mkdir dirnameWhat it does:
Ensures that $dirname exists. Won't cause an error if the directory is already there. Better than the stardard mkdir because it will make all the directories leading up to $dirnameDefined in: /web/philip/tcl/download-defs.tcl
Source code:
set dir_list [split $dirname /]
set needed_dir ""
foreach dir $dir_list {
if [empty_string_p $dir] {
continue
}
append needed_dir "/$dir"
if ![file exists $needed_dir] {
ns_mkdir $needed_dir
}
}