mirror of
https://github.com/webmin/webmin.git
synced 2026-03-05 02:42:00 +00:00
34 lines
735 B
Perl
Executable File
34 lines
735 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Actually execute a backup
|
|
|
|
require './bacula-backup-lib.pl';
|
|
&ui_print_unbuffered_header(undef, $text{'mount_title'}, "");
|
|
&ReadParse();
|
|
$mode = $in{'mount'} ? "mount" : "unmount";
|
|
|
|
print "<b>",&text($mode.'_run', "<tt>$in{'storage'}</tt>"),"</b>\n";
|
|
print "<pre>";
|
|
$h = &open_console();
|
|
&console_cmd($h, "messages");
|
|
|
|
# Run the command
|
|
$out = &console_cmd($h, "$mode storage=$in{'storage'}");
|
|
print $out;
|
|
|
|
print "</pre>";
|
|
if ($out =~ /\sOK\s/i) {
|
|
# Worked
|
|
print "<b>",$text{$mode.'_done'},"</b><p>\n";
|
|
}
|
|
else {
|
|
# Something went wrong
|
|
print "<b>",$text{$mode.'_failed'},"</b><p>\n";
|
|
}
|
|
|
|
&close_console($h);
|
|
&webmin_log($mode, $in{'storage'});
|
|
|
|
&ui_print_footer("mount_form.cgi", $text{'mount_return'});
|
|
|
|
|