forked from hummypkg/webif
33 lines
575 B
Plaintext
33 lines
575 B
Plaintext
|
#!/mod/bin/jimsh
|
||
|
|
|
||
|
|
package require cgi
|
||
|
|
source /mod/webif/lib/setup
|
||
|
|
require rsv.class system.class
|
||
|
|
|
||
|
|
httpheader
|
||
|
|
|
||
|
|
set slot [cgi_get slot 0]
|
||
|
|
set table [cgi_get table TBL_RESERVATION]
|
||
|
|
|
||
|
|
set event [rsv slot $table $slot]
|
||
|
|
|
||
|
|
# Humax TV replaces these characters.
|
||
|
|
# "%*./:<>?\|
|
||
|
|
|
||
|
|
set dir "[system mediaroot]/[\
|
||
|
|
regsub -all {["%*\./:<>?\\|]} [$event get szFPBRecPath] "_"]"
|
||
|
|
|
||
|
|
|
||
|
|
if {[file exists $dir]} {
|
||
|
|
puts "Folder $dir already exists."
|
||
|
|
} else {
|
||
|
|
if {[catch {file mkdir $dir} msg]} {
|
||
|
|
puts "Failed to create $dir ($msg)"
|
||
|
|
} else {
|
||
|
|
puts "Created $dir"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
system restartpending
|
||
|
|
|