[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.63 and 1.65

version 1.63, 2020/05/01 14:13:31 version 1.65, 2020/05/01 19:02:51
Line 1017  sub chkapache { Line 1017  sub chkapache {
                 }                  }
             }              }
         }          }
           if ((!$fixapache) && ($distname eq 'ubuntu')) {
               my $sitestatus = "/etc/apache2/mods-available/status.conf";
               my $stdstatus = "$instdir/debian-ubuntu/status.conf";
               if ((-e $stdstatus) && (-e $sitestatus)) {
                   if (open(PIPE, "diff --brief $stdstatus $sitestatus |")) {
                       my $diffres = <PIPE>;
                       close(PIPE);
                       chomp($diffres);
                       if ($diffres) {
                           $fixapache = 1;
                       }
                   }
               }
           }
     } elsif ($distro =~ /^(suse|sles)([\d\.]+)$/) {      } elsif ($distro =~ /^(suse|sles)([\d\.]+)$/) {
         my ($name,$version) = ($1,$2);          my ($name,$version) = ($1,$2);
         my $apache = 'apache';          my $apache = 'apache';
Line 2568  sub get_mysql_version { Line 2582  sub get_mysql_version {
         my $info = <PIPE>;          my $info = <PIPE>;
         chomp($info);          chomp($info);
         close(PIPE);          close(PIPE);
         ($version,$subversion,$name) = ($info =~ /(\d+\.\d+)\.(\d+)\-?(\w*),/);          ($version,$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";
Line 3156  sub copy_apache2_debconf { Line 3170  sub copy_apache2_debconf {
     if (($distname eq 'ubuntu') && ($version > 12)) {      if (($distname eq 'ubuntu') && ($version > 12)) {
         $defaultconfig = "$apache2_sites_enabled_dir/000-default.conf";          $defaultconfig = "$apache2_sites_enabled_dir/000-default.conf";
     }      }
     if (-l $defaultconfig) {      my ($skipconf,$skipsite,$skipstatus);
         unlink($defaultconfig);  
     }  
     if (($distname eq 'ubuntu') && ($version > 12)) {      if (($distname eq 'ubuntu') && ($version > 12)) {
         print_and_log(&mt('Copying loncapa [_1] config file to [_2] and pointing [_3] to it from conf-enabled.',"'apache2'","'/etc/apache2/conf-available'","'loncapa.conf symlink'")."\n");  
         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';
         if (-e "$apache2_conf_available_dir/loncapa") {  
             copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.original");  
         }  
         my $defaultconf = $apache2_conf_enabled_dir.'/loncapa.conf';          my $defaultconf = $apache2_conf_enabled_dir.'/loncapa.conf';
         copy("$instdir/debian-ubuntu/ubuntu14/loncapa_conf","$apache2_conf_available_dir/loncapa");          if ((-e "$apache2_conf_available_dir/loncapa") && (-e "$instdir/debian-ubuntu/ubuntu14/loncapa_conf")) {
         chmod(0444,"$apache2_conf_available_dir/loncapa");              if (open(PIPE, "diff --brief $apache2_conf_available_dir/loncapa $instdir/debian-ubuntu/ubuntu14/loncapa_conf" |")) {
         if (-l $defaultconf) {                  my $diffres = <PIPE>;
             unlink($defaultconf);                  close(PIPE);
         }                  chomp($diffres);
         symlink("$apache2_conf_available_dir/loncapa","$defaultconf");                  if ($diffres) {
         print_and_log(&mt('Copying loncapa [_1] site file to [_2] and pointing [_3] to it from sites-enabled.',"'apache2'","'/etc/apache2/sites-available'","'000-default.conf symlink'")."\n");                      copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.original");
         copy("$instdir/debian-ubuntu/ubuntu14/loncapa_site","$apache2_sites_available_dir/loncapa");                  }
         chmod(0444,"$apache2_sites_available_dir/loncapa");                  if (-l $defaultconf) {
         symlink("$apache2_sites_available_dir/loncapa","$defaultconfig");                      my $linkfname = readlink($defaultconf);
     } else {                      if ($linkfname eq "$apache2_conf_available_dir/loncapa") {
         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");                          unless ($diffres) {
         if (-e "$apache2_sites_available_dir/loncapa") {                              $skipconf = 1;
             copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.original");                          }
         }                      }
         copy("$instdir/debian-ubuntu/loncapa","$apache2_sites_available_dir/loncapa");                  }
         chmod(0444,"$apache2_sites_available_dir/loncapa");              }
         symlink("$apache2_sites_available_dir/loncapa","$apache2_sites_enabled_dir/000-default");          }
           unless ($skipconf) {
               print_and_log(&mt('Copying loncapa [_1] config file to [_2] and pointing [_3] to it from conf-enabled.',"'apache2'","'/etc/apache2/conf-available'","'loncapa.conf symlink'")."\n");
               copy("$instdir/debian-ubuntu/ubuntu14/loncapa_conf","$apache2_conf_available_dir/loncapa");
               chmod(0444,"$apache2_conf_available_dir/loncapa");
               if (-l $defaultconf) {
                   unlink($defaultconf);
               }
               symlink("$apache2_conf_available_dir/loncapa","$defaultconf");
           }
           my $stdsite = "$instdir/debian-ubuntu/ubuntu14/loncapa_site";
           if ((-e $stdsite) && (-e "$apache2_sites_available_dir/loncapa")) {
               if (open(PIPE, "diff --brief $stdsite $apache2_sites_available_dir/loncapa |")) {
                   my $diffres = <PIPE>;
                   close(PIPE);
                   chomp($diffres);
                   if ($diffres) {
                       copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.original");
                   }
                   if (-l $defaultconfig) {
                       my $linkfname = readlink($defaultconfig);
                       if ($linkfname eq "$apache2_sites_available_dir/loncapa") {
                           unless ($diffres) {
                               $skipsite = 1;
                           }
                       }
                   }
               }
           }
           unless ($skipsite) {
               print_and_log(&mt('Copying loncapa [_1] site file to [_2] and pointing [_3] to it from sites-enabled.',"'apache2'","'/etc/apache2/sites-available'","'000-default.conf symlink'")."\n");
               copy("$instdir/debian-ubuntu/ubuntu14/loncapa_site","$apache2_sites_available_dir/loncapa");
               chmod(0444,"$apache2_sites_available_dir/loncapa");
               symlink("$apache2_sites_available_dir/loncapa","$defaultconfig");
           }
       } else {
           if ((-e "$instdir/debian-ubuntu/loncapa") && (-e "$apache2_sites_available_dir/loncapa")) {
               if (open(PIPE, "diff --brief $instdir/debian-ubuntu/loncapa $apache2_sites_available_dir/loncapa |")) {
                   my $diffres = <PIPE>;
                   close(PIPE);
                   chomp($diffres);
                   if ($diffres) {
                       copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.original");
                   }
                   if (-l $defaultconfig) {
                       my $linkfname = readlink($defaultconfig);
                       if ($linkfname eq "$apache2_sites_available_dir/loncapa") {
                           unless ($diffres) {
                               $skipsite = 1;
                           }
                       }
                   }
               }
           }
           unless ($skipsite) {
               if (-l $defaultconfig) {
                   unlink($defaultconfig);
               }
               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");
               if (-e "$instdir/debian-ubuntu/loncapa") {
                   copy("$instdir/debian-ubuntu/loncapa","$apache2_sites_available_dir/loncapa");
                   chmod(0444,"$apache2_sites_available_dir/loncapa");
                   symlink("$apache2_sites_available_dir/loncapa","$apache2_sites_enabled_dir/000-default");
               }
           }
       }
       if ($distname eq 'ubuntu') {
           my $sitestatus = "$apache2_mods_available_dir/status.conf";
           my $stdstatus = "$instdir/debian-ubuntu/status.conf";
           if ((-e $sitestatus) && (-e $stdstatus)) {
               if (open(PIPE, "diff --brief $stdstatus $sitestatus |")) {
                   my $diffres = <PIPE>;
                   close(PIPE);
                   chomp($diffres);
                   if ($diffres) {
                       copy("$apache2_mods_available_dir/status.conf","$apache2_mods_available_dir/status.conf.original");
                   } else {
                       $skipstatus = 1;
                   }
               }
           }
           unless ($skipstatus) {
               if (-e $stdstatus) {
                   print_and_log(&mt('Copying loncapa [_1] file to [_2],',"'status.conf'","'/etc/apache2/mods-available/status.conf'")."\n");
                   copy($stdstatus,$sitestatus);
                   chmod(0644,$sitestatus);
               }
           }
     }      }
     print_and_log("\n");      print_and_log("\n");
 }  }
Removed from v.1.63  
changed lines
  Added in v.1.65

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