[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.78 and 1.90

version 1.78, 2021/07/28 13:37:10 version 1.90, 2024/06/20 00:29:49
Line 212  sub get_distro { Line 212  sub get_distro {
             $distro = 'rhes'.$1;              $distro = 'rhes'.$1;
             $updatecmd = 'dnf install LONCAPA-prerequisites';              $updatecmd = 'dnf install LONCAPA-prerequisites';
             $installnow = 'dnf -y install LONCAPA-prerequisites';              $installnow = 'dnf -y install LONCAPA-prerequisites';
         } elsif ($versionstring =~ /CentOS(?:| Linux| Stream) release (\d+)/) {          } elsif ($versionstring =~ /CentOS(| Linux| Stream) release (\d+)/) {
             $distro = 'centos'.$1;              $distro = 'centos'.$2;
               if ($1 eq ' Stream') {
                   $distro .= '-stream';
               }
             $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.]+) /) {
Line 222  sub get_distro { Line 225  sub get_distro {
             $distro = 'scientific'.$ver;              $distro = 'scientific'.$ver;
             $updatecmd = 'yum install LONCAPA-prerequisites';              $updatecmd = 'yum install LONCAPA-prerequisites';
             $installnow = 'yum -y install LONCAPA-prerequisites';              $installnow = 'yum -y install LONCAPA-prerequisites';
           } elsif ($versionstring =~ /Rocky Linux release ([\d.]+)/) {
               my $ver = $1;
               $ver =~ s/\.\d+$//;
               $distro = 'rocky'.$ver;
               $updatecmd = 'dnf install LONCAPA-prerequisites';
               $installnow = 'dnf -y install LONCAPA-prerequisites';
           } elsif ($versionstring =~ /AlmaLinux release ([\d.]+) /) {
               my $ver = $1;
               $ver =~ s/\.\d+$//;
               $distro = 'alma'.$ver;
               $updatecmd = 'dnf install LONCAPA-prerequisites';
               $installnow = 'dnf -y install LONCAPA-prerequisites';
         } else {          } else {
             print &mt('Unable to interpret [_1] to determine system type.',              print &mt('Unable to interpret [_1] to determine system type.',
                       '/etc/redhat-release')."\n";                        '/etc/redhat-release')."\n";
Line 457  sub check_locale { Line 472  sub check_locale {
                       '/etc/sysconfig/i18n');                        '/etc/sysconfig/i18n');
             $earlyout = 1;              $earlyout = 1;
         }          }
     } elsif ($distro =~ /^(?:rhes|centos|scientific|oracle)(\d+)/) {      } elsif ($distro =~ /^(?:rhes|centos|scientific|oracle|rocky|alma)(\d+)/) {
         if ($1 >= 7) {          if ($1 >= 7) {
             if (!open($fh,"</etc/locale.conf")) {              if (!open($fh,"</etc/locale.conf")) {
                 print &mt('Failed to open: [_1], default locale not checked.',                  print &mt('Failed to open: [_1], default locale not checked.',
Line 557  sub check_required { Line 572  sub check_required {
         if ($mysqlsetup eq 'needsrestart') {          if ($mysqlsetup eq 'needsrestart') {
             $mysqlrestart = '';              $mysqlrestart = '';
             if ($distro eq 'ubuntu') {              if ($distro eq 'ubuntu') {
                 $mysqlrestart = 'sudo ';                   $mysqlrestart = 'sudo ';
             }              }
             $mysqlrestart .= 'service mysql restart';              $mysqlrestart .= 'service mysql restart';
             return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,$mysqlrestart);              return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,$mysqlrestart);
Line 607  sub check_mysql_running { Line 622  sub check_mysql_running {
             $process = 'mysqld';              $process = 'mysqld';
             $proc_owner = 'mysql';              $proc_owner = 'mysql';
         }          }
       } elsif ($distro =~ /^debian(\w+)/) {
           if ($1 >= 10) {
               $process = 'mysql';
               $proc_owner = 'mysql';
           }           
           if ($1 >= 11) {
               $mysqldaemon = 'mariadb';
           }
     } elsif ($distro =~ /^fedora(\d+)/) {      } elsif ($distro =~ /^fedora(\d+)/) {
         if ($1 >= 16) {          if ($1 >= 16) {
             $process = 'mysqld';              $process = 'mysqld';
Line 619  sub check_mysql_running { Line 642  sub check_mysql_running {
         if ($1 >= 34) {          if ($1 >= 34) {
             $process = 'mariadb';              $process = 'mariadb';
         }          }
     } elsif ($distro =~ /^(?:centos|rhes|scientific|oracle)(\d+)/) {      } elsif ($distro =~ /^(?:centos|rhes|scientific|oracle|rocky|alma)(\d+)/) {
         if ($1 >= 7) {          if ($1 >= 7) {
             $mysqldaemon ='mariadb';              $mysqldaemon ='mariadb';
             $process = 'mysqld';              $process = 'mysqld';
             $proc_owner = 'mysql';              $proc_owner = 'mysql';
             $use_systemctl = 1;              $use_systemctl = 1;
         }          }
           if ($1 >= 9) {
               $process = 'mariadb';
           }
     } elsif ($distro =~ /^sles(\d+)/) {      } elsif ($distro =~ /^sles(\d+)/) {
         if ($1 >= 12) {          if ($1 >= 12) {
             $use_systemctl = 1;              $use_systemctl = 1;
Line 746  sub chkconfig { Line 772  sub chkconfig {
         if (($distro =~ /^ubuntu/) && ($version <= 8)) {          if (($distro =~ /^ubuntu/) && ($version <= 8)) {
             $daemon{'cups'} = 'cupsys';              $daemon{'cups'} = 'cupsys';
         }          }
         if (($distro =~ /^ubuntu/) && ($version >= 18)) {          if ((($distro =~ /^ubuntu/) && ($version >= 18)) ||
               (($distro  =~ /^debian/) && ($version >= 10))) {
             $daemon{'ntp'}    = 'chrony';              $daemon{'ntp'}    = 'chrony';
         }          }
           if (($distro  =~ /^debian/) && ($version >= 11)) {
               $daemon{'mysql'} = 'mariadb';
           }
     } elsif ($distro =~ /^fedora(\d+)/) {      } elsif ($distro =~ /^fedora(\d+)/) {
         my $version = $1;          my $version = $1;
         if ($version >= 15) {          if ($version >= 15) {
Line 766  sub chkconfig { Line 796  sub chkconfig {
         if ($version >= 26) {          if ($version >= 26) {
             $daemon{'ntp'} = 'chronyd';              $daemon{'ntp'} = 'chronyd';
         }          }
     } elsif ($distro =~ /^(?:centos|rhes|scientific|oracle)(\d+)/) {      } elsif ($distro =~ /^(?:centos|rhes|scientific|oracle|rocky|alma)(\d+)/) {
         my $version = $1;          my $version = $1;
         if ($version >= 7) {          if ($version >= 7) {
             $uses_systemctl{'ntp'} = 1;              $uses_systemctl{'ntp'} = 1;
Line 882  sub uses_firewalld { Line 912  sub uses_firewalld {
         if ($1 >= 18) {          if ($1 >= 18) {
             $checkfirewalld = 1;              $checkfirewalld = 1;
         }          }
     } elsif ($distro =~ /^(?:centos|rhes|scientific|oracle)(\d+)/) {      } elsif ($distro =~ /^(?:centos|rhes|scientific|oracle|rocky|alma)(\d+)/) {
         if ($1 >= 7) {          if ($1 >= 7) {
             $checkfirewalld = 1;              $checkfirewalld = 1;
         }          }
Line 974  sub chkapache { Line 1004  sub chkapache {
         my $distname = $1;          my $distname = $1;
         my $version = $2;          my $version = $2;
         my ($stdconf,$stdsite);          my ($stdconf,$stdsite);
         if (($distname eq 'ubuntu') && ($version > 12)) {          if ((($distname eq 'ubuntu') && ($version > 12)) ||
               (($distname eq 'debian') && ($version >= 10))) {
             $stdconf = "$instdir/debian-ubuntu/ubuntu14/loncapa_conf";              $stdconf = "$instdir/debian-ubuntu/ubuntu14/loncapa_conf";
             $stdsite = "$instdir/debian-ubuntu/ubuntu14/loncapa_sites";              $stdsite = "$instdir/debian-ubuntu/ubuntu14/loncapa_sites";
         } else {          } else {
Line 985  sub chkapache { Line 1016  sub chkapache {
             print &mt('Warning: No LON-CAPA Apache configuration file found for installation check.')."\n";               print &mt('Warning: No LON-CAPA Apache configuration file found for installation check.')."\n"; 
         } else {          } else {
             my ($configfile,$sitefile);              my ($configfile,$sitefile);
             if (($distname eq 'ubuntu') && ($version > 12)) {              if ((($distname eq 'ubuntu') && ($version > 12)) ||
                   (($distname eq 'debian') && ($version >= 10))) {
                 $sitefile = '/etc/apache2/sites-available/loncapa.conf';                  $sitefile = '/etc/apache2/sites-available/loncapa.conf';
                 $configfile = '/etc/apache2/conf-available/loncapa.conf';                  $configfile = '/etc/apache2/conf-available/loncapa.conf';
             } else {              } else {
Line 1001  sub chkapache { Line 1033  sub chkapache {
                     }                      }
                 }                  }
             }              }
             if ((!$fixapache) && ($distname eq 'ubuntu') && ($version > 12)) {              if ((!$fixapache) && ((($distname eq 'ubuntu') && ($version > 12)) ||
                                     (($distname eq 'debian') && ($version >= 10))))  {
                 if (($sitefile ne '') && (-e $sitefile) && (-e $stdsite)) {                  if (($sitefile ne '') && (-e $sitefile) && (-e $stdsite)) {
                     if (open(PIPE, "diff --brief $stdsite $sitefile |")) {                      if (open(PIPE, "diff --brief $stdsite $sitefile |")) {
                         my $diffres = <PIPE>;                          my $diffres = <PIPE>;
Line 1021  sub chkapache { Line 1054  sub chkapache {
                 }                  }
             }              }
         }          }
         if ((!$fixapache) && ($distname eq 'ubuntu')) {          if ((!$fixapache) && (($distname eq 'ubuntu') || ($distname eq 'debian'))) {
             my $sitestatus = "/etc/apache2/mods-available/status.conf";              my $sitestatus = "/etc/apache2/mods-available/status.conf";
             my $stdstatus = "$instdir/debian-ubuntu/status.conf";              my $stdstatus = "$instdir/debian-ubuntu/status.conf";
             if ((-e $stdstatus) && (-e $sitestatus)) {              if ((-e $stdstatus) && (-e $sitestatus)) {
Line 1075  sub chkapache { Line 1108  sub chkapache {
     } else {      } else {
         my $configfile = 'httpd.conf';          my $configfile = 'httpd.conf';
         my $mpmfile = 'mpm.conf';          my $mpmfile = 'mpm.conf';
         if ($distro =~ /^(?:centos|rhes|scientific|oracle)(\d+)$/) {          if ($distro =~ /^(?:centos|rhes|scientific|oracle|rocky|alma)(\d+)/) {
             if ($1 >= 7) {              if ($1 >= 7) {
                 $configfile = 'apache2.4/httpd.conf';                  $configfile = 'apache2.4/httpd.conf';
             } elsif ($1 > 5) {              } elsif ($1 > 5) {
Line 1372  sub chkapachessl { Line 1405  sub chkapachessl {
                             foreach my $file (sort(keys(%{$sslfiles{$key}}))) {                              foreach my $file (sort(keys(%{$sslfiles{$key}}))) {
                                 unless ((-l "$enabled_dir/$file") &&                                  unless ((-l "$enabled_dir/$file") &&
                                         (readlink("$enabled_dir/$file") eq "$ssldir/$file")) {                                          (readlink("$enabled_dir/$file") eq "$ssldir/$file")) {
                                     print_and_log(&mt("Warning, use: 'sudo a2ensite $file' to activate LON-CAPA SSL Apache config\n"));                                      if ($distro =~ /^debian(\d+)$/) {
                                           print_and_log(&mt("Warning, use: 'a2ensite $file' to activate LON-CAPA SSL Apache config\n"));
                                       } elsif ($distro =~ /^ubuntu(\d+)$/) {
                                           print_and_log(&mt("Warning, use: 'sudo a2ensite $file' to activate LON-CAPA SSL Apache config\n"));
                                       }
                                 }                                  }
                             }                              }
                         }                          }
Line 1535  sub check_mysql_setup { Line 1572  sub check_mysql_setup {
     my ($instdir,$dsn,$distro) = @_;      my ($instdir,$dsn,$distro) = @_;
     my ($mysqlsetup,$has_pass,$mysql_unix_socket,$mysql_has_wwwuser);      my ($mysqlsetup,$has_pass,$mysql_unix_socket,$mysql_has_wwwuser);
     my $dbh = DBI->connect($dsn,'root','',{'PrintError'=>0});      my $dbh = DBI->connect($dsn,'root','',{'PrintError'=>0});
     my ($mysqlversion,$mysqlsubver,$mysqlname) = &get_mysql_version();      my ($mysqlversion,$mysqlminorversion,$mysqlsubver,$mysqlname) = &get_mysql_version();
     if (($mysqlname =~ /^MariaDB/i) && ($mysqlversion >= 10.4)) {      if (($mysqlname =~ /^MariaDB/i) && (($mysqlversion == 10 && $mysqlminorversion >= 4) || ($mysqlversion >= 11))) {
         if ($dbh) {          if ($dbh) {
             my $sth = $dbh->prepare("SELECT Priv FROM mysql.global_priv WHERE (User = 'root' AND Host ='localhost')");              my $sth = $dbh->prepare("SELECT Priv FROM mysql.global_priv WHERE (User = 'root' AND Host ='localhost')");
             $sth->execute();              $sth->execute();
Line 1557  sub check_mysql_setup { Line 1594  sub check_mysql_setup {
     }      }
     if ($dbh) {      if ($dbh) {
         $mysqlsetup = 'noroot';          $mysqlsetup = 'noroot';
         if (($mysqlname !~ /^MariaDB/i) && ($mysqlversion >= 5.7)) {          if (($mysqlname !~ /^MariaDB/i) && (($mysqlversion == 5 && $mysqlminorversion >= 7) || ($mysqlversion >= 6))) {
             my $sth = $dbh->prepare("SELECT plugin from mysql.user where User='root'");              my $sth = $dbh->prepare("SELECT plugin from mysql.user where User='root'");
             $sth->execute();              $sth->execute();
             while (my $priv = $sth->fetchrow_array) {              while (my $priv = $sth->fetchrow_array) {
Line 1682  sub get_pathto_iptables { Line 1719  sub get_pathto_iptables {
   
 sub firewall_is_active {  sub firewall_is_active {
     if (-e '/proc/net/ip_tables_names') {      if (-e '/proc/net/ip_tables_names') {
           my $status;
         if (open(PIPE,'cat /proc/net/ip_tables_names |grep filter |')) {          if (open(PIPE,'cat /proc/net/ip_tables_names |grep filter |')) {
             my $status = <PIPE>;              $status = <PIPE>;
             close(PIPE);              close(PIPE);
             chomp($status);              chomp($status);
             if ($status eq 'filter') {              if ($status eq 'filter') {
                 return 1;                  return 1;
             }              }
         }          }
           unless ($status) {
               if (open(PIPE,'nft list tables |')) {
                   while(<PIPE>) {
                       chomp();
                       if (/filter$/) {
                           $status = 1;
                           last;
                       }
                   }
                   close(PIPE);
                   if ($status) {
                       return 1;
                   }
               }
           }
     }      }
     return 0;      return 0;
 }  }
Line 1893  my %prompts = &texthash( Line 1946  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?',
     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',
     stopsrvcs  => 'Stop extra services not required on a LON-CAPA server?',      stopsrvcs  => 'Stop extra services not required on a LON-CAPA server?',
Line 2225  if ($callsub{'firewall'}) { Line 2278  if ($callsub{'firewall'}) {
                   'ssh, http')."\n";                    'ssh, http')."\n";
     } else {      } else {
         my $version;          my $version;
         if ($distro =~ /^(redhat|centos)(\d+)$/) {          if ($distro =~ /^(redhat|centos)(\d+)/) {
             $version = $1;              $version = $1;
         }          }
         if ($version > 5) {          if ($version > 5) {
Line 2256  if ($callsub{'download'}) { Line 2309  if ($callsub{'download'}) {
     print &mt('LON-CAPA is available for download from: [_1]',      print &mt('LON-CAPA is available for download from: [_1]',
               'http://install.loncapa.org/')."\n";                'http://install.loncapa.org/')."\n";
     if (!-e '/etc/loncapa-release') {      if (!-e '/etc/loncapa-release') {
         &print_and_log(&mt('LON-CAPA is not yet installed on your system.')."\n\n";           &print_and_log(&mt('LON-CAPA is not yet installed on your system.')."\n\n");
         unless ($filetouse) {          unless ($filetouse) {
             &print_and_log(&mt('You may retrieve the source for LON-CAPA by executing:')."\n".              &print_and_log(&mt('You may retrieve the source for LON-CAPA by executing:')."\n".
                            "wget http://install.loncapa.org/versions/$lctarball\n");                             "wget http://install.loncapa.org/versions/$lctarball\n");
Line 2306  if ($have_tarball && !$updateshown) { Line 2359  if ($have_tarball && !$updateshown) {
         if ($1 > 6) {          if ($1 > 6) {
             $lc_uses_systemctl = 1;              $lc_uses_systemctl = 1;
         }          }
     } elsif ($distro =~ /^(?:rhes|centos)(\d+)$/) {      } elsif ($distro =~ /^(?:rhes|centos|rocky|alma)(\d+)/) {
         if ($1 > 7) {          if ($1 > 7) {
             $lc_uses_systemctl = 1;              $lc_uses_systemctl = 1;
         }          }
Line 2315  if ($have_tarball && !$updateshown) { Line 2368  if ($have_tarball && !$updateshown) {
             $lc_uses_systemctl = 1;              $lc_uses_systemctl = 1;
         }          }
         $uses_sudo = 1;          $uses_sudo = 1;
       } elsif ($distro =~ /^debian(\d+)$/) {
           if ($1 >= 10) {
               $lc_uses_systemctl = 1;
           }
     } elsif ($distro =~ /^sles(\d+)$/) {      } elsif ($distro =~ /^sles(\d+)$/) {
         if ($1 > 12) {          if ($1 > 12) {
             $lc_uses_systemctl = 1;              $lc_uses_systemctl = 1;
Line 2435  sub build_and_install_mod_auth_external Line 2492  sub build_and_install_mod_auth_external
 > #define SERVER_UIDS $num /* user "www" */  > #define SERVER_UIDS $num /* user "www" */
 ENDPATCH  ENDPATCH
   
       my $patch_code = <<"ENDPATCH";
   127a128
   > #include <string.h>
   214a216
   > #include <time.h>
   566c568
   < check_fails()
   ---
   > int check_fails()
   589c591
   < log_failure()
   ---
   > void log_failure()
   629c631
   < snooze(int seconds)
   ---
   > void snooze(int seconds)
   653c655
   < main(int argc, char **argv)
   ---
   > int main(int argc, char **argv)
   ENDPATCH
   
     if (! -e "/usr/bin/patch") {      if (! -e "/usr/bin/patch") {
  print_and_log(&mt('You must install the software development tools package: [_1], when installing Linux.',"'patch'")."\n");   print_and_log(&mt('You must install the software development tools package: [_1], when installing Linux.',"'patch'")."\n");
         print_and_log(&mt('Authentication installation not completed.')."\n");          print_and_log(&mt('Authentication installation not completed.')."\n");
Line 2445  ENDPATCH Line 2525  ENDPATCH
         return;          return;
     }      }
     my $dir = "/tmp/pwauth-2.2.8";      my $dir = "/tmp/pwauth-2.2.8";
       my $patchedok;
     if (open(PATCH,"| patch $dir/config.h")) {      if (open(PATCH,"| patch $dir/config.h")) {
         print PATCH $patch;          print PATCH $patch;
         close(PATCH);          close(PATCH);
           if (open(PATCH,"| patch $dir/pwauth.c")) {
               print PATCH $patch_code;
               close(PATCH);
               $patchedok = 1;
           }
       }
       if ($patchedok) {
         print_and_log("\n");          print_and_log("\n");
         ##          ##
         ## Compile patched pwauth          ## Compile patched pwauth
Line 2518  sub kill_extra_services { Line 2606  sub kill_extra_services {
             &print_and_log(&mt('Removing [_1] from startup.',$service)."\n");              &print_and_log(&mt('Removing [_1] from startup.',$service)."\n");
                     if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {                      if ($distro =~ /^(?:debian|ubuntu)(\d+)/) {
                         my $version = $1;                          my $version = $1;
                         if (($distro =~ /^ubuntu/) && ($version > 16)) {                          if ((($distro =~ /^ubuntu/) && ($version > 16)) ||
                               (($distro =~ /^debian/) && ($version >= 10))) {
                             if (ref($uses_systemctl) eq 'HASH') {                              if (ref($uses_systemctl) eq 'HASH') {
                                 if ($uses_systemctl->{$service}) {                                  if ($uses_systemctl->{$service}) {
                                     if (`systemctl is-enabled $service`) {                                      if (`systemctl is-enabled $service`) {
Line 2588  CREATE TABLE IF NOT EXISTS metadata (tit Line 2677  CREATE TABLE IF NOT EXISTS metadata (tit
   
 sub setup_mysql_permissions {  sub setup_mysql_permissions {
     my ($dbh,$has_pass,$mysql_unix_socket,@mysql_lc_commands) = @_;      my ($dbh,$has_pass,$mysql_unix_socket,@mysql_lc_commands) = @_;
     my ($mysqlversion,$mysqlsubver,$mysqlname) = &get_mysql_version();      my ($mysqlversion,$mysqlminorversion,$mysqlsubver,$mysqlname) = &get_mysql_version();
     my ($usescreate,$usesauth,$is_mariadb,$hasauthcol,@mysql_commands);      my ($usescreate,$usesauth,$is_mariadb,$hasauthcol,@mysql_commands);
     if ($mysqlname =~ /^MariaDB/i) {      if ($mysqlname =~ /^MariaDB/i) {
         $is_mariadb = 1;          $is_mariadb = 1;
         if ($mysqlversion >= 10.4) {          if ((($mysqlversion == 10) && ($mysqlminorversion >= 4)) || ($mysqlversion >= 11)) {
             $usescreate = 1;              $usescreate = 1;
         } elsif ($mysqlversion >= 10.2) {          } elsif (($mysqlversion == 10) && ($mysqlminorversion >= 2)) { 
             $usesauth = 1;              $usesauth = 1;
         } elsif ($mysqlversion >= 5.5) {          } elsif (($mysqlversion == 5) && ($mysqlminorversion >= 5)) {
             $hasauthcol = 1;              $hasauthcol = 1;
         }          }
     } else {      } else {
         if (($mysqlversion > 5.7) || (($mysqlversion == 5.7) && ($mysqlsubver > 5))) {          if (($mysqlversion > 5) || (($mysqlminorversion == 5) && ($mysqlminorversion > 7)) ||
               (($mysqlversion == 5) && ($mysqlminorversion == 7) && ($mysqlsubver > 5))) {
             $usesauth = 1;              $usesauth = 1;
         } elsif (($mysqlversion >= 5.6) || (($mysqlversion == 5.5) && ($mysqlsubver >= 7))) {          } elsif (($mysqlversion == 5) &&
                    (($mysqlminorversion >= 6) || (($mysqlminorversion == 5) && ($mysqlsubver >= 7)))) {
             $hasauthcol = 1;              $hasauthcol = 1;
         }          }
     }      }
Line 2716  sub new_mysql_rootpasswd { Line 2807  sub new_mysql_rootpasswd {
 }  }
   
 sub get_mysql_version {  sub get_mysql_version {
     my ($version,$subversion,$name);      my ($version,$minorversion,$subversion,$name);
     if (open(PIPE," mysql -V |")) {      if (open(PIPE," mysql -V |")) {
         my $info = <PIPE>;          my $info = <PIPE>;
         chomp($info);          chomp($info);
         close(PIPE);          close(PIPE);
         ($version,$subversion,$name) = ($info =~ /(\d+\.\d+)\.(\d+)(?:\-?(\w*),|)/);          ($version,$minorversion,$subversion,$name) = ($info =~ /(\d+)\.(\d+)\.(\d+)(?:\-?(\w*),|)/);
     } else {      } else {
         print &mt('Could not determine which version of MySQL is installed.').          print &mt('Could not determine which version of MySQL is installed.').
               "\n";                "\n";
     }      }
     return ($version,$subversion,$name);      return ($version,$minorversion,$subversion,$name);
 }  }
   
 ###########################################################  ###########################################################
Line 2739  sub get_mysql_version { Line 2830  sub get_mysql_version {
 sub copy_httpd_conf {  sub copy_httpd_conf {
     my ($instdir,$distro,$hostname) = @_;      my ($instdir,$distro,$hostname) = @_;
     my $configfile = 'httpd.conf';      my $configfile = 'httpd.conf';
     if ($distro =~ /^(?:centos|rhes|scientific|oracle)(\d+)$/) {      if ($distro =~ /^(?:centos|rhes|scientific|oracle|rocky|alma)(\d+)/) {
         if ($1 >= 7) {          if ($1 >= 7) {
             $configfile = 'apache2.4/httpd.conf';              $configfile = 'apache2.4/httpd.conf';
         } elsif ($1 > 5) {          } elsif ($1 > 5) {
Line 2786  sub copy_mpm_conf { Line 2877  sub copy_mpm_conf {
         print_and_log("\n");          print_and_log("\n");
     } else {      } else {
         my $logfail;          my $logfail;
         if ($distro =~ /^(?:centos|rhes|scientific|oracle)(\d+)$/) {          if ($distro =~ /^(?:centos|rhes|scientific|oracle|rocky|alma)(\d+)/) {
             if ($1 > 7) {              if ($1 > 7) {
                 $logfail = 1;                  $logfail = 1;
             }              }
Line 3307  sub copy_apache2_debconf { Line 3398  sub copy_apache2_debconf {
         $distname = $1;          $distname = $1;
         $version = $2;          $version = $2;
     }      }
     if (($distname eq 'ubuntu') && ($version > 12)) {      if ((($distname eq 'ubuntu') && ($version > 12)) ||
           (($distname eq 'debian') && ($version >= 10))) {
         $defaultconfig = "$apache2_sites_enabled_dir/000-default.conf";          $defaultconfig = "$apache2_sites_enabled_dir/000-default.conf";
     }      }
     my ($skipconf,$skipsite,$skipstatus);      my ($skipconf,$skipsite,$skipstatus);
     if (($distname eq 'ubuntu') && ($version > 12)) {      if ((($distname eq 'ubuntu') && ($version > 12)) ||
           (($distname eq 'debian') && ($version >= 10))) {
         my $apache2_conf_enabled_dir = '/etc/apache2/conf-enabled';          my $apache2_conf_enabled_dir = '/etc/apache2/conf-enabled';
         my $apache2_conf_available_dir = '/etc/apache2/conf-available';          my $apache2_conf_available_dir = '/etc/apache2/conf-available';
         my $defaultconf = $apache2_conf_enabled_dir.'/loncapa.conf';          my $defaultconf = $apache2_conf_enabled_dir.'/loncapa.conf';
Line 3464  sub copy_apache2_debconf { Line 3557  sub copy_apache2_debconf {
             }              }
         }          }
     }      }
     if ($distname eq 'ubuntu') {      if (($distname eq 'ubuntu') || ($distname eq 'debian')) {
         my $sitestatus = "$apache2_mods_available_dir/status.conf";          my $sitestatus = "$apache2_mods_available_dir/status.conf";
         my $stdstatus = "$instdir/debian-ubuntu/status.conf";          my $stdstatus = "$instdir/debian-ubuntu/status.conf";
         if ((-e $sitestatus) && (-e $stdstatus)) {          if ((-e $sitestatus) && (-e $stdstatus)) {
Removed from v.1.78  
changed lines
  Added in v.1.90

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