syslog-ng/delete_logs.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple logs
   3
   4 require './syslog-ng-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'ddelete_err'});
   7 @d = split(/\0/, $in{'d'});
   8 @d || &error($text{'ddelete_enone'});
   9
  10 &lock_file($config{'syslogng_conf'});
  11 $conf = &get_config();
  12 @dests = &find("log", $conf);
  13 foreach my $d (@d) {
  14         ($dest) = grep { $_->{'index'} == $d } @dests;
  15         $dest || &error($text{'log_egone'});
  16         &save_directive($conf, undef, $dest, undef, 0);
  17         }
  18
  19 &unlock_file($config{'syslogng_conf'});
  20 &webmin_log('delete', 'logs', scalar(@d));
  21 &redirect("list_logs.cgi");