#!/mod/bin/jimsh

package require cgi

puts "Content-Type: text/html"
puts "Pragma: no-cache"
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
puts ""

set dir "/mod/var/backup"

proc empty {} {
	puts "<font style=\"color: grey\">
		<i>No current backup files.</i>
	      </font>"
}

if {![file isdirectory $dir]} {
	empty
	exit
}

set backups [glob -nocomplain "$dir/*.rbk"]

if {![llength $backups]} {
	empty
	exit
}

foreach backup $backups {
	set b [file rootname [file tail $backup]]
	puts "<input name=restore_file class=restore
	    type=radio value=\"$b\">$b <font class=footnote>(
		[clock format [file mtime $backup] -format {%c %Z}]
	    )</font></input>
		<br>
	"
}