fsdump/restore.cgi

   1 #!/usr/local/bin/perl
   2 # restore.cgi
   3 # Restore a backup dump
   4
   5 require './fsdump-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'restore_err'});
   8 $access{'restore'} || &error($text{'restore_ecannot'});
   9
  10 $cmd = &parse_restore($in{'fs'});
  11
  12 &ui_print_unbuffered_header(undef, $text{'restore_title'}, "");
  13
  14 &create_wrappers();
  15
  16 print "<b>",&text('restore_now', "<tt>$cmd</tt>"),"</b> <p>\n";
  17 print "<pre>";
  18 $rv = &restore_backup($in{'fs'}, $cmd);
  19 print "</pre>\n";
  20 if ($rv) {
  21         if ($rv =~ /^\d+$/) {
  22                 # Bad exit status
  23                 print "<b>$text{'restore_failed2'}</b><p>\n";
  24                 }
  25         else {
  26                 # Some error message
  27                 print "<b>",&text('restore_failed', $rv),"</b><p>\n";
  28                 }
  29         }
  30 elsif (!$in{'test'}) {
  31         print "<b>$text{'restore_complete'}</b><p>\n";
  32         }
  33 &webmin_log("restore", undef, $in{'mode'} == 0 ? $in{'file'} :
  34                       $in{'huser'} ? "$in{'huser'}@$in{'host'}:$in{'hfile'}" :
  35                                      "$in{'huser'}:$in{'hfile'}");
  36
  37 &ui_print_footer("", $text{'index_return'});
  38