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.32 and 1.45.2.8

version 1.32, 2014/10/29 20:56:18	version 1.45.2.8, 2020/07/08 17:40:18
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 Cwd();
	use File::Basename();
	use lib File::Basename::dirname(Cwd::abs_path($0));
use LCLocalization::localize;	use LCLocalization::localize;

# ========================================================= The language handle	# ========================================================= The language handle
Line 159 sub get_user_selection {	Line 162 sub get_user_selection {
}	}

sub get_distro {	sub get_distro {
my ($distro,$gotprereqs,$updatecmd,$packagecmd,$installnow);	my ($distro,$gotprereqs,$updatecmd,$packagecmd,$installnow,$unknown);
$packagecmd = '/bin/rpm -q LONCAPA-prerequisites ';	$packagecmd = '/bin/rpm -q LONCAPA-prerequisites ';
if (-e '/etc/redhat-release') {	if (-e '/etc/oracle-release') {
	open(IN,'</etc/oracle-release');
	my $versionstring=<IN>;
	chomp($versionstring);
	close(IN);
	if ($versionstring =~ /^Oracle Linux Server release (\d+)/) {
	my $version = $1;
	$distro = 'oracle'.$1;
	$updatecmd = 'yum install LONCAPA-prerequisites';
	$installnow = 'yum -y install LONCAPA-prerequisites';
	}
	} elsif (-e '/etc/redhat-release') {
open(IN,'</etc/redhat-release');	open(IN,'</etc/redhat-release');
my $versionstring=<IN>;	my $versionstring=<IN>;
chomp($versionstring);	chomp($versionstring);
Line 191 sub get_distro {	Line 205 sub get_distro {
$distro = 'rhes'.$1;	$distro = 'rhes'.$1;
$updatecmd = 'yum install LONCAPA-prerequisites';	$updatecmd = 'yum install LONCAPA-prerequisites';
$installnow = 'yum -y install LONCAPA-prerequisites';	$installnow = 'yum -y install LONCAPA-prerequisites';
	} elsif ($versionstring =~ /Red Hat Enterprise Linux release (\d+)/) {
	$distro = 'rhes'.$1;
	$updatecmd = 'dnf install LONCAPA-prerequisites';
	$installnow = 'dnf -y install LONCAPA-prerequisites';
} elsif ($versionstring =~ /CentOS(?:\| Linux) release (\d+)/) {	} elsif ($versionstring =~ /CentOS(?:\| Linux) release (\d+)/) {
$distro = 'centos'.$1;	$distro = 'centos'.$1;
$updatecmd = 'yum install LONCAPA-prerequisites';	$updatecmd = 'yum install LONCAPA-prerequisites';
Line 204 sub get_distro {	Line 222 sub get_distro {
} 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";
	$unknown = 1;
}	}
} elsif (-e '/etc/SuSE-release') {	} elsif (-e '/etc/SuSE-release') {
open(IN,'</etc/SuSE-release');	open(IN,'</etc/SuSE-release');
Line 230 sub get_distro {	Line 249 sub get_distro {
} else {	} else {
print &mt('Unable to interpret [_1] to determine system type.',	print &mt('Unable to interpret [_1] to determine system type.',
'/etc/SuSE-release')."\n";	'/etc/SuSE-release')."\n";
	$unknown = 1;
}	}
} elsif (-e '/etc/issue') {	} elsif (-e '/etc/issue') {
open(IN,'</etc/issue');	open(IN,'</etc/issue');
my $versionstring=<IN>;	my $versionstring=<IN>;
chomp($versionstring);	chomp($versionstring);
close(IN);	close(IN);
$packagecmd = '/usr/bin/dpkg -l loncapa-prerequisites ';
$updatecmd = 'apt-get install loncapa-prerequisites';
if ($versionstring =~ /^Ubuntu (\d+)\.\d+/i) {	if ($versionstring =~ /^Ubuntu (\d+)\.\d+/i) {
$distro = 'ubuntu'.$1;	$distro = 'ubuntu'.$1;
$updatecmd = 'sudo apt-get install loncapa-prerequisites';	$updatecmd = 'sudo apt-get install loncapa-prerequisites';
} elsif ($versionstring =~ /^Debian\s+GNU\/Linux\s+(\d+)\.\d+/i) {	} elsif ($versionstring =~ /^Debian\s+GNU\/Linux\s+(\d+)\.\d+/i) {
$distro = 'debian'.$1;	$distro = 'debian'.$1;
	$updatecmd = 'apt-get install loncapa-prerequisites';
} elsif (-e '/etc/debian_version') {	} elsif (-e '/etc/debian_version') {
open(IN,'</etc/debian_version');	open(IN,'</etc/debian_version');
my $version=<IN>;	my $version=<IN>;
Line 250 sub get_distro {	Line 269 sub get_distro {
close(IN);	close(IN);
if ($version =~ /^(\d+)\.\d+\.?\d*/) {	if ($version =~ /^(\d+)\.\d+\.?\d*/) {
$distro='debian'.$1;	$distro='debian'.$1;
	$updatecmd = 'apt-get 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/debian_version')."\n";	'/etc/debian_version')."\n";
	$unknown = 1;
}	}
} else {	}
print &mt('Unable to interpret [_1] to determine system type.',	if ($distro ne '') {
'/etc/issue')."\n";	$packagecmd = '/usr/bin/dpkg -l loncapa-prerequisites ';
}	}
} elsif (-e '/etc/debian_version') {	} elsif (-e '/etc/debian_version') {
open(IN,'</etc/debian_version');	open(IN,'</etc/debian_version');
Line 270 sub get_distro {	Line 291 sub get_distro {
} else {	} else {
print &mt('Unable to interpret [_1] to determine system type.',	print &mt('Unable to interpret [_1] to determine system type.',
'/etc/debian_version')."\n";	'/etc/debian_version')."\n";
	$unknown = 1;
	}
	}
	if (($distro eq '') && (!$unknown)) {
	if (-e '/etc/os-release') {
	if (open(IN,'<','/etc/os-release')) {
	my ($id,$version);
	while(<IN>) {
	chomp();
	if (/^ID="(\w+)"/) {
	$id=$1;
	} elsif (/^VERSION_ID="([\d\.]+)"/) {
	$version=$1;
	}
	}
	close(IN);
	if ($id eq 'sles') {
	my ($major,$minor) = split(/\./,$version);
	if ($major =~ /^\d+$/) {
	$distro = $id.$major;
	$updatecmd = 'zypper install LONCAPA-prerequisites';
	}
	}
	}
	if ($distro eq '') {
	print &mt('Unable to interpret [_1] to determine system type.',
	'/etc/os-release')."\n";
	$unknown = 1;
	}
	} else {
	print &mt('Unknown installation: expecting a debian, ubuntu, suse, sles, redhat, fedora, scientific linux, or oracle linux system.')."\n";
}	}
} else {
print &mt('Unknown installation: expecting a debian, ubuntu, suse, sles, redhat, fedora or scientific linux system.')."\n";
}	}
return ($distro,$packagecmd,$updatecmd,$installnow);	return ($distro,$packagecmd,$updatecmd,$installnow);
}	}
Line 307 sub check_prerequisites {	Line 357 sub check_prerequisites {

sub check_locale {	sub check_locale {
my ($distro) = @_;	my ($distro) = @_;
my ($fh,$langvar,$command);	my ($fh,$langvar,$command,$earlyout);
$langvar = 'LANG';	$langvar = 'LANG';
if ($distro =~ /^(ubuntu\|debian)/) {	if ($distro =~ /^(ubuntu\|debian)/) {
if (!open($fh,"</etc/default/locale")) {	if (!open($fh,"</etc/default/locale")) {
print &mt('Failed to open: [_1], default locale not checked.',	print &mt('Failed to open: [_1], default locale not checked.',
'/etc/default/locale');	'/etc/default/locale');
	$earlyout = 1;
}	}
} elsif ($distro =~ /^(suse\|sles)/) {	} elsif ($distro =~ /^(suse\|sles)(\d+)/) {
if (!open($fh,"</etc/sysconfig/language")) {	if (($1 eq 'sles') && ($2 >= 15)) {
print &mt('Failed to open: [_1], default locale not checked.',	if (!open($fh,"</etc/locale.conf")) {
'/etc/sysconfig/language');	print &mt('Failed to open: [_1], default locale not checked.',
	'/etc/locale.conf');
	$earlyout = 1;
	}
	} else {
	if (!open($fh,"</etc/sysconfig/language")) {
	print &mt('Failed to open: [_1], default locale not checked.',
	'/etc/sysconfig/language');
	$earlyout = 1;
	}
	$langvar = 'RC_LANG';
}	}
$langvar = 'RC_LANG';
} elsif ($distro =~ /^fedora(\d+)/) {	} elsif ($distro =~ /^fedora(\d+)/) {
if ($1 >= 18) {	if ($1 >= 18) {
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.',
'/etc/locale.conf');	'/etc/locale.conf');
	$earlyout = 1;
}	}
} elsif (!open($fh,"</etc/sysconfig/i18n")) {	} elsif (!open($fh,"</etc/sysconfig/i18n")) {
print &mt('Failed to open: [_1], default locale not checked.',	print &mt('Failed to open: [_1], default locale not checked.',
'/etc/sysconfig/i18n');	'/etc/sysconfig/i18n');
	$earlyout = 1;
}	}
} elsif ($distro =~ /^(?:rhes\|centos\|scientific)(\d+)/) {	} elsif ($distro =~ /^(?:rhes\|centos\|scientific\|oracle)(\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.',
'/etc/locale.conf');	'/etc/locale.conf');
	$earlyout = 1;
}	}
} elsif (!open($fh,"</etc/sysconfig/i18n")) {	} elsif (!open($fh,"</etc/sysconfig/i18n")) {
print &mt('Failed to open: [_1], default locale not checked.',	print &mt('Failed to open: [_1], default locale not checked.',
'/etc/sysconfig/i18n');	'/etc/sysconfig/i18n');
	$earlyout = 1;
}	}
} else {	} else {
if (!open($fh,"</etc/sysconfig/i18n")) {	if (!open($fh,"</etc/sysconfig/i18n")) {
print &mt('Failed to open: [_1], default locale not checked.',	print &mt('Failed to open: [_1], default locale not checked.',
'/etc/sysconfig/i18n');	'/etc/sysconfig/i18n');
	$earlyout = 1;
}	}
}	}
	return if ($earlyout);
