fsdump/delete_dumps.cgi

   1 #!/usr/local/bin/perl
   2 # Delete a bunch of backups
   3
   4 require './fsdump-lib.pl';
   5 &foreign_require("cron", "cron-lib.pl");
   6 &ReadParse();
   7 &error_setup($text{'delete_err'});
   8 @d = split(/\0/, $in{'d'});
   9 @d || &error($text{'delete_enone'});
  10
  11 # Delete each one, and its cron job
  12 foreach $d (@d) {
  13         $dump = &get_dump($d);
  14         $access{'edit'} && &can_edit_dir($dump) ||
  15                 &error($text{'dump_ecannot2'});
  16         @jobs = &foreign_call("cron", "list_cron_jobs");
  17         ($job) = grep { $_->{'command'} eq "$cron_cmd $dump->{'id'}" } @jobs;
  18         &delete_dump($dump);
  19         if ($job) {
  20                 &lock_file($job->{'file'});
  21                 &foreign_call("cron", "delete_cron_job", $job);
  22                 &unlock_file($job->{'file'});
  23                 }
  24         }
  25
  26 &webmin_log("delete", "dumps", scalar(@d));
  27 &redirect("");
  28