webif/var/mongoose/cgi-bin/backup/backup.jim

#!/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