--- loncom/debugging_tools/activity_to_accesscount.pl	2003/11/14 19:41:38	1.2
+++ loncom/debugging_tools/activity_to_accesscount.pl	2003/11/14 20:42:34	1.3
@@ -9,13 +9,19 @@ sub unescape {
     return $str;
 }
 
+sub escape {
+    my $str=shift;
+    $str =~ s/(\W)/"%".unpack('H2',$1)/eg;
+    return $str;
+}
+
 my %resourceaccess;
 
 sub main {
     my $file=$ARGV[0];
-    my ($path) = ($file =~ m:(.*)/activity\.log$:);
-    my $target = $path.'/nohist_accesscount.db';
-    print STDERR "source: $file\ntarget: $target\n";
+    my $target = $ARGV[1];
+    my ($owner) = ($target =~ m:.*/(.*)/nohist_accesscount.db:);
+    print STDERR "source: $file\ntarget: $target\nowner: $owner\n";
     my %accessDB;
     my $accesstime = 0;
     my $starttime = time;
@@ -66,7 +72,7 @@ sub main {
                 next; 
             }
             $resource = &unescape($resource);
-            if ($resource !~ m:(.*)/(.*)/: || $resource =~ m:/prtspool/:) {
+            if ($resource !~ m:/$owner/:) {
                 next;
             }
             if ($resource =~ /___\d+___/) {
@@ -84,6 +90,7 @@ sub main {
     }
     #
     while (my ($resource,$count) = each(%resourceaccess)) {
+        $resource = &escape($resource);
         if (exists($accessDB{$resource})) {
             $accessDB{$resource}+=$count;
         } else {