version 1.449, 2003/11/12 20:32:04
|
version 1.450, 2003/11/12 21:37:33
|
Line 1336 sub flushcourselogs {
|
Line 1336 sub flushcourselogs {
|
# |
# |
foreach my $entry (keys(%accesshash)) { |
foreach my $entry (keys(%accesshash)) { |
my ($dom,$name,undef,$type)=($entry=~m:___(\w+)/(\w+)/(.*)___(\w+)$:); |
my ($dom,$name,undef,$type)=($entry=~m:___(\w+)/(\w+)/(.*)___(\w+)$:); |
my %temphash=($entry => $accesshash{$entry}); |
|
if ($type eq 'count'){ |
if ($type eq 'count'){ |
|
my $value = $accesshash{$entry}; |
|
my (undef,$url,undef) = ($entry =~ /^(.*)___(.*)___count$/); |
|
my %temphash=($url => $value); |
my $result = &inc('nohist_accesscount',\%temphash,$dom,$name); |
my $result = &inc('nohist_accesscount',\%temphash,$dom,$name); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
delete $accesshash{$entry}; |
delete $accesshash{$entry}; |
} elsif ($result eq 'unknown_cmd') { |
} elsif ($result eq 'unknown_cmd') { |
# Target server has old code running on it. |
# Target server has old code running on it. |
|
my %temphash=($entry => $value); |
if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') { |
if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') { |
delete $accesshash{$entry}; |
delete $accesshash{$entry}; |
} |
} |
} |
} |
&logthis('incrementing '.$entry.' by '.$accesshash{$entry}.' result is '.$result); |
|
} else { |
} else { |
|
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 1388 sub courselog {
|
Line 1391 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 1413 sub countacc {
|
Line 1417 sub countacc {
|
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'; |
if (defined($accesshash{$key})) { |
$accesshash{$key}++; |
$accesshash{$key}++; |
|
} else { |
|
$accesshash{$key}=1; |
|
} |
|
} |
} |
|
|
sub linklog { |
sub linklog { |