[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.14 and 1.17

version 1.14, 2008/01/03 21:16:11 version 1.17, 2009/07/17 22:23:59
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 422  print("\n$username is now a domain coord Line 437  print("\n$username is now a domain coord
 my $hostname=`hostname`; chomp($hostname); # Read in hostname.  my $hostname=`hostname`; chomp($hostname); # Read in hostname.
 print("\n".'Once LON-CAPA is running, you should log-in and use: '."\n".  print("\n".'Once LON-CAPA is running, you should log-in and use: '."\n".
       'http://'.$hostname.'/adm/createuser to further define this user.'."\n\n".        'http://'.$hostname.'/adm/createuser to further define this user.'."\n\n".
       'From the user management menu, click the link: "Add/Modify a Single User" '."\n".        'From the user management menu, click the link: "Add/Modify a User" '."\n".
       'to search for the user and to provide additional information (last name, first name etc.).'."\n");        'to search for the user and to provide additional information (last name, first name etc.).'."\n");
 # Output a suggested URL.  # Output a suggested URL.
   
Removed from v.1.14  
changed lines
  Added in v.1.17

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