forked from hummypkg/webif
Remove trailing whitespace, restore last blank line
This commit is contained in:
parent
42cf8bf238
commit
0ef47da7b6
@ -104,7 +104,7 @@ set filecount 0
|
||||
|
||||
proc entry {file} {{i 0}} {
|
||||
global dircount filecount dinuse
|
||||
|
||||
|
||||
set bfile [file tail $file]
|
||||
regsub -all " +" $bfile "" tbfile
|
||||
if {[string index $bfile 0] == "\025"} {
|
||||
@ -320,7 +320,7 @@ proc s_file_stat {a b attr} {
|
||||
}
|
||||
|
||||
proc s_time {a b} {
|
||||
tailcall s_file_stat $a $b mtime
|
||||
tailcall s_file_stat $a $b mtime
|
||||
}
|
||||
|
||||
proc s_size {a b} {
|
||||
@ -348,9 +348,11 @@ Directories: $dircount, Files: $filecount
|
||||
# Sort icons
|
||||
puts "<div id=sortdiv>"
|
||||
set sortlist {
|
||||
{0 sort_name name {Alphabetical order A->Z}}
|
||||
{1 sort_date date {Oldest first}} {2 sort_date reverse-date {Newest first}}
|
||||
{3 sort_size size {Smallest first}} {4 sort_size reverse-size {Largest first}}}
|
||||
{0 sort_name name {Alphabetical order A->Z}}
|
||||
{1 sort_date date {Oldest first}}
|
||||
{2 sort_date reverse-date {Newest first}}
|
||||
{3 sort_size size {Smallest first}}
|
||||
{4 sort_size reverse-size {Largest first}}}
|
||||
puts "
|
||||
Sort by: "
|
||||
foreach sl $sortlist {
|
||||
@ -368,7 +370,7 @@ foreach sl $sortlist {
|
||||
puts "<span title=\"$tt\">"
|
||||
set ket "span"
|
||||
}
|
||||
puts "<img class=va border=0 src=\"/img/$img.gif\"> $descr$tag</$ket>"
|
||||
puts "<img class=va border=0 src=/img/$img.gif> $descr$tag</$ket>"
|
||||
}
|
||||
puts "</div>"
|
||||
|
||||
@ -459,3 +461,4 @@ if {[llength $plugins(buttons)]} {
|
||||
puts "</div>"
|
||||
|
||||
footer
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user