loncom/build/make_domain_coordinator.pl - diff

Return to make_domain_coordinator.pl CVS log

Up to [LON-CAPA] / loncom / build

-version 1.15, 2008/03/03 15:25:02
+version 1.16, 2009/07/17 01:11:11
  Line 304  foreach (split(//,$passwd)) {if ((ord($_
  if ($pbad) {
      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