doc/install/linux/install.pl - diff

Return to install.pl CVS log

Up to [LON-CAPA] / doc / install / linux

Diff for /doc/install/linux/install.pl between versions 1.68 and 1.88

version 1.68, 2020/11/11 20:58:37	version 1.88, 2024/06/12 23:35:04
Line 29 use Term::ReadKey;	Line 29 use Term::ReadKey;
use Socket;	use Socket;
use Sys::Hostname::FQDN();	use Sys::Hostname::FQDN();
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 211 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) 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 221 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 456 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 521 sub check_required {	Line 537 sub check_required {
}	}
my ($mysqlon,$mysqlsetup,$mysqlrestart,$dbh,$has_pass,$mysql_unix_socket,$has_lcdb,	my ($mysqlon,$mysqlsetup,$mysqlrestart,$dbh,$has_pass,$mysql_unix_socket,$has_lcdb,
%recommended,$downloadstatus,$filetouse,$production,$testing,$apachefw,	%recommended,$downloadstatus,$filetouse,$production,$testing,$apachefw,
$tostop,$uses_systemctl,$hostname,$hostip);	$tostop,$uses_systemctl,$mysql_has_wwwuser,$hostname,$hostip);
my $wwwuid = &uid_of_www();	my $wwwuid = &uid_of_www();
my $wwwgid = getgrnam('www');	my $wwwgid = getgrnam('www');
if (($wwwuid eq '') \|\| ($wwwgid eq '')) {	if (($wwwuid eq '') \|\| ($wwwgid eq '')) {
Line 551 sub check_required {	Line 567 sub check_required {
print_and_log("\n".&mt('Hostname is [_1] and IP address is [_2]',$hostname,$hostip)."\n");	print_and_log("\n".&mt('Hostname is [_1] and IP address is [_2]',$hostname,$hostip)."\n");
$mysqlon = &check_mysql_running($distro);	$mysqlon = &check_mysql_running($distro);
if ($mysqlon) {	if ($mysqlon) {
my $mysql_has_wwwuser = &check_mysql_wwwuser();
($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser,$mysql_unix_socket) =	($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser,$mysql_unix_socket) =
&check_mysql_setup($instdir,$dsn,$distro,$mysql_has_wwwuser);	&check_mysql_setup($instdir,$dsn,$distro);
if ($mysqlsetup eq 'needsrestart') {	if ($mysqlsetup eq 'needsrestart') {
$mysqlrestart = '';	$mysqlrestart = '';
if ($distro eq 'ubuntu') {	if ($distro eq 'ubuntu') {
Line 585 sub check_required {	Line 600 sub check_required {
$nochgstd,$nochgint) = &chkapachessl($distro,$instdir,$hostname,$hostip);	$nochgstd,$nochgint) = &chkapachessl($distro,$instdir,$hostname,$hostip);
$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($distro,$instdir);
return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,	return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,
$mysqlrestart,\%recommended,$dbh,$has_pass,$mysql_unix_socket,	$mysqlrestart,\%recommended,$dbh,$has_pass,$mysql_unix_socket,
$has_lcdb,$downloadstatus,$filetouse,$production,$testing,$apachefw,	$has_lcdb,$downloadstatus,$filetouse,$production,$testing,$apachefw,
Line 616 sub check_mysql_running {	Line 631 sub check_mysql_running {
if ($1 >= 19) {	if ($1 >= 19) {
$mysqldaemon ='mariadb';	$mysqldaemon ='mariadb';
}	}
} elsif ($distro =~ /^(?:centos\|rhes\|scientific\|oracle)(\d+)/) {	if ($1 >= 34) {
	$process = 'mariadb';
	}
	} 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 763 sub chkconfig {	Line 784 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 879 sub uses_firewalld {	Line 900 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;
}	}
}	}
if ($checkfirewalld) {	if ($checkfirewalld) {
my ($loaded,$active);	my ($loaded,$active);
if (open(PIPE,"systemctl status firewalld \|")) {	if (open(PIPE,"systemctl status firewalld 2>/dev/null \|")) {
while (<PIPE>) {	while (<PIPE>) {
chomp();	chomp();
if (/^\s*Loaded:\s+(\w+)/) {	if (/^\s*Loaded:\s+(\w+)/) {
$loaded = $1;	$loaded = $1;
}	}
if (/^\s*Active\s+(\w+)/) {	if (/^\s*Active:\s+(\w+)/) {
$active = $1;	$active = $1;
}	}
}	}
Line 983 sub chkapache {	Line 1004 sub chkapache {
} else {	} else {
my ($configfile,$sitefile);	my ($configfile,$sitefile);
if (($distname eq 'ubuntu') && ($version > 12)) {	if (($distname eq 'ubuntu') && ($version > 12)) {
$sitefile = '/etc/apache2/sites-available/loncapa';	$sitefile = '/etc/apache2/sites-available/loncapa.conf';
$configfile = "/etc/apache2/conf-available/loncapa";	$configfile = '/etc/apache2/conf-available/loncapa.conf';
} else {	} else {
$configfile = "/etc/apache2/sites-available/loncapa";	$configfile = '/etc/apache2/sites-available/loncapa';
}	}
if (($configfile ne '') && (-e $configfile) && (-e $stdconf)) {	if (($configfile ne '') && (-e $configfile) && (-e $stdconf)) {
if (open(PIPE, "diff --brief $stdconf $configfile \|")) {	if (open(PIPE, "diff --brief $stdconf $configfile \|")) {
Line 1072 sub chkapache {	Line 1093 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 1440 sub chksrvcs {	Line 1461 sub chksrvcs {
}	}

sub need_download {	sub need_download {
	my ($distro,$instdir) = @_;
my $needs_download = 1;	my $needs_download = 1;
my ($production,$testing,$stdsizes) = &download_versionslist();	my ($production,$testing,$stdsizes) = &download_versionslist();
my ($rootdir,$localcurrent,$localtesting,%tarball,%localsize,%bymodtime,	my ($localcurrent,$localtesting,%tarball,%localsize,%bymodtime,
%bysize,$filetouse,$downloadstatus);	%bysize,$filetouse,$downloadstatus);
$rootdir = '/root';	if (opendir(my $dir,$instdir)) {
if (opendir(my $dir,"$rootdir")) {
my (@lcdownloads,$version);	my (@lcdownloads,$version);
foreach my $file (readdir($dir)) {	foreach my $file (readdir($dir)) {
if ($file =~ /^loncapa\-([\w\-.]+)\.tar\.gz$/) {	if ($file =~ /^loncapa\-([\w\-.]+)\.tar\.gz$/) {
Line 1455 sub need_download {	Line 1476 sub need_download {
}	}
if (ref($stdsizes) eq 'HASH') {	if (ref($stdsizes) eq 'HASH') {
if ($version eq 'current') {	if ($version eq 'current') {
my @stats = stat("$rootdir/$file");	my @stats = stat("$instdir/$file");
$localcurrent = $stats[7];	$localcurrent = $stats[7];
if ($localcurrent == $stdsizes->{$production}) {	if ($localcurrent == $stdsizes->{$production}) {
$needs_download = 0;	$needs_download = 0;
$filetouse = $file;	$filetouse = $file;
}	}
} elsif ($version eq 'testing') {	} elsif ($version eq 'testing') {
my @stats = stat("$rootdir/$file");	my @stats = stat("$instdir/$file");
$localtesting = $stats[7];	$localtesting = $stats[7];
if ($localtesting == $stdsizes->{$testing}) {	if ($localtesting == $stdsizes->{$testing}) {
$needs_download = 0;	$needs_download = 0;
Line 1476 sub need_download {	Line 1497 sub need_download {
if ($needs_download) {	if ($needs_download) {
if (@lcdownloads > 0) {	if (@lcdownloads > 0) {
foreach my $version (@lcdownloads) {	foreach my $version (@lcdownloads) {
my @stats = stat("$rootdir/$tarball{$version}");	my @stats = stat("$instdir/$tarball{$version}");
my $mtime = $stats[9];	my $mtime = $stats[9];
$localsize{$version} = $stats[7];	$localsize{$version} = $stats[7];
if ($mtime) {	if ($mtime) {
Line 1509 sub need_download {	Line 1530 sub need_download {
my $newest = $sorted[0];	my $newest = $sorted[0];
if (ref($bymodtime{$newest}) eq 'ARRAY') {	if (ref($bymodtime{$newest}) eq 'ARRAY') {
$downloadstatus =	$downloadstatus =
"Latest LON-CAPA source download in $rootdir is: ".	"Latest LON-CAPA source download in $instdir is: ".
join(',',@{$bymodtime{$newest}})." (downloaded ".	join(',',@{$bymodtime{$newest}})." (downloaded ".
localtime($newest).")\n";	localtime($newest).")\n";
}	}
} else {	} else {
$downloadstatus =	$downloadstatus =
"The $rootdir directory already contains the latest LON-CAPA version:".	"The $instdir directory already contains the latest LON-CAPA version:".
"\n".$filetouse."\n"."which can be used for installation.\n";	"\n".$filetouse."\n"."which can be used for installation.\n";
}	}
} else {	} else {
$downloadstatus = "The $rootdir directory does not appear to contain any downloaded LON-CAPA source code files which can be used for installation.\n";	$downloadstatus = "The $instdir directory does not appear to contain any downloaded LON-CAPA source code files which can be used for installation.\n";
}	}
}	}
} else {	} else {
$downloadstatus = "Could not open $rootdir directory to look for existing downloads of LON-CAPA source code.\n";	$downloadstatus = "Could not open $instdir directory to look for existing downloads of LON-CAPA source code.\n";
}	}
return ($needs_download,$downloadstatus,$filetouse,$production,$testing);	return ($needs_download,$downloadstatus,$filetouse,$production,$testing);
}	}

sub check_mysql_setup {	sub check_mysql_setup {
my ($instdir,$dsn,$distro,$mysql_has_wwwuser) = @_;	my ($instdir,$dsn,$distro) = @_;
my ($mysqlsetup,$has_pass,$mysql_unix_socket);	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 1547 sub check_mysql_setup {	Line 1568 sub check_mysql_setup {
if ($mysql_unix_socket) {	if ($mysql_unix_socket) {
print_and_log(&mt('MariaDB using unix_socket for root access from localhost.')."\n");	print_and_log(&mt('MariaDB using unix_socket for root access from localhost.')."\n");
$mysqlsetup = 'rootok';	$mysqlsetup = 'rootok';
$mysql_unix_socket = 1;	$mysql_has_wwwuser = &check_mysql_wwwuser($dbh);
unless ($mysql_has_wwwuser) {
$mysql_has_wwwuser = &check_mysql_wwwuser();
}
return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser,$mysql_unix_socket);	return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser,$mysql_unix_socket);
}	}
}	}
}	}
if ($dbh) {	if ($dbh) {
$mysqlsetup = 'noroot';	$mysqlsetup = 'noroot';
	if (($mysqlname !~ /^MariaDB/i) && (($mysqlversion == 5 && $mysqlminorversion >= 7) \|\| ($mysqlversion >= 6))) {
	my $sth = $dbh->prepare("SELECT plugin from mysql.user where User='root'");
	$sth->execute();
	while (my $priv = $sth->fetchrow_array) {
	if ($priv =~ /auth_socket/) {
	$mysql_unix_socket = 1;
	last;
	}
	}
	$sth->finish();
	if ($mysql_unix_socket) {
	print_and_log(&mt('MySQL using unix_socket for root access from localhost.')."\n");
	$mysqlsetup = 'rootok';
	$mysql_has_wwwuser = &check_mysql_wwwuser($dbh);
	return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser,$mysql_unix_socket);
	}
	}
} elsif ($DBI::err =~ /1045/) {	} elsif ($DBI::err =~ /1045/) {
$has_pass = 1;	$has_pass = 1;
} elsif ($distro =~ /^ubuntu(\d+)$/) {	} elsif ($distro =~ /^ubuntu(\d+)$/) {
Line 1569 sub check_mysql_setup {	Line 1604 sub check_mysql_setup {
}	}
close(PIPE);	close(PIPE);
}	}
unless ($mysql_has_wwwuser) {
$mysql_has_wwwuser = &check_mysql_wwwuser();
}
$dbh = DBI->connect($dsn,'root','',{'PrintError'=>0});	$dbh = DBI->connect($dsn,'root','',{'PrintError'=>0});
if ($dbh) {	if ($dbh) {
$mysqlsetup = 'noroot';	$mysqlsetup = 'noroot';
	$mysql_has_wwwuser = &check_mysql_wwwuser($dbh);
} elsif ($DBI::err =~ /1045/) {	} elsif ($DBI::err =~ /1045/) {
$has_pass = 1;	$has_pass = 1;
} else {	} else {
$mysqlsetup = 'needsrestart';	$mysqlsetup = 'needsrestart';
	$mysql_has_wwwuser = &check_mysql_wwwuser();
return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser);	return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser);
}	}
}	}
Line 1590 sub check_mysql_setup {	Line 1624 sub check_mysql_setup {
if ($dbh) {	if ($dbh) {
$mysqlsetup = 'rootok';	$mysqlsetup = 'rootok';
print_and_log(&mt('Password accepted.')."\n");	print_and_log(&mt('Password accepted.')."\n");
	$mysql_has_wwwuser = &check_mysql_wwwuser($dbh);
} else {	} else {
$mysqlsetup = 'rootfail';	$mysqlsetup = 'rootfail';
print_and_log(&mt('Problem accessing MySQL.')."\n");	print_and_log(&mt('Problem accessing MySQL.')."\n");
Line 1601 sub check_mysql_setup {	Line 1636 sub check_mysql_setup {
if ($dbh) {	if ($dbh) {
$mysqlsetup = 'rootok';	$mysqlsetup = 'rootok';
print_and_log(&mt('Password accepted.')."\n");	print_and_log(&mt('Password accepted.')."\n");
	$mysql_has_wwwuser = &check_mysql_wwwuser($dbh);
} else {	} else {
if ($DBI::err =~ /1045/) {	if ($DBI::err =~ /1045/) {
print_and_log(&mt('Incorrect password.')."\n");	print_and_log(&mt('Incorrect password.')."\n");
}	}
	$mysql_has_wwwuser = &check_mysql_wwwuser();
}	}
}	}
}	}
} elsif ($mysqlsetup ne 'noroot') {	} elsif ($mysqlsetup ne 'noroot') {
print_and_log(&mt('Problem accessing MySQL.')."\n");	print_and_log(&mt('Problem accessing MySQL.')."\n");
$mysqlsetup = 'rootfail';	$mysqlsetup = 'rootfail';
	$mysql_has_wwwuser = &check_mysql_wwwuser();
}	}
return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser);	return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser);
}	}

sub check_mysql_wwwuser {	sub check_mysql_wwwuser {
	my ($dbh) = @_;
my $mysql_wwwuser;	my $mysql_wwwuser;
my $dbhn = DBI->connect("DBI:mysql:database=information_schema",'www','localhostkey',	if ($dbh) {
{PrintError => +0}) \|\| return;	$mysql_wwwuser = $dbh->selectrow_array("SELECT COUNT(User) FROM mysql.user WHERE (User = 'www' AND Host ='localhost')");
if ($dbhn) {	} else {
$mysql_wwwuser = 1;	my $dbhn = DBI->connect("DBI:mysql:database=information_schema",'www','localhostkey',
$dbhn->disconnect;	{PrintError => +0}) \|\| return;
	if ($dbhn) {
	$mysql_wwwuser = 1;
	$dbhn->disconnect;
	}
}	}
return $mysql_wwwuser;	return $mysql_wwwuser;
}	}
Line 1657 sub get_pathto_iptables {	Line 1700 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 1981 my $lctarball = 'loncapa-current.tar.gz'	Line 2040 my $lctarball = 'loncapa-current.tar.gz'
my $sourcetarball = $lctarball;	my $sourcetarball = $lctarball;
if ($callsub{'download'}) {	if ($callsub{'download'}) {
my ($production,$testing,$sizes) = &download_versionslist();	my ($production,$testing,$sizes) = &download_versionslist();
	my $homedir = '/root';
	if ($distro =~ /^ubuntu/) {
	if ($instdir ne $homedir) {
	($homedir) = ($instdir =~ m{^(.*)/[^/]+$});
	}
	}
if ($production && $testing) {	if ($production && $testing) {
if ($production ne $testing) {	if ($production ne $testing) {
print &mt('Two recent LON-CAPA releases are available: ')."\n".	print &mt('Two recent LON-CAPA releases are available: ')."\n".
&mt('1.').' '.&mt('A production release - version: [_1].',$production)."\n".	&mt('1.').' '.&mt('A production release - version: [_1].',$production)."\n".
&mt('2.').' '.&mt('A testing release - version: [_1].',$testing)."\n\n".	&mt('2.').' '.&mt('A testing release - version: [_1].',$testing)."\n\n".
&mt('Download the production release? ~[Y/n~]');	&mt("After download, the tar.gz file will be extracted into $homedir")."\n\n".
	&mt("Download the production release into $instdir? ~[Y/n~]");
if (&get_user_selection(1)) {	if (&get_user_selection(1)) {
$sourcetarball = 'loncapa-'.$production.'.tar.gz';	$sourcetarball = 'loncapa-'.$production.'.tar.gz';
	print "$sourcetarball will be downloaded into $instdir\n";
} else {	} else {
print "\n".&mt('Download the testing release? ~[Y/n~]');	print "\n".&mt('Download the testing release? ~[Y/n~]');
if (&get_user_selection(1)) {	if (&get_user_selection(1)) {
$sourcetarball = 'loncapa-'.$testing.'.tar.gz';	$sourcetarball = 'loncapa-'.$testing.'.tar.gz';
	print "$sourcetarball will be downloaded into $instdir\n";
	} else {
	$callsub{'download'} = 0;
}	}
}	}
}	}
} elsif ($production) {	} elsif ($production) {
print &mt('The most recent LON-CAPA release is version: [_1].',$production)."\n".	print &mt('The most recent LON-CAPA release is version: [_1].',$production)."\n".
&mt('Download the production release? ~[Y/n~]');	&mt("After download, the tar.gz file will be extracted into $homedir")."\n\n".
	&mt("Download the production release into $instdir? ~[Y/n~]");
if (&get_user_selection(1)) {	if (&get_user_selection(1)) {
$sourcetarball = 'loncapa-'.$production.'.tar.gz';	$sourcetarball = 'loncapa-'.$production.'.tar.gz';
	print "$sourcetarball will be downloaded into $instdir\n";
	} else {
	$callsub{'download'} = 0;
}	}
}	}
} elsif ($filetouse ne '') {	} elsif ($filetouse ne '') {
Line 2025 if ($callsub{'pwauth'}) {	Line 2099 if ($callsub{'pwauth'}) {
if ($callsub{'mysql'}) {	if ($callsub{'mysql'}) {
if ($dbh) {	if ($dbh) {
&setup_mysql($callsub{'mysqlperms'},$dbh,$has_pass,	&setup_mysql($callsub{'mysqlperms'},$dbh,$has_pass,
$mysql_unix_socket,$has_lcdb);	$mysql_unix_socket,$has_lcdb,$distro);
} else {	} else {
print &mt('Unable to configure MySQL because access is denied.')."\n";	print &mt('Unable to configure MySQL because access is denied.')."\n";
}	}
Line 2148 if ($callsub{'firewall'}) {	Line 2222 if ($callsub{'firewall'}) {
if (keys(%added) > 0) {	if (keys(%added) > 0) {
print &mt('Firewall configured to allow access for: [_1].',	print &mt('Firewall configured to allow access for: [_1].',
join(', ',sort(keys(%added))))."\n";	join(', ',sort(keys(%added))))."\n";
	system('firewall-cmd --reload');
}	}
if ($current{'http'} \|\| $current{'https'}) {	if ($current{'http'} \|\| $current{'https'}) {
print &mt('Firewall already configured to allow access for:[_1].',	print &mt('Firewall already configured to allow access for:[_1].',
(($current{'http'})? ' http':'').(($current{'https'})? ' https':''))."\n";	(($current{'http'})? ' http':'').(($current{'https'})? ' https':''))."\n";
}	}
unless ($current{'ssh'}) {	unless ($current{'ssh'}) {
print &mt('If you would the like to allow access to ssh from outside, use the command[_1].',	print &mt('If you would like to allow access to ssh from outside, use the commands:')."\n".
"firewall-cmd --permanent --zone=$zone --add-service=ssh")."\n";	"firewall-cmd --permanent --zone=$zone --add-service=ssh\n".
	"firewall-cmd --reload\n";
}	}
} elsif ($distro =~ /^(suse\|sles)/) {	} elsif ($distro =~ /^(suse\|sles)/) {
print &mt('Use [_1] to configure the firewall to allow access for [_2].',	print &mt('Use [_1] to configure the firewall to allow access for [_2].',
Line 2183 if ($callsub{'firewall'}) {	Line 2259 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 2214 if ($callsub{'download'}) {	Line 2290 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.').	&print_and_log(&mt('LON-CAPA is not yet installed on your system.')."\n\n");
"\n\n".	unless ($filetouse) {
&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");
	}
} else {	} else {
my $currentversion;	my $currentversion;
if (open(my $fh,"</etc/loncapa-release")) {	if (open(my $fh,"</etc/loncapa-release")) {
Line 2244 if ($callsub{'download'}) {	Line 2321 if ($callsub{'download'}) {
}	}

print "\n".&mt('Requested configuration complete.')."\n\n";	print "\n".&mt('Requested configuration complete.')."\n\n";
my $apachename;
if ($have_tarball && !$updateshown) {	if ($have_tarball && !$updateshown) {
my ($lcdir) = ($sourcetarball =~ /^([\w.\-]+)\.tar.gz$/);	my ($lcdir) = ($sourcetarball =~ /^([\w.\-]+)\.tar.gz$/);
if (!-e '/etc/loncapa-release') {	if ($lcdir eq 'loncapa-current') {
print &mt('If you are now ready to install LON-CAPA, enter the following commands:')."\n\n";	$lcdir = "loncapa-X.Y.Z (X.Y.Z should correspond to a version number like '2.11.3')";
} else {	}
print &mt('If you are now ready to update LON-CAPA, enter the following commands:')."\n\n".	my ($apachename,$lc_uses_systemctl,$uses_sudo);
"/etc/init.d/loncontrol stop\n";	if ($distro =~ /^(suse\|sles\|debian\|ubuntu)([\d.]+)/) {
if ($distro =~ /^(suse\|sles\|debian\|ubuntu)([\d.]+)/) {	if (($1 eq 'suse') && ($2 < 10)) {
if (($1 eq 'suse') && ($2 < 10)) {	$apachename = 'apache';
$apachename = 'apache';
} else {
$apachename = 'apache2';
}
} else {	} else {
$apachename = 'httpd';	$apachename = 'apache2';
}	}
print "/etc/init.d/$apachename stop\n";	} else {
	$apachename = 'httpd';
}	}
print "cd /root\n".	if ($distro =~ /^oracle(\d+)$/) {
"tar zxf $sourcetarball\n".	if ($1 > 6) {
"cd $lcdir\n".	$lc_uses_systemctl = 1;
"./UPDATE\n";	}
	} elsif ($distro =~ /^(?:rhes\|centos\|rocky\|alma)(\d+)/) {
	if ($1 > 7) {
	$lc_uses_systemctl = 1;
	}
	} elsif ($distro =~ /^ubuntu(\d+)$/) {
	if ($1 > 16) {
	$lc_uses_systemctl = 1;
	}
	$uses_sudo = 1;
	} elsif ($distro =~ /^sles(\d+)$/) {
	if ($1 > 12) {
	$lc_uses_systemctl = 1;
	}
	}
	if (!-e '/etc/loncapa-release') {
	print &mt('If you are now ready to install LON-CAPA, enter the following commands:')."\n\n";
	} else {
	my $lcstop = '/etc/init.d/loncontrol stop';
	if ($lc_uses_systemctl) {
	$lcstop = 'systemctl stop loncontrol';
	}
	my $apachestop = "/etc/init.d/$apachename stop";
	if ($uses_systemctl) {
	$apachestop = "systemctl stop $apachename";
	}
	if ($uses_sudo) {
	$lcstop = 'sudo '.$lcstop;
	$apachestop = 'sudo '.$apachestop;
	}
	print &mt('If you are now ready to update LON-CAPA, enter the following commands:').
	"\n\n$lcstop\n$apachestop\n";
	}
	my ($extract,$update);
	my $homedir = '/root';
	if ($uses_sudo) {
	$extract = 'sudo ';
	$update = 'sudo ';
	if ($instdir ne $homedir) {
	($homedir) = ($instdir =~ m{^(.*)/[^/]+$});
	}
	}
	$extract .= "tar zxf $sourcetarball --directory $homedir";
	$update .= './UPDATE';
	print "$extract\n".
	"cd $homedir/$lcdir\n".
	"$update\n";
if (-e '/etc/loncapa-release') {	if (-e '/etc/loncapa-release') {
print "/etc/init.d/loncontrol start\n";	my $lcstart = '/etc/init.d/loncontrol start';
print "/etc/init.d/$apachename start\n";	if ($lc_uses_systemctl) {
	$lcstart = '/home/httpd/perl/loncontrol start';
	}
	my $apachestart = "/etc/init.d/$apachename start";
	if ($uses_systemctl) {
	$apachestart = "systemctl start $apachename";
	}
	if ($uses_sudo) {
	$lcstart = 'sudo '.$lcstart;
	$apachestart = 'sudo '.$apachestart;
	}
	print "$lcstart\n";
	print "$apachestart\n";
}	}
}	}
exit;	exit;
Line 2338 sub build_and_install_mod_auth_external	Line 2469 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 2348 ENDPATCH	Line 2502 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 2453 sub kill_extra_services {	Line 2615 sub kill_extra_services {
}	}

sub setup_mysql {	sub setup_mysql {
my ($setup_mysql_permissions,$dbh,$has_pass,$mysql_unix_socket,$has_lcdb) = @_;	my ($setup_mysql_permissions,$dbh,$has_pass,$mysql_unix_socket,$has_lcdb,$distro) = @_;
my @mysql_lc_commands;	my @mysql_lc_commands;
unless ($has_lcdb) {	unless ($has_lcdb) {
push(@mysql_lc_commands,"CREATE DATABASE loncapa");	my $createcmd = 'CREATE DATABASE loncapa';
	if ($distro =~ /^sles(\d+)/) {
	if ($1 > 11) {
	$createcmd .= ' CHARACTER SET utf8 COLLATE utf8_general_ci';
	}
	} elsif ($distro =~ /^ubuntu(\d+)/) {
	if ($1 > 16) {
	$createcmd .= ' CHARACTER SET latin1 COLLATE latin1_swedish_ci';
	}
	}
	push(@mysql_lc_commands,$createcmd);
}	}
push(@mysql_lc_commands,"USE loncapa");	push(@mysql_lc_commands,"USE loncapa");
push(@mysql_lc_commands,qq{	push(@mysql_lc_commands,qq{
Line 2481 CREATE TABLE IF NOT EXISTS metadata (tit	Line 2653 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;
}	}
}	}
if ($usescreate) {	if ($usescreate) {
@mysql_commands = ("CREATE USER 'www'\@'localhost' IDENTIFIED BY 'localhostkey'");	@mysql_commands = ("CREATE USER 'www'\@'localhost' IDENTIFIED BY 'localhostkey'");
} elsif ($usesauth) {	} elsif ($usesauth) {
@mysql_commands = ("INSERT user (Host, User, ssl_cipher, x509_issuer, x509_subject, authentication_string) VALUES('localhost','www','','','','')");	@mysql_commands = ("INSERT user (Host, User, ssl_cipher, x509_issuer, x509_subject, authentication_string) VALUES('localhost','www','','','','')",
	"FLUSH PRIVILEGES");
if ($is_mariadb) {	if ($is_mariadb) {
push(@mysql_commands,"ALTER USER 'www'\@'localhost' IDENTIFIED BY 'localhostkey'");	push(@mysql_commands,"ALTER USER 'www'\@'localhost' IDENTIFIED BY 'localhostkey'");
} else {	} else {
Line 2608 sub new_mysql_rootpasswd {	Line 2783 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 2631 sub get_mysql_version {	Line 2806 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 2678 sub copy_mpm_conf {	Line 2853 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 3193 sub copy_apache2_debconf {	Line 3368 sub copy_apache2_debconf {
my $apache2_sites_enabled_dir = '/etc/apache2/sites-enabled';	my $apache2_sites_enabled_dir = '/etc/apache2/sites-enabled';
my $apache2_sites_available_dir = '/etc/apache2/sites-available';	my $apache2_sites_available_dir = '/etc/apache2/sites-available';
my $defaultconfig = "$apache2_sites_enabled_dir/000-default";	my $defaultconfig = "$apache2_sites_enabled_dir/000-default";
	my $defaultsite = "$apache2_sites_enabled_dir/loncapa.conf";
my ($distname,$version);	my ($distname,$version);
if ($distro =~ /^(debian\|ubuntu)(\d+)$/) {	if ($distro =~ /^(debian\|ubuntu)(\d+)$/) {
$distname = $1;	$distname = $1;
Line 3212 sub copy_apache2_debconf {	Line 3388 sub copy_apache2_debconf {
close(PIPE);	close(PIPE);
chomp($diffres);	chomp($diffres);
if ($diffres) {	if ($diffres) {
copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.original");	copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.conf.original");
	} else {
	copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.conf");
	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("$apache2_conf_available_dir/loncapa");
	}
	}
	if ((-e "$apache2_conf_available_dir/loncapa.conf") && (-e "$instdir/debian-ubuntu/ubuntu14/loncapa_conf")) {
	if (open(PIPE, "diff --brief $apache2_conf_available_dir/loncapa.conf $instdir/debian-ubuntu/ubuntu14/loncapa_conf \|")) {
	my $diffres = <PIPE>;
	close(PIPE);
	chomp($diffres);
	if ($diffres) {
	copy("$apache2_conf_available_dir/loncapa.conf","$apache2_conf_available_dir/loncapa.conf.original");
	}
	if (-l $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") {
unless ($diffres) {	unless ($diffres) {
$skipconf = 1;	$skipconf = 1;
}	}
Line 3226 sub copy_apache2_debconf {	Line 3430 sub copy_apache2_debconf {
}	}
unless ($skipconf) {	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");	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");	copy("$instdir/debian-ubuntu/ubuntu14/loncapa_conf","$apache2_conf_available_dir/loncapa.conf");
chmod(0444,"$apache2_conf_available_dir/loncapa");	chmod(0444,"$apache2_conf_available_dir/loncapa.conf");
if (-l $defaultconf) {	if (-l $defaultconf) {
unlink($defaultconf);	unlink($defaultconf);
}	}
symlink("$apache2_conf_available_dir/loncapa","$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 3240 sub copy_apache2_debconf {	Line 3446 sub copy_apache2_debconf {
close(PIPE);	close(PIPE);
chomp($diffres);	chomp($diffres);
if ($diffres) {	if ($diffres) {
copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.original");	copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.conf.original");
	} else {
	copy("$apache2_sites_available_dir/loncapa","$apache2_sites_available_dir/loncapa.conf");
}	}
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("$apache2_sites_available_dir/loncapa");
	}
	}
	if ((-e $stdsite) && (-e "$apache2_sites_available_dir/loncapa.conf")) {
	if (open(PIPE, "diff --brief $stdsite $apache2_sites_available_dir/loncapa.conf \|")) {
	my $diffres = <PIPE>;
	close(PIPE);
	chomp($diffres);
	if ($diffres) {
	copy("$apache2_sites_available_dir/loncapa.conf","$apache2_sites_available_dir/loncapa.conf.original");
	}
	if (-l $defaultsite) {
	my $linkfname = readlink($defaultsite);
	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 3253 sub copy_apache2_debconf {	Line 3484 sub copy_apache2_debconf {
}	}
}	}
unless ($skipsite) {	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");	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");	copy("$instdir/debian-ubuntu/ubuntu14/loncapa_site","$apache2_sites_available_dir/loncapa.conf");
chmod(0444,"$apache2_sites_available_dir/loncapa");	chmod(0444,"$apache2_sites_available_dir/loncapa.conf");
symlink("$apache2_sites_available_dir/loncapa","$defaultconfig");	chdir($apache2_sites_enabled_dir);
	symlink('../sites-available/loncapa.conf','loncapa.conf');
	chdir($instdir);
	}
	if (-l $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/000-default.conf") {
	unlink($defaultconfig);
	}
}	}
} else {	} else {
if ((-e "$instdir/debian-ubuntu/loncapa") && (-e "$apache2_sites_available_dir/loncapa")) {	if ((-e "$instdir/debian-ubuntu/loncapa") && (-e "$apache2_sites_available_dir/loncapa")) {
Line 3490 sub download_loncapa {	Line 3732 sub download_loncapa {
print_and_log("	print_and_log("
------------------------------------------------------------------------	------------------------------------------------------------------------

".&mt('You seem to have a version of loncapa-current.tar.gz in [_1]',$instdir)."\n".	".&mt('You seem to have a version of [_1] in [_2]',$lctarball,$instdir)."\n".
&mt('This copy will be used and a new version will NOT be downloaded.')."\n".	&mt('This copy will be used and a new version will NOT be downloaded.')."\n".
&mt('If you wish, you may download a new version by executing:')."	&mt('If you wish, you may download a new version by executing:')."

wget http://install.loncapa.org/versions/loncapa-current.tar.gz	wget http://install.loncapa.org/versions/$lctarball

------------------------------------------------------------------------	------------------------------------------------------------------------
");	");
}	}

##	##
## untar loncapa.tar.gz	## untar loncapa-X.Y.Z.tar.gz
##	##
if ($have_tarball) {	if ($have_tarball) {
	my $homedir = '/root';
	my ($targetdir,$chdircmd,$updatecmd);
	if (($distro =~ /^ubuntu/) && ($instdir ne $homedir)) {
	($homedir) = ($instdir =~ m{^(.*)/[^/]+$});
	$updatecmd = 'sudo ./UPDATE';
	} else {
	$updatecmd = './UPDATE';
	}
print_and_log(&mt('Extracting LON-CAPA source files')."\n");	print_and_log(&mt('Extracting LON-CAPA source files')."\n");
writelog(`cd ~root; tar zxf $instdir/$lctarball`);	if (-e $homedir) {
	writelog(`tar zxf $instdir/$lctarball --directory $homedir`);
	$targetdir = $homedir;
	} else {
	writelog(`tar zxf $instdir/$lctarball`);
	$targetdir = $instdir;
	}
	if ($lctarball =~ /^loncapa\-(\d+\.\d+\.\d+(?:\|[^.]+))\.tar\.gz$/) {
	$chdircmd = "cd $targetdir/loncapa-".$1;
	} else {
	$chdircmd = "cd $targetdir/loncapa-X.Y.Z (X.Y.Z should correspond to a version number like '2.11.3')";
	}
print_and_log("\n");	print_and_log("\n");
print &mt('LON-CAPA source files extracted.')."\n".	print &mt('LON-CAPA source files extracted.')."\n".
&mt('It remains for you to execute the following commands:')."	&mt('It remains for you to execute the following commands:').
	"\n$chdircmd\n$updatecmd\n".
cd /root/loncapa-X.Y.Z (X.Y.Z should correspond to a version number like '2.11.3')	&mt('If you have any trouble, please see [_1] and [_2]',
./UPDATE	'http://install.loncapa.org/','http://help.loncapa.org/')."\n";

".&mt('If you have any trouble, please see [_1] and [_2]',
'http://install.loncapa.org/','http://help.loncapa.org/')."\n";
$updateshown = 1;	$updateshown = 1;
}	}
return ($have_tarball,$updateshown);	return ($have_tarball,$updateshown);

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

Removed from v.1.68
changed lines
	Added in v.1.88