Artifact Content
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Artifact 45e52a36a0e13fff03e17f537c0bd63ce2a74a8a:


# Directory Listing File.
set request [ns_conn request]
set url [lindex [split $request] 1]
set path $url
set full_path [ns_url2file $url]
ns_log Notice "Running file-not-found.tcl for $request"
if {![string equal "/" "$path"] && [file isdirectory "$full_path"]} {
    css_dirlist $full_path $path 
} else {
    ns_returnnotice 404 "Not Found" "File $path Not Found"
}