version 1.457, 2003/12/08 13:50:57
|
version 1.458, 2003/12/09 16:22:06
|
Line 1319 sub flushcourselogs {
|
Line 1319 sub flushcourselogs {
|
# Writes to the dynamic metadata of resources to get hit counts, etc. |
# Writes to the dynamic metadata of resources to get hit counts, etc. |
# |
# |
foreach my $entry (keys(%accesshash)) { |
foreach my $entry (keys(%accesshash)) { |
my ($dom,$name,undef,$type)=($entry=~m:___(\w+)/(\w+)/(.*)___(\w+)$:); |
if ($entry =~ /___count$/) { |
if ($type eq 'count'){ |
my ($dom,$name); |
|
($dom,$name,undef)=($entry=~m:___(\w+)/(\w+)/(.*)___count$:); |
|
if (! defined($dom) || $dom eq '' || |
|
! defined($name) || $name eq '') { |
|
my $cid = $ENV{'request.course.id'}; |
|
$dom = $ENV{'request.'.$cid.'.domain'}; |
|
$name = $ENV{'request.'.$cid.'.num'}; |
|
} |
my $value = $accesshash{$entry}; |
my $value = $accesshash{$entry}; |
my (undef,$url,undef) = ($entry =~ /^(.*)___(.*)___count$/); |
my (undef,$url,undef) = ($entry =~ /^(.*)___(.*)___count$/); |
my %temphash=($url => $value); |
my %temphash=($url => $value); |
Line 1335 sub flushcourselogs {
|
Line 1342 sub flushcourselogs {
|
} |
} |
} |
} |
} else { |
} else { |
|
my ($dom,$name) = ($entry=~m:___(\w+)/(\w+)/(.*)___(\w+)$:); |
my %temphash=($entry => $accesshash{$entry}); |
my %temphash=($entry => $accesshash{$entry}); |
if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') { |
if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') { |
delete $accesshash{$entry}; |
delete $accesshash{$entry}; |
Line 1375 sub courselog {
|
Line 1383 sub courselog {
|
} else { |
} else { |
$courselogs{$ENV{'request.course.id'}}.=$what; |
$courselogs{$ENV{'request.course.id'}}.=$what; |
} |
} |
# if (length($courselogs{$ENV{'request.course.id'}})>4048) { |
if (length($courselogs{$ENV{'request.course.id'}})>4048) { |
if (length($courselogs{$ENV{'request.course.id'}})>48) { |
|
&flushcourselogs(); |
&flushcourselogs(); |
} |
} |
} |
} |
Line 1398 sub courseacclog {
|
Line 1405 sub courseacclog {
|
|
|
sub countacc { |
sub countacc { |
my $url=&declutter(shift); |
my $url=&declutter(shift); |
|
return if (! defined($url) || $url eq ''); |
unless ($ENV{'request.course.id'}) { return ''; } |
unless ($ENV{'request.course.id'}) { return ''; } |
$accesshash{$ENV{'request.course.id'}.'___'.$url.'___course'}=1; |
$accesshash{$ENV{'request.course.id'}.'___'.$url.'___course'}=1; |
my $key=$$.$processmarker.'_'.$dumpcount.'___'.$url.'___count'; |
my $key=$$.$processmarker.'_'.$dumpcount.'___'.$url.'___count'; |