version 1.25, 2013/04/04 15:50:05
|
version 1.28, 2021/01/08 00:38:07
|
Line 97 use Apache::lonnet;
|
Line 97 use Apache::lonnet;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use DBI; |
use DBI; |
use Storable qw(nfreeze); |
use Storable qw(nfreeze); |
|
use Sys::Hostname::FQDN(); |
use strict; |
use strict; |
|
|
=pod |
=pod |
Line 360 if ($pbad) {
|
Line 361 if ($pbad) {
|
"\n"); |
"\n"); |
} |
} |
|
|
my $distro; |
my ($distro,$nostdin); |
if (open(PIPE,"perl distprobe|")) { |
if (open(PIPE,"perl distprobe|")) { |
$distro = <PIPE>; |
$distro = <PIPE>; |
close(PIPE); |
close(PIPE); |
} |
} |
|
|
my $setpasswd = 0; |
|
if ($distro =~ /^ubuntu|debian/) { |
if ($distro =~ /^ubuntu|debian/) { |
open(OUT,"|usermod -p `mkpasswd $passwd` $username"); |
$nostdin = 1; |
close(OUT); |
} elsif ($distro =~ /^suse([\d.]+)$/) { |
$setpasswd = 1; |
if ($1 > 12.2) { |
} elsif ($distro =~ /^suse(\d+)\.(\d)$/) { |
$nostdin = 1; |
if (($1 > 12) || (($1 == 12) && ($2 > 1))) { |
} |
open(OUT,"|chpasswd"); |
} elsif ($distro =~ /^sles(\d+)$/) { |
print(OUT "$username:$passwd\n"); |
if ($1 > 11) { |
close(OUT); |
$nostdin = 1; |
$setpasswd = 1; |
|
} |
} |
} |
} |
unless ($setpasswd) { |
if ($nostdin) { |
|
open(OUT,"|usermod -p `mkpasswd $passwd` $username"); |
|
close(OUT); |
|
} else { |
open(OUT,"|passwd --stdin $username"); |
open(OUT,"|passwd --stdin $username"); |
print(OUT $passwd."\n"); |
print(OUT $passwd."\n"); |
close(OUT); |
close(OUT); |
Line 539 by going to http://MACHINENAME/adm/creat
|
Line 540 by going to http://MACHINENAME/adm/creat
|
|
|
# Output success message, and inform sysadmin about how to further proceed. |
# Output success message, and inform sysadmin about how to further proceed. |
print("\n".&mt('[_1] is now a domain coordinator',$username)."\n"); # Output success message. |
print("\n".&mt('[_1] is now a domain coordinator',$username)."\n"); # Output success message. |
my $hostname=`hostname`; chomp($hostname); # Read in hostname. |
my $hostname = Sys::Hostname::FQDN::fqdn(); # Read in hostname. |
print("\n". |
print("\n". |
&mt('Once LON-CAPA is running, you should log-in and use: [_1] to further define this user.', |
&mt('Once LON-CAPA is running, you should log-in and use: [_1] to further define this user.', |
"\nhttp://$hostname/adm/createuser\n")."\n\n". |
"\nhttp://$hostname/adm/createuser\n")."\n\n". |