View Single Post
Old 06-01-2006, 11:09 AM  
Too much time...
Join Date: Jul 2003
Posts: 1,430

It's ok as long as you also edit the proc that's supposed to remove the previous dirtags :P

Try the following piece of code (which shouldn't be far away from proc createtag in ioTOOLKIT.itcl):
proc deletetag {path} {
    global ioB
    set dirs [glob -nocomplain -types d -directory $path "*"]
    foreach dir $dirs {
        if {[string match "*$ioB(ssn)*" $dir]} {
            catch {file delete -force $dir}
Keep in mind that this will delete all directories containing your short site name. It shouldn't be too hard to create a safer matching pattern though.
Harm is offline   Reply With Quote