PAL.C.T MINI SHELL
#!/usr/bin/perl
# restore.cgi
# Restore a backup dump
require './fsdump-lib.pl';
&ReadParse();
&error_setup($text{'restore_err'});
$access{'restore'} || &error($text{'restore_ecannot'});
$cmd = &parse_restore($in{'fs'});
&ui_print_unbuffered_header(undef, $text{'restore_title'}, "");
&create_wrappers();
print "<b>",&text('restore_now', "<tt>$cmd</tt>"),"</b> <p>\n";
print "<pre>";
$rv = &restore_backup($in{'fs'}, $cmd);
print "</pre>\n";
if ($rv) {
if ($rv =~ /^\d+$/) {
# Bad exit status
print "<b>$text{'restore_failed2'}</b><p>\n";
}
else {
# Some error message
print "<b>",&text('restore_failed', $rv),"</b><p>\n";
}
}
elsif (!$in{'test'}) {
print "<b>$text{'restore_complete'}</b><p>\n";
}
&webmin_log("restore", undef, $in{'mode'} == 0 ? $in{'file'} :
$in{'huser'} ? "$in{'huser'}@$in{'host'}:$in{'hfile'}" :
"$in{'huser'}:$in{'hfile'}");
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`