File:
[LON-CAPA] /
loncom /
debugging_tools /
make_user_ca.pl
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Sun Sep 12 21:27:05 2004 UTC (20 years ago) by
matthew
Branches:
MAIN
CVS tags:
version_2_1_X,
version_2_1_3,
version_2_1_2,
version_2_1_1,
version_2_1_0,
version_2_0_X,
version_2_0_99_1,
version_2_0_2,
version_2_0_1,
version_2_0_0,
version_1_99_3,
version_1_99_2,
version_1_99_1_tmcc,
version_1_99_1,
version_1_99_0_tmcc,
version_1_99_0,
version_1_3_X,
version_1_3_3,
version_1_3_2,
version_1_3_1,
version_1_3_0,
version_1_2_99_1,
version_1_2_99_0,
HEAD
Some debugging tools that have been sitting around for a while.
1: #!/usr/bin/perl -w
2: #
3: use strict;
4: use GDBM_File;
5: my %roles;
6:
7: my $user = shift;
8: my $userdom = shift;
9: my $target = shift; # The account to make $user a co-author on
10: my $targetdom = shift;
11: my $days = shift; # The number of days to have the role last
12:
13: if (! defined($user)) {
14: die "usage: make_user_ca.pl user userdom course coursedom daysuntilexpire";
15: }
16:
17: my $endtime = time + 24*60*60*$days;
18:
19: print "user = $user\n";
20: print "userdom = $userdom\n";
21: print "target = $target\n";
22: print "targetdom = $targetdom\n";
23: print "days = $days\n";
24: print "endtime = $endtime\n";
25:
26: my ($a,$b,$c,undef) = split(//,$user,4);
27: my $dbfile = "/home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.db";
28:
29: print "dbfile = $dbfile\n";
30:
31: tie (%roles,'GDBM_File',$dbfile,
32: &GDBM_WRCREAT(),0640);
33: $roles{'/'.$targetdom.'/'.$target.'_ca'}='ca_'.$endtime.'_'.time;
34: open OUT, ">/home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.hist";
35: foreach (keys(%roles)) {
36: print OUT $_.' : '.$roles{$_}."\n";
37: }
38: close OUT;
39:
40: untie %roles;
41: `chown www:www /home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.hist`;
42: `chown www:www /home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.db`;
43:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>