forked from hummypkg/webif
22320536ee
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1420 2a923420-c742-0410-a762-8d5b09965624
98 lines
2.2 KiB
Plaintext
98 lines
2.2 KiB
Plaintext
|
|
require system.class
|
|
|
|
#if {![exists -proc class]} { package require oo }
|
|
#class browse {}
|
|
|
|
set _flatten [system pkginst flatten]
|
|
|
|
proc _addicon {img {hover ""} {class va}} {
|
|
set icon "<img src=$img class=\"$class\" height=21"
|
|
if {$hover ne ""} {
|
|
append icon " alt=\"$hover\" title=\"$hover\""
|
|
}
|
|
append icon ">"
|
|
return $icon
|
|
}
|
|
|
|
proc {dir expiry} {dir} {
|
|
if {[catch {
|
|
set fd [open "$dir/.autoexpire"]
|
|
set days $([read $fd] + 0)
|
|
$fd close
|
|
}]} { set days 0 }
|
|
if {!$days} { set days 7 }
|
|
return $days
|
|
}
|
|
|
|
proc {dir iconset} {dir} {
|
|
set icons {}
|
|
set attrs {}
|
|
|
|
set noflat 0
|
|
if $::_flatten {
|
|
if {[string match {\[*\]} [file tail $dir]]} { set noflat 1 }
|
|
if {[file exists "$dir/.noflatten"]} { set noflat 1 }
|
|
if $noflat { lappend icons \
|
|
[_addicon "/img/flat-tyre.png" "No-flatten" }
|
|
lappend attrs "noflat=$noflat"
|
|
}
|
|
|
|
set autoshrinkr 0
|
|
if {[file exists "$dir/.autoshrinkr"]} {
|
|
set autoshrinkr 1
|
|
lappend icons [_addicon "/img/compressr.png" \
|
|
"Recursive Auto-shrink"]
|
|
lappend attrs "autoshrinkr=1"
|
|
}
|
|
|
|
set autoshrink 0
|
|
if {!$autoshrinkr && [file exists "$dir/.autoshrink"]} {
|
|
set autoshrink 1
|
|
lappend icons [_addicon "/img/compress.png" "Auto-shrink"]
|
|
lappend attrs "autoshrink=1"
|
|
}
|
|
|
|
|
|
set autodedup 0
|
|
if {[file exists "$dir/.autodedup"]} {
|
|
set autodedup 1
|
|
lappend icons [_addicon "/img/dedup.png" "Auto-dedup"]
|
|
lappend attrs "autodedup=1"
|
|
}
|
|
|
|
set autodecryptr 0
|
|
if {[file exists "$dir/.autodecryptr"]} {
|
|
set autodecryptr 1
|
|
lappend icons [_addicon "/img/decryptr.png" \
|
|
"Recursive Auto-decrypt"]
|
|
lappend attrs "autodecryptr=1"
|
|
}
|
|
|
|
set autodecrypt 0
|
|
if {!$autodecryptr && [file exists "$dir/.autodecrypt"]} {
|
|
set autodecrypt 1
|
|
lappend icons [_addicon "/img/decrypt.png" "Auto-decrypt"]
|
|
lappend attrs "autodecrypt=1"
|
|
}
|
|
|
|
set autompg 0
|
|
if {[file exists "$dir/.autompg"]} {
|
|
set autompg 1
|
|
lappend icons [_addicon "/img/mpg.png" "Auto-MPG Extract"]
|
|
lappend attrs "autompg=1"
|
|
}
|
|
|
|
set autoexpire 0
|
|
if {[file exists "$dir/.autoexpire"]} {
|
|
set days [{dir expiry} $dir]
|
|
set autoexpire 1
|
|
lappend icons [_addicon "/img/clock.png" \
|
|
"Auto-Expire ($days day$($days == 1 ? "" : "s"))"]
|
|
lappend attrs "autoexpire=1" "autoexpiredays=$days"
|
|
}
|
|
|
|
return [list $icons $attrs]
|
|
}
|
|
|