status/delete_mons.cgi

   1 #!/usr/local/bin/perl
   2 # Delete or refresh multiple monitors at once
   3
   4 require './status-lib.pl';
   5 &ReadParse();
   6 $in{'d'} || &error($text{'deletes_enone'});
   7 @d = split(/\0/, $in{'d'});
   8
   9 if ($in{'delete'}) {
  10         # Deleting
  11         $access{'edit'} || &error($text{'mon_ecannot'});
  12         foreach $d (@d) {
  13                 $serv = &get_service($d);
  14                 $serv || &error($text{'deletes_egone'});
  15                 push(@dels, $serv);
  16                 }
  17         foreach $serv (@dels) {
  18                 &delete_service($serv);
  19                 }
  20         &webmin_log("deletes", undef, scalar(@dels));
  21         &redirect("");
  22         }
  23 else {
  24         # Refreshing
  25         &ui_print_unbuffered_header(undef, $text{'refresh_title'}, "");
  26
  27         print &text('refresh_doing2', scalar(@d)),"<br>\n";
  28         &foreign_require("cron", "cron-lib.pl");
  29         &cron::create_wrapper($cron_cmd, $module_name, "monitor.pl");
  30         $ids = join(" ", map { quotemeta($_) } @d);
  31         &system_logged("$cron_cmd --force $ids >/dev/null 2>&1 </dev/null");
  32         &webmin_log("refresh");
  33         print $text{'refresh_done'},"<p>\n";
  34         print &js_redirect("index.cgi");
  35
  36         &ui_print_footer("", $text{'index_return'});
  37         }