d7284ff3ef
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1016 2a923420-c742-0410-a762-8d5b09965624
44 lines
956 B
Plaintext
Executable File
44 lines
956 B
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
|
|
cgi_input
|
|
#cgi_dump
|
|
|
|
puts "Content-Type: text/html"
|
|
puts ""
|
|
|
|
set root [cgi_get dir]
|
|
|
|
set files [lsort [readdir -nocomplain $root]]
|
|
|
|
puts "<ul class=jqueryFileTree class=hidden>"
|
|
|
|
foreach dir $files {
|
|
set path "$root/$dir"
|
|
regsub -all -- {\/+} $path "/" path
|
|
if {![file isdirectory $path]} continue
|
|
puts -nonewline "<li class=\"directory collapsed\"><a href=# rel=\""
|
|
puts -nonewline [cgi_quote_html $path]
|
|
puts "\">[cgi_quote_html $dir]</a></li>"
|
|
}
|
|
|
|
foreach file $files {
|
|
set path "$root/$file"
|
|
regsub -all -- {\/+} $path "/" path
|
|
if {[file isdirectory $path]} continue
|
|
set ext [file extension $file]
|
|
puts -nonewline "<li class=\"file"
|
|
if {[string length $ext]} {
|
|
puts -nonewline " ext_[string range $ext 1 end]"
|
|
}
|
|
puts -nonewline "\">"
|
|
puts -nonewline "<a href=# rel=\"[cgi_quote_html $path]\">"
|
|
puts -nonewline [cgi_quote_html $file]
|
|
puts "</a></li>"
|
|
}
|
|
|
|
puts "</ul>"
|
|
|