loncom/build/make_domain_coordinator.pl - diff

Return to make_domain_coordinator.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.24, 2012/12/18 13:05:41	version 1.27, 2015/01/03 02:45:22
Line 360 if ($pbad) {	Line 360 if ($pbad) {
"\n");	"\n");
}	}

my $distro;	my ($distro,$nostdin);
if (open(PIPE,"perl distprobe\|")) {	if (open(PIPE,"perl distprobe\|")) {
$distro = <PIPE>;	$distro = <PIPE>;
close(PIPE);	close(PIPE);
}	}
if ($distro =~ /^ubuntu\|debian/) {	if ($distro =~ /^ubuntu\|debian/) {
	$nostdin = 1;
	} elsif ($distro =~ /^suse([\d.]+)$/) {
	if ($1 > 12.2) {
	$nostdin = 1;
	}
	} elsif ($distro =~ /^sles(\d+)$/) {
	if ($1 > 11) {
	$nostdin = 1;
	}
	}
	if ($nostdin) {
open(OUT,"\|usermod -p `mkpasswd $passwd` $username");	open(OUT,"\|usermod -p `mkpasswd $passwd` $username");
close(OUT);	close(OUT);
} else {	} else {