loncom/debugging_tools/make_user_ca.pl - diff

Return to make_user_ca.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

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`;