#!/usr/local/bin/perl
# restore_form.cgi
# Display a form for restore a database
require './postgresql-lib.pl' ;
&ReadParse ( ) ;
&error_setup ( $text{'restore_err'} ) ;
$access{'restore'} || &error($text{'restore_ecannot'});
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
&has_command($config{'rstr_cmd'}) ||
&error(&text('restore_ecmd', "$config{'rstr_cmd'}"));
$desc = "$in{'db'}";
&ui_print_header($desc, $text{'restore_title'}, "", "restore_form" ) ;
print &ui_form_start("restore.cgi", "form-data");
print &ui_hidden("db", $in{'db'}),"\n";
print &ui_table_start($text{'restore_header'}, undef, 2);
print &ui_table_row($text{'restore_src'},
&ui_radio("src", 0,
[ [ 0, &text('restore_src0',
&ui_textbox("path", $config{'repository'}, 50).
&file_chooser_button("path")).
"
" ],
[ 1, &text('restore_src1',
&ui_upload("data")) ] ]));
print &ui_table_row($text{'restore_only'},
&ui_yesno_radio("only", 0));
print &ui_table_row($text{'restore_clean'},
&ui_yesno_radio("clean", 0));
print &ui_table_row($text{'restore_tables'},
&ui_opt_textbox("tables", undef, 60,
$text{'restore_tables1'}."
",
$text{'restore_tables0'}));
print &ui_table_end();
print &ui_form_end([ [ "go", $text{'restore_go'} ] ]);
&ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
"", $text{'index_return'});