Skip to content
Permalink
Browse files

Fix bucket name truncation in the bucket log, and don't forget to che…

…ck the delta interval when summarizing.
  • Loading branch information...
perlDreamer committed Oct 21, 2011
1 parent 9ef8f09 commit b6c4adc8e0d4c149c88ac91801824393a42b1860
@@ -4,6 +4,7 @@
- fixed #12201: AssetReport - no selects.
- fixed #12269: Login / Loginbox with encryptlogin
- fixed #12271: Calendar List View does not always show labels
- fixed Passive Analytics, UI, Progress Bar, server load.

7.10.23
- fixed #12225: Stock asset, multiple instances on a page
@@ -33,6 +33,7 @@ BEGIN
# upgrade functions go here
addPALastLogTable($session);
addForkRedirect($session);
extendBucketName($session);

finish($session); # this line required

@@ -68,6 +69,18 @@ sub addForkRedirect {
print "DONE!\n" unless $quiet;
}

#----------------------------------------------------------------------------
# Describe what our function does
sub extendBucketName {
my $session = shift;
print "\tExtend the size of the bucket name in the bucketLog table for Passive Analytics... " unless $quiet;
# and here's our code
$session->db->write(<<EOSQL);
ALTER TABLE bucketLog CHANGE COLUMN Bucket Bucket CHAR(255)
EOSQL
print "DONE!\n" unless $quiet;
}

#----------------------------------------------------------------------------
# Describe what our function does
#sub exampleFunction {
@@ -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;
@@ -6,3 +6,4 @@ user2 session21 200 /yelnats
user2 session21 202 /one/uno
user2 session21 205 /whatever
user2 session21 210 /something_else
user2 session21 610 /something_else

0 comments on commit b6c4adc

Please sign in to comment.
You can’t perform that action at this time.