PAL.C.T MINI SHELL
#!/usr/bin/perl
# Cancel running jobs
require './bacula-backup-lib.pl';
&ReadParse();
if (!$in{'refresh'}) {
# Cancel jobs if not refreshing
&error_setup($text{'cancel_err'});
@d = split(/\0/, $in{'d'});
@d || &error($text{'cancel_enone'});
$h = &open_console();
foreach $d (@d) {
$out = &console_cmd($h, "cancel JobId=$d");
if ($out =~ /failed|error/i) {
&error(&text('dvolumes_ebacula', "<tt>$out</tt>"));
}
}
&close_console($h);
}
if ($in{'client'}) {
&redirect("clientstatus_form.cgi?client=$in{'client'}");
}
elsif ($in{'storage'}) {
&redirect("storagestatus_form.cgi?storage=$in{'storage'}");
}
else {
&redirect("dirstatus_form.cgi");
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`