[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.5 and 1.8

version 1.5, 2011/03/23 15:01:34 version 1.8, 2011/04/23 23:35:19
Line 293  sub check_prerequisites { Line 293  sub check_prerequisites {
             } else {              } else {
                 my $line = <PIPE>;                  my $line = <PIPE>;
                 chomp($line);                  chomp($line);
                 if ($line =~ /^LONCAPA-prerequisites\-([\d\-]+)\.(\w+)$/) {                  if ($line =~ /^LONCAPA\-prerequisites\-([\d\-]+)\.(?:[.\w]+)$/) {
                     $gotprereqs = $1;                      $gotprereqs = $1;
                 }                  }
             }              }
Line 305  sub check_prerequisites { Line 305  sub check_prerequisites {
     return $gotprereqs;      return $gotprereqs;
 }  }
   
   sub check_locale {
       my ($distro) = @_;
       my ($fh,$langvar,$command);
       $langvar = 'LANG';
       if ($distro =~ /^(ubuntu|debian)/) {
           if (!open($fh,"</etc/default/locale")) {
               print &mt('Failed to open: [_1], default locale not checked.',
                         '/etc/default/locale');
           }
       } elsif ($distro =~ /^(suse|sles)/) {
           if (!open($fh,"</etc/sysconfig/language")) {
               print &mt('Failed to open: [_1], default locale not checked.',
                         '/etc/sysconfig/language');
           }
           $langvar = 'RC_LANG';
       } else {
           if (!open($fh,"</etc/sysconfig/i18n")) {
               print &mt('Failed to open: [_1], default locale not checked.',
                         '/etc/sysconfig/i18n');
           }
       }
       my @data = <$fh>;
       chomp(@data);
       foreach my $item (@data) {
           if ($item =~ /^\Q$langvar\E=\"([^\"]*)\"/) {
               my $default = $1;
               if ($default ne 'en_US.UTF-8') {
                   if ($distro =~ /^debian/) {
                       $command = 'dpkg-reconfigure locales';
                   } elsif ($distro =~ /^ubuntu/) {
                       $command = 'sudo set-language-env -E'; 
                   } elsif ($distro =~ /^(suse|sles)/) {
                       $command = 'yast language'; 
                   } else {
                       $command = 'system-config-language';
                   }
               }
               last;
           }
       }
       close($fh);
       return $command;
   }
   
 sub check_required {  sub check_required {
     my ($instdir,$dsn) = @_;      my ($instdir,$dsn) = @_;
     my ($distro,$packagecmd,$updatecmd,$installnow) = &get_distro();      my ($distro,$packagecmd,$updatecmd,$installnow) = &get_distro();
Line 313  sub check_required { Line 357  sub check_required {
     }      }
     my $gotprereqs = &check_prerequisites($packagecmd,$distro);       my $gotprereqs = &check_prerequisites($packagecmd,$distro); 
     if ($gotprereqs eq '') {      if ($gotprereqs eq '') {
         return ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow);          return ($distro,$gotprereqs);
       }
       my $localecmd = &check_locale($distro);
       unless ($localecmd eq '') {
           return ($distro,$gotprereqs,$localecmd);
     }      }
     my ($mysqlon,$mysqlsetup,$dbh,$has_pass,$has_lcdb,%recommended,$downloadstatus,      my ($mysqlon,$mysqlsetup,$dbh,$has_pass,$has_lcdb,%recommended,$downloadstatus,
         $filetouse,$production,$testing,$apachefw,$tostop);          $filetouse,$production,$testing,$apachefw,$tostop);
Line 345  sub check_required { Line 393  sub check_required {
         }          }
     }      }
     ($recommended{'firewall'},$apachefw) = &chkfirewall($distro);      ($recommended{'firewall'},$apachefw) = &chkfirewall($distro);
     ($recommended{'runlevels'},$tostop) = &chkconfig($distro);      ($recommended{'runlevels'},$tostop) = &chkconfig($distro,$instdir);
     $recommended{'apache'} = &chkapache($distro,$instdir);      $recommended{'apache'} = &chkapache($distro,$instdir);
     $recommended{'stopsrvcs'} = &chksrvcs($distro,$tostop);      $recommended{'stopsrvcs'} = &chksrvcs($distro,$tostop);
     ($recommended{'download'},$downloadstatus,$filetouse,$production,$testing)       ($recommended{'download'},$downloadstatus,$filetouse,$production,$testing) 
         = &need_download();          = &need_download();
     return ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow,      return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,
             \%recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,              \%recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,
             $filetouse,$production,$testing,$apachefw);              $filetouse,$production,$testing,$apachefw);
 }  }
