version 1.30, 2014/05/03 15:31:17
|
version 1.33, 2015/01/01 00:24:17
|
Line 45 my $use_systemctl;
|
Line 45 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 'sles11' || '<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') { |
} 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') { |
$webserver = 'apache2'; |
$webserver = 'apache2'; |
@runlevels = qw/3 5/; |
@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') { |
} elsif ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10' || '<DIST />' eq 'ubuntu12' || '<DIST />' eq 'ubuntu14') { |
Line 56 if ('<DIST />' eq 'suse9.3' || '<DIST />
|
Line 56 if ('<DIST />' eq 'suse9.3' || '<DIST />
|
} |
} |
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 'suse12.1') || |
('<DIST />' eq 'fedora20') || ('<DIST />' eq 'fedora21') || |
('<DIST />' eq 'suse12.2') || ('<DIST />' eq 'suse12.3') || |
('<DIST />' eq 'suse12.1') || ('<DIST />' eq 'suse12.2') || |
('<DIST />' eq 'suse13.1')) { |
('<DIST />' eq 'suse12.3') || ('<DIST />' eq 'suse13.1') || |
|
('<DIST />' eq 'rhes7') || ('<DIST />' eq 'centos7') || |
|
('<DIST />' eq 'scientific7') || ('<DIST />' eq 'sles12')) { |
$use_systemctl = 1; |
$use_systemctl = 1; |
} |
} |
exit if (! -x $checker_bin); |
exit if (! -x $checker_bin); |
Line 66 exit if (! -x $checker_bin);
|
Line 68 exit if (! -x $checker_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 'httpd')) { |
if (($use_systemctl) && ($service eq $webserver)) { |
my $command = "systemctl is-enabled httpd.service"; |
my $command = "systemctl is-enabled ".$service.".service"; |
my $results = `$command`; |
my $results = `$command`; |
chomp($results); |
chomp($results); |
if ($results ne 'enabled') { |
if ($results ne 'enabled') { |
print "**** WARNING: $service is not set to run on boot.".$/. |
print "**** WARNING: $service is not set to run on boot.".$/. |
" Execute the following commands to fix this:".$/. |
" Execute the following commands to fix this:".$/. |
" systemctl enable httpd.service".$/; |
" systemctl enable ".$service.".service".$/; |
} |
} |
} else { |
} else { |
my $command = $checker_bin.' --list '.$service; |
my $command = $checker_bin.' --list '.$service; |