doc/install/linux/install.pl - diff

Return to install.pl CVS log

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

version 1.9, 2011/04/24 01:25:13	version 1.10, 2011/04/24 22:44:50
Line 678 sub chksrvcs {	Line 678 sub chksrvcs {
chomp($daemonrunning);	chomp($daemonrunning);
close(PIPE);	close(PIPE);
if ($daemonrunning) {	if ($daemonrunning) {
$stopsrvcs{$service} = 1;	if ($service eq 'memcached') {
	unless ($daemonrunning =~ m{^www[^/]+\Q/usr/sbin/memcached -m 400 -v\E$}) {
	$stopsrvcs{$service} = 1;
	}
	} else {
	$stopsrvcs{$service} = 1;
	}
}	}
}	}
}	}
return \%stopsrvcs;	return \%stopsrvcs;
}	}

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

my ($have_tarball,$updateshown);	my ($have_tarball,$updateshown);