#!/usr/local/bin/perl
# Creates some boot-time action

package server_manager;
$main::no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*\/)[^\/]+$/) {
	chdir($1);
	}
chop($pwd = `pwd`);
$0 = "$pwd/create-boot.pl";
require './init-lib.pl';
$< == 0 || die "$0 must be run as root";

@ARGV == 3 || @ARGV == 4 ||
	die "usage: create-boot.pl <name> <desc> <startcode> [stop-code]";

&enable_at_boot($ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]);

#!/usr/local/bin/perl
# Creates some boot-time action

package server_manager;
$main::no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*\/)[^\/]+$/) {
	chdir($1);
	}
chop($pwd = `pwd`);
$0 = "$pwd/create-boot.pl";
require './init-lib.pl';
$< == 0 || die "$0 must be run as root";

@ARGV >= 1 && @ARGV <= 4 ||
	die "usage: create-boot.pl <name> [desc] [start-code] [stop-code]";

&enable_at_boot(@ARGV);

Allow single-arg call to just enable an action
Allow single-arg call to just enable an action
