File Manager - BorneoXploit

Editing: delete_mons.cgi

#!/usr/bin/perl
# Delete or refresh multiple monitors at once

require './status-lib.pl';
&ReadParse();
$in{'d'} || &error($text{'deletes_enone'});

# Get the monitors
@d = split(/\0/, $in{'d'});
foreach $d (@d) {
	$serv = &get_service($d);
	$serv || &error($text{'deletes_egone'});
	push(@dels, $serv);
	}

if ($in{'delete'}) {
	# Deleting
	$access{'edit'} || &error($text{'mon_ecannot'});
	foreach $serv (@dels) {
		&delete_service($serv);
		}
	&webmin_log("deletes", undef, scalar(@dels));
	&redirect("");
	}
elsif ($in{'disable'} || $in{'enable'}) {
	# Disabling or enabling scheduled check
	$access{'edit'} || &error($text{'mon_ecannot'});
	foreach $serv (@dels) {
		if ($in{'disable'} && $serv->{'nosched'} != 1) {
			$serv->{'old_nosched'} = $serv->{'nosched'};
			$serv->{'nosched'} = 1;
			}
		elsif ($in{'enable'} && $serv->{'nosched'} == 1) {
			$serv->{'nosched'} = $serv->{'old_nosched'} || 0;
			}
		&save_service($serv);
		}
	&webmin_log($in{'enable'} ? 'enables' : 'disables', 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";
	&ui_print_footer("", $text{'index_return'});
	}

Cancel