version 1.5, 2007/04/22 16:33:28
|
version 1.62, 2024/06/20 04:04:54
|
Line 1
|
Line 1
|
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
<!-- phpcheck.piml --> |
<!-- checkconfig.piml --> |
<!-- Matthew Hall --> |
<!-- Matthew Hall --> |
|
|
<!-- $Id$ --> |
<!-- $Id$ --> |
Line 33 http://www.lon-capa.org/
|
Line 33 http://www.lon-capa.org/
|
<targetroot>/</targetroot> |
<targetroot>/</targetroot> |
<files> |
<files> |
<file> |
<file> |
<target dist="default">/home/httpd/lonUsers</target> |
<target dist="default"></target> |
<perlscript mode="fg"> |
<perlscript mode="fg"> |
my $chkconfig_bin = '/sbin/chkconfig'; |
my $checker_bin = '/sbin/chkconfig'; |
exit if (! -x $chkconfig_bin); |
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 $use_systemctl; |
|
|
if ('<DIST />' eq 'suse9.3' || '<DIST />' eq 'suse9.2' || '<DIST />' eq 'sles9') { |
if ('<DIST />' eq 'suse9.3' || '<DIST />' eq 'suse9.2' || '<DIST />' eq 'sles9') { |
$webserver = 'apache'; |
$webserver = 'apache'; |
@runlevels = qw/3 5/; |
@runlevels = qw/3 5/; |
} elsif ('<DIST />' eq 'sles10' || '<DIST />' eq 'suse10.1' || '<DIST />' eq 'suse10.2') { |
} elsif ('<DIST />' eq 'sles10' || '<DIST />' eq 'sles11' || '<DIST />' eq 'sles12' || '<DIST />' eq 'suse10.1' || '<DIST />' eq 'suse10.2' || '<DIST />' eq 'suse10.3' || '<DIST />' eq 'suse11.1' || '<DIST />' eq 'suse11.2' || '<DIST />' eq 'suse11.3' || '<DIST />' eq 'suse11.4' || '<DIST />' eq 'suse12.1' || '<DIST />' eq 'suse12.2' || '<DIST />' eq 'suse12.3' || '<DIST />' eq 'suse13.1' || '<DIST />' eq 'suse13.2') { |
|
$webserver = 'apache2'; |
|
@runlevels = qw/3 5/; |
|
} elsif ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10' || '<DIST />' eq 'ubuntu12' || '<DIST />' eq 'ubuntu14' || '<DIST />' eq 'ubuntu16') { |
|
@runlevels = qw/2 3 4 5/; |
|
@norunlevels = qw/0 1 6/; |
|
$checker_bin = '/usr/sbin/sysv-rc-conf'; |
|
$webserver = 'apache2'; |
|
} elsif (('<DIST />' eq 'ubuntu18') || ('<DIST />' eq 'ubuntu20') || |
|
('<DIST />' eq 'ubuntu22') || ('<DIST />' eq 'ubuntu24') || |
|
('<DIST />' eq 'sles15') || ('<DIST />' eq 'debian10') || |
|
('<DIST />' eq 'debian11') || ('<DIST />' eq 'debian12')) { |
$webserver = 'apache2'; |
$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 'fedora36') || ('<DIST />' eq 'fedora37') || |
|
('<DIST />' eq 'fedora38') || ('<DIST />' eq 'fedora39') || |
|
('<DIST />' eq 'fedora40') || ('<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; |
} |
} |
my $command = $chkconfig_bin.' --list '.$webserver; |
if (('<DIST />' eq 'fedora16') || ('<DIST />' eq 'fedora17') || |
my $results = `$command`; |
('<DIST />' eq 'fedora18') || ('<DIST />' eq 'fedora19') || |
if ($results eq '') { |
('<DIST />' eq 'fedora20') || ('<DIST />' eq 'fedora21') || |
print "**** WARNING: $webserver is not set to run on boot.$/". |
('<DIST />' eq 'fedora22') || ('<DIST />' eq 'fedora23') || |
" Execute the following commands to fix this:".$/. |
('<DIST />' eq 'fedora24') || ('<DIST />' eq 'fedora25') || |
" $chkconfig_bin --add $webserver".$/. |
('<DIST />' eq 'suse12.1') || ('<DIST />' eq 'suse12.2') || |
" $chkconfig_bin $webserver on".$/; |
('<DIST />' eq 'suse12.3') || ('<DIST />' eq 'suse13.1') || |
} else { |
('<DIST />' eq 'suse13.2') || ('<DIST />' eq 'rhes7') || |
my %httpd_runlevels; |
('<DIST />' eq 'centos7') || ('<DIST />' eq 'scientific7') || |
for (my $rl = 0;$rl <=6;$rl++) { |
('<DIST />' eq 'sles12')) { |
if ($results =~ /$rl:on/) { $httpd_runlevels{$rl}++; } |
$use_systemctl = 1; |
} |
|
# |
|
my $warning; |
|
foreach my $rl (@runlevels) { |
|
if (! exists($httpd_runlevels{$rl}) ) { |
|
$warning .= |
|
"**** WARNING: $webserver is not set to run at runlevel $rl".$/; |
|
} |
|
} |
|
if ($warning) { |
|
print $warning. |
|
" Execute the following command to fix this:".$/. |
|
" /sbin/chkconfig $webserver on ".$/; |
|
} |
|
} |
} |
|
exit if (((!$systemctl_only) && (! -x $checker_bin)) && (! -x $systemctl_bin)); |
|
|
$command = $chkconfig_bin.' --list loncontrol'; |
my $rlstr = join('',@runlevels); |
$results = `$command`; |
my $nrlstr = join('',@norunlevels); |
if ($results eq '') { |
foreach my $service ($webserver,'loncontrol') { |
print "**** WARNING: loncontrol is not set to run on boot.$/". |
if (($use_systemctl) && ($service eq $webserver) || ($systemctl_only)) { |
" Execute the following commands to fix this:".$/. |
my $command = "systemctl is-enabled ".$service.".service"; |
" $chkconfig_bin --add loncontrol".$/. |
my $results = `$command`; |
" $chkconfig_bin loncontrol on".$/; |
chomp($results); |
} else { |
if ($results ne 'enabled') { |
my %loncontrol_runlevels; |
print "**** WARNING: $service is not set to run on boot.".$/. |
for (my $rl = 0;$rl<=6;$rl++) { |
" Execute the following commands to fix this:".$/. |
if ($results =~ /$rl:on/) { $loncontrol_runlevels{$rl}++; } |
" systemctl enable ".$service.".service".$/; |
} |
} |
# |
} else { |
$warning = ''; |
my $command = $checker_bin.' --list '.$service; |
foreach my $rl (@runlevels) { |
my $results = `$command`; |
if (! exists($loncontrol_runlevels{$rl})) { |
if ($results eq '') { |
$warning .= |
print "**** WARNING: $service is not set to run on boot.$/". |
"**** WARNING: loncontrol is not set to run at runlevel $rl\n"; |
" Execute the following commands to fix this:".$/; |
|
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".$/; |
|
} else { |
|
print " $checker_bin --add $service".$/; |
|
} |
|
print " $checker_bin --level $rlstr $service on".$/; |
|
} else { |
|
my %curr_runlevels; |
|
for (my $rl = 0;$rl <=6;$rl++) { |
|
if ($results =~ /$rl:on/) { $curr_runlevels{$rl}++; } |
|
} |
|
# |
|
my $warning; |
|
foreach my $rl (@runlevels) { |
|
if (! exists($curr_runlevels{$rl}) ) { |
|
$warning .= |
|
"**** WARNING: $service is not set to run at runlevel $rl".$/; |
|
} |
|
} |
|
if ($warning) { |
|
print $warning. |
|
" Execute the following command to fix this:".$/. |
|
" $checker_bin --level $rlstr $service on".$/; |
|
} |
} |
} |
} |
|
if ($warning) { |
|
print $warning. |
|
" Execute the following command to fix this:".$/. |
|
" /sbin/chkconfig loncontrol on ".$/; |
|
} |
} |
} |
} |
|
|