loncom/build/make_domain_coordinator.pl - diff

Return to make_domain_coordinator.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.14, 2008/01/03 21:16:11	version 1.16, 2009/07/17 01:11:11
Line 304 foreach (split(//,$passwd)) {if ((ord($_	Line 304 foreach (split(//,$passwd)) {if ((ord($_
if ($pbad) {	if ($pbad) {
die('Password must consist of standard ASCII characters'."\n");	die('Password must consist of standard ASCII characters'."\n");
}	}
open(OUT,"\|passwd --stdin $username");
print(OUT $passwd."\n");	my $distro;
close(OUT);	if (open(PIPE,"perl distprobe\|")) {
	$distro = <PIPE>;
	close(PIPE);
	}
	if ($distro =~ /^ubuntu\|debian/) {
	open(OUT,"\|usermod -p `mkpasswd $passwd` $username");
	close(OUT);
	} else {
	open(OUT,"\|passwd --stdin $username");
	print(OUT $passwd."\n");
	close(OUT);
	}

=pod	=pod

Line 357 close(OUT);	Line 368 close(OUT);
open(OUT, ">$udpath/passwd");	open(OUT, ">$udpath/passwd");
print(OUT 'unix:'."\n");	print(OUT 'unix:'."\n");
close(OUT);	close(OUT);
`chown www:www $udpath/passwd`; # Must be writeable by httpd process.
	# Get permissions correct on udpath

	print "Setting permissions on user data directories. This may take a moment, please be patient ...\n";
	`chown -R www:www /home/httpd/lonUsers/$domain` ; # Must be writeable by httpd process.

=pod	=pod