[BACK]Return to install.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / install / linux

Diff for /doc/install/linux/install.pl between versions 1.21 and 1.25

version 1.21, 2011/07/21 21:28:33 version 1.25, 2013/02/27 19:48:53
Line 195  sub get_distro { Line 195  sub get_distro {
             $distro = 'centos'.$1;              $distro = 'centos'.$1;
             $updatecmd = 'yum install LONCAPA-prerequisites';              $updatecmd = 'yum install LONCAPA-prerequisites';
             $installnow = 'yum -y install LONCAPA-prerequisites';              $installnow = 'yum -y install LONCAPA-prerequisites';
         } elsif ($versionstring =~ /Scientific Linux (SL )?release ([\d.]+) /) {          } elsif ($versionstring =~ /Scientific Linux (?:SL )?release ([\d.]+) /) {
             my $ver = $1;              my $ver = $1;
             $ver =~ s/\.\d+$//;              $ver =~ s/\.\d+$//;
             $distro = 'scientific'.$ver;              $distro = 'scientific'.$ver;
Line 320  sub check_locale { Line 320  sub check_locale {
                       '/etc/sysconfig/language');                        '/etc/sysconfig/language');
         }          }
         $langvar = 'RC_LANG';          $langvar = 'RC_LANG';
       } elsif ($distro =~ /^fedora(\d+)/) {
           if ($1 >= 18) {
               if (!open($fh,"</etc/locale.conf")) {
                   print &mt('Failed to open: [_1], default locale not checked.',
                             '/etc/locale.conf');
               }
           } elsif (!open($fh,"</etc/sysconfig/i18n")) {
               print &mt('Failed to open: [_1], default locale not checked.',
                         '/etc/sysconfig/i18n');
           }
     } else {      } else {
         if (!open($fh,"</etc/sysconfig/i18n")) {          if (!open($fh,"</etc/sysconfig/i18n")) {
             print &mt('Failed to open: [_1], default locale not checked.',              print &mt('Failed to open: [_1], default locale not checked.',
Line 329  sub check_locale { Line 339  sub check_locale {
     my @data = <$fh>;      my @data = <$fh>;
     chomp(@data);      chomp(@data);
     foreach my $item (@data) {      foreach my $item (@data) {
         if ($item =~ /^\Q$langvar\E=\"([^\"]*)\"/) {          if ($item =~ /^\Q$langvar\E=\"?([^\"]*)\"?/) {
             my $default = $1;              my $default = $1;
             if ($default ne 'en_US.UTF-8') {              if ($default ne 'en_US.UTF-8') {
                 if ($distro =~ /^debian/) {                  if ($distro =~ /^debian/) {
                     $command = 'dpkg-reconfigure locales';                      $command = 'locale-gen en_US.UTF-8'."\n".
                                  'update-locale LANG=en_US.UTF-8';
                 } elsif ($distro =~ /^ubuntu/) {                  } elsif ($distro =~ /^ubuntu/) {
                     $command = 'sudo set-language-env -E';                       $command = 'sudo locale-gen en_US.UTF-8'."\n".
                                  'sudo update-locale LANG=en_US.UTF-8';
                 } elsif ($distro =~ /^(suse|sles)/) {                  } elsif ($distro =~ /^(suse|sles)/) {
                     $command = 'yast language';                       $command = 'yast language'; 
                 } else {                  } else {
Line 357  sub check_required { Line 369  sub check_required {
     }      }
     my $gotprereqs = &check_prerequisites($packagecmd,$distro);       my $gotprereqs = &check_prerequisites($packagecmd,$distro); 
     if ($gotprereqs eq '') {      if ($gotprereqs eq '') {
         return ($distro,$gotprereqs);          return ($distro,$gotprereqs,'',$packagecmd,$updatecmd);
     }      }
     my $localecmd = &check_locale($distro);      my $localecmd = &check_locale($distro);
     unless ($localecmd eq '') {      unless ($localecmd eq '') {
Line 405  sub check_required { Line 417  sub check_required {
   
 sub check_mysql_running {  sub check_mysql_running {
     my ($distro) = @_;      my ($distro) = @_;
       my $use_systemctl;
     my $mysqldaemon ='mysqld';      my $mysqldaemon ='mysqld';
     if ($distro =~ /^(suse|sles|debian|ubuntu)/) {      if ($distro =~ /^(suse|sles|debian|ubuntu)/) {
         $mysqldaemon = 'mysql';          $mysqldaemon = 'mysql';
Line 417  sub check_mysql_running { Line 430  sub check_mysql_running {
             $proc_owner = 'mysql';              $proc_owner = 'mysql';
         }          }
     }      }
       if ($distro =~ /^fedora(\d+)/) {
           if ($1 >= 16) {
               $process = 'mysqld';
               $proc_owner = 'mysql';
               $use_systemctl = 1;
           }
       }
     if (open(PIPE,"ps -ef |grep $process |grep -v grep 2>&1 |")) {      if (open(PIPE,"ps -ef |grep $process |grep -v grep 2>&1 |")) {
         my $status = <PIPE>;          my $status = <PIPE>;
         close(PIPE);          close(PIPE);
Line 425  sub check_mysql_running { Line 445  sub check_mysql_running {
             print_and_log(&mt('MySQL is running.')."\n");              print_and_log(&mt('MySQL is running.')."\n");
             return 1;              return 1;
         } else {          } else {
             system("/etc/init.d/$mysqldaemon start >/dev/null 2>&1 ");               if ($use_systemctl) {
                   system("/bin/systemctl start $mysqldaemon.service >/dev/null 2>&1 ");
               } else {
                   system("/etc/init.d/$mysqldaemon start >/dev/null 2>&1 ");
               }
             print_and_log(&mt('Waiting for MySQL to start.')."\n");              print_and_log(&mt('Waiting for MySQL to start.')."\n");
             sleep 5;              sleep 5;
             if (open(PIPE,"ps -ef |grep $process |grep -v grep 2>&1 |")) {              if (open(PIPE,"ps -ef |grep $process |grep -v grep 2>&1 |")) {
Line 460  sub check_mysql_running { Line 484  sub check_mysql_running {
   
 sub chkconfig {  sub chkconfig {
     my ($distro,$instdir) = @_;      my ($distro,$instdir) = @_;
     my (%needfix,%tostop);      my (%needfix,%tostop,%uses_systemctl);
     my $checker_bin = '/sbin/chkconfig';      my $checker_bin = '/sbin/chkconfig';
       my $sysctl_bin = '/bin/systemctl';
     my %daemon = (      my %daemon = (
                   mysql     => 'mysqld',                    mysql     => 'mysqld',
                   apache    => 'httpd',                    apache    => 'httpd',
Line 491  sub chkconfig { Line 516  sub chkconfig {
         if (($distro =~ /^ubuntu/) && ($version <= 8)) {          if (($distro =~ /^ubuntu/) && ($version <= 8)) {
             $daemon{'cups'} = 'cupsys';              $daemon{'cups'} = 'cupsys';
         }          }
       } elsif ($distro =~ /^(?:fedora)(\d+)/) {
           my $version = $1;
           if ($version >= 15) {
               $uses_systemctl{'ntp'} = 1;
           }
           if ($version >= 16) {
               $uses_systemctl{'mysql'} = 1;
               $uses_systemctl{'apache'} = 1;
           }
     }      }
       my $nocheck;
     if (! -x $checker_bin) {      if (! -x $checker_bin) {
           if ($uses_systemctl{'mysql'} && $uses_systemctl{'apache'}) {
               if (! -x $sysctl_bin) {
                   $nocheck = 1;       
               }
           } else {
               $nocheck = 1;
           }
       }
       if ($nocheck) {
         print &mt('Could not check runlevel status for MySQL or Apache')."\n";          print &mt('Could not check runlevel status for MySQL or Apache')."\n";
         return;          return;
     }      }
     my $rlstr = join('',@runlevels);      my $rlstr = join('',@runlevels);
     my $nrlstr = join('',@norunlevels);      my $nrlstr = join('',@norunlevels);
   
     foreach my $type ('apache','mysql','ntp','cups','memcached') {      foreach my $type ('apache','mysql','ntp','cups','memcached') {
         my $service = $daemon{$type};          my $service = $daemon{$type};
         if ($type eq 'ntp') {          if ($uses_systemctl{$type}) {
             if ($distro =~ /^(?:fedora)(\d+)/) {              if (!-l "/etc/systemd/system/multi-user.target.wants/$service.service") {
                 my $version = $1;                  $needfix{$type} = "systemctl enable $service.service";
                 if ($version >= 15) {              }
                     if (!-l "/etc/systemd/system/multi-user.target.wants/ntpd.service") {              next;
                         $needfix{$type} = 'systemctl enable ntpd.service';          } else {
               my $command = $checker_bin.' --list '.$service.' 2>/dev/null';
               if ($type eq 'cups') { 
                   if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
                       my $version = $1;
                       if (($distro =~ /^ubuntu/) && ($version <= 8)) {
                           $command = $checker_bin.' --list cupsys 2>/dev/null';
                     }                      }
                     next;  
                 }                  }
             }              }
         }              my $results = `$command`;
         my $command = $checker_bin.' --list '.$service.' 2>/dev/null';              my $tofix;
         if ($type eq 'cups') {               if ($results eq '') {
             if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {                  if (($type eq 'apache') || ($type eq 'mysql') || ($type eq 'ntp')) {
                 my $version = $1;                      if ($distro  =~ /^(debian|ubuntu)/) {
                 if (($distro =~ /^ubuntu/) && ($version <= 8)) {                          $tofix = "update-rc.d $type defaults";
                     $command = $checker_bin.' --list cupsys 2>/dev/null';                      } else {
                           $tofix = "$checker_bin --add $service\n";
                       }
                 }                  }
             }              } else {
         }                  my %curr_runlevels;
         my $results = `$command`;                  for (my $rl=0; $rl<=6; $rl++) {
         my $tofix;                      if ($results =~ /$rl:on/) { $curr_runlevels{$rl}++; }
         if ($results eq '') {  
             if (($type eq 'apache') || ($type eq 'mysql') || ($type eq 'ntp')) {  
                 if ($distro  =~ /^(debian|ubuntu)/) {  
                     $tofix = "update-rc.d $type defaults";  
                 } else {  
                     $tofix = "$checker_bin --add $service\n";  
                 }                  }
             }                  if (($type eq 'apache') || ($type eq 'mysql') || ($type eq 'ntp')) {
         } else {                      my $warning;
             my %curr_runlevels;                      foreach my $rl (@runlevels) {
             for (my $rl=0; $rl<=6; $rl++) {                          if (!exists($curr_runlevels{$rl})) {
                 if ($results =~ /$rl:on/) { $curr_runlevels{$rl}++; }                              $warning = 1;
             }                          }
             if (($type eq 'apache') || ($type eq 'mysql') || ($type eq 'ntp')) {  
                 my $warning;  
                 foreach my $rl (@runlevels) {  
                     if (!exists($curr_runlevels{$rl})) {  
                         $warning = 1;  
                     }                      }
                       if ($warning) {
                           $tofix = "$checker_bin --level $rlstr $service on\n";
                       }
                   } elsif (keys(%curr_runlevels) > 0) {
                       $tostop{$type} = 1;
                 }                  }
                 if ($warning) {  
                     $tofix = "$checker_bin --level $rlstr $service on\n";  
                 }  
             } elsif (keys(%curr_runlevels) > 0) {  
                 $tostop{$type} = 1;  
             }              }
         }              if ($tofix) {
         if ($tofix) {                  $needfix{$type} = $tofix;
             $needfix{$type} = $tofix;              }
         }          }
     }      }
     if ($distro =~ /^(suse|sles)([\d\.]+)$/) {      if ($distro =~ /^(suse|sles)([\d\.]+)$/) {
Removed from v.1.21  
changed lines
  Added in v.1.25

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