#!/usr/local/bin/perl
# restore_form.cgi
# Display a form with restore options

require './fsdump-lib.pl';
&ReadParse();

&header($text{'restore_title'}, "", "restore");
print "<hr>\n";

$m = &missing_restore_command($in{'fs'});
if ($m) {
	print "<p>",&text('restore_ecommand', "<tt>$m</tt>", uc($in{'fs'})),
	      "<p>\n";
	print "<hr>\n";
	&footer("/", $text{'index'});
	exit;
	}

print "<b>$text{'restore_desc'}</b><p>\n";

print "<form action=restore.cgi>\n";
print "<input type=hidden name=fs value='$in{'fs'}'>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>",&text('restore_header', uc($in{'fs'})),"</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

&restore_form($in{'fs'});

print "</table></td></tr></table>\n";
print "<input type=submit value='$text{'restore_ok'}'></form>\n";

print "<hr>\n";
&footer("", $text{'index_return'});

