[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.45.2.10 and 1.45.2.11

version 1.45.2.10, 2021/03/11 21:00:36 version 1.45.2.11, 2021/03/13 00:05:06
Line 27  use strict; Line 27  use strict;
 use File::Copy;  use File::Copy;
 use Term::ReadKey;  use Term::ReadKey;
 use DBI;  use DBI;
   use File::Spec;
 use Cwd();  use Cwd();
 use File::Basename();  use File::Basename();
 use lib File::Basename::dirname(Cwd::abs_path($0));  use lib File::Basename::dirname(Cwd::abs_path($0));
Line 2324  sub copy_apache2_debconf { Line 2325  sub copy_apache2_debconf {
                     copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.conf.original");                      copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.conf.original");
                 } else {                  } else {
                     copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.conf");                      copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.conf");
                     symlink("$apache2_conf_available_dir/loncapa.conf","$defaultconf");                      chdir($apache2_conf_enabled_dir);
                       symlink('../conf-available/loncapa.conf','loncapa.conf');
                       chdir($instdir);
                 }                  }
                 if (-l $defaultconf) {                  if (-l $defaultconf) {
                     my $linkfname = readlink($defaultconf);                      my $linkfname = readlink($defaultconf);
                       if ($linkfname ne '') {
                           $linkfname = Cwd::abs_path(File::Spec->rel2abs($linkfname,$apache2_conf_enabled_dir));
                       }
                     if ($linkfname eq "$apache2_conf_available_dir/loncapa") {                      if ($linkfname eq "$apache2_conf_available_dir/loncapa") {
                         unlink($defaultconf);                          unlink($defaultconf);
                     }                      }
Line 2345  sub copy_apache2_debconf { Line 2351  sub copy_apache2_debconf {
                 }                  }
                 if (-l $defaultconf) {                  if (-l $defaultconf) {
                     my $linkfname = readlink($defaultconf);                      my $linkfname = readlink($defaultconf);
                       if ($linkfname ne '') {
                           $linkfname = Cwd::abs_path(File::Spec->rel2abs($linkfname,$apache2_conf_enabled_dir));
                       }
                     if ($linkfname eq "$apache2_conf_available_dir/loncapa.conf") {                      if ($linkfname eq "$apache2_conf_available_dir/loncapa.conf") {
                         unless ($diffres) {                          unless ($diffres) {
                             $skipconf = 1;                              $skipconf = 1;
Line 2360  sub copy_apache2_debconf { Line 2369  sub copy_apache2_debconf {
             if (-l $defaultconf) {              if (-l $defaultconf) {
                 unlink($defaultconf);                  unlink($defaultconf);
             }              }
             symlink("$apache2_conf_available_dir/loncapa.conf","$defaultconf");              chdir($apache2_conf_enabled_dir);
               symlink('../conf-available/loncapa.conf','loncapa.conf');
               chdir($instdir);
         }          }
         my $stdsite = "$instdir/debian-ubuntu/ubuntu14/loncapa_site";          my $stdsite = "$instdir/debian-ubuntu/ubuntu14/loncapa_site";
         if ((-e $stdsite) && (-e "$apache2_sites_available_dir/loncapa")) {          if ((-e $stdsite) && (-e "$apache2_sites_available_dir/loncapa")) {
Line 2375  sub copy_apache2_debconf { Line 2386  sub copy_apache2_debconf {
                 }                  }
                 if (-l $defaultconfig) {                  if (-l $defaultconfig) {
                     my $linkfname = readlink($defaultconfig);                      my $linkfname = readlink($defaultconfig);
                       if ($linkfname ne '') {
                           $linkfname = Cwd::abs_path(File::Spec->rel2abs($linkfname,$apache2_sites_enabled_dir));
                       }
                     if ($linkfname eq "$apache2_sites_available_dir/loncapa") {                      if ($linkfname eq "$apache2_sites_available_dir/loncapa") {
                         unlink($defaultconfig);                          unlink($defaultconfig);
                     }                      }
Line 2392  sub copy_apache2_debconf { Line 2406  sub copy_apache2_debconf {
                 }                  }
                 if (-l $defaultsite) {                  if (-l $defaultsite) {
                     my $linkfname = readlink($defaultsite);                      my $linkfname = readlink($defaultsite);
                     if ($linkfname eq "$apache2_conf_available_dir/loncapa.conf") {                      if ($linkfname ne '') {
                           $linkfname = Cwd::abs_path(File::Spec->rel2abs($linkfname,$apache2_sites_enabled_dir));
                       }
                       if ($linkfname eq "$apache2_sites_available_dir/loncapa.conf") {
                         unless ($diffres) {                          unless ($diffres) {
                             $skipsite = 1;                              $skipsite = 1;
                         }                          }
Line 2404  sub copy_apache2_debconf { Line 2421  sub copy_apache2_debconf {
             print_and_log(&mt('Copying loncapa [_1] site file to [_2] and pointing [_3] to it from sites-enabled.',"'apache2'","'/etc/apache2/sites-available'","'loncapa.conf symlink'")."\n");              print_and_log(&mt('Copying loncapa [_1] site file to [_2] and pointing [_3] to it from sites-enabled.',"'apache2'","'/etc/apache2/sites-available'","'loncapa.conf symlink'")."\n");
             copy("$instdir/debian-ubuntu/ubuntu14/loncapa_site","$apache2_sites_available_dir/loncapa.conf");              copy("$instdir/debian-ubuntu/ubuntu14/loncapa_site","$apache2_sites_available_dir/loncapa.conf");
             chmod(0444,"$apache2_sites_available_dir/loncapa.conf");              chmod(0444,"$apache2_sites_available_dir/loncapa.conf");
             symlink("$apache2_sites_available_dir/loncapa.conf","$defaultsite");              chdir($apache2_sites_enabled_dir);
               symlink('../sites-available/loncapa.conf','loncapa.conf');
               chdir($instdir);
         }          }
         if (-l defaultconfig) {          if (-l $defaultconfig) {
             my $linkfname = readlink($defaultconfig);              my $linkfname = readlink($defaultconfig);
             if ($linkfname eq "$apache2_sites_available_dir/000-default") {              if ($linkfname ne '') {
                   $linkfname = Cwd::abs_path(File::Spec->rel2abs($linkfname,$apache2_sites_enabled_dir));
               }
               if ($linkfname eq "$apache2_sites_available_dir/000-default.conf") {
                 unlink($defaultconfig);                  unlink($defaultconfig);
             }              }
         }          }
Removed from v.1.45.2.10  
changed lines
  Added in v.1.45.2.11

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