bin/expire_sessions


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

use strict;
use warnings;
require PgCommitFest::Request;

my $db = PgCommitFest::Request->db();
$db->do(<<EOM);
DELETE FROM session WHERE login_time < now() - '10 days'::interval;
EOM
$db->commit;