mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
46 lines
1.5 KiB
Perl
46 lines
1.5 KiB
Perl
#!/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', "<tt>$config{'rstr_cmd'}</tt>"));
|
|
|
|
&header ( $text{'restore_title'}, "", "restore_form" ) ;
|
|
|
|
print "<hr>\n" ;
|
|
|
|
print "<form action=restore.cgi method=post>\n" ;
|
|
print "<input type=hidden name=db value=\"$in{'db'}\">\n" ;
|
|
print "<table border>\n" ;
|
|
print "<tr $tb> <td><b>$text{'restore_header'}</b></td> </tr>\n" ;
|
|
print "<tr $cb> <td><table>\n" ;
|
|
|
|
print "<tr> <td><b>$text{'restore_path'}</b></td>\n" ;
|
|
print "<td>\n" ;
|
|
print "<input type=text name=path value='$config{'repository'}/' size=64></td> </tr>\n" ;
|
|
|
|
print "<tr> <td><b>$text{'restore_only'}</b></td>\n";
|
|
print "<td><input type=radio name=only value=1> $text{'yes'}\n";
|
|
print "<input type=radio name=only value=0 checked> $text{'no'}</td> </tr>\n";
|
|
|
|
print "<tr> <td><b>$text{'restore_clean'}</b></td>\n";
|
|
print "<td><input type=radio name=clean value=1> $text{'yes'}\n";
|
|
print "<input type=radio name=clean value=0 checked> $text{'no'}</td> </tr>\n";
|
|
|
|
print "<td><input type=radio name=only value=1> $text{'yes'}\n";
|
|
print "<tr $cb> <td colspan=2 align=right><input type=submit " ,
|
|
"value='$text{'restore_go'}'></td> </tr>\n" ;
|
|
|
|
print "</table></td></tr></table></form>\n" ;
|
|
|
|
print "<hr>\n" ;
|
|
|
|
&footer ( "", $text{'index_return'} ) ;
|