Diff for /doc/install/linux/install.pl between versions 1.90 and 1.91

version 1.90, 2024/06/20 00:29:49 version 1.91, 2024/07/27 18:39:10
Line 595  sub check_required { Line 595  sub check_required {
     my ($sslhostsfilesref,$has_std,$has_int,$rewritenum,$nochgstd,$nochgint);      my ($sslhostsfilesref,$has_std,$has_int,$rewritenum,$nochgstd,$nochgint);
     ($recommended{'firewall'},$apachefw) = &chkfirewall($distro);      ($recommended{'firewall'},$apachefw) = &chkfirewall($distro);
     ($recommended{'runlevels'},$tostop,$uses_systemctl) = &chkconfig($distro,$instdir);      ($recommended{'runlevels'},$tostop,$uses_systemctl) = &chkconfig($distro,$instdir);
       if ((ref($uses_systemctl) eq 'HASH') && ($uses_systemctl->{'apache'})) {
           $recommended{'systemd'} = &check_systemd_security($distro);
       }
     $recommended{'apache'} = &chkapache($distro,$instdir);      $recommended{'apache'} = &chkapache($distro,$instdir);
     ($recommended{'apachessl'},$sslhostsfilesref,$has_std,$has_int,$rewritenum,      ($recommended{'apachessl'},$sslhostsfilesref,$has_std,$has_int,$rewritenum,
      $nochgstd,$nochgint) = &chkapachessl($distro,$instdir,$hostname,$hostip);       $nochgstd,$nochgint) = &chkapachessl($distro,$instdir,$hostname,$hostip);
Line 622  sub check_mysql_running { Line 625  sub check_mysql_running {
             $process = 'mysqld';              $process = 'mysqld';
             $proc_owner = 'mysql';              $proc_owner = 'mysql';
         }          }
           if ($1 >= 16) {
               $use_systemctl = 1;
           }
     } elsif ($distro =~ /^debian(\w+)/) {      } elsif ($distro =~ /^debian(\w+)/) {
         if ($1 >= 10) {          if ($1 >= 10) {
             $process = 'mysql';              $process = 'mysql';
             $proc_owner = 'mysql';              $proc_owner = 'mysql';
         }                     }
         if ($1 >= 11) {          if ($1 >= 11) {
             $mysqldaemon = 'mariadb';              $mysqldaemon = 'mariadb';
         }          }
           if ($1 >= 9) {
               $use_systemctl = 1;
           }
     } elsif ($distro =~ /^fedora(\d+)/) {      } elsif ($distro =~ /^fedora(\d+)/) {
         if ($1 >= 16) {          if ($1 >= 16) {
             $process = 'mysqld';              $process = 'mysqld';
Line 901  sub chkconfig { Line 910  sub chkconfig {
     return (\%needfix,\%tostop,\%uses_systemctl);      return (\%needfix,\%tostop,\%uses_systemctl);
 }  }
   
   sub check_systemd_security {
       my ($distro) = @_;
       my $service = 'httpd.service';
       if ($distro =~ /^(suse|sles|ubuntu|debian)/) {
           $service = 'apache2.service';
       }
       system("systemctl daemon-reload");
       if (open(PIPE,"systemctl show $service --property=ProtectHome 2>/dev/null |")) {
           my $protection = <PIPE>;
           close(PIPE);
           chomp($protection);
           if ($protection =~ /^ProtectHome=(read-only|yes)$/i) {
               return 1;
           }
       } else {
            print &mt('Could not check systemctl configuration for Apache')."\n";
       }
       return 0;
   }
   
 sub uses_firewalld {  sub uses_firewalld {
     my ($distro) = @_;      my ($distro) = @_;
     my ($inuse,$checkfirewalld,$zone);      my ($inuse,$checkfirewalld,$zone);
Line 1040  sub chkapache { Line 1069  sub chkapache {
                         my $diffres = <PIPE>;                          my $diffres = <PIPE>;
                         close(PIPE);                          close(PIPE);
                         chomp($diffres);                          chomp($diffres);
                         unless ($diffres) {                          if ($diffres) {
                               $fixapache = 1;
                           } else {
                             $fixapache = 0;                              $fixapache = 0;
                         }                          }
                     }                      }
Line 1904  print " Line 1935  print "
 ".&mt('3.')." ".&mt('Set-up the MySQL database.')."  ".&mt('3.')." ".&mt('Set-up the MySQL database.')."
 ".&mt('4.')." ".&mt('Set-up MySQL permissions.')."  ".&mt('4.')." ".&mt('Set-up MySQL permissions.')."
 ".&mt('5.')." ".&mt('Configure Apache web server.')."  ".&mt('5.')." ".&mt('Configure Apache web server.')."
 ".&mt('6.')." ".&mt('Configure SSL for Apache web server.')."  ".&mt('6.')." ".&mt('Configure systemd security settings for Apache web server.')."
 ".&mt('7.')." ".&mt('Configure start-up of services.')."  ".&mt('7.')." ".&mt('Configure SSL for Apache web server.')."
 ".&mt('8.')." ".&mt('Check firewall settings.')."  ".&mt('8.')." ".&mt('Configure start-up of services.')."
 ".&mt('9.')." ".&mt('Stop services not used by LON-CAPA,')."  ".&mt('9.')." ".&mt('Check firewall settings.')."
   ".&mt('10.')." ".&mt('Stop services not used by LON-CAPA,')."
    ".&mt('i.e., services for a print server: [_1] daemon.',"'cups'")."     ".&mt('i.e., services for a print server: [_1] daemon.',"'cups'")."
 ".&mt('10.')." ".&mt('Download LON-CAPA source code in readiness for installation.')."  ".&mt('11.')." ".&mt('Download LON-CAPA source code in readiness for installation.')."
   
 ".&mt('Typically, you will run this script only once, when you first install LON-CAPA.')."   ".&mt('Typically, you will run this script only once, when you first install LON-CAPA.')." 
   
Line 1938  my $instdir = `pwd`; Line 1970  my $instdir = `pwd`;
 chomp($instdir);  chomp($instdir);
   
 my %callsub;  my %callsub;
 my @actions = ('wwwuser','pwauth','mysql','mysqlperms','apache',  my @actions = ('wwwuser','pwauth','mysql','mysqlperms','apache','systemd',
                'apachessl','runlevels','firewall','stopsrvcs','download');                 'apachessl','runlevels','firewall','stopsrvcs','download');
 my %prompts = &texthash(   my %prompts = &texthash( 
     wwwuser    => "Create the 'www' user?",      wwwuser    => "Create the 'www' user?",
Line 1946  my %prompts = &texthash( Line 1978  my %prompts = &texthash(
     mysql      => 'Set-up the MySQL database?',      mysql      => 'Set-up the MySQL database?',
     mysqlperms => 'Set-up MySQL permissions?',      mysqlperms => 'Set-up MySQL permissions?',
     apache     => 'Configure Apache web server?',      apache     => 'Configure Apache web server?',
       systemd    => 'Configure systemd security settings for Apache web server?',
     apachessl  => 'Configure SSL for Apache web server?',      apachessl  => 'Configure SSL for Apache web server?',
     runlevels  => 'Set overrides for start-up order of services?',      runlevels  => 'Set overrides for start-up order of services?',
     firewall   => 'Configure firewall settings for Apache',      firewall   => 'Configure firewall settings for Apache',
Line 1988  if (!$gotprereqs) { Line 2021  if (!$gotprereqs) {
           &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".
           $updatecmd."\n\n";            $updatecmd."\n\n";
     if ($installnow eq '') {      if ($installnow eq '') {
           print &mt('Stopping execution.')."\n";
         exit;          exit;
     } else {      } else {
         print &mt('Run command? ~[Y/n~]');          print &mt('Run command? ~[Y/n~]');
Line 2155  if ($callsub{'apache'}) { Line 2189  if ($callsub{'apache'}) {
     print_and_log(&mt('Skipping configuration of Apache web server.')."\n");      print_and_log(&mt('Skipping configuration of Apache web server.')."\n");
 }  }
   
   if ($callsub{'systemd'}) {
       &check_systemd_update($distro); 
   } else {
       print_and_log('Skipping systemd configuration update for web server');
   }
   
 if ($callsub{'apachessl'}) {  if ($callsub{'apachessl'}) {
     my $targetdir = '/etc/httpd/conf.d';      my $targetdir = '/etc/httpd/conf.d';
     if ($distro =~ /^(suse|sles)/) {      if ($distro =~ /^(suse|sles)/) {
Line 2278  if ($callsub{'firewall'}) { Line 2318  if ($callsub{'firewall'}) {
                   'ssh, http')."\n";                    'ssh, http')."\n";
     } else {      } else {
         my $version;          my $version;
         if ($distro =~ /^(redhat|centos)(\d+)/) {          if ($distro =~ /^(redhat|centos|rocky|alma)(\d+)/) {
             $version = $1;              $version = $1;
         }          }
         if ($version > 5) {          if ($version > 5) {
Line 2376  if ($have_tarball && !$updateshown) { Line 2416  if ($have_tarball && !$updateshown) {
         if ($1 > 12) {          if ($1 > 12) {
             $lc_uses_systemctl = 1;              $lc_uses_systemctl = 1;
         }          }
       } elsif ($distro =~ /^fedora(\d+)$/) {
           if ($1 > 25) {
               $lc_uses_systemctl = 1;
           }
     }      }
     if (!-e '/etc/loncapa-release') {      if (!-e '/etc/loncapa-release') {
         print &mt('If you are now ready to install LON-CAPA, enter the following commands:')."\n\n";          print &mt('If you are now ready to install LON-CAPA, enter the following commands:')."\n\n";
Line 2683  sub setup_mysql_permissions { Line 2727  sub setup_mysql_permissions {
         $is_mariadb = 1;          $is_mariadb = 1;
         if ((($mysqlversion == 10) && ($mysqlminorversion >= 4)) || ($mysqlversion >= 11)) {          if ((($mysqlversion == 10) && ($mysqlminorversion >= 4)) || ($mysqlversion >= 11)) {
             $usescreate = 1;              $usescreate = 1;
         } elsif (($mysqlversion == 10) && ($mysqlminorversion >= 2)) {           } elsif (($mysqlversion == 10) && ($mysqlminorversion >= 2)) {
             $usesauth = 1;              $usesauth = 1;
         } elsif (($mysqlversion == 5) && ($mysqlminorversion >= 5)) {          } elsif (($mysqlversion == 5) && ($mysqlminorversion >= 5)) {
             $hasauthcol = 1;              $hasauthcol = 1;
Line 2820  sub get_mysql_version { Line 2864  sub get_mysql_version {
     return ($version,$minorversion,$subversion,$name);      return ($version,$minorversion,$subversion,$name);
 }  }
   
   sub check_systemd_update {
       my ($distro) = @_;
       my ($use_systemctl,$service);
       $service = 'apache2.service';
       if ($distro =~ /^ubuntu(\w+)/) {
           if ($1 >= 16) {
               $use_systemctl = 1;
           }
       } elsif ($distro =~ /^debian(\w+)/) {
           if ($1 >= 9) {
               $use_systemctl = 1;
           }
       } elsif ($distro =~ /^fedora(\d+)/) {
           $service = 'httpd.service';
           if ($1 >= 16) {
               $use_systemctl = 1;
           }
       } elsif ($distro =~ /^(?:centos|rhes|scientific|oracle|rocky|alma)(\d+)/) {
           $service = 'httpd.service';
           if ($1 >= 7) {
               $use_systemctl = 1;
           }
       } elsif ($distro =~ /^sles(\d+)/) {
           if ($1 >= 12) {
               $use_systemctl = 1;
           }
       } elsif ($distro =~ /^suse(\d+)/) {
           if ($1 >= 13) {
               $use_systemctl = 1;
           }
       }
       if ($use_systemctl) {
           my $needsupdate = &check_systemd_security($distro);
           if ($needsupdate) {
               if (!-d '/etc/systemd/system/'.$service.'.d') {
                   mkdir '/etc/systemd/system/'.$service.'.d', 0755;
               }
               if (-d '/etc/systemd/system/'.$service.'.d') {
                   if (-e '/etc/systemd/system/'.$service.'.d/override.conf') {
                       if (open(my $fh,'<','/etc/systemd/system/'.$service.'.d/override.conf')) {
                           my ($inservice,$addservice,$protectoff,$linenum,$change,@lines);
                           while (my $entry = <$fh>) {
                               $linenum ++;
                               chomp($entry);
                               if ($entry eq '[Service]') {
                                   if (!$protectoff) {
                                       $inservice = $linenum;
                                       push(@lines,$entry);
                                   } else {
                                       $addservice = 1;
                                       next;
                                   }
                               }
                               if ($entry =~ /^ProtectHome\s*=\s*([\w-]+)\s*$/) {
                                   my $value = $1;
                                   if ($protectoff) {
                                       next;
                                       if (lc($value) eq 'no') {
                                           $protectoff = $linenum;
                                           push(@lines,$entry);
                                       } else {
                                           if ($protectoff) {
                                               next;
                                           } else {
                                               push(@lines,'ProtectHome=no');
                                               $protectoff = $linenum;
                                               $change = $linenum;
                                           }
                                       }
                                   }
                               }
                           }
                           close($fh);
                           if ($addservice || $change || !$protectoff) {
                               if (open(my $fh,'>','/etc/systemd/system/'.$service.'.d/override.conf')) {
                                   if ($addservice) {
                                       print $fh "[Service]\n";
                                   }
                                   foreach my $entry (@lines) {
                                       print $fh "$entry\n";
                                   }
                                   close($fh);
                                   print_and_log('Updated /etc/systemd/system/'.$service.'.d/override.conf');
                               } else {
                                   print_and_log('Could not open /etc/systemd/system/'.$service.'.d/override.conf for writing.');
                               }
                           } else {
                               print_and_log('No change needed in /etc/systemd/system/'.$service.'.d/override.conf');
                           }
                       } else {
                           print_and_log('Could not open /etc/systemd/system/'.$service.'.d/override.conf for reading.');
                       }
                   } else {
                       if (open(my $fh,'>','/etc/systemd/system/'.$service.'.d/override.conf')) {
                           print $fh '[Service]'."\n".'ProtectHome=no'."\n";
                           close($fh);
                           print_and_log('Created /etc/systemd/system/'.$service.'.d/override.conf');
                       }
                   }
               } else {
                   print_and_log('No /etc/systemd/system/'.$service.'.d directory exists and creating one failed,');
               }
           } else {
               print_and_log('No update needed to systemd security settings for Apache web server.');
           }
       } else {
           print_and_log('No update needed to systemd, as this Linux distro does not use systemctl');
       }
   }
   
 ###########################################################  ###########################################################
 ##  ##
 ## RHEL/CentOS/Fedora/Scientific Linux  ## RHEL/CentOS/Fedora/Scientific Linux

Removed from v.1.90  
changed lines
  Added in v.1.91


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