delete_action.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# delete_action.cgi
# Delete an existing action and remove it from all the runlevels

require './init-lib.pl';
&ReadParse;
%access = &get_module_acl();
$access{'bootup'} || &error($text{'save_ecannot'});

if ($in{type} == 0) {
	# Deleting a normal action
	foreach (&action_levels('S', $in{action})) {
		/^(\S+)\s+(\S+)\s+(\S+)$/;
		&delete_rl_action($in{action}, $1, 'S');
		}
	foreach (&action_levels('K', $in{action})) {
		/^(\S+)\s+(\S+)\s+(\S+)$/;
		&delete_rl_action($in{action}, $1, 'K');
		}
	unlink(&action_filename($in{action}));
	}
elsif ($in{type} == 1) {
	# deleting an odd action
	unlink(&runlevel_filename($in{runlevel}, $in{startstop},
				  $in{number}, $in{action}));
	}
&redirect("");