Changeset 19478 for lang/perl/App-Hachero

Timestamp:

09/18/08 14:09:49 (5 years ago)

Author:

lopnor

Message:

fix foolish bug at AccessCount? record key

Location:

lang/perl/App-Hachero/trunk/lib/App

Files:

• Hachero.pm (modified) (1 diff)
• Hachero/Plugin/Analyze/AccessCount.pm (modified) (1 diff)
• Hachero/Plugin/Input/File.pm (modified) (1 diff)

lang/perl/App-Hachero/trunk/lib/App/Hachero.pm

@@ -49 +49 @@
 sub run_hook_and_check {
     my $self = shift;
-    $self->run_hook(@_);
-    return $self->currentline;
+    my $hook = shift;
+    $self->run_hook($hook);
+    unless ($self->currentline) {
+        $self->log(debug => "run_hook_and_check: $hook failed and skip this line.");
+        return 0;
+    }
+    1;
 }
 

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

@@ -10 +10 @@
     my $req = $context->currentinfo->{request} or return;
     my $truncate = $self->config->{config}->{truncate_to} || 'minute';
-    my $time = DateTime::Format::MySQL->format_datetime(
-        $req->{datetime}->clone->truncate(to => $truncate)
-    );
-    my $key = $req->{datetime}->epoch;
+    my $time = $req->{datetime}->clone->truncate(to => $truncate);
+    my $key = $time->epoch;
     $context->result->{'AccessCount'}->{$key} = {
-        datetime => $time,
+        datetime => DateTime::Format::MySQL->format_datetime($time),
         count => ($context->result->{'AccessCount'}->{$key}->{count} || 0) + 1,
     }

lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Input/File.pm

@@ -41 +41 @@
             print STDERR "\rreading file: $self->{readsize}/$self->{filesize}";
         }
-        unless ($line) {
+        if ($line) {
+#            $context->log(debug => 'the line: '. $line);
+        } else {
             if ($context->conf->{global}->{log}->{level} eq 'debug') {
                 print STDERR "\n";