logrotate/delete_logs.cgi

   1 #!/usr/local/bin/perl
   2 # Delete a bunch of logrotate sections
   3
   4 require './logrotate-lib.pl';
   5 &ReadParse();
   6
   7 # Validate inputs
   8 &error_setup($text{'delete_err'});
   9 @d = split(/\0/, $in{'d'});
  10 @d || &error($text{'delete_enone'});
  11
  12 # Delete the sections
  13 $parent = &get_config_parent();
  14 $conf = $parent->{'members'};
  15 foreach $d (sort { $b <=> $a } @d) {
  16         $log = $conf->[$d];
  17         &lock_file($log->{'file'});
  18         &save_directive($parent, $log, undef);
  19         push(@files, $log->{'file'});
  20         }
  21 &flush_file_lines();
  22
  23 # Write out config
  24 foreach $f (&unique(@files)) {
  25         &delete_if_empty($f);
  26         &unlock_file($f);
  27         }
  28
  29 &webmin_log("delete", "logs", scalar(@d));
  30 &redirect("");
  31