Changeset 19472 for lang/perl/App-Hachero

Timestamp:

09/18/08 13:21:45 (5 years ago)

Author:

lopnor

Message:

use epoch as a record key

Files:

• lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Analyze/AccessCount.pm (modified) (1 diff)

lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Analyze/AccessCount.pm

@@ -13 +13 @@
         $req->{datetime}->clone->truncate(to => $truncate)
     );
-    my $hash = Digest::MD5::md5_base64($time);
-    $context->result->{'AccessCount'}->{$hash} = {
+    my $key = $req->{datetime}->epoch;
+    $context->result->{'AccessCount'}->{$key} = {
         datetime => $time,
-        count => ($context->result->{'AccessCount'}->{$hash}->{count} || 0) + 1,
+        count => ($context->result->{'AccessCount'}->{$key}->{count} || 0) + 1,
     }
 }