loncom/build/make_domain_coordinator.pl - diff

Return to make_domain_coordinator.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.23, 2012/11/20 19:00:52	version 1.24, 2012/12/18 13:05:41
Line 210 while ((!$got_passwd) && ($trial < $maxt	Line 210 while ((!$got_passwd) && ($trial < $maxt
foreach (split(//,$firstpass)) {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}}	foreach (split(//,$firstpass)) {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}}
if ($pbad) {	if ($pbad) {
print(&mt('Password contains invalid characters.')."\n".	print(&mt('Password contains invalid characters.')."\n".
&mt('Password must consist of standard ASCII characters')."\n".	&mt('Password must consist of standard ASCII characters.')."\n".
&mt('Please try again.')."\n");	&mt('Please try again.')."\n");
} else {	} else {
$secondpass = &get_password(&mt('Enter password a second time'));	$secondpass = &get_password(&mt('Enter password a second time'));
Line 444 use GDBM_File; # A simplistic key-value	Line 444 use GDBM_File; # A simplistic key-value
my $rolesref=&LONCAPA::locking_hash_tie("$udpath/roles.db",&GDBM_WRCREAT());	my $rolesref=&LONCAPA::locking_hash_tie("$udpath/roles.db",&GDBM_WRCREAT());
if (!$rolesref) {	if (!$rolesref) {
print(&mt('Error').' '.	print(&mt('Error').' '.
&mt('unable to tie roles db: [_1]'."$udpath/roles.db")."\n");	&mt('unable to tie roles db: [_1].',"$udpath/roles.db")."\n");
exit;	exit;
}	}
my $now = time;	my $now = time;