mirror of
https://github.com/webmin/webmin.git
synced 2026-02-17 12:12:17 +00:00
f778af84a0
Some checks are pending
webmin.dev: webmin/webmin / build (push) Waiting to run
https://github.com/webmin/authentic-theme/issues/1729#issuecomment-3899950457
85 lines
2.3 KiB
Perl
Executable File
85 lines
2.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# updateboot.pl
|
|
# Called by setup.sh to update boot script
|
|
|
|
$no_acl_check++;
|
|
require './init-lib.pl';
|
|
$product = $ARGV[0];
|
|
|
|
$< == 0 || die "updateboot.pl must be run as root";
|
|
|
|
# Update boot script
|
|
if ($product) {
|
|
if ($init_mode eq "systemd") {
|
|
my $reload_daemon = sub {
|
|
system("systemctl daemon-reload >/dev/null 2>&1");
|
|
sleep(2);
|
|
};
|
|
# Save status of service
|
|
my $status = &backquote_logged("systemctl is-enabled ".
|
|
quotemeta($product).".service 2>&1");
|
|
$status = &trim($status) if ($status);
|
|
# Delete all possible service files
|
|
my $systemd_root = &get_systemd_root(undef, 1);
|
|
foreach my $p (
|
|
"/etc/systemd/system",
|
|
"/usr/lib/systemd/system",
|
|
"/lib/systemd/system") {
|
|
unlink("$p/$product.service");
|
|
unlink("$p/$product");
|
|
}
|
|
$reload_daemon->();
|
|
|
|
my $temp = &transname();
|
|
my $killcmd = &has_command('kill');
|
|
$ENV{'WEBMIN_KILLCMD'} = $killcmd;
|
|
©_source_dest("$root_directory/webmin-systemd", "$temp");
|
|
my $lref = &read_file_lines($temp);
|
|
foreach my $l (@{$lref}) {
|
|
$l =~ s/(WEBMIN_[A-Z]+)/$ENV{$1}/g;
|
|
}
|
|
&flush_file_lines($temp);
|
|
|
|
copy_source_dest($temp, "$systemd_root/$product.service");
|
|
$reload_daemon->();
|
|
|
|
if ($status eq "disabled") {
|
|
system("systemctl disable ".
|
|
quotemeta($product).".service >/dev/null 2>&1");
|
|
}
|
|
elsif ($status eq "masked") {
|
|
system("systemctl mask ".
|
|
quotemeta($product).".service >/dev/null 2>&1");
|
|
}
|
|
else {
|
|
system("systemctl enable ".
|
|
quotemeta($product).".service >/dev/null 2>&1");
|
|
}
|
|
}
|
|
elsif ($init_mode eq "launchd") {
|
|
# Update or create launchd agent to use start init wrapper
|
|
my $name = &launchd_name($product);
|
|
my %miniserv;
|
|
&get_miniserv_config(\%miniserv);
|
|
my $want_boot = $miniserv{'atboot'} ? 1 : 0;
|
|
my @agents = &list_launchd_agents();
|
|
my ($agent) = grep { $_->{'name'} eq $name } @agents;
|
|
if ($agent) {
|
|
my $boot = $agent->{'boot'} ? 1 : 0;
|
|
&delete_launchd_agent($name);
|
|
&create_launchd_agent($name,
|
|
"$config_directory/.start-init --nofork",
|
|
$boot, 0);
|
|
}
|
|
elsif ($want_boot) {
|
|
&create_launchd_agent($name,
|
|
"$config_directory/.start-init --nofork",
|
|
1, 0);
|
|
}
|
|
}
|
|
elsif (-d "/etc/init.d") {
|
|
copy_source_dest("$root_directory/webmin-init", "/etc/init.d/$product");
|
|
system("chkconfig --add $product >/dev/null 2>&1");
|
|
}
|
|
}
|