File:
[LON-CAPA] /
loncom /
debugging_tools /
make_user_cc.pl
Revision
1.2:
download - view:
text,
annotated -
select for diffs
Mon Jun 19 09:36:22 2006 UTC (18 years, 6 months ago) by
www
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_99_0,
version_2_9_1,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_X,
version_2_3_99_0,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_X,
version_2_2_99_1,
version_2_2_99_0,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
version_2_1_99_0,
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
bz6209-base,
bz6209,
bz5969,
bz2851,
PRINT_INCOMPLETE_base,
PRINT_INCOMPLETE,
HEAD,
GCI_3,
GCI_2,
GCI_1,
BZ5971-printing-apage,
BZ5434-fox,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
* 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 $course = shift; # The account to make $user a course coordinator on
my $coursedom = shift;
my $days = shift; # The number of days to have the role last
if (! defined($user)) {
die "usage: make_user_cc.pl user userdom course coursedom daysuntilexpire";
}
my $endtime = time + 24*60*60*$days;
print "user = $user\n";
print "userdom = $userdom\n";
print "target = $course\n";
print "targetdom = $coursedom\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";
my $histfile = "/home/httpd/lonUsers/$userdom/$a/$b/$c/$user/roles.hist";
my $rolesref=&LONCAPA::locking_hash_tie($dbfile,&GDBM_WRCREAT());
$$rolesref{'/'.$coursedom.'/'.$course.'_cc'}='cc';
&LONCAPA::locking_hash_untie($rolesref);
system ("chown www:www $histfile");
system ("chown www:www $dbfile");
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>