version 1.1, 2004/09/12 21:27:05
|
version 1.2, 2006/06/19 09:36:22
|
Line 2
|
Line 2
|
# |
# |
use strict; |
use strict; |
use GDBM_File; |
use GDBM_File; |
my %roles; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
my $user = shift; |
my $user = shift; |
my $userdom = shift; |
my $userdom = shift; |
Line 28 my $dbfile = "/home/httpd/lonUsers/$user
|
Line 29 my $dbfile = "/home/httpd/lonUsers/$user
|
|
|
print "dbfile = $dbfile\n"; |
print "dbfile = $dbfile\n"; |
|
|
tie (%roles,'GDBM_File',$dbfile, |
my $rolesref=&LONCAPA::locking_hash_tie($dbfile,&GDBM_WRCREAT()); |
&GDBM_WRCREAT(),0640); |
|
$roles{'/'.$targetdom.'/'.$target.'_ca'}='ca_'.$endtime.'_'.time; |
$$rolesref{'/'.$targetdom.'/'.$target.'_ca'}='ca_'.$endtime.'_'.time; |
open OUT, ">/home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.hist"; |
|
foreach (keys(%roles)) { |
|
print OUT $_.' : '.$roles{$_}."\n"; |
|
} |
|
close OUT; |
|
|
|
untie %roles; |
&LONCAPA::locking_hash_untie($rolesref); |
`chown www:www /home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.hist`; |
`chown www:www /home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.hist`; |
`chown www:www /home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.db`; |
`chown www:www /home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.db`; |
|
|