my @data = <$fh>;	my @data = <$fh>;
chomp(@data);	chomp(@data);
foreach my $item (@data) {	foreach my $item (@data) {
Line 359 sub check_locale {	Line 425 sub check_locale {
$command = 'sudo locale-gen en_US.UTF-8'."\n".	$command = 'sudo locale-gen en_US.UTF-8'."\n".
'sudo update-locale LANG=en_US.UTF-8';	'sudo update-locale LANG=en_US.UTF-8';
} elsif ($distro =~ /^(suse\|sles)/) {	} elsif ($distro =~ /^(suse\|sles)/) {
$command = 'yast language';	$command = 'yast language';
} else {	} elsif (-e '/usr/bin/system-config-language') {
$command = 'system-config-language';	$command = 'system-config-language';
	} elsif (-e '/usr/bin/localectl') {
	$command = '/usr/bin/localectl set-locale LANG=en_US.UTF-8';
	} else {
	$command = 'No standard command found';
}	}
}	}
last;	last;
Line 385 sub check_required {	Line 455 sub check_required {
unless ($localecmd eq '') {	unless ($localecmd eq '') {
return ($distro,$gotprereqs,$localecmd);	return ($distro,$gotprereqs,$localecmd);
}	}
my ($mysqlon,$mysqlsetup,$dbh,$has_pass,$has_lcdb,%recommended,$downloadstatus,	my ($mysqlon,$mysqlsetup,$mysqlrestart,$dbh,$has_pass,$has_lcdb,%recommended,
$filetouse,$production,$testing,$apachefw,$tostop);	$downloadstatus,$filetouse,$production,$testing,$apachefw,$tostop,$uses_systemctl);
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 398 sub check_required {	Line 468 sub check_required {
$mysqlon = &check_mysql_running($distro);	$mysqlon = &check_mysql_running($distro);
if ($mysqlon) {	if ($mysqlon) {
my $mysql_has_wwwuser = &check_mysql_wwwuser();	my $mysql_has_wwwuser = &check_mysql_wwwuser();
($mysqlsetup,$has_pass,$dbh) =	($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser) =
&check_mysql_setup($instdir,$dsn);	&check_mysql_setup($instdir,$dsn,$distro,$mysql_has_wwwuser);
if ($mysqlsetup eq 'noroot') {	if ($mysqlsetup eq 'needsrestart') {
$recommended{'mysqlperms'} = 1;	$mysqlrestart = '';
	if ($distro eq 'ubuntu') {
	$mysqlrestart = 'sudo ';
	}
	$mysqlrestart .= 'service mysql restart';
	return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,$mysqlrestart);
} else {	} else {
unless ($mysql_has_wwwuser) {	if ($mysqlsetup eq 'noroot') {
$recommended{'mysqlperms'} = 1;	$recommended{'mysqlperms'} = 1;
	} else {
	unless ($mysql_has_wwwuser) {
	$recommended{'mysqlperms'} = 1;
	}
	}
	if ($dbh) {
	$has_lcdb = &check_loncapa_mysqldb($dbh);
	}
	unless ($has_lcdb) {
	$recommended{'mysql'} = 1;
}	}
}
if ($dbh) {
$has_lcdb = &check_loncapa_mysqldb($dbh);
}
unless ($has_lcdb) {
$recommended{'mysql'} = 1;
}	}
}	}
($recommended{'firewall'},$apachefw) = &chkfirewall($distro);	($recommended{'firewall'},$apachefw) = &chkfirewall($distro);
($recommended{'runlevels'},$tostop) = &chkconfig($distro,$instdir);	($recommended{'runlevels'},$tostop,$uses_systemctl) = &chkconfig($distro,$instdir);
$recommended{'apache'} = &chkapache($distro,$instdir);	$recommended{'apache'} = &chkapache($distro,$instdir);
$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();
return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,	return ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,
\%recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,	$mysqlrestart,\%recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,
$filetouse,$production,$testing,$apachefw);	$filetouse,$production,$testing,$apachefw,$uses_systemctl);
}	}

