loncom/debugging_tools/activity_to_accesscount.pl - diff

Return to activity_to_accesscount.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.2, 2003/11/14 19:41:38	version 1.3, 2003/11/14 20:42:34
Line 9 sub unescape {	Line 9 sub unescape {
return $str;	return $str;
}	}

	sub escape {
	my $str=shift;
	$str =~ s/(\W)/"%".unpack('H2',$1)/eg;
	return $str;
	}

my %resourceaccess;	my %resourceaccess;

sub main {	sub main {
my $file=$ARGV[0];	my $file=$ARGV[0];
my ($path) = ($file =~ m:(.*)/activity\.log$:);	my $target = $ARGV[1];
my $target = $path.'/nohist_accesscount.db';	my ($owner) = ($target =~ m:./(.)/nohist_accesscount.db:);
print STDERR "source: $file\ntarget: $target\n";	print STDERR "source: $file\ntarget: $target\nowner: $owner\n";
my %accessDB;	my %accessDB;
my $accesstime = 0;	my $accesstime = 0;
my $starttime = time;	my $starttime = time;
Line 66 sub main {	Line 72 sub main {
next;	next;
}	}
$resource = &unescape($resource);	$resource = &unescape($resource);
if ($resource !~ m:(.)/(.)/: \|\| $resource =~ m:/prtspool/:) {	if ($resource !~ m:/$owner/:) {
next;	next;
}	}
if ($resource =~ /___\d+___/) {	if ($resource =~ /___\d+___/) {
Line 84 sub main {	Line 90 sub main {
}	}
#	#
while (my ($resource,$count) = each(%resourceaccess)) {	while (my ($resource,$count) = each(%resourceaccess)) {
	$resource = &escape($resource);
if (exists($accessDB{$resource})) {	if (exists($accessDB{$resource})) {
$accessDB{$resource}+=$count;	$accessDB{$resource}+=$count;
} else {	} else {