syslog-ng/delete_destinations.cgi

   1 #!/usr/local/bin/perl
   2 # Delete multiple destinations
   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 foreach my $d (@d) {
  10           &check_dependencies('destination', $d) &&
  11               &error(&text('ddelete_eused', $d));
  12           }
  13
  14 &lock_file($config{'syslogng_conf'});
  15 $conf = &get_config();
  16 @dests = &find("destination", $conf);
  17 foreach my $d (@d) {
  18         ($dest) = grep { $_->{'value'} eq $d } @dests;
  19         $dest || &error($text{'destination_egone'});
  20         &save_directive($conf, undef, $dest, undef, 0);
  21         }
  22
  23 &unlock_file($config{'syslogng_conf'});
  24 &webmin_log('delete', 'destinations', scalar(@d));
  25 &redirect("list_destinations.cgi");