sub check_mysql_running {	sub check_mysql_running {
Line 439 sub check_mysql_running {	Line 518 sub check_mysql_running {
$process = 'mysqld';	$process = 'mysqld';
$proc_owner = 'mysql';	$proc_owner = 'mysql';
}	}
}	} elsif ($distro =~ /^fedora(\d+)/) {
if ($distro =~ /^fedora(\d+)/) {
if ($1 >= 16) {	if ($1 >= 16) {
$process = 'mysqld';	$process = 'mysqld';
$proc_owner = 'mysql';	$proc_owner = 'mysql';
$use_systemctl = 1;	$use_systemctl = 1;
}	}
}	if ($1 >= 19) {
if ($distro =~ /^(?:centos\|rhes\|scientific)(\d+)/) {	$mysqldaemon ='mariadb';
	}
	} elsif ($distro =~ /^(?:centos\|rhes\|scientific\|oracle)(\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;
}	}
	} elsif ($distro =~ /^sles(\d+)/) {
	if ($1 >= 12) {
	$use_systemctl = 1;
	$proc_owner = 'mysql';
	$process = 'mysqld';
	}
	if ($1 >= 15) {
	$mysqldaemon ='mariadb';
	}
	} elsif ($distro =~ /^suse(\d+)/) {
	if ($1 >= 13) {
	$use_systemctl = 1;
	}
}	}
if (open(PIPE,"ps -ef \|grep $process \|grep -v grep 2>&1 \|")) {	if (open(PIPE,"ps -ef \|grep $process \|grep ^$proc_owner \|grep -v grep 2>&1 \|")) {
my $status = <PIPE>;	my $status = <PIPE>;
close(PIPE);	close(PIPE);
chomp($status);	chomp($status);
Line 523 sub chkconfig {	Line 616 sub chkconfig {
if ($distro =~ /^(suse\|sles)9/) {	if ($distro =~ /^(suse\|sles)9/) {
$daemon{'apache'} = 'apache';	$daemon{'apache'} = 'apache';
}	}
if ($distro =~ /^suse(\d+)/) {	if ($distro =~ /^(suse\|sles)([\d\.]+)/) {
if ($1 > 11) {	my $name = $1;
	my $num = $2;
	if ($num > 11) {
$uses_systemctl{'apache'} = 1;	$uses_systemctl{'apache'} = 1;
	if (($name eq 'sles') \|\| ($name eq 'suse' && $num >= 13.2)) {
	$uses_systemctl{'mysql'} = 1;
	$uses_systemctl{'ntp'} = 1;
	$uses_systemctl{'cups'} = 1;
	$uses_systemctl{'memcached'} = 1;
	if (($name eq 'sles') && ($num >= 15)) {
	$daemon{'ntp'} = 'chronyd';
	$daemon{'mysql'} = 'mariadb';
	} else {
	$daemon{'ntp'} = 'ntpd';
	}
	}
}	}
}	}
} elsif ($distro =~ /^(?:debian\|ubuntu)(\d+)/) {	} elsif ($distro =~ /^(?:debian\|ubuntu)(\d+)/) {
my $version = $1;	my $version = $1;
@runlevels = qw/2 3 4 5/;	@runlevels = qw/2 3 4 5/;
@norunlevels = qw/0 1 6/;	@norunlevels = qw/0 1 6/;
$checker_bin = '/usr/sbin/sysv-rc-conf';	if (($distro =~ /^ubuntu/) && ($version <= 16)) {
	$checker_bin = '/usr/sbin/sysv-rc-conf';
	} else {
	$uses_systemctl{'ntp'} = 1;
	$uses_systemctl{'mysql'} = 1;
	$uses_systemctl{'apache'} = 1;
	$uses_systemctl{'memcached'} = 1;
	$uses_systemctl{'cups'} = 1;
	}
$daemon{'mysql'} = 'mysql';	$daemon{'mysql'} = 'mysql';
$daemon{'apache'} = 'apache2';	$daemon{'apache'} = 'apache2';
$daemon{'ntp'} = 'ntp';	$daemon{'ntp'} = 'ntp';
if (($distro =~ /^ubuntu/) && ($version <= 8)) {	if (($distro =~ /^ubuntu/) && ($version <= 8)) {
$daemon{'cups'} = 'cupsys';	$daemon{'cups'} = 'cupsys';
}	}
	if (($distro =~ /^ubuntu/) && ($version >= 18)) {
	$daemon{'ntp'} = 'chrony';
	}
} elsif ($distro =~ /^fedora(\d+)/) {	} elsif ($distro =~ /^fedora(\d+)/) {
my $version = $1;	my $version = $1;
if ($version >= 15) {	if ($version >= 15) {
Line 547 sub chkconfig {	Line 665 sub chkconfig {
if ($version >= 16) {	if ($version >= 16) {
$uses_systemctl{'mysql'} = 1;	$uses_systemctl{'mysql'} = 1;
$uses_systemctl{'apache'} = 1;	$uses_systemctl{'apache'} = 1;
	$uses_systemctl{'memcached'} = 1;
	$uses_systemctl{'cups'} = 1;
}	}
} elsif ($distro =~ /^(?:centos\|rhes\|scientific)(\d+)/) {	if ($version >= 19) {
	$daemon{'mysql'} = 'mariadb';
	}
	if ($version >= 26) {
	$daemon{'ntp'} = 'chronyd';
	}
	} elsif ($distro =~ /^(?:centos\|rhes\|scientific\|oracle)(\d+)/) {
my $version = $1;	my $version = $1;
if ($version >= 7) {	if ($version >= 7) {
$uses_systemctl{'ntp'} = 1;	$uses_systemctl{'ntp'} = 1;
$uses_systemctl{'mysql'} = 1;	$uses_systemctl{'mysql'} = 1;
$uses_systemctl{'apache'} = 1;	$uses_systemctl{'apache'} = 1;
	$uses_systemctl{'memcached'} = 1;
	$uses_systemctl{'cups'} = 1;
$daemon{'mysql'} = 'mariadb';	$daemon{'mysql'} = 'mariadb';
}	}
	if (($version >= 8) \|\| ($distro eq 'oracle7')) {
	$daemon{'ntp'} = 'chronyd';
	}
}	}
my $nocheck;	my $nocheck;
if (! -x $checker_bin) {	if (! -x $checker_bin) {
Line 577 sub chkconfig {	Line 708 sub chkconfig {
foreach my $type ('apache','mysql','ntp','cups','memcached') {	foreach my $type ('apache','mysql','ntp','cups','memcached') {
my $service = $daemon{$type};	my $service = $daemon{$type};
if ($uses_systemctl{$type}) {	if ($uses_systemctl{$type}) {
if (!-l "/etc/systemd/system/multi-user.target.wants/$service.service") {	if (($type eq 'memcached') \|\| ($type eq 'cups')) {
$needfix{$type} = "systemctl enable $service.service";	if (-l "/etc/systemd/system/multi-user.target.wants/$service.service") {
	$tostop{$type} = 1;
	}
	} else {
	if (!-l "/etc/systemd/system/multi-user.target.wants/$service.service") {
	$needfix{$type} = "systemctl enable $service.service";
	}
}	}
next;
} else {	} else {
my $command = $checker_bin.' --list '.$service.' 2>/dev/null';	my $command = $checker_bin.' --list '.$service.' 2>/dev/null';
if ($type eq 'cups') {	if ($type eq 'cups') {
if ($distro =~ /^(?:debian\|ubuntu)(\d+)/) {	if ($distro =~ /^(?:debian\|ubuntu)(\d+)/) {
my $version = $1;	my $version = $1;
if (($distro =~ /^ubuntu/) && ($version <= 8)) {	if (($distro =~ /^ubuntu/) && ($version <= 8)) {
Line 634 sub chkconfig {	Line 770 sub chkconfig {
} else {	} else {
$major = $version;	$major = $version;
}	}
if ($major > 10) {	if (($major > 10) && ($major <= 13)) {
if (&check_SuSEfirewall2_setup($instdir)) {	if (&check_SuSEfirewall2_setup($instdir)) {
$needfix{'insserv'} = 1;	$needfix{'insserv'} = 1;
}	}
}	}
}	}
return (\%needfix,\%tostop);	return (\%needfix,\%tostop,\%uses_systemctl);
	}

	sub uses_firewalld {
	my ($distro) = @_;
	my ($inuse,$checkfirewalld,$zone);
	if ($distro =~ /^(suse\|sles)([\d\.]+)$/) {
	if (($1 eq 'sles') && ($2 >= 15)) {
	$checkfirewalld = 1;
	}
	} elsif ($distro =~ /^fedora(\d+)$/) {
	if ($1 >= 18) {
	$checkfirewalld = 1;
	}
	} elsif ($distro =~ /^(?:centos\|rhes\|scientific\|oracle)(\d+)/) {
	if ($1 >= 7) {
	$checkfirewalld = 1;
	}
	}
	if ($checkfirewalld) {
	my ($loaded,$active);
	if (open(PIPE,"systemctl status firewalld \|")) {
	while (<PIPE>) {
	chomp();
	if (/^\s*Loaded:\s+(\w+)/) {
	$loaded = $1;
	}
	if (/^\s*Active\s+(\w+)/) {
	$active = $1;
	}
	}
	close(PIPE);
	}
	if (($loaded eq 'loaded') \|\| ($active eq 'active')) {
	$inuse = 1;
	my $cmd = 'firewall-cmd --get-default-zone';
	if (open(PIPE,"$cmd \|")) {
	my $result = <PIPE>;
	chomp($result);
	close(PIPE);
	if ($result =~ /^\w+$/) {
	$zone = $result;
	}
	}
	}
	}
	return ($inuse,$zone);
}	}

sub chkfirewall {	sub chkfirewall {
Line 651 sub chkfirewall {	Line 833 sub chkfirewall {
https => 443,	https => 443,
);	);
my %activefw;	my %activefw;
if (&firewall_is_active()) {	my ($firewalld,$zone) = &uses_firewalld($distro);
my $iptables = &get_pathto_iptables();	if ($firewalld) {
if ($iptables eq '') {	my %current;
print &mt('Firewall not checked as path to iptables not determined.')."\n";	if (open(PIPE,'firewall-cmd --permanent --zone='.$zone.' --list-services \|')) {
} else {	my $svc = <PIPE>;
my @fwchains = &get_fw_chains($iptables,$distro);	close(PIPE);
if (@fwchains) {	chomp($svc);
foreach my $service ('http','https') {	map { $current{$_} = 1; } (split(/\s+/,$svc));
foreach my $fwchain (@fwchains) {	}
if (&firewall_is_port_open($iptables,$fwchain,$ports{$service})) {	if ($current{'http'} && $current{'https'}) {
$activefw{$service} = 1;	$configfirewall = 0;
last;	}
	} else {
	if (&firewall_is_active()) {
	my $iptables = &get_pathto_iptables();
	if ($iptables eq '') {
	print &mt('Firewall not checked as path to iptables not determined.')."\n";
	} else {
	my @fwchains = &get_fw_chains($iptables,$distro);
	if (@fwchains) {
	foreach my $service ('http','https') {
	foreach my $fwchain (@fwchains) {
	if (&firewall_is_port_open($iptables,$fwchain,$ports{$service})) {
	$activefw{$service} = 1;
	last;
	}
}	}
}	}
	if ($activefw{'http'}) {
	$configfirewall = 0;
	}
	} else {
	print &mt('Firewall not checked as iptables Chains not identified.')."\n";
}	}
if ($activefw{'http'}) {
$configfirewall = 0;
}
} else {
print &mt('Firewall not checked as iptables Chains not identified.')."\n";
}	}
	} else {
	print &mt('Firewall not enabled.')."\n";
}	}
} else {
print &mt('Firewall not enabled.')."\n";
}	}
return ($configfirewall,\%activefw);	return ($configfirewall,\%activefw);
}	}
Line 685 sub chkapache {	Line 881 sub chkapache {
if ($distro =~ /^(debian\|ubuntu)(\d+)$/) {	if ($distro =~ /^(debian\|ubuntu)(\d+)$/) {
my $distname = $1;	my $distname = $1;
my $version = $2;	my $version = $2;
if (!-e "$instdir/debian-ubuntu/loncapa") {	my ($stdconf,$stdsite);
	if (($distname eq 'ubuntu') && ($version > 12)) {
	$stdconf = "$instdir/debian-ubuntu/ubuntu14/loncapa_conf";
	$stdsite = "$instdir/debian-ubuntu/ubuntu14/loncapa_sites";
	} else {
	$stdconf = "$instdir/debian-ubuntu/loncapa";
	}
	if (!-e $stdconf) {
$fixapache = 0;	$fixapache = 0;
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 = "/etc/apache2/sites-available/loncapa";	my ($configfile,$sitefile);
if (($distname eq 'ubuntu') && ($version > 12)) {	if (($distname eq 'ubuntu') && ($version > 12)) {
	$sitefile = '/etc/apache2/sites-available/loncapa';
$configfile = "/etc/apache2/conf-available/loncapa";	$configfile = "/etc/apache2/conf-available/loncapa";
	} else {
	$configfile = "/etc/apache2/sites-available/loncapa";
}	}
if (-e $configfile) {	if (($configfile ne '') && (-e $configfile) && (-e $stdconf)) {
if (open(PIPE, "diff --brief $instdir/debian-ubuntu/loncapa $configfile \|")) {	if (open(PIPE, "diff --brief $stdconf $configfile \|")) {
my $diffres = <PIPE>;	my $diffres = <PIPE>;
close(PIPE);	close(PIPE);
chomp($diffres);	chomp($diffres);
Line 703 sub chkapache {	Line 909 sub chkapache {
}	}
}	}
}	}
	if ((!$fixapache) && ($distname eq 'ubuntu') && ($version > 12)) {
	if (($sitefile ne '') && (-e $sitefile) && (-e $stdsite)) {
	if (open(PIPE, "diff --brief $stdsite $sitefile \|")) {
	my $diffres = <PIPE>;
	close(PIPE);
	chomp($diffres);
	unless ($diffres) {
	$fixapache = 0;
	}
	}
	}
	}
}	}
if (!$fixapache) {	if (!$fixapache) {
foreach my $module ('headers.load','expires.load') {	foreach my $module ('headers.load','expires.load') {
Line 711 sub chkapache {	Line 929 sub chkapache {
}	}
}	}
}	}
} elsif ($distro =~ /^(?:suse\|sles)([\d\.]+)$/) {	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\.]+)$/) {
	my ($name,$version) = ($1,$2);
my $apache = 'apache';	my $apache = 'apache';
if ($1 >= 10) {	my $conf_file = "$instdir/sles-suse/default-server.conf";
	if ($version >= 10) {
$apache = 'apache2';	$apache = 'apache2';
}	}
if (!-e "$instdir/sles-suse/default-server.conf") {	if (($name eq 'sles') && ($version >= 12)) {
	$conf_file = "$instdir/sles-suse/apache2.4/default-server.conf";
	}
	if (!-e $conf_file) {
$fixapache = 0;	$fixapache = 0;
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";
} elsif ((-e "/etc/$apache/default-server.conf") && (-e "$instdir/sles-suse/default-server.conf")) {	} elsif (-e "/etc/$apache/default-server.conf") {
if (open(PIPE, "diff --brief $instdir/sles-suse/default-server.conf /etc/$apache/default-server.conf \|")) {	if (open(PIPE, "diff --brief $conf_file /etc/$apache/default-server.conf \|")) {
my $diffres = <PIPE>;	my $diffres = <PIPE>;
close(PIPE);	close(PIPE);
chomp($diffres);	chomp($diffres);
Line 745 sub chkapache {	Line 982 sub chkapache {
}	}
} else {	} else {
my $configfile = 'httpd.conf';	my $configfile = 'httpd.conf';
if ($distro =~ /^(?:centos\|rhes\|scientific)(\d+)$/) {	my $mpmfile = 'mpm.conf';
	if ($distro =~ /^(?:centos\|rhes\|scientific\|oracle)(\d+)$/) {
if ($1 >= 7) {	if ($1 >= 7) {
$configfile = 'apache2.4/httpd.conf';	$configfile = 'apache2.4/httpd.conf';
} elsif ($1 > 5) {	} elsif ($1 > 5) {
Line 753 sub chkapache {	Line 991 sub chkapache {
}	}
} elsif ($distro =~ /^fedora(\d+)$/) {	} elsif ($distro =~ /^fedora(\d+)$/) {
if ($1 > 17) {	if ($1 > 17) {
$configfile = 'apache2.4/httpd.conf';	$configfile = 'apache2.4/httpd.conf';
} elsif ($1 > 10) {	} elsif ($1 > 10) {
$configfile = 'new/httpd.conf';	$configfile = 'new/httpd.conf';
}	}
Line 771 sub chkapache {	Line 1009 sub chkapache {
}	}
}	}
}	}
	if (-e "/etc/httpd/conf.modules.d/00-mpm.conf") {
	if (!-e "$instdir/centos-rhes-fedora-sl/$mpmfile") {
	print &mt('Warning: No LON-CAPA Apache MPM configuration file found for installation check.')."\n";
	} elsif ((-e "/etc/httpd/conf.modules.d/00-mpm.conf") && (-e "$instdir/centos-rhes-fedora-sl/$mpmfile")) {
	if (open(PIPE, "diff --brief $instdir/centos-rhes-fedora-sl/$mpmfile /etc/httpd/conf.modules.d/00-mpm.conf \|")) {
	my $diffres = <PIPE>;
	close(PIPE);
	chomp($diffres);
	if ($diffres) {
	$fixapache = 1;
	}
	}
	}
	}
}	}
return $fixapache;	return $fixapache;
}	}
Line 900 sub need_download {	Line 1152 sub need_download {
}	}

sub check_mysql_setup {	sub check_mysql_setup {
my ($instdir,$dsn) = @_;	my ($instdir,$dsn,$distro,$mysql_has_wwwuser) = @_;
my ($mysqlsetup,$has_pass);	my ($mysqlsetup,$has_pass);
my $dbh = DBI->connect($dsn,'root','',{'PrintError'=>0});	my $dbh = DBI->connect($dsn,'root','',{'PrintError'=>0});
if ($dbh) {	if ($dbh) {
$mysqlsetup = 'noroot';	$mysqlsetup = 'noroot';
} elsif ($DBI::err =~ /1045/) {	} elsif ($DBI::err =~ /1045/) {
$has_pass = 1;	$has_pass = 1;
	} elsif ($distro =~ /^ubuntu(\d+)$/) {
	my $version = $1;
	if ($1 > 12) {
	print_and_log(&mt('Restarting mysql, please be patient')."\n");
	if (open (PIPE, "service mysql restart 2>&1 \|")) {
	while (<PIPE>) {
	print $_;
	}
	close(PIPE);
	}
	unless ($mysql_has_wwwuser) {
	$mysql_has_wwwuser = &check_mysql_wwwuser();
	}
	$dbh = DBI->connect($dsn,'root','',{'PrintError'=>0});
	if ($dbh) {
	$mysqlsetup = 'noroot';
	} elsif ($DBI::err =~ /1045/) {
	$has_pass = 1;
	} else {
	$mysqlsetup = 'needsrestart';
	return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser);
	}
	}
}	}
if ($has_pass) {	if ($has_pass) {
print &mt('You have already set a root password for the MySQL database.')."\n";	print &mt('You have already set a root password for the MySQL database.')."\n";
Line 933 sub check_mysql_setup {	Line 1208 sub check_mysql_setup {
}	}
}	}
}	}
} 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';
}	}
return ($mysqlsetup,$has_pass,$dbh);	return ($mysqlsetup,$has_pass,$dbh,$mysql_has_wwwuser);
}	}

sub check_mysql_wwwuser {	sub check_mysql_wwwuser {
Line 982 sub get_pathto_iptables {	Line 1257 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') {
return 1;	if (open(PIPE,'cat /proc/net/ip_tables_names \|grep filter \|')) {
} else {	my $status = <PIPE>;
return 0;	close(PIPE);
	chomp($status);
	if ($status eq 'filter') {
	return 1;
	}
	}
}	}
	return 0;
}	}

sub get_fw_chains {	sub get_fw_chains {
Line 1001 sub get_fw_chains {	Line 1282 sub get_fw_chains {
@posschains = ('ufw-user-input','INPUT');	@posschains = ('ufw-user-input','INPUT');
} elsif ($distro =~ /^debian5/) {	} elsif ($distro =~ /^debian5/) {
@posschains = ('INPUT');	@posschains = ('INPUT');
	} elsif ($distro =~ /^(suse\|sles)(\d+)/) {
	@posschains = ('IN_public');
} else {	} else {
@posschains = ('RH-Firewall-1-INPUT','INPUT');	@posschains = ('RH-Firewall-1-INPUT','INPUT');
if (!-e '/etc/sysconfig/iptables') {	if (!-e '/etc/sysconfig/iptables') {
Line 1193 my %prompts = &texthash(	Line 1476 my %prompts = &texthash(
print "\n".&mt('Checking system status ...')."\n";	print "\n".&mt('Checking system status ...')."\n";

my $dsn = "DBI:mysql:database=mysql";	my $dsn = "DBI:mysql:database=mysql";
my ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,$recommended,	my ($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,$mysqlrestart,
$dbh,$has_pass,$has_lcdb,$downloadstatus,$filetouse,$production,	$recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,$filetouse,$production,
$testing,$apachefw) = &check_required($instdir,$dsn);	$testing,$apachefw,$uses_systemctl) = &check_required($instdir,$dsn);
if ($distro eq '') {	if ($distro eq '') {
print "\n".&mt('Linux distribution could not be verified as a supported distribution.')."\n".	print "\n".&mt('Linux distribution could not be verified as a supported distribution.')."\n".
&mt('The following are supported: [_1].',	&mt('The following are supported: [_1].',
'CentOS, RedHat Enterprise, Fedora, Scientific Linux, '.	'CentOS, RedHat Enterprise, Fedora, Scientific Linux, '.
'openSuSE, SLES, Ubuntu LTS, Debian')."\n\n".	'Oracle Linux, openSuSE, SLES, Ubuntu LTS, Debian')."\n\n".
&mt('Stopping execution.')."\n";	&mt('Stopping execution.')."\n";
exit;	exit;
}	}
	if ($mysqlrestart) {
	print "\n".&mt('The mysql daemon needs to be restarted using the following command:')."\n".
	$mysqlrestart."\n\n".
	&mt('Stopping execution of install.pl script.')."\n".
	&mt('Please run the install.pl script again, once you have restarted mysql.')."\n";
	exit;
	}
if ($localecmd ne '') {	if ($localecmd ne '') {
print "\n".&mt('Although the LON-CAPA application itself is localized for a number of different languages, the default locale language for the Linux OS on which it runs should be US English.')."\n";	print "\n".&mt('Although the LON-CAPA application itself is localized for a number of different languages, the default locale language for the Linux OS on which it runs should be US English.')."\n";
print "\n".&mt('Run the following command from the command line to set the default language for your OS, and then run this LON-CAPA installation set-up script again.')."\n\n".	print "\n".&mt('Run the following command from the command line to set the default language for your OS, and then run this LON-CAPA installation set-up script again.')."\n\n".
Line 1231 if (!$gotprereqs) {	Line 1521 if (!$gotprereqs) {
exit;	exit;
} else {	} else {
($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,	($distro,$gotprereqs,$localecmd,$packagecmd,$updatecmd,$installnow,
$recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,	$mysqlrestart,$recommended,$dbh,$has_pass,$has_lcdb,$downloadstatus,
$filetouse,$production,$testing,$apachefw) =	$filetouse,$production,$testing,$apachefw,$uses_systemctl) =
&check_required($instdir,$dsn);	&check_required($instdir,$dsn);
}	}
} else {	} else {
Line 1356 if ($dbh) {	Line 1646 if ($dbh) {

if ($callsub{'apache'}) {	if ($callsub{'apache'}) {
if ($distro =~ /^(suse\|sles)/) {	if ($distro =~ /^(suse\|sles)/) {
&copy_apache2_suseconf($instdir);	&copy_apache2_suseconf($instdir,$distro);
} elsif ($distro =~ /^(debian\|ubuntu)/) {	} elsif ($distro =~ /^(debian\|ubuntu)/) {
&copy_apache2_debconf($instdir,$distro);	&copy_apache2_debconf($instdir,$distro);
} else {	} else {
&copy_httpd_conf($instdir,$distro);	&copy_httpd_conf($instdir,$distro);
	&copy_mpm_conf($instdir,$distro);
}	}
} else {	} else {
print_and_log(&mt('Skipping configuration of Apache web server.')."\n");	print_and_log(&mt('Skipping configuration of Apache web server.')."\n");
Line 1384 if ($callsub{'runlevels'}) {	Line 1675 if ($callsub{'runlevels'}) {
}	}
}	}
}	}
if ($distro =~ /^(suse\|sles)/) {	if ($distro =~ /^(suse\|sles)(\d+)/) {
&update_SuSEfirewall2_setup($instdir);	unless(($1 eq 'sles') && ($2 >= 15)) {
	&update_SuSEfirewall2_setup($instdir);
	}
}	}
} else {	} else {
&print_and_log(&mt('Skipping setting override for start-up order of services.')."\n");	&print_and_log(&mt('Skipping setting override for start-up order of services.')."\n");
}	}

if ($callsub{'firewall'}) {	if ($callsub{'firewall'}) {
if ($distro =~ /^(suse\|sles)/) {	my ($firewalld,$zone) = &uses_firewalld($distro);
	if ($firewalld) {
	my (%current,%added);
	if (open(PIPE,"firewall-cmd --permanent --zone=$zone --list-services \|")) {
	my $svc = <PIPE>;
	close(PIPE);
	chomp($svc);
	map { $current{$_} = 1; } (split(/\s+/,$svc));
	}
	foreach my $service ('http','https') {
	unless ($current{$service}) {
	if (open(PIPE,"firewall-cmd --permanent --zone=$zone --add-service=$service \|")) {
	my $result = <PIPE>;
	if ($result =~ /^success/) {
	$added{$service} = 1;
	}
	}
	}
	}
	if (keys(%added) > 0) {
	print &mt('Firewall configured to allow access for: [_1].',
	join(', ',sort(keys(%added))))."\n";
	}
	if ($current{'http'} \|\| $current{'https'}) {
	print &mt('Firewall already configured to allow access for:[_1].',
	(($current{'http'})? ' http':'').(($current{'https'})? ' https':''))."\n";
	}
	unless ($current{'ssh'}) {
	print &mt('If you would the like to allow access to ssh from outside, use the command[_1].',
	"firewall-cmd --permanent --zone=$zone --add-service=ssh")."\n";
	}
	} 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].',
'yast -- Security and Users -> Firewall -> Interfaces',	'yast -- Security and Users -> Firewall -> Interfaces',
'ssh, http, https')."\n";	'ssh, http, https')."\n";
} elsif ($distro =~ /^(debian\|ubuntu)(\d+)/) {	} elsif ($distro =~ /^(debian\|ubuntu)(\d+)/) {
if (($1 eq 'ubuntu') \|\| ($2 > 5)) {	if (($1 eq 'ubuntu') \|\| ($2 > 5)) {
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 1412 if ($callsub{'firewall'}) {	Line 1736 if ($callsub{'firewall'}) {
}	}
}	}
}	}
} elsif ($distro =~ /^scientific/) {	} elsif ($distro =~ /^(scientific\|oracle)/) {
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].',
'system-config-firewall-tui -- Customize',	'system-config-firewall-tui -- Customize',
'ssh, http')."\n";	'ssh, http')."\n";
} else {	} else {
print &mt('Use [_1] to configure the firewall to allow access for [_2].',	my $version;
'setup -- Firewall configuration -> Customize',	if ($distro =~ /^(redhat\|centos)(\d+)$/) {
'ssh, http, https')."\n";	$version = $1;
	}
	if ($version > 5) {
	print &mt('Use [_1] to configure the firewall to allow access for [_2].',
	'system-config-firewall-tui -- Customize',
	'ssh, http')."\n";
	} else {
	print &mt('Use [_1] to configure the firewall to allow access for [_2].',
	'setup -- Firewall configuration -> Customize',
	'ssh, http, https')."\n";
	}
}	}
} else {	} else {
&print_and_log(&mt('Skipping Firewall configuration.')."\n");	&print_and_log(&mt('Skipping Firewall configuration.')."\n");
}	}

if ($callsub{'stopsrvcs'}) {	if ($callsub{'stopsrvcs'}) {
&kill_extra_services($distro,$recommended->{'stopsrvcs'});	&kill_extra_services($distro,$recommended->{'stopsrvcs'},$uses_systemctl);
} else {	} else {
&print_and_log(&mt('Skipping stopping unnecessary service ([_1] daemons).',"'cups','memcached'")."\n");	&print_and_log(&mt('Skipping stopping unnecessary service ([_1] daemons).',"'cups','memcached'")."\n");
}	}
Line 1613 END	Line 1947 END
}	}

sub kill_extra_services {	sub kill_extra_services {
my ($distro,$stopsrvcs) = @_;	my ($distro,$stopsrvcs,$uses_systemctl) = @_;
if (ref($stopsrvcs) eq 'HASH') {	if (ref($stopsrvcs) eq 'HASH') {
my @stopping = sort(keys(%{$stopsrvcs}));	my @stopping = sort(keys(%{$stopsrvcs}));
if (@stopping) {	if (@stopping) {
Line 1644 sub kill_extra_services {	Line 1978 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)/) {	if ($distro =~ /^(?:debian\|ubuntu)(\d+)/) {
&print_and_log(`update-rc.d -f $daemon remove`);	my $version = $1;
	if (($distro =~ /^ubuntu/) && ($version > 16)) {
	if (ref($uses_systemctl) eq 'HASH') {
	if ($uses_systemctl->{$service}) {
	if (`systemctl is-enabled $service`) {
	&print_and_log(`systemctl disable $service`);
	}
	}
	}
	} else {
	&print_and_log(`update-rc.d -f $daemon remove`);
	}
} else {	} else {
&print_and_log(`/sbin/chkconfig --del $service`);	if (ref($uses_systemctl) eq 'HASH') {
	if ($uses_systemctl->{$service}) {
	if (`systemctl is-enabled $service`) {
	&print_and_log(`systemctl disable $service`);
	}
	} else {
	&print_and_log(`/sbin/chkconfig --del $service`);
	}
	} else {
	&print_and_log(`/sbin/chkconfig --del $service`);
	}
}	}
}	}
}	}
Line 1685 CREATE TABLE IF NOT EXISTS metadata (tit	Line 2040 CREATE TABLE IF NOT EXISTS metadata (tit

sub setup_mysql_permissions {	sub setup_mysql_permissions {
my ($dbh,$has_pass,@mysql_lc_commands) = @_;	my ($dbh,$has_pass,@mysql_lc_commands) = @_;
my $mysqlversion = &get_mysql_version();	my ($mysqlversion,$mysqlsubver,$mysqlname) = &get_mysql_version();
my @mysql_commands = ("INSERT user (Host, User, Password) VALUES('localhost','www',password('localhostkey'));");	my ($usesauth,$is_mariadb,$hasauthcol,@mysql_commands);
	if ($mysqlname =~ /^MariaDB/i) {
	$is_mariadb = 1;
	if ($mysqlversion >= 10.2) {
	$usesauth = 1;
	} elsif ($mysqlversion >= 5.5) {
	$hasauthcol = 1;
	}
	} else {
	if (($mysqlversion > 5.7) \|\| (($mysqlversion == 5.7) && ($mysqlsubver > 5))) {
	$usesauth = 1;
	} elsif (($mysqlversion >= 5.6) \|\| (($mysqlversion == 5.5) && ($mysqlsubver >= 7))) {
	$hasauthcol = 1;
	}
	}
	if ($usesauth) {
	@mysql_commands = ("INSERT user (Host, User, ssl_cipher, x509_issuer, x509_subject, authentication_string) VALUES('localhost','www','','','','')");
	if ($is_mariadb) {
	push(@mysql_commands,"ALTER USER 'www'\@'localhost' IDENTIFIED BY 'localhostkey'");
	} else {
	push(@mysql_commands,"ALTER USER 'www'\@'localhost' IDENTIFIED WITH mysql_native_password BY 'localhostkey'");
	}
	} elsif ($hasauthcol) {
	@mysql_commands = ("INSERT user (Host, User, Password, ssl_cipher, x509_issuer, x509_subject, authentication_string) VALUES('localhost','www',password('localhostkey'),'','','','');");
	} else {
	@mysql_commands = ("INSERT user (Host, User, Password, ssl_cipher, x509_issuer, x509_subject) VALUES('localhost','www',password('localhostkey'),'','','');");
	}
if ($mysqlversion < 4) {	if ($mysqlversion < 4) {
push (@mysql_commands,"	push (@mysql_commands,"
INSERT db (Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv,Grant_priv,References_priv,Index_priv,Alter_priv) VALUES('localhost','loncapa','www','Y','Y','Y','Y','Y','Y','N','Y','Y','Y')");	INSERT db (Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv,Grant_priv,References_priv,Index_priv,Alter_priv) VALUES('localhost','loncapa','www','Y','Y','Y','Y','Y','Y','N','Y','Y','Y')");
Line 1736 INSERT db (Host,Db,User,Select_priv,Inse	Line 2117 INSERT db (Host,Db,User,Select_priv,Inse
}	}
}	}
if ($got_passwd) {	if ($got_passwd) {
my (@newpass_cmds) = &new_mysql_rootpasswd($newmysqlpass);	my (@newpass_cmds) = &new_mysql_rootpasswd($newmysqlpass,$usesauth,$is_mariadb);
push(@mysql_commands,@newpass_cmds);	push(@mysql_commands,@newpass_cmds);
} else {	} else {
print_and_log(&mt('Failed to get MySQL root password from user input.')."\n");	print_and_log(&mt('Failed to get MySQL root password from user input.')."\n");
Line 1745 INSERT db (Host,Db,User,Select_priv,Inse	Line 2126 INSERT db (Host,Db,User,Select_priv,Inse
if (@mysql_commands) {	if (@mysql_commands) {
foreach my $cmd (@mysql_commands) {	foreach my $cmd (@mysql_commands) {
$dbh->do($cmd) \|\| print $dbh->errstr."\n";	$dbh->do($cmd) \|\| print $dbh->errstr."\n";

}	}
}	}
if (@mysql_lc_commands) {	if (@mysql_lc_commands) {
Line 1767 INSERT db (Host,Db,User,Select_priv,Inse	Line 2147 INSERT db (Host,Db,User,Select_priv,Inse
}	}

sub new_mysql_rootpasswd {	sub new_mysql_rootpasswd {
my ($currmysqlpass) = @_;	my ($currmysqlpass,$usesauth,$is_mariadb) = @_;
return ("SET PASSWORD FOR 'root'\@'localhost'=PASSWORD('$currmysqlpass')",	if ($usesauth) {
"FLUSH PRIVILEGES;");	if ($is_mariadb) {
	return ("ALTER USER 'root'\@'localhost' IDENTIFIED BY '$currmysqlpass'",
	"FLUSH PRIVILEGES;");
	} else {
	return ("ALTER USER 'root'\@'localhost' IDENTIFIED WITH mysql_native_password BY '$currmysqlpass'",
	"FLUSH PRIVILEGES;");
	}
	} else {
	return ("SET PASSWORD FOR 'root'\@'localhost'=PASSWORD('$currmysqlpass')",
	"FLUSH PRIVILEGES;");
	}
}	}

sub get_mysql_version {	sub get_mysql_version {
my $version;	my ($version,$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) = ($info =~ /(\d+\.\d+)\.\d+,/);	($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";
}	}
return $version;	return ($version,$subversion,$name);
}	}

###########################################################	###########################################################
Line 1796 sub get_mysql_version {	Line 2186 sub get_mysql_version {
sub copy_httpd_conf {	sub copy_httpd_conf {
my ($instdir,$distro) = @_;	my ($instdir,$distro) = @_;
my $configfile = 'httpd.conf';	my $configfile = 'httpd.conf';
if ($distro =~ /^(?:centos\|rhes\|scientific)(\d+)$/) {	if ($distro =~ /^(?:centos\|rhes\|scientific\|oracle)(\d+)$/) {
if ($1 >= 7) {	if ($1 >= 7) {
$configfile = 'apache2.4/httpd.conf';	$configfile = 'apache2.4/httpd.conf';
} elsif ($1 > 5) {	} elsif ($1 > 5) {
Line 1817 sub copy_httpd_conf {	Line 2207 sub copy_httpd_conf {
print_and_log("\n");	print_and_log("\n");
}	}

	###########################################################
	##
	## RHEL/CentOS/Fedora/Scientific Linux
	## Copy LON-CAPA mpm.conf to /etc/httpd/conf.modules.d/00-mpm.conf
	##
	## The LON-CAPA mpm.conf enables the prefork MPM module in
	## Apache. This is also the default for RHEL/CentOS/Oracle
	## Linux 7 and earlier, and Fedora 26 and earlier. For more
	## recent versions of those distros, the event MPM is enabled
	## by default. After &copy_mpm_conf() is run, the prefork MPM
	## module will be enabled instead of the event MPM module.
	##
	###########################################################

	sub copy_mpm_conf {
	my ($instdir,$distro) = @_;
	my $mpmfile = 'mpm.conf';
	if ((-e "/etc/httpd/conf.modules.d/00-mpm.conf") &&
	(-e "$instdir/centos-rhes-fedora-sl/$mpmfile")) {
	print_and_log(&mt('Copying the LON-CAPA [_1] to [_2].',"'mpm.conf'",
	"'/etc/httpd/conf.modules.d/00-mpm.conf'")."\n");
	copy "$instdir/centos-rhes-fedora-sl/$mpmfile","/etc/httpd/conf.modules.d/00-mpm.conf";
	chmod(0644,"/etc/httpd/conf.modules.d/00-mpm.conf");
	print_and_log("\n");
	} else {
	my $logfail;
	if ($distro =~ /^(?:centos\|rhes\|scientific\|oracle)(\d+)$/) {
	if ($1 > 7) {
	$logfail = 1;
	}
	} elsif ($distro =~ /^fedora(\d+)$/) {
	if ($1 > 26) {
	$logfail = 1;
	}
	}
	if ($logfail) {
	print_and_log(&mt('Warning: copying the LON-CAPA [_1] failed because [_2] and/or [_3] are missing.',
	$mpmfile,"'$instdir/centos-rhes-fedora-sl/$mpmfile'",
	"'/etc/httpd/conf.modules.d/00-mpm.conf'"));
	print_and_log("\n");
	}
	}
	}

#########################################################	#########################################################
##	##
## Ubuntu/Debian -- copy our loncapa configuration file to	## Ubuntu/Debian -- copy our loncapa configuration file to
Line 1845 sub copy_apache2_debconf {	Line 2279 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") {	my $defaultconf = $apache2_conf_enabled_dir.'/loncapa.conf';
copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.original");	if ((-e "$apache2_conf_available_dir/loncapa") && (-e "$instdir/debian-ubuntu/ubuntu14/loncapa_conf")) {
	if (open(PIPE, "diff --brief $apache2_conf_available_dir/loncapa $instdir/debian-ubuntu/ubuntu14/loncapa_conf \|")) {
	my $diffres = <PIPE>;
	close(PIPE);
	chomp($diffres);
	if ($diffres) {
	copy("$apache2_conf_available_dir/loncapa","$apache2_conf_available_dir/loncapa.original");
	}
	if (-l $defaultconf) {
	my $linkfname = readlink($defaultconf);
	if ($linkfname eq "$apache2_conf_available_dir/loncapa") {
	unless ($diffres) {
	$skipconf = 1;
	}
	}
	}
	}
	}
	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);
	}
}	}
my $defaultconf = $apache2_conf_available_dir.'/loncapa.conf';
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");
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 {
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 "$apache2_sites_available_dir/loncapa") {
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");
}	}
print_and_log("\n");	print_and_log("\n");
}	}
Line 1887 sub copy_apache2_debconf {	Line 2402 sub copy_apache2_debconf {
###########################################################	###########################################################

sub copy_apache2_suseconf {	sub copy_apache2_suseconf {
my ($instdir) = @_;	my ($instdir,$distro) = @_;
	my ($name,$version) = ($distro =~ /^(suse\|sles)([\d\.]+)$/);
	my $conf_file = "$instdir/sles-suse/default-server.conf";
	if (($name eq 'sles') && ($version >= 12)) {
	$conf_file = "$instdir/sles-suse/apache2.4/default-server.conf";
	}
print_and_log(&mt('Copying the LON-CAPA [_1] to [_2].',	print_and_log(&mt('Copying the LON-CAPA [_1] to [_2].',
"'default-server.conf'",	"'default-server.conf'",
"'/etc/apache2/default-server.conf'")."\n");	"'/etc/apache2/default-server.conf'")."\n");
if (!-e "/etc/apache2/default-server.conf.original") {	if (!-e "/etc/apache2/default-server.conf.original") {
copy "/etc/apache2/default-server.conf","/etc/apache2/default-server.conf.original";	copy "/etc/apache2/default-server.conf","/etc/apache2/default-server.conf.original";
}	}
copy "$instdir/sles-suse/default-server.conf","/etc/apache2/default-server.conf";	copy $conf_file,"/etc/apache2/default-server.conf";
chmod(0444,"/etc/apache2/default-server.conf");	chmod(0444,"/etc/apache2/default-server.conf");
# Make symlink for conf directory (included in loncapa_apache.conf)	# Make symlink for conf directory (included in loncapa_apache.conf)
my $can_symlink = (eval { symlink('/etc/apache2','/srv/www/conf'); }, $@ eq '');	my $can_symlink = (eval { symlink('/etc/apache2','/srv/www/conf'); }, $@ eq '');
Line 1905 sub copy_apache2_suseconf {	Line 2425 sub copy_apache2_suseconf {
&print_and_log(&mt('Symlink creation failed for [_1] to [_2]. You will need to perform this action from the command line.',"'/srv/www/conf'","'/etc/apache2'")."\n");	&print_and_log(&mt('Symlink creation failed for [_1] to [_2]. You will need to perform this action from the command line.',"'/srv/www/conf'","'/etc/apache2'")."\n");
}	}
&copy_apache2_conf_files($instdir);	&copy_apache2_conf_files($instdir);
&copy_sysconfig_apache2_file($instdir);	&copy_sysconfig_apache2_file($instdir,$name,$version);
print_and_log("\n");	print_and_log("\n");
}	}

Line 1931 sub copy_apache2_conf_files {	Line 2451 sub copy_apache2_conf_files {
##	##
###############################################	###############################################
sub copy_sysconfig_apache2_file {	sub copy_sysconfig_apache2_file {
my ($instdir) = @_;	my ($instdir,$name,$version) = @_;
print_and_log(&mt('Copying the LON-CAPA [_1] to [_2].',"'sysconfig/apache2'","'/etc/sysconfig/apache2'")."\n");	print_and_log(&mt('Copying the LON-CAPA [_1] to [_2].',"'sysconfig/apache2'","'/etc/sysconfig/apache2'")."\n");
if (!-e "/etc/sysconfig/apache2.original") {	if (!-e "/etc/sysconfig/apache2.original") {
copy "/etc/sysconfig/apache2","/etc/sysconfig/apache2.original";	copy "/etc/sysconfig/apache2","/etc/sysconfig/apache2.original";
}	}
copy "$instdir/sles-suse/sysconfig_apache2","/etc/sysconfig/apache2";	my $sysconf_file = "$instdir/sles-suse/sysconfig_apache2";
	if (($name eq 'sles') && ($version >= 12)) {
	$sysconf_file = "$instdir/sles-suse/apache2.4/sysconfig_apache2";
	}
	copy $sysconf_file,"/etc/sysconfig/apache2";
chmod(0444,"/etc/sysconfig/apache2");	chmod(0444,"/etc/sysconfig/apache2");
}	}

Line 2064 wget http://install.loncapa.org/versions	Line 2588 wget http://install.loncapa.org/versions
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:')."

cd /root/loncapa-N.N (N.N should correspond to a version number like '0.4')	cd /root/loncapa-X.Y.Z (X.Y.Z should correspond to a version number like '2.11.3')
./UPDATE	./UPDATE

".&mt('If you have any trouble, please see [_1] and [_2]',	".&mt('If you have any trouble, please see [_1] and [_2]',

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

Removed from v.1.32
changed lines
	Added in v.1.45.2.8