|
|
|
@ -329,6 +329,15 @@ helper has_joined => sub { |
|
|
|
|
return $ret; |
|
|
|
|
}; |
|
|
|
|
|
|
|
|
|
# Purge disconnected participants from the DB |
|
|
|
|
helper delete_participants => sub { |
|
|
|
|
my $self = shift; |
|
|
|
|
$self->app->log->debug('Removing inactive participants from the database'); |
|
|
|
|
my $sth = eval { $self->db->prepare("DELETE FROM participants WHERE (`activity_timestamp` < 7200 OR `activity_timestamp` IS NULL);") } || return undef; |
|
|
|
|
$sth->execute() || return undef; |
|
|
|
|
return 1; |
|
|
|
|
}; |
|
|
|
|
|
|
|
|
|
# Purge unused rooms |
|
|
|
|
helper delete_rooms => sub { |
|
|
|
|
my $self = shift; |
|
|
|
@ -1046,6 +1055,10 @@ post '/action' => sub { |
|
|
|
|
if ((int (rand 100)) <= 10){ |
|
|
|
|
$self->delete_invitations; |
|
|
|
|
} |
|
|
|
|
# And also remove inactive participants |
|
|
|
|
if ((int (rand 100)) <= 10){ |
|
|
|
|
$self->delete_participants; |
|
|
|
|
} |
|
|
|
|
if ($res){ |
|
|
|
|
$status = 'success'; |
|
|
|
|
$msg = ''; |
|
|
|
|