doc/install/linux/install.pl - diff

Return to install.pl CVS log

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

version 1.18, 2011/05/31 03:06:20	version 1.20, 2011/06/07 15:17:51
Line 500 sub chkconfig {	Line 500 sub chkconfig {
my $nrlstr = join('',@norunlevels);	my $nrlstr = join('',@norunlevels);
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 ($type eq 'ntp') {
	if ($distro =~ /^(?:fedora)(\d+)/) {
	my $version = $1;
	if ($version >= 15) {
	if (!-l "/etc/systemd/system/multi-user.target.wants/ntpd.service") {
	$needfix{$type} = 'systemctl enable ntpd.service';
	}
	next;
	}
	}
	}
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+)/) {
Line 1211 if ($callsub{'download'}) {	Line 1222 if ($callsub{'download'}) {
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('Download the production release? ~[Y/n~]');
if (&get_user_selection(1)) {	if (&get_user_selection(1)) {
$sourcetarball = $production.'tar.gz';	$sourcetarball = 'loncapa-'.$production.'.tar.gz';
}	}
}	}
} elsif ($filetouse ne '') {	} elsif ($filetouse ne '') {