version 1.9, 2009/07/14 21:05:35
|
version 1.15, 2011/03/03 00:10:19
|
Line 38 http://www.lon-capa.org/
|
Line 38 http://www.lon-capa.org/
|
my $checker_bin = '/sbin/chkconfig'; |
my $checker_bin = '/sbin/chkconfig'; |
my $webserver ='httpd'; |
my $webserver ='httpd'; |
my @runlevels = qw/3 4 5/; |
my @runlevels = qw/3 4 5/; |
my $rlstr = join('',@runlevels); |
my @norunlevels = qw/0 1 6/; |
|
|
if ('<DIST />' eq 'suse9.3' || '<DIST />' eq 'suse9.2' || '<DIST />' eq 'sles9') { |
if ('<DIST />' eq 'suse9.3' || '<DIST />' eq 'suse9.2' || '<DIST />' eq 'sles9') { |
$checker_bin = '/'; |
$checker_bin = '/'; |
$webserver = 'apache'; |
$webserver = 'apache'; |
@runlevels = qw/3 5/; |
@runlevels = qw/3 5/; |
} elsif ('<DIST />' eq 'sles10' || '<DIST />' eq 'suse10.1' || '<DIST />' eq 'suse10.2' || '<DIST />' eq 'suse10.3' || '<DIST />' eq 'suse11.1') { |
} 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') { |
$webserver = 'apache2'; |
$webserver = 'apache2'; |
} elsif ('<DIST />' eq 'debian5' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8') { |
} elsif ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10') { |
|
@runlevels = qw/2 3 4 5/; |
|
@norunlevels = qw/0 1 6/; |
$checker_bin = '/usr/sbin/sysv-rc-conf'; |
$checker_bin = '/usr/sbin/sysv-rc-conf'; |
$webserver = 'apache2'; |
$webserver = 'apache2'; |
} |
} |
exit if (! -x $checker_bin); |
exit if (! -x $checker_bin); |
|
|
|
my $rlstr = join('',@runlevels); |
|
my $nrlstr = join('',@norunlevels); |
foreach my $service ($webserver,'loncontrol') { |
foreach my $service ($webserver,'loncontrol') { |
my $command = $checker_bin.' --list '.$service; |
my $command = $checker_bin.' --list '.$service; |
my $results = `$command`; |
my $results = `$command`; |
if ($results eq '') { |
if ($results eq '') { |
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:".$/; |
unless ('<DIST />' eq 'debian5' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8') { |
if ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' || '<DIST />' eq 'ubuntu8' '<DIST />' eq 'ubuntu10') { |
|
print " $checker_bin --level $nrlstr $service off".$/; |
|
} else { |
print " $checker_bin --add $webserver".$/; |
print " $checker_bin --add $webserver".$/; |
} |
} |
print " $checker_bin --level $rlstr $service on".$/; |
print " $checker_bin --level $rlstr $service on".$/; |