4861459aec
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@236 2a923420-c742-0410-a762-8d5b09965624
76 lines
1.3 KiB
Plaintext
Executable File
76 lines
1.3 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/var/mongoose/lib/setup
|
|
|
|
require rsv.class
|
|
|
|
set dir /mod/var/backup
|
|
|
|
puts "Content-Type: text/html"
|
|
puts ""
|
|
|
|
cgi_input
|
|
#cgi_dump
|
|
|
|
if {![dict exists $_cgi file]} {
|
|
puts "No filename supplied."
|
|
exit
|
|
}
|
|
|
|
set file [file tail [dict get $_cgi file]]
|
|
set ffile "/$dir/$file.rbk"
|
|
|
|
if {[file exists $ffile]} {
|
|
puts "Backup file <i>$file</i> already exists."
|
|
exit
|
|
}
|
|
|
|
if {[catch { set fd [open $ffile w] } msg]} {
|
|
puts "Error creating backup file. - $msg"
|
|
exit
|
|
}
|
|
|
|
puts "Backing up scheduled recordings and events..."
|
|
|
|
set events [rsv list]
|
|
|
|
set fields [lsort [[rsv] vars]]
|
|
|
|
#puts $fd "# [join $fields "\t"]"
|
|
|
|
foreach event $events {
|
|
puts " Backing up scheduled event '[$event name]'"
|
|
puts -nonewline $fd "event\t"
|
|
|
|
foreach f $fields {
|
|
if {$f eq "aulEventToRecordInfo"} { continue }
|
|
puts -nonewline $fd "[$event get $f]\t"
|
|
}
|
|
puts $fd ""
|
|
}
|
|
puts "Done."
|
|
|
|
puts "Backing up channel favourites..."
|
|
|
|
set grp 0
|
|
foreach res [$rsvdb query {
|
|
select eFavGroup,
|
|
TBL_FAV.eSvcType,
|
|
substr(szSvcName, 2) as szSvcName
|
|
from TBL_FAV join TBL_SVC using (hSvc)
|
|
order by eFavGroup
|
|
}] {
|
|
if {$res(eFavGroup) != $grp} {
|
|
set grp $res(eFavGroup)
|
|
puts " Group $grp"
|
|
}
|
|
puts " $res(szSvcName)"
|
|
puts $fd "fav\t$res(eFavGroup)\t$res(eSvcType)\t$res(szSvcName)"
|
|
}
|
|
puts "Done."
|
|
|
|
close $fd
|
|
rsv cleanup
|
|
|