version 1.272, 2005/01/01 02:31:05
|
version 1.276, 2005/01/26 12:13:58
|
Line 1799 sub change_authentication_handler {
|
Line 1799 sub change_authentication_handler {
|
# to take ownership of the construction space back to www:www |
# to take ownership of the construction space back to www:www |
# |
# |
|
|
if( ($oldauth =~ /^unix/) && ($umode eq "internal")) { # unix -> internal |
if( (($oldauth =~ /^unix/) && ($umode eq "internal")) || |
|
(($oldauth =~ /^internal/) && ($umode eq "unix")) ) { |
if(&is_author($udom, $uname)) { |
if(&is_author($udom, $uname)) { |
&Debug(" Need to manage author permissions..."); |
&Debug(" Need to manage author permissions..."); |
&manage_permissions("/$udom/_au", $udom, $uname, "internal:"); |
&manage_permissions("/$udom/_au", $udom, $uname, "$umode:"); |
} |
} |
} |
} |
|
|
Line 3140 sub put_course_id_handler {
|
Line 3141 sub put_course_id_handler {
|
my ($key,$courseinfo) = split(/=/,$pair,2); |
my ($key,$courseinfo) = split(/=/,$pair,2); |
$courseinfo =~ s/=/:/g; |
$courseinfo =~ s/=/:/g; |
|
|
my @current_items = split/:/,$hashref->{$key}; |
my @current_items = split(/:/,$hashref->{$key}); |
shift @current_items; # remove description |
shift(@current_items); # remove description |
pop @current_items; # remove last access |
pop(@current_items); # remove last access |
my $numcurrent = scalar(@current_items); |
my $numcurrent = scalar(@current_items); |
|
|
my @new_items = split/:/,$courseinfo; |
my @new_items = split(/:/,$courseinfo); |
my $numnew = scalar(@new_items); |
my $numnew = scalar(@new_items); |
if ($numcurrent > 0) { |
if ($numcurrent > 0) { |
if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier |
if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier |
Line 3198 sub put_course_id_handler {
|
Line 3199 sub put_course_id_handler {
|
# owner - optional supplied username of owner to filter |
# owner - optional supplied username of owner to filter |
# the dump. Only courses for which the course |
# the dump. Only courses for which the course |
# owner matches the supplied username will be |
# owner matches the supplied username will be |
# returned. Implicit assumption that owner is a user |
# returned. Implicit assumption that owner |
# in the domain in which the course database is defined. |
# is a user in the domain in which the |
|
# course database is defined. |
# $client - The socket open on the client. |
# $client - The socket open on the client. |
# Returns: |
# Returns: |
# 1 - Continue processing. |
# 1 - Continue processing. |
Line 3233 sub dump_course_id_handler {
|
Line 3235 sub dump_course_id_handler {
|
if ($hashref) { |
if ($hashref) { |
while (my ($key,$value) = each(%$hashref)) { |
while (my ($key,$value) = each(%$hashref)) { |
my ($descr,$lasttime,$inst_code,$owner); |
my ($descr,$lasttime,$inst_code,$owner); |
my @courseitems = split/:/,$value; |
my @courseitems = split(/:/,$value); |
$descr = shift @courseitems; |
$lasttime = pop(@courseitems); |
$lasttime = pop @courseitems; |
($descr,$inst_code,$owner)=@courseitems; |
if (@courseitems > 0) { |
|
$inst_code = shift @courseitems; |
|
} |
|
if (@courseitems > 0) { |
|
$owner = shift @courseitems; |
|
} |
|
if ($lasttime<$since) { next; } |
if ($lasttime<$since) { next; } |
my $match = 1; |
my $match = 1; |
unless ($description eq '.') { |
unless ($description eq '.') { |
Line 4471 sub logstatus {
|
Line 4467 sub logstatus {
|
flock(LOG,LOCK_EX); |
flock(LOG,LOCK_EX); |
print LOG $$."\t".$clientname."\t".$currenthostid."\t" |
print LOG $$."\t".$clientname."\t".$currenthostid."\t" |
.$status."\t".$lastlog."\t $keymode\n"; |
.$status."\t".$lastlog."\t $keymode\n"; |
flock(DB,LOCK_UN); |
flock(LOG,LOCK_UN); |
close(LOG); |
close(LOG); |
} |
} |
&status("Finished logging"); |
&status("Finished logging"); |