#!/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');
		}
	$file = &action_filename($in{action});
	}
elsif ($in{type} == 1) {
	# deleting an odd action
	$file = &runlevel_filename($in{runlevel}, $in{startstop},
				   $in{number}, $in{action});
	}
&lock_file($file);
unlink($file);
&unlock_file($file);
&webmin_log('delete', 'action', $in{'action'});
&redirect("");

