loncom/build/make_domain_coordinator.pl - diff

Return to make_domain_coordinator.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.25, 2013/04/04 15:50:05	version 1.26, 2013/12/20 21:13:02
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);
}	}

my $setpasswd = 0;
if ($distro =~ /^ubuntu\|debian/) {	if ($distro =~ /^ubuntu\|debian/) {
open(OUT,"\|usermod -p `mkpasswd $passwd` $username");	$nostdin = 1;
close(OUT);	} elsif ($distro =~ /^suse([\d.]+)$/) {
$setpasswd = 1;	if ($1 > 12.2) {
} elsif ($distro =~ /^suse(\d+)\.(\d)$/) {	$nostdin = 1;
if (($1 > 12) \|\| (($1 == 12) && ($2 > 1))) {
open(OUT,"\|chpasswd");
print(OUT "$username:$passwd\n");
close(OUT);
$setpasswd = 1;
}	}
}	}
unless ($setpasswd) {	if ($nostdin) {
	open(OUT,"\|usermod -p `mkpasswd $passwd` $username");
	close(OUT);
	} else {
open(OUT,"\|passwd --stdin $username");	open(OUT,"\|passwd --stdin $username");
print(OUT $passwd."\n");	print(OUT $passwd."\n");
close(OUT);	close(OUT);