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.25, 2013/04/04 15:50:05
Line 365 if (open(PIPE,"perl distprobe\|")) {	Line 365 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");	open(OUT,"\|usermod -p `mkpasswd $passwd` $username");
close(OUT);	close(OUT);
} else {	$setpasswd = 1;
	} elsif ($distro =~ /^suse(\d+)\.(\d)$/) {
	if (($1 > 12) \|\| (($1 == 12) && ($2 > 1))) {
	open(OUT,"\|chpasswd");
	print(OUT "$username:$passwd\n");
	close(OUT);
	$setpasswd = 1;
	}
	}
	unless ($setpasswd) {
open(OUT,"\|passwd --stdin $username");	open(OUT,"\|passwd --stdin $username");
print(OUT $passwd."\n");	print(OUT $passwd."\n");
close(OUT);	close(OUT);