PAL.C.T MINI SHELL
#!/usr/bin/perl
# Delete or refresh multiple monitors at once
require './status-lib.pl';
&ReadParse();
$in{'d'} || &error($text{'deletes_enone'});
@d = split(/\0/, $in{'d'});
if ($in{'delete'}) {
# Deleting
$access{'edit'} || &error($text{'mon_ecannot'});
foreach $d (@d) {
$serv = &get_service($d);
$serv || &error($text{'deletes_egone'});
push(@dels, $serv);
}
foreach $serv (@dels) {
&delete_service($serv);
}
&webmin_log("deletes", undef, scalar(@dels));
&redirect("");
}
else {
# Refreshing
&ui_print_unbuffered_header(undef, $text{'refresh_title'}, "");
print &text('refresh_doing2', scalar(@d)),"<br>\n";
&foreign_require("cron", "cron-lib.pl");
&cron::create_wrapper($cron_cmd, $module_name, "monitor.pl");
$ids = join(" ", map { quotemeta($_) } @d);
&clean_environment();
&system_logged("$cron_cmd --force $ids >/dev/null 2>&1 </dev/null");
&reset_environment();
&webmin_log("refresh");
print $text{'refresh_done'},"<p>\n";
print &js_redirect("index.cgi");
&ui_print_footer("", $text{'index_return'});
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`