bacula-backup/cancel_jobs.cgi

   1 #!/usr/local/bin/perl
   2 # Cancel running jobs
   3
   4 require './bacula-backup-lib.pl';
   5 &ReadParse();
   6
   7 if (!$in{'refresh'}) {
   8         # Cancel jobs if not refreshing
   9         &error_setup($text{'cancel_err'});
  10         @d = split(/\0/, $in{'d'});
  11         @d || &error($text{'cancel_enone'});
  12
  13         $h = &open_console();
  14         foreach $d (@d) {
  15                 $out = &console_cmd($h, "cancel JobId=$d");
  16                 if ($out =~ /failed|error/i) {
  17                         &error(&text('dvolumes_ebacula', "<tt>$out</tt>"));
  18                         }
  19                 }
  20         &close_console($h);
  21         }
  22
  23 if ($in{'client'}) {
  24         &redirect("clientstatus_form.cgi?client=$in{'client'}");
  25         }
  26 elsif ($in{'storage'}) {
  27         &redirect("storagestatus_form.cgi?storage=$in{'storage'}");
  28         }
  29 else {
  30         &redirect("dirstatus_form.cgi");
  31         }
  32