Fix bucket name truncation in the bucket log, and don't forget to check the delta interval when summarizing.
This commit is contained in:
parent
9ef8f098cf
commit
b6c4adc8e0
4 changed files with 18 additions and 1 deletions
|
|
@ -4,6 +4,7 @@
|
||||||
- fixed #12201: AssetReport - no selects.
|
- fixed #12201: AssetReport - no selects.
|
||||||
- fixed #12269: Login / Loginbox with encryptlogin
|
- fixed #12269: Login / Loginbox with encryptlogin
|
||||||
- fixed #12271: Calendar List View does not always show labels
|
- fixed #12271: Calendar List View does not always show labels
|
||||||
|
- fixed Passive Analytics, UI, Progress Bar, server load.
|
||||||
|
|
||||||
7.10.23
|
7.10.23
|
||||||
- fixed #12225: Stock asset, multiple instances on a page
|
- fixed #12225: Stock asset, multiple instances on a page
|
||||||
|
|
|
||||||
|
|
@ -33,6 +33,7 @@ my $session = start(); # this line required
|
||||||
# upgrade functions go here
|
# upgrade functions go here
|
||||||
addPALastLogTable($session);
|
addPALastLogTable($session);
|
||||||
addForkRedirect($session);
|
addForkRedirect($session);
|
||||||
|
extendBucketName($session);
|
||||||
|
|
||||||
finish($session); # this line required
|
finish($session); # this line required
|
||||||
|
|
||||||
|
|
@ -68,6 +69,18 @@ EOSQL
|
||||||
print "DONE!\n" unless $quiet;
|
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
|
# Describe what our function does
|
||||||
#sub exampleFunction {
|
#sub exampleFunction {
|
||||||
|
|
|
||||||
|
|
@ -113,8 +113,10 @@ sub execute {
|
||||||
$recordLast->execute([ (@{ $logLine }{qw/userId sessionId timeStamp url/}) ]);
|
$recordLast->execute([ (@{ $logLine }{qw/userId sessionId timeStamp url/}) ]);
|
||||||
if ($lastLine->{timeStamp}) {
|
if ($lastLine->{timeStamp}) {
|
||||||
my $delta = $logLine->{timeStamp} - $lastLine->{timeStamp};
|
my $delta = $logLine->{timeStamp} - $lastLine->{timeStamp};
|
||||||
|
if ($delta <= $deltaInterval) {
|
||||||
$deltaLog->execute([ (@{ $lastLine }{qw/userId assetId timeStamp url/}), $delta]);
|
$deltaLog->execute([ (@{ $lastLine }{qw/userId assetId timeStamp url/}), $delta]);
|
||||||
}
|
}
|
||||||
|
}
|
||||||
if (time() > $endTime) {
|
if (time() > $endTime) {
|
||||||
$expired = 1;
|
$expired = 1;
|
||||||
last LOG_ENTRY;
|
last LOG_ENTRY;
|
||||||
|
|
|
||||||
|
|
@ -6,3 +6,4 @@ user2 session21 200 /yelnats
|
||||||
user2 session21 202 /one/uno
|
user2 session21 202 /one/uno
|
||||||
user2 session21 205 /whatever
|
user2 session21 205 /whatever
|
||||||
user2 session21 210 /something_else
|
user2 session21 210 /something_else
|
||||||
|
user2 session21 610 /something_else
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue