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 { |