version 1.12, 2007/06/01 05:17:58
|
version 1.15, 2008/03/03 15:25:02
|
Line 91 Set roles.hist and roles.db
|
Line 91 Set roles.hist and roles.db
|
|
|
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA; |
use LONCAPA; |
|
use LONCAPA::lonmetadata; |
|
use DBI; |
|
|
=pod |
=pod |
|
|
Line 355 close(OUT);
|
Line 357 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 372 my $rolesref=&LONCAPA::locking_hash_tie(
|
Line 378 my $rolesref=&LONCAPA::locking_hash_tie(
|
if (!$rolesref) { |
if (!$rolesref) { |
die('unable to tie roles db: '."$udpath/roles.db"); |
die('unable to tie roles db: '."$udpath/roles.db"); |
} |
} |
$rolesref->{'/'.$domain.'/_dc'}='dc'; # Set the domain coordinator role. |
my $now = time; |
|
$rolesref->{'/'.$domain.'/_dc'}='dc_0_'.$now; # Set the domain coordinator role. |
open(OUT, ">$udpath/roles.hist"); # roles.hist is the synchronous plain text. |
open(OUT, ">$udpath/roles.hist"); # roles.hist is the synchronous plain text. |
foreach my $key (keys(%{$rolesref})) { |
foreach my $key (keys(%{$rolesref})) { |
print(OUT $key.' : '.$rolesref->{$key}."\n"); |
print(OUT $key.' : '.$rolesref->{$key}."\n"); |
Line 384 close(OUT);
|
Line 391 close(OUT);
|
`chown www:www $udpath/roles.hist`; # Must be writeable by httpd process. |
`chown www:www $udpath/roles.hist`; # Must be writeable by httpd process. |
`chown www:www $udpath/roles.db`; # Must be writeable by httpd process. |
`chown www:www $udpath/roles.db`; # Must be writeable by httpd process. |
|
|
|
my %perlvar = %{&LONCAPA::Configuration::read_conf('loncapa.conf')}; |
|
my $dompath = $perlvar{'lonUsersDir'}.'/'.$domain; |
|
my $domrolesref = &LONCAPA::locking_hash_tie("$dompath/nohist_domainroles.db",&GDBM_WRCREAT()); |
|
|
|
if (!$domrolesref) { |
|
die('unable to tie nohist_domainroles db: '."$dompath/nohist_domainroles.db"); |
|
} |
|
|
|
# Store in nohist_domainroles.db |
|
my $domkey=&LONCAPA::escape('dc:'.$username.':'.$domain.'::'.$domain.':'); |
|
$domrolesref->{$domkey}= &LONCAPA::escape('0:'.$now); |
|
&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 |
|
|
|
print "Adding new user to allusers table\n"; |
|
&allusers_update($username,$domain,\%perlvar); |
|
|
=pod |
=pod |
|
|
=item 10. |
=item 10. |
Line 394 by going to http://MACHINENAME/adm/creat
|
Line 422 by going to http://MACHINENAME/adm/creat
|
=cut |
=cut |
|
|
# Output success message, and inform sysadmin about how to further proceed. |
# Output success message, and inform sysadmin about how to further proceed. |
print("$username is now a domain coordinator\n"); # Output success message. |
print("\n$username is now a domain coordinator\n"); # Output success message. |
my $hostname=`hostname`; chomp($hostname); # Read in hostname. |
my $hostname=`hostname`; chomp($hostname); # Read in hostname. |
print("http://$hostname/adm/createuser will allow you to further define". |
print("\n".'Once LON-CAPA is running, you should log-in and use: '."\n". |
" this user.\n"); # Output a suggested URL. |
'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". |
|
'to search for the user and to provide additional information (last name, first name etc.).'."\n"); |
|
# Output a suggested URL. |
|
|
|
sub allusers_update { |
|
my ($username,$domain,$perlvar) = @_; |
|
my %tablenames = ( |
|
'allusers' => 'allusers', |
|
); |
|
my $dbh; |
|
unless ($dbh = DBI->connect("DBI:mysql:loncapa","www", |
|
$perlvar->{'lonSqlAccess'}, |
|
{ RaiseError =>0,PrintError=>0})) { |
|
print "Cannot connect to database!\n"; |
|
return; |
|
} |
|
my $tablechk = &allusers_table_exists($dbh); |
|
if ($tablechk == 0) { |
|
my $request = |
|
&LONCAPA::lonmetadata::create_metadata_storage('allusers','allusers'); |
|
$dbh->do($request); |
|
if ($dbh->err) { |
|
print "Failed to crate allusers table\n"; |
|
return; |
|
} |
|
} |
|
my %userdata = ( |
|
username => $username, |
|
domain => $domain, |
|
); |
|
my %loghash = |
|
&LONCAPA::lonmetadata::process_allusers_data($dbh,undef, |
|
\%tablenames,$username,$domain,\%userdata,'update'); |
|
foreach my $key (keys(%loghash)) { |
|
print $loghash{$key}."\n"; |
|
} |
|
return; |
|
} |
|
|
|
sub allusers_table_exists { |
|
my ($dbh) = @_; |
|
my $sth=$dbh->prepare('SHOW TABLES'); |
|
$sth->execute(); |
|
my $aref = $sth->fetchall_arrayref; |
|
$sth->finish(); |
|
if ($sth->err()) { |
|
return undef; |
|
} |
|
my $result = 0; |
|
foreach my $table (@{$aref}) { |
|
if ($table->[0] eq 'allusers') { |
|
$result = 1; |
|
last; |
|
} |
|
} |
|
return $result; |
|
} |
|
|
=pod |
=pod |
|
|
Line 406 print("http://$hostname/adm/createuser w
|
Line 491 print("http://$hostname/adm/createuser w
|
Written to help the LON-CAPA project. |
Written to help the LON-CAPA project. |
|
|
=cut |
=cut |
|
|