Fix bucket name truncation in the bucket log, and don't forget to check the delta interval when summarizing.

This commit is contained in:
Colin Kuskie 2011-10-20 20:25:16 -07:00
parent 9ef8f098cf
commit b6c4adc8e0
4 changed files with 18 additions and 1 deletions

View file

@ -113,7 +113,9 @@ sub execute {
$recordLast->execute([ (@{ $logLine }{qw/userId sessionId timeStamp url/}) ]);
if ($lastLine->{timeStamp}) {
my $delta = $logLine->{timeStamp} - $lastLine->{timeStamp};
$deltaLog->execute([ (@{ $lastLine }{qw/userId assetId timeStamp url/}), $delta]);
if ($delta <= $deltaInterval) {
$deltaLog->execute([ (@{ $lastLine }{qw/userId assetId timeStamp url/}), $delta]);
}
}
if (time() > $endTime) {
$expired = 1;