22320536ee
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1420 2a923420-c742-0410-a762-8d5b09965624
25 lines
359 B
Plaintext
Executable File
25 lines
359 B
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
|
|
httpheader
|
|
|
|
# dir=%2Fmedia%2FMy+Video%2FWeatherview
|
|
# aexpiry_days=13
|
|
|
|
set dir [cgi_get dir "-"]
|
|
set days [cgi_get aexpiry_days 7]
|
|
if {$dir eq "-"} exit
|
|
|
|
if {![file isdirectory $dir]} {
|
|
puts "Not a directory."
|
|
exit
|
|
}
|
|
|
|
set fd [open "$dir/.autoexpire" w]
|
|
puts $fd $days
|
|
$fd close
|
|
puts "Ok."
|
|
|