version 1.36, 2016/08/09 15:22:33
|
version 1.56, 2023/04/28 19:17:32
|
Line 37 http://www.lon-capa.org/
|
Line 37 http://www.lon-capa.org/
|
<perlscript mode="fg"> |
<perlscript mode="fg"> |
my $checker_bin = '/sbin/chkconfig'; |
my $checker_bin = '/sbin/chkconfig'; |
my $systemctl_bin = '/bin/systemctl'; |
my $systemctl_bin = '/bin/systemctl'; |
|
my $systemctl_only = 0; |
my $webserver ='httpd'; |
my $webserver ='httpd'; |
my @runlevels = qw/3 4 5/; |
my @runlevels = qw/3 4 5/; |
my @norunlevels = qw/0 1 6/; |
my @norunlevels = qw/0 1 6/; |
Line 53 if ('<DIST />' eq 'suse9.3' || '<DIST />
|
Line 54 if ('<DIST />' eq 'suse9.3' || '<DIST />
|
@norunlevels = qw/0 1 6/; |
@norunlevels = qw/0 1 6/; |
$checker_bin = '/usr/sbin/sysv-rc-conf'; |
$checker_bin = '/usr/sbin/sysv-rc-conf'; |
$webserver = 'apache2'; |
$webserver = 'apache2'; |
|
} elsif (('<DIST />' eq 'ubuntu18') || ('<DIST />' eq 'ubuntu20') || ('<DIST />' eq 'sles15')) { |
|
$webserver = 'apache2'; |
|
$use_systemctl = 1; |
|
$systemctl_only = 1; |
|
} elsif (('<DIST />' eq 'fedora26') || ('<DIST />' eq 'fedora27') || |
|
('<DIST />' eq 'fedora28') || ('<DIST />' eq 'fedora29') || |
|
('<DIST />' eq 'fedora30') || ('<DIST />' eq 'fedora31') || |
|
('<DIST />' eq 'fedora32') || ('<DIST />' eq 'fedora33') || |
|
('<DIST />' eq 'fedora34') || ('<DIST />' eq 'fedora35') || |
|
('<DIST />' eq 'centos8') || ('<DIST />' eq 'rhes8') || |
|
('<DIST />' eq 'oracle7') || ('<DIST />' eq 'oracle8') || |
|
('<DIST />' eq 'rocky8') || ('<DIST />' eq 'alma8') || |
|
('<DIST />' eq 'centos8-stream') || ('<DIST />' eq 'centos9-stream') || |
|
('<DIST />' eq 'rhes9') || ('<DIST />' eq 'oracle9') || |
|
('<DIST />' eq 'rocky9') || ('<DIST />' eq 'alma9') || { |
|
$use_systemctl = 1; |
|
$systemctl_only = 1; |
} |
} |
if (('<DIST />' eq 'fedora16') || ('<DIST />' eq 'fedora17') || |
if (('<DIST />' eq 'fedora16') || ('<DIST />' eq 'fedora17') || |
('<DIST />' eq 'fedora18') || ('<DIST />' eq 'fedora19') || |
('<DIST />' eq 'fedora18') || ('<DIST />' eq 'fedora19') || |
('<DIST />' eq 'fedora20') || ('<DIST />' eq 'fedora21') || |
('<DIST />' eq 'fedora20') || ('<DIST />' eq 'fedora21') || |
('<DIST />' eq 'fedora22') || ('<DIST />' eq 'fedora23') || |
('<DIST />' eq 'fedora22') || ('<DIST />' eq 'fedora23') || |
('<DIST />' eq 'fedora24') || ('<DIST />' eq 'suse12.1') || |
('<DIST />' eq 'fedora24') || ('<DIST />' eq 'fedora25') || |
('<DIST />' eq 'suse12.2') || ('<DIST />' eq 'suse12.3') || |
('<DIST />' eq 'suse12.1') || ('<DIST />' eq 'suse12.2') || |
('<DIST />' eq 'suse13.1') || ('<DIST />' eq 'suse13.2') || |
('<DIST />' eq 'suse12.3') || ('<DIST />' eq 'suse13.1') || |
('<DIST />' eq 'sles12') || ('<DIST />' eq 'rhes7') || |
('<DIST />' eq 'suse13.2') || ('<DIST />' eq 'rhes7') || |
('<DIST />' eq 'centos7') || ('<DIST />' eq 'scientific7')) { |
('<DIST />' eq 'centos7') || ('<DIST />' eq 'scientific7') || |
|
('<DIST />' eq 'sles12')) { |
$use_systemctl = 1; |
$use_systemctl = 1; |
} |
} |
exit if (! -x $checker_bin); |
exit if (((!$systemctl_only) && (! -x $checker_bin)) && (! -x $systemctl_bin)); |
|
|
my $rlstr = join('',@runlevels); |
my $rlstr = join('',@runlevels); |
my $nrlstr = join('',@norunlevels); |
my $nrlstr = join('',@norunlevels); |
foreach my $service ($webserver,'loncontrol') { |
foreach my $service ($webserver,'loncontrol') { |
if (($use_systemctl) && ($service eq $webserver)) { |
if (($use_systemctl) && ($service eq $webserver) || ($systemctl_only)) { |
my $command = "systemctl is-enabled ".$service.".service"; |
my $command = "systemctl is-enabled ".$service.".service"; |
my $results = `$command`; |
my $results = `$command`; |
chomp($results); |
chomp($results); |
Line 88 foreach my $service ($webserver,'loncont
|
Line 107 foreach my $service ($webserver,'loncont
|
if ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10' || '<DIST />' eq 'ubuntu12' || '<DIST />' eq 'ubuntu14' || '<DIST />' eq 'ubuntu16') { |
if ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10' || '<DIST />' eq 'ubuntu12' || '<DIST />' eq 'ubuntu14' || '<DIST />' eq 'ubuntu16') { |
print " $checker_bin --level $nrlstr $service off".$/; |
print " $checker_bin --level $nrlstr $service off".$/; |
} else { |
} else { |
print " $checker_bin --add $webserver".$/; |
print " $checker_bin --add $service".$/; |
} |
} |
print " $checker_bin --level $rlstr $service on".$/; |
print " $checker_bin --level $rlstr $service on".$/; |
} else { |
} else { |