Return to make_user_ca.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

* the make_user programs were erasing and then corrupting the .hist-files
* call new locking ties

#!/usr/bin/perl -w
#
use strict;
use GDBM_File;
use lib '/home/httpd/lib/perl/';
use LONCAPA;

my $user      = shift;
my $userdom   = shift;
my $target    = shift; # The account to make $user a co-author on
my $targetdom = shift;
my $days      = shift; # The number of days to have the role last

if (! defined($user)) {
    die "usage: make_user_ca.pl user userdom course coursedom daysuntilexpire";
}

my $endtime = time + 24*60*60*$days;

print "user      = $user\n";
print "userdom   = $userdom\n";
print "target    = $target\n";
print "targetdom = $targetdom\n";
print "days      = $days\n";
print "endtime   = $endtime\n";

my ($a,$b,$c,undef) = split(//,$user,4);
my $dbfile = "/home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.db";

print "dbfile = $dbfile\n";

my $rolesref=&LONCAPA::locking_hash_tie($dbfile,&GDBM_WRCREAT());

$$rolesref{'/'.$targetdom.'/'.$target.'_ca'}='ca_'.$endtime.'_'.time;

&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.db`;