Line 361  sub check_mysql_running { Line 409  sub check_mysql_running {
     if ($distro =~ /^(suse|sles|debian|ubuntu)/) {      if ($distro =~ /^(suse|sles|debian|ubuntu)/) {
         $mysqldaemon = 'mysql';          $mysqldaemon = 'mysql';
     }      }
     if (open(PIPE,"ps -ef |grep mysqld_safe |grep -v grep 2>&1 |")) {      my $process = 'mysqld_safe';
       my $proc_owner = 'root';
       if ($distro =~ /^ubuntu(\w+)/) {
           if ($1 >= 10) {
               $process = 'mysqld';
               $proc_owner = 'mysql';
           }
       }
       if (open(PIPE,"ps -ef |grep $process |grep -v grep 2>&1 |")) {
         my $status = <PIPE>;          my $status = <PIPE>;
         close(PIPE);          close(PIPE);
         chomp($status);          chomp($status);
         if ($status =~ /^root\s+\d+\s+/) {          if ($status =~ /^\Q$proc_owner\E\s+\d+\s+/) {
             print_and_log(&mt('MySQL is running.')."\n");              print_and_log(&mt('MySQL is running.')."\n");
             return 1;              return 1;
         } else {          } else {
Line 393  sub check_mysql_running { Line 449  sub check_mysql_running {
 }  }
   
 sub chkconfig {  sub chkconfig {
     my ($distro) = @_;      my ($distro,$instdir) = @_;
     my (%needfix,%tostop);      my (%needfix,%tostop);
     my $checker_bin = '/sbin/chkconfig';      my $checker_bin = '/sbin/chkconfig';
     my $mysqldaemon ='mysqld';      my %daemon = (
     my $webserver = 'httpd';                    mysql     => 'mysqld',
     my $cupsdaemon = 'cups';                    apache    => 'httpd',
     my $ntpdaemon = 'ntpd';                    cups      => 'cups',
                     ntp       => 'ntpd',
                     memcached => 'memcached',
       );
     my @runlevels = qw/3 4 5/;      my @runlevels = qw/3 4 5/;
     my @norunlevels = qw/0 1 6/;      my @norunlevels = qw/0 1 6/;
     if ($distro =~ /^(suse|sles)/) {      if ($distro =~ /^(suse|sles)/) {
         @runlevels = qw/3 5/;          @runlevels = qw/3 5/;
         @norunlevels = qw/0 2 1 6/;          @norunlevels = qw/0 2 1 6/;
         $mysqldaemon = 'mysql';          $daemon{'mysql'} = 'mysql';
         $webserver = 'apache2';          $daemon{'apache'} = 'apache2';
           $daemon{'ntp'}    = 'ntp';
         if ($distro =~ /^(suse|sles)9/) {          if ($distro =~ /^(suse|sles)9/) {
             $webserver = 'apache';              $daemon{'apache'} = 'apache';
         }          }
     } elsif ($distro =~ /^(debian|ubuntu)/) {      } elsif ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
           my $version = $1;
         @runlevels = qw/2 3 4 5/;          @runlevels = qw/2 3 4 5/;
         @norunlevels = qw/0 1 6/;          @norunlevels = qw/0 1 6/;
         $checker_bin = '/usr/sbin/sysv-rc-conf';          $checker_bin = '/usr/sbin/sysv-rc-conf';
         $mysqldaemon = 'mysql';          $daemon{'mysql'}  = 'mysql';
         $webserver = 'apache2';          $daemon{'apache'} = 'apache2';
         $ntpdaemon = 'ntp';          $daemon{'ntp'}    = 'ntp';
           if (($distro =~ /^ubuntu/) && ($version <= 8)) {
               $daemon{'cups'} = 'cupsys';
           }
     }      }
     if (! -x $checker_bin) {      if (! -x $checker_bin) {
         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') {      foreach my $type ('apache','mysql','ntp','cups','memcached') {
         my $service;          my $service = $daemon{$type};
         if ($type eq 'apache') {  
             $service = $webserver;  
         } elsif ($type eq 'mysql') {  
             $service = $mysqldaemon;   
         } elsif ($type eq 'cups') {  
             $service = $cupsdaemon;  
         } elsif ($type eq 'ntp') {  
             $service = $ntpdaemon;  
         }  
         my $command = $checker_bin.' --list '.$service;          my $command = $checker_bin.' --list '.$service;
           if ($type eq 'cups') { 
               if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
                   my $version = $1;
                   if (($distro =~ /^ubuntu/) && ($version <= 8)) {
                       $command = $checker_bin.' --list cupsys';
                   }
               }
           }
         my $results = `$command`;          my $results = `$command`;
         my $tofix;          my $tofix;
         if ($results eq '') {          if ($results eq '') {
             if (($type eq 'apache') || ($type eq 'mysql')) {              if (($type eq 'apache') || ($type eq 'mysql') || ($type eq 'ntp')) {
                 if ($distro  =~ /^(debian|ubuntu)/) {                  if ($distro  =~ /^(debian|ubuntu)/) {
                     $tofix = "$checker_bin --level $nrlstr $service off\n";                      $tofix = "update-rc.d $type defaults";
                 } else {                  } else {
                     $tofix = "$checker_bin --add $service\n";                      $tofix = "$checker_bin --add $service\n";
                 }                  }
Line 479  sub chkconfig { Line 542  sub chkconfig {
             $major = $version;              $major = $version;
         }          }
         if ($major > 10) {          if ($major > 10) {
             $needfix{'insserv'} = &check_SuSEfirewall2_setup();              if (&check_SuSEfirewall2_setup($instdir)) {
                   $needfix{'insserv'} = 1;
               }
         }          }
     }      }
     return (\%needfix,\%tostop);      return (\%needfix,\%tostop);
Line 538  sub chkapache { Line 603  sub chkapache {
                 }                  }
             }              }
         }          }
           if (!$fixapache) {
               foreach my $module ('headers.load','expires.load') {
                   unless (-l "/etc/apache2/mods-enabled/$module") {
                       $fixapache = 1;
                   }
               }
           }
     } elsif ($distro =~ /^(?:suse|sles)([\d\.]+)$/) {      } elsif ($distro =~ /^(?:suse|sles)([\d\.]+)$/) {
         my $apache = 'apache';          my $apache = 'apache';
         if ($1 >= 10) {          if ($1 >= 10) {
             my $apache = 'apache2';              $apache = 'apache2';
         }          }
         if (!-e "$instdir/default-server.conf") {          if (!-e "$instdir/default-server.conf") {
             $fixapache = 0;              $fixapache = 0;
Line 580  sub chksrvcs { Line 652  sub chksrvcs {
     if (ref($tostop) eq 'HASH') {      if (ref($tostop) eq 'HASH') {
         %stopsrvcs = %{$tostop};          %stopsrvcs = %{$tostop};
     }      }
     foreach my $service ('cups') {      foreach my $service ('cups','memcached') {
         next if (exists($stopsrvcs{$service}));          next if (exists($stopsrvcs{$service}));
         my $daemon = $service;          my $daemon = $service;
         if ($service eq 'cups') {          if ($service eq 'cups') {
Line 981  my %prompts = &texthash( Line 1053  my %prompts = &texthash(
 print "\n".&mt('Checking system status ...')."\n";  print "\n".&mt('Checking system status ...')."\n";
   
 my $dsn = "DBI:mysql:database=mysql";  my $dsn = "DBI:mysql:database=mysql";
 my ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow,$recommended,  my ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,$recommended,
     $dbh,$has_pass,$has_lcdb,$downloadstatus,$filetouse,$production,      $dbh,$has_pass,$has_lcdb,$downloadstatus,$filetouse,$production,
     $testing,$apachefw) = &check_required($instdir,$dsn);      $testing,$apachefw) = &check_required($instdir,$dsn);
 if ($distro eq '') {  if ($distro eq '') {
Line 992  if ($distro eq '') { Line 1064  if ($distro eq '') {
           &mt('Stopping execution.')."\n";            &mt('Stopping execution.')."\n";
     exit;      exit;
 }  }
   if ($localecmd ne '') {
       print "\n".&mt('Although the LON-CAPA application itself is localized for a number of different languages, the default locale language for the Linux OS on which it runs should be US English.')."\n";
       print "\n".&mt('Run the following command from the command line to set the default language for your OS, and then run this LON-CAPA installation set-up script again.')."\n\n".
       $localecmd."\n\n".
       &mt('Stopping execution.')."\n";
       exit;
   }
 if (!$gotprereqs) {  if (!$gotprereqs) {
     print "\n".&mt('The LONCAPA-prequisites package is not installed.')."\n".      print "\n".&mt('The LONCAPA-prequisites package is not installed.')."\n".
           &mt('The following command can be used to install the package (and dependencies):')."\n\n".            &mt('The following command can be used to install the package (and dependencies):')."\n\n".
Line 1011  if (!$gotprereqs) { Line 1090  if (!$gotprereqs) {
                           &mt('Stopping execution.')."\n";                            &mt('Stopping execution.')."\n";
                     exit;                      exit;
                 } else {                  } else {
                     ($distro,$gotprereqs,$packagecmd,$updatecmd,$installnow,                      ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,
                      $recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,                       $recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,
                      $filetouse,$production,$testing,$apachefw) =                        $filetouse,$production,$testing,$apachefw) = 
                      &check_required($instdir,$dsn);                       &check_required($instdir,$dsn);
Line 1392  sub kill_extra_services { Line 1471  sub kill_extra_services {
     if (ref($stopsrvcs) eq 'HASH') {      if (ref($stopsrvcs) eq 'HASH') {
         my @stopping = sort(keys(%{$stopsrvcs}));          my @stopping = sort(keys(%{$stopsrvcs}));
         if (@stopping) {          if (@stopping) {
             my $kill_list = join("',' ",@stopping);              my $kill_list = join("', '",@stopping);
             if ($kill_list) {              if ($kill_list) {
                 $kill_list = "'".$kill_list."'";                  $kill_list = "'".$kill_list."'";
                 &print_and_log("\n".&mt('Killing unneccessary services ([_1] daemon(s)).',$kill_list)."\n");                  &print_and_log("\n".&mt('Killing unnecessary services ([_1] daemon(s)).',$kill_list)."\n");
                 foreach my $daemon (@stopping) {                  foreach my $service (@stopping) {
                     my $service = $daemon;                      my $daemon = $service;
             &print_and_log(`/etc/init.d/$service stop`);                      if ($service eq 'cups') {
             &print_and_log(&mt('Removing [_1] from startup.',$service)."\n");                          $daemon = 'cupsd';
                     if ($daemon eq 'cupsd') {                          if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
                         $service = 'cups';                              my $version = $1;
                               if (($distro =~ /^ubuntu/) && ($version <= 8)) {
                                   $daemon = 'cupsys';
                               }
                           } elsif ($distro =~ /^(?:suse|sles)/) {
                               $daemon = 'cups';
                           }
                     }                      }
               &print_and_log(`/etc/init.d/$daemon stop`);
               &print_and_log(&mt('Removing [_1] from startup.',$service)."\n");
                     if ($distro =~ /^(debian|ubuntu)/) {                      if ($distro =~ /^(debian|ubuntu)/) {
                         &print_and_log(`/usr/sbin/sysv-rc-conf $service off`);                          &print_and_log(`update-rc.d -f $daemon remove`);
                     } else {                      } else {
                 &print_and_log(`chkconfig --del $service`);                  &print_and_log(`chkconfig --del $service`);
                     }                      }
Line 1572  sub copy_httpd_conf { Line 1659  sub copy_httpd_conf {
 sub copy_apache2_debconf {  sub copy_apache2_debconf {
     my ($instdir) = @_;      my ($instdir) = @_;
     print_and_log(&mt('Copying loncapa [_1] config file to [_2] and pointing [_3] to it from sites-enabled.',"'apache2'","'/etc/apache2/sites-available'","'000-default symlink'")."\n");      print_and_log(&mt('Copying loncapa [_1] config file to [_2] and pointing [_3] to it from sites-enabled.',"'apache2'","'/etc/apache2/sites-available'","'000-default symlink'")."\n");
     my $apache2_enabled_dir = '/etc/apache2/sites-enabled';      my $apache2_sites_enabled_dir = '/etc/apache2/sites-enabled';
     my $apache2_available_dir = '/etc/apache2/sites-available';      my $apache2_sites_available_dir = '/etc/apache2/sites-available';
     if (-l "$apache2_enabled_dir/000-default") {      if (-l "$apache2_sites_enabled_dir/000-default") {
         unlink("$apache2_enabled_dir/000-default");          unlink("$apache2_sites_enabled_dir/000-default");
     }      }
     if (-e "$apache2_available_dir/loncapa") {      if (-e "$apache2_sites_available_dir/loncapa") {
         copy("$apache2_available_dir/loncapa","$apache2_available_dir/loncapa.original");          copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.original");
     }      }
     copy("$instdir/apache2.conf","$apache2_available_dir/loncapa");      copy("$instdir/apache2.conf","$apache2_sites_available_dir/loncapa");
     chmod(0444,"$apache2_available_dir/loncapa");      chmod(0444,"$apache2_sites_available_dir/loncapa");
     symlink("$apache2_available_dir/loncapa","$apache2_enabled_dir/000-default");      symlink("$apache2_sites_available_dir/loncapa","$apache2_sites_enabled_dir/000-default");
       my $apache2_mods_enabled_dir = '/etc/apache2/mods-enabled';
       my $apache2_mods_available_dir = '/etc/apache2/mods-available';
       foreach my $module ('headers.load','expires.load') {
           unless (-l "$apache2_mods_enabled_dir/$module") {
               symlink("$apache2_mods_available_dir/$module","$apache2_mods_enabled_dir/$module");
               print_and_log(&mt('Enabling "[_1]" Apache module.',$module)."\n");
           }
       }
     print_and_log("\n");      print_and_log("\n");
 }  }
   
Removed from v.1.5  
changed lines
  Added in v.1.8

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