[BACK]Return to make_domain_coordinator.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/make_domain_coordinator.pl between versions 1.13 and 1.16

version 1.13, 2007/12/31 16:52:26 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
   
Line 400  my $domkey=&LONCAPA::escape('dc:'.$usern Line 415  my $domkey=&LONCAPA::escape('dc:'.$usern
 $domrolesref->{$domkey}= &LONCAPA::escape('0:'.$now);  $domrolesref->{$domkey}= &LONCAPA::escape('0:'.$now);
 &LONCAPA::locking_hash_untie($domrolesref);  &LONCAPA::locking_hash_untie($domrolesref);
   
    system('/bin/chown',"www:www","$dompath/nohist_domainroles.db"); # Must be writeable by httpd process.
    system('/bin/chown',"www:www","$dompath/nohist_domainroles.db.lock");
   
 #Update allusers MySQL table  #Update allusers MySQL table
   
 print "Adding new user to allusers table\n";  print "Adding new user to allusers table\n";
Removed from v.1.13  
changed lines
  Added in v.1.16

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>