foreach file [lsort -decreasing [glob /web/blogspace/www/swhack/chatlogs/*.txt]] {
    regexp {.*/(.*)\.txt} $file {} date
    append out "<li>$date ( <a href=\"$date.txt\">txt</a> | <a href=\"$date.html\">html</a> | <a href=\"$date.rdf\">rdf</a> )</li>"
}