[BACK]Return to chkconfig.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/chkconfig.piml between versions 1.17 and 1.18

version 1.17, 2011/05/13 03:23:53 version 1.18, 2011/10/25 13:01:32
Line 36  http://www.lon-capa.org/ Line 36  http://www.lon-capa.org/
 <target dist="default"></target>  <target dist="default"></target>
 <perlscript mode="fg">  <perlscript mode="fg">
 my $checker_bin = '/sbin/chkconfig';  my $checker_bin = '/sbin/chkconfig';
   my $systemctl_bin = '/bin/systemctl';
 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/;
   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';
Line 51  if ('<DIST />' eq 'suse9.3' || '<DIST /> Line 53  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 'fedora16') {
       $use_systemctl = 1;
 }  }
 exit if (! -x $checker_bin);  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') {
     my $command = $checker_bin.' --list '.$service;      if (($use_systemctl) && ($service eq 'httpd')) { 
     my $results = `$command`;          my $command = "systemctl is-enabled httpd.service";
     if ($results eq '') {          my $results = `$command`;
         print "**** WARNING: $service is not set to run on boot.$/".          chomp($results);
         "    Execute the following commands to fix this:".$/;          if ($results ne 'enabled') {
         if ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' ||  '<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10') {              print "**** WARNING: $service is not set to run on boot.".$/.
             print "        $checker_bin --level $nrlstr $service off".$/;                    "    Execute the following commands to fix this:".$/.
         } else {                    "    systemctl enable httpd.service".$/;
              print "        $checker_bin --add $webserver".$/;  
         }          }
         print "        $checker_bin --level $rlstr $service on".$/;  
     } else {      } else {
         my %curr_runlevels;          my $command = $checker_bin.' --list '.$service;
         for (my $rl = 0;$rl &lt;=6;$rl++) {          my $results = `$command`;
            if ($results =~ /$rl:on/) { $curr_runlevels{$rl}++; }          if ($results eq '') {
         }              print "**** WARNING: $service is not set to run on boot.$/".
         #              "    Execute the following commands to fix this:".$/;
         my $warning;              if ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' ||  '<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10') {
         foreach my $rl (@runlevels) {                  print "        $checker_bin --level $nrlstr $service off".$/;
             if (! exists($curr_runlevels{$rl}) ) {              } else {
                 $warning .=                  print "        $checker_bin --add $webserver".$/;
                    "**** WARNING: $service is not set to run at runlevel $rl".$/;              }
               print "        $checker_bin --level $rlstr $service on".$/;
           } else {
               my %curr_runlevels;
               for (my $rl = 0;$rl &lt;=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:".$/.  
                   "        $checker_bin --level $rlstr $service on".$/;  
         }          }
     }      }
 }  }
Removed from v.1.17  
changed lines
  Added in v.1.18

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>