mirror of
https://github.com/webmin/webmin.git
synced 2026-02-11 01:32:03 +00:00
20 lines
495 B
Perl
Executable File
20 lines
495 B
Perl
Executable File
#!/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]